ushi2015 の回答履歴

灯油１８リットルで４４００円は高いですか。 もしご存知の方おりましたら、回答よろしくお願いいたします。

Excelブックのシートに、 相対アドレスではなく、絶対アドレスで ハイパーリンクを作成したいのですが どのようにすればよいでしょうか。 例えば、 Excelブック(Book.xlsx)のシートに ネット上のフォルダの中のファイル(test.txt)を 参照するハイパーリンクを設定する場合、 セルにファイル名(test.txt)を入力して このセルを右クリックのハイパーリンクで ハイパーリンクの挿入ダイアログが表示されるので リンク先:ファイル、Webページ test.txtのファイルを選択してOKボタンで このセルの中のtest.txtがハイパーリンク表示 (青色とアンダーバー)になります。 これをクリックするとtest.txtのファイルが開きます。 test.txtのファイルは常に同じ場所にあるものとして Book.xlsxファイルを別の場所に移動した場合でも、 このハイパーリンクをクリックして test.txtのファイルが開くようにしたいです。 よろしくお願いします。(Windows7,Excel2010)

コピーして持ってきたワークシートを利用しようとしたら「このワークシートの数式に1つまたは複数の無効な参照が含まれています。　有効なパス、範囲名・・・」とメッセージが出てくるのですが試しにワークシート全部を削除してみたのですが、やはりメッセージが出ます。 解決方法を教えてください。 操作の度に出てくるので何とかしたいです。

Excelブックのシートに、 相対アドレスではなく、絶対アドレスで ハイパーリンクを作成したいのですが どのようにすればよいでしょうか。 例えば、 Excelブック(Book.xlsx)のシートに ネット上のフォルダの中のファイル(test.txt)を 参照するハイパーリンクを設定する場合、 セルにファイル名(test.txt)を入力して このセルを右クリックのハイパーリンクで ハイパーリンクの挿入ダイアログが表示されるので リンク先:ファイル、Webページ test.txtのファイルを選択してOKボタンで このセルの中のtest.txtがハイパーリンク表示 (青色とアンダーバー)になります。 これをクリックするとtest.txtのファイルが開きます。 test.txtのファイルは常に同じ場所にあるものとして Book.xlsxファイルを別の場所に移動した場合でも、 このハイパーリンクをクリックして test.txtのファイルが開くようにしたいです。 よろしくお願いします。(Windows7,Excel2010)

私に、メール差出人が、「profile」なのですが、頻繁に届きます。 無料なので甘えられる相手がほしい・・・・・などと 不審なメールですね。ご存知の方、何かわかりませんか。

コピーして持ってきたワークシートを利用しようとしたら「このワークシートの数式に1つまたは複数の無効な参照が含まれています。　有効なパス、範囲名・・・」とメッセージが出てくるのですが試しにワークシート全部を削除してみたのですが、やはりメッセージが出ます。 解決方法を教えてください。 操作の度に出てくるので何とかしたいです。

うちの家に15歳になるメス猫がいます。 いまのところ元気なのですが年を考えると今後、どう接していくべきか 不安でいます。今まで猫を飼ったことがあるのですがここまで長く飼うのは はじめてです。 かなり漠然とした質問になりますが、どうしたら長く付き合ってあげることが できますでしょうか。特に体の面で気をつけるべき点がありましたらお願いします。

アクセス・エクセル2010を使用しています。 以下の作業を実行したいと考えていますが、初心者につき、ご教示ください！ 1．ダイアログを表示させ、フォルダを指定したい：トップパス設定 2．1で指定したトップパス内（サブフォルダを含む）にある 　一定のネーミングファイルを範囲を指定してインポート（マージ）したい 動作条件） a．トップパス：D:\test　←ダイアログで指定したい（可能であれば・・次回の動作時に覚えさせておきたい） b．インポートファイルの名称：*_3年目.xls（語尾に「_3年目」と付くエクセル）　←フォームのテキストボックスで設定したい c．インポート範囲：B7:Z56　←変動するので、フォームのテキストボックスで設定したい 現在、同じパス内にあるエクセルファイルを指定した範囲でテーブルにインポートする というところまでは、ご親切な方にご教示いただき、以下にてうまく動いています。 初心者のため、どこをどう変更・設定すると 上記のような動きにできるのかがわかっておりませんため、 ご教示いただけないでしょうか。 ※[frm]![txt_範囲]：範囲指定をするフォームのテキストボックス 　仮テーブル：取り込み時に作成するマージ用テーブル Dim f As Object Dim b As Object Dim c As Object Dim d As Object Dim t As Variant Dim e As Object Dim p As String Dim i As Long Dim sSql As String Dim x As String Set e = CreateObject("Excel.Application") t = e.GetOpenFilename("Excel Files (*.xls*), *.xls*") If t = False Then Exit Sub x = Forms![frm]![txt_範囲] Set f = CreateObject("Scripting.FileSystemObject") p = f.GetParentFolderName(t) Set d = f.GetFolder(p) Set b = d.Files On Error Resume Next sSql = "DROP TABLE 仮テーブル " CurrentProject.Connection.Execute CommandText:=sSql sSql = "DROP TABLE 一時テーブル " CurrentProject.Connection.Execute CommandText:=sSql On Error GoTo 0 For Each c In b If LCase(f.GetExtensionName(c)) Like "xls*" Then If i = 0 Then DoCmd.TransferSpreadsheet acImport, , "仮テーブル", c, True, x sSql = "ALTER TABLE 仮テーブル ADD COLUMN ファイル名 VarChar(50);" CurrentProject.Connection.Execute CommandText:=sSql sSql = "UPDATE 仮テーブル SET ファイル名='" & f.GetFileName(c) & "';" CurrentProject.Connection.Execute CommandText:=sSql i = i + 1 Else On Error Resume Next sSql = "DROP TABLE 一時テーブル " CurrentProject.Connection.Execute CommandText:=sSql On Error GoTo 0 DoCmd.TransferSpreadsheet acImport, , "一時テーブル", c, True, x sSql = "ALTER TABLE 一時テーブル ADD COLUMN ファイル名 VarChar(50);" CurrentProject.Connection.Execute CommandText:=sSql sSql = "UPDATE 一時テーブル SET ファイル名='" & f.GetFileName(c) & "';" CurrentProject.Connection.Execute CommandText:=sSql sSql = "INSERT INTO 仮テーブル SELECT * FROM 一時テーブル" CurrentProject.Connection.Execute CommandText:=sSql i = i + 1 End If End If Next On Error Resume Next sSql = "DROP TABLE 一時テーブル " CurrentProject.Connection.Execute CommandText:=sSql On Error GoTo 0 e.Quit Set e = Nothing MsgBox "データがインポートされました。" End Sub 尚、せっかく教えていただいたコードではありますが、 上記コードを用いては思った動作にならないのであれば、 新しい手法で教えていただくんでも構いません。 是非、よろしくお願いします！！

アクセス・エクセル2010を使用しています。 以下の作業を実行したいと考えていますが、初心者につき、ご教示ください！ 1．ダイアログを表示させ、フォルダを指定したい：トップパス設定 2．1で指定したトップパス内（サブフォルダを含む）にある 　一定のネーミングファイルを範囲を指定してインポート（マージ）したい 動作条件） a．トップパス：D:\test　←ダイアログで指定したい（可能であれば・・次回の動作時に覚えさせておきたい） b．インポートファイルの名称：*_3年目.xls（語尾に「_3年目」と付くエクセル）　←フォームのテキストボックスで設定したい c．インポート範囲：B7:Z56　←変動するので、フォームのテキストボックスで設定したい 現在、同じパス内にあるエクセルファイルを指定した範囲でテーブルにインポートする というところまでは、ご親切な方にご教示いただき、以下にてうまく動いています。 初心者のため、どこをどう変更・設定すると 上記のような動きにできるのかがわかっておりませんため、 ご教示いただけないでしょうか。 ※[frm]![txt_範囲]：範囲指定をするフォームのテキストボックス 　仮テーブル：取り込み時に作成するマージ用テーブル Dim f As Object Dim b As Object Dim c As Object Dim d As Object Dim t As Variant Dim e As Object Dim p As String Dim i As Long Dim sSql As String Dim x As String Set e = CreateObject("Excel.Application") t = e.GetOpenFilename("Excel Files (*.xls*), *.xls*") If t = False Then Exit Sub x = Forms![frm]![txt_範囲] Set f = CreateObject("Scripting.FileSystemObject") p = f.GetParentFolderName(t) Set d = f.GetFolder(p) Set b = d.Files On Error Resume Next sSql = "DROP TABLE 仮テーブル " CurrentProject.Connection.Execute CommandText:=sSql sSql = "DROP TABLE 一時テーブル " CurrentProject.Connection.Execute CommandText:=sSql On Error GoTo 0 For Each c In b If LCase(f.GetExtensionName(c)) Like "xls*" Then If i = 0 Then DoCmd.TransferSpreadsheet acImport, , "仮テーブル", c, True, x sSql = "ALTER TABLE 仮テーブル ADD COLUMN ファイル名 VarChar(50);" CurrentProject.Connection.Execute CommandText:=sSql sSql = "UPDATE 仮テーブル SET ファイル名='" & f.GetFileName(c) & "';" CurrentProject.Connection.Execute CommandText:=sSql i = i + 1 Else On Error Resume Next sSql = "DROP TABLE 一時テーブル " CurrentProject.Connection.Execute CommandText:=sSql On Error GoTo 0 DoCmd.TransferSpreadsheet acImport, , "一時テーブル", c, True, x sSql = "ALTER TABLE 一時テーブル ADD COLUMN ファイル名 VarChar(50);" CurrentProject.Connection.Execute CommandText:=sSql sSql = "UPDATE 一時テーブル SET ファイル名='" & f.GetFileName(c) & "';" CurrentProject.Connection.Execute CommandText:=sSql sSql = "INSERT INTO 仮テーブル SELECT * FROM 一時テーブル" CurrentProject.Connection.Execute CommandText:=sSql i = i + 1 End If End If Next On Error Resume Next sSql = "DROP TABLE 一時テーブル " CurrentProject.Connection.Execute CommandText:=sSql On Error GoTo 0 e.Quit Set e = Nothing MsgBox "データがインポートされました。" End Sub 尚、せっかく教えていただいたコードではありますが、 上記コードを用いては思った動作にならないのであれば、 新しい手法で教えていただくんでも構いません。 是非、よろしくお願いします！！

アクセス・エクセル2010を使用しています。 以下の作業を実行したいと考えていますが、初心者につき、ご教示ください！ 1．ダイアログを表示させ、フォルダを指定したい：トップパス設定 2．1で指定したトップパス内（サブフォルダを含む）にある 　一定のネーミングファイルを範囲を指定してインポート（マージ）したい 動作条件） a．トップパス：D:\test　←ダイアログで指定したい（可能であれば・・次回の動作時に覚えさせておきたい） b．インポートファイルの名称：*_3年目.xls（語尾に「_3年目」と付くエクセル）　←フォームのテキストボックスで設定したい c．インポート範囲：B7:Z56　←変動するので、フォームのテキストボックスで設定したい 現在、同じパス内にあるエクセルファイルを指定した範囲でテーブルにインポートする というところまでは、ご親切な方にご教示いただき、以下にてうまく動いています。 初心者のため、どこをどう変更・設定すると 上記のような動きにできるのかがわかっておりませんため、 ご教示いただけないでしょうか。 ※[frm]![txt_範囲]：範囲指定をするフォームのテキストボックス 　仮テーブル：取り込み時に作成するマージ用テーブル Dim f As Object Dim b As Object Dim c As Object Dim d As Object Dim t As Variant Dim e As Object Dim p As String Dim i As Long Dim sSql As String Dim x As String Set e = CreateObject("Excel.Application") t = e.GetOpenFilename("Excel Files (*.xls*), *.xls*") If t = False Then Exit Sub x = Forms![frm]![txt_範囲] Set f = CreateObject("Scripting.FileSystemObject") p = f.GetParentFolderName(t) Set d = f.GetFolder(p) Set b = d.Files On Error Resume Next sSql = "DROP TABLE 仮テーブル " CurrentProject.Connection.Execute CommandText:=sSql sSql = "DROP TABLE 一時テーブル " CurrentProject.Connection.Execute CommandText:=sSql On Error GoTo 0 For Each c In b If LCase(f.GetExtensionName(c)) Like "xls*" Then If i = 0 Then DoCmd.TransferSpreadsheet acImport, , "仮テーブル", c, True, x sSql = "ALTER TABLE 仮テーブル ADD COLUMN ファイル名 VarChar(50);" CurrentProject.Connection.Execute CommandText:=sSql sSql = "UPDATE 仮テーブル SET ファイル名='" & f.GetFileName(c) & "';" CurrentProject.Connection.Execute CommandText:=sSql i = i + 1 Else On Error Resume Next sSql = "DROP TABLE 一時テーブル " CurrentProject.Connection.Execute CommandText:=sSql On Error GoTo 0 DoCmd.TransferSpreadsheet acImport, , "一時テーブル", c, True, x sSql = "ALTER TABLE 一時テーブル ADD COLUMN ファイル名 VarChar(50);" CurrentProject.Connection.Execute CommandText:=sSql sSql = "UPDATE 一時テーブル SET ファイル名='" & f.GetFileName(c) & "';" CurrentProject.Connection.Execute CommandText:=sSql sSql = "INSERT INTO 仮テーブル SELECT * FROM 一時テーブル" CurrentProject.Connection.Execute CommandText:=sSql i = i + 1 End If End If Next On Error Resume Next sSql = "DROP TABLE 一時テーブル " CurrentProject.Connection.Execute CommandText:=sSql On Error GoTo 0 e.Quit Set e = Nothing MsgBox "データがインポートされました。" End Sub 尚、せっかく教えていただいたコードではありますが、 上記コードを用いては思った動作にならないのであれば、 新しい手法で教えていただくんでも構いません。 是非、よろしくお願いします！！

食事はいつも通り変えず毎日20km走ると、どのくらい痩せますか？ ちなみに153cm45キロです。

先日野良猫と先住猫について質問させていただいた者です。 前回の質問の時に高さのあるゲージの方がいいと言われたので登り下りの出来るゲージを買いました。 ゲージの中に餌を入れたら普通に入ったのでゲージのドアを閉めました。 しかし餌を食べ終わったら鳴き出したので無視をしたら今度は暴れ出しました。 出口を探して上までよじ登ってみたりゲージの床を掘ったり、最終的には怪我をするんじゃないかと思うくらいドアを必死にこじ開けようとしていたので結局出してあげました。 まだ猫エイズなどの検査はしていないので家の中を自由に歩き回らせて先住猫に何かあったら困りますし、自由に歩き回らせると置いてあるものをかじったりゴミ箱を漁ろうとしたりします。 来週には避妊手術をする予定ですし、避妊手術をしたら抜糸まで外には出せないですしどうにかゲージに慣れて欲しいのですがもうどうしたらいいのかわかりません… どなたか知恵をお貸し下さい。

アクセス・エクセル2010を使用しています。 モジュールを用いて以下の作業を実行したいと考えていますが、 初心者につき、ご教示いただけますでしょうか。 1.ダイアログを表示させ、取り込みファイル（.xls）を指定してインポートしたい ※1シート目指定（シート名は変動の可能性アリ） 2.1で指定したファイルと同じフォルダ内にあるファイル（.xls）を全てインポートしたい ※各ファイル、インポートは1シート目のみです 3.フォームのテキスト（作成済：フォーム名（frm）・テキスト名（txt））で取り込みファイルの範囲指定をしたい ※1行目からの記載では無いです ※フィールド名行は変動しませんが値行は変動し、月によって列も変動する可能性があるため、テキストを使って範囲の変更がしたいです ※取り込みファイルの様式（形式・範囲）は全て同じです：形式はすべて倍精度浮動小数点型です） 具体的には、今月は・・ A列・1～2行目に空白があり、B列～記載がありますが、 インポート範囲としてはK列に項目・7行目にフィールド名になる名称・L8～Wに倍精度浮動小数点型の数値が入っています。 1つ1つの条件であれば、検索すれば（参考にできるものが）出てくるものもあるのですが、 それらを　どう組み合わせればうまく作動するのか 処理条件を　どう設定すれば良いのかが よくわからず、困っています。 知識不足で申し訳ありませんが、ご指導いただけますと幸いです。 よろしくお願いします！！

アクセス・エクセル2010を使用しています。 モジュールを用いて以下の作業を実行したいと考えていますが、 初心者につき、ご教示いただけますでしょうか。 1.ダイアログを表示させ、取り込みファイル（.xls）を指定してインポートしたい ※1シート目指定（シート名は変動の可能性アリ） 2.1で指定したファイルと同じフォルダ内にあるファイル（.xls）を全てインポートしたい ※各ファイル、インポートは1シート目のみです 3.フォームのテキスト（作成済：フォーム名（frm）・テキスト名（txt））で取り込みファイルの範囲指定をしたい ※1行目からの記載では無いです ※フィールド名行は変動しませんが値行は変動し、月によって列も変動する可能性があるため、テキストを使って範囲の変更がしたいです ※取り込みファイルの様式（形式・範囲）は全て同じです：形式はすべて倍精度浮動小数点型です） 具体的には、今月は・・ A列・1～2行目に空白があり、B列～記載がありますが、 インポート範囲としてはK列に項目・7行目にフィールド名になる名称・L8～Wに倍精度浮動小数点型の数値が入っています。 1つ1つの条件であれば、検索すれば（参考にできるものが）出てくるものもあるのですが、 それらを　どう組み合わせればうまく作動するのか 処理条件を　どう設定すれば良いのかが よくわからず、困っています。 知識不足で申し訳ありませんが、ご指導いただけますと幸いです。 よろしくお願いします！！

アクセス・エクセル2010を使用しています。 モジュールを用いて以下の作業を実行したいと考えていますが、 初心者につき、ご教示いただけますでしょうか。 1.ダイアログを表示させ、取り込みファイル（.xls）を指定してインポートしたい ※1シート目指定（シート名は変動の可能性アリ） 2.1で指定したファイルと同じフォルダ内にあるファイル（.xls）を全てインポートしたい ※各ファイル、インポートは1シート目のみです 3.フォームのテキスト（作成済：フォーム名（frm）・テキスト名（txt））で取り込みファイルの範囲指定をしたい ※1行目からの記載では無いです ※フィールド名行は変動しませんが値行は変動し、月によって列も変動する可能性があるため、テキストを使って範囲の変更がしたいです ※取り込みファイルの様式（形式・範囲）は全て同じです：形式はすべて倍精度浮動小数点型です） 具体的には、今月は・・ A列・1～2行目に空白があり、B列～記載がありますが、 インポート範囲としてはK列に項目・7行目にフィールド名になる名称・L8～Wに倍精度浮動小数点型の数値が入っています。 1つ1つの条件であれば、検索すれば（参考にできるものが）出てくるものもあるのですが、 それらを　どう組み合わせればうまく作動するのか 処理条件を　どう設定すれば良いのかが よくわからず、困っています。 知識不足で申し訳ありませんが、ご指導いただけますと幸いです。 よろしくお願いします！！

【環境】 Windows7 Office2013 【目的】 Excelで作ったcsvデータを、条件に合うものだけ抜き出して別ブックに自動で転記したい （1つの表を2つに分けたい） 【詳細】 ※オートフィルを使うという前提で説明しますが、目的の結果が得られるのであれば 　 オートフィル以外の方法でも構いません。 csvのデータがあります。 その中からオートフィルを使って「M列」で条件を選択（複数）し、その結果を 抜き出して（切り取って）別のブック（別シートではダメ）に自動転記したいです。 最終的に、元々の表Aから条件に合ったものだけを表Bとして保存。 表Aから表Bのデータを抜いたものは、そのまま表Aとして上書き保存。 ・・・したいです（添付画像参照） ネットで調べたところ、表の中に検索条件を入れる欄を作って・・・という方法 ならあったのですが、データ(ｃｓｖ）はそのままシステムに取り込むので 余計な欄を増やしたり等はできません。 そこで行き詰ってしまいました。 【表の詳細】 A～S列まであります。 項目名などの行は無く、1行目からデータが入っています。 ※行数は、都度変化します。 M列の中から「90」「95」の物だけを抜き出して、表Bとしたい。 【やってみたこと】 オートフィルでの操作を「マクロの記録」で記録しようとしたのですが、 オートフィルの結果だけを「切り取る」ことが出来ず、ダメでした。 どなたかお知恵をお貸しください。

２週間ほど前から１歳のメスの野良猫が家の近くにいて、鳴きながら近付いてきたので餌をあげてしまいました。 それ以来毎日そこにいます。 たまに何処かに出掛けていますが、ほとんどは家の近くで過ごしています。 ゴロゴロしながらすり寄ってついてくるくらいなつっこいです。 一度捕獲して病院に連れて行き、ノミダニの薬を塗ってもらい、虫下しの薬を飲ませてもらってワクチン注射もしました。 病院に連れて行った後家に連れて帰り、野良をゲージに入れたら大人しかったのですが、１日経ったら大暴れを始めてゲージを壊す勢いで… 先住猫は13歳で一度も外に出した事はなく、臆病な子なので慣れるまではゲージにいて欲しいのですが、野良はもうゲージ＝嫌な場所と思ってしまっています。 初日に先住猫が興味を持ってゲージに近付いたら野良がシャーっと威嚇して先住猫は逃げてしまいました。 喧嘩になって先住猫が傷付けられたら困るので家の中を自由に歩き回らせる事も出来ません。 家が狭いので隔離出来る部屋もありません。 仕方なく野良を一度外に出したのですが、それ以来もずっと家の近くにいてご飯をねだります。 今は先住猫がいる部屋に行かないようにしながら家の中を少しずつ歩き回らせたりしているのですが、野良はほとんど外で生活している状態です。 10日後に野良を避妊手術する予定なのですが、私の行く病院は抜糸が必要な所なので１週間は野良に家の中にいてもらいたいです。 先住猫の事を考えるとゲージの中でほとんどの時間を過ごしてもらいたいのですがそれも可哀想だし難しそうで… 家に慣れて先住猫とも仲良く出来るならいずれは完全室内飼いにするつもりです。 一応里親も探していますが、もう１歳で大きいので見付かりません。 先住猫の事、ゲージの事、避妊手術後の事で経験のある方いらっしゃいませんでしょうか？

アクセス・エクセル2010を使用しています。 モジュールを用いて以下の作業を実行したいと考えていますが、 初心者につき、ご教示いただけますでしょうか。 1.ダイアログを表示させ、取り込みファイル（.xls）を指定してインポートしたい ※1シート目指定（シート名は変動の可能性アリ） 2.1で指定したファイルと同じフォルダ内にあるファイル（.xls）を全てインポートしたい ※各ファイル、インポートは1シート目のみです 3.フォームのテキスト（作成済：フォーム名（frm）・テキスト名（txt））で取り込みファイルの範囲指定をしたい ※1行目からの記載では無いです ※フィールド名行は変動しませんが値行は変動し、月によって列も変動する可能性があるため、テキストを使って範囲の変更がしたいです ※取り込みファイルの様式（形式・範囲）は全て同じです：形式はすべて倍精度浮動小数点型です） 具体的には、今月は・・ A列・1～2行目に空白があり、B列～記載がありますが、 インポート範囲としてはK列に項目・7行目にフィールド名になる名称・L8～Wに倍精度浮動小数点型の数値が入っています。 1つ1つの条件であれば、検索すれば（参考にできるものが）出てくるものもあるのですが、 それらを　どう組み合わせればうまく作動するのか 処理条件を　どう設定すれば良いのかが よくわからず、困っています。 知識不足で申し訳ありませんが、ご指導いただけますと幸いです。 よろしくお願いします！！

２週間ほど前から１歳のメスの野良猫が家の近くにいて、鳴きながら近付いてきたので餌をあげてしまいました。 それ以来毎日そこにいます。 たまに何処かに出掛けていますが、ほとんどは家の近くで過ごしています。 ゴロゴロしながらすり寄ってついてくるくらいなつっこいです。 一度捕獲して病院に連れて行き、ノミダニの薬を塗ってもらい、虫下しの薬を飲ませてもらってワクチン注射もしました。 病院に連れて行った後家に連れて帰り、野良をゲージに入れたら大人しかったのですが、１日経ったら大暴れを始めてゲージを壊す勢いで… 先住猫は13歳で一度も外に出した事はなく、臆病な子なので慣れるまではゲージにいて欲しいのですが、野良はもうゲージ＝嫌な場所と思ってしまっています。 初日に先住猫が興味を持ってゲージに近付いたら野良がシャーっと威嚇して先住猫は逃げてしまいました。 喧嘩になって先住猫が傷付けられたら困るので家の中を自由に歩き回らせる事も出来ません。 家が狭いので隔離出来る部屋もありません。 仕方なく野良を一度外に出したのですが、それ以来もずっと家の近くにいてご飯をねだります。 今は先住猫がいる部屋に行かないようにしながら家の中を少しずつ歩き回らせたりしているのですが、野良はほとんど外で生活している状態です。 10日後に野良を避妊手術する予定なのですが、私の行く病院は抜糸が必要な所なので１週間は野良に家の中にいてもらいたいです。 先住猫の事を考えるとゲージの中でほとんどの時間を過ごしてもらいたいのですがそれも可哀想だし難しそうで… 家に慣れて先住猫とも仲良く出来るならいずれは完全室内飼いにするつもりです。 一応里親も探していますが、もう１歳で大きいので見付かりません。 先住猫の事、ゲージの事、避妊手術後の事で経験のある方いらっしゃいませんでしょうか？

【環境】 Windows7 Office2013 【目的】 Excelで作ったcsvデータを、条件に合うものだけ抜き出して別ブックに自動で転記したい （1つの表を2つに分けたい） 【詳細】 ※オートフィルを使うという前提で説明しますが、目的の結果が得られるのであれば 　 オートフィル以外の方法でも構いません。 csvのデータがあります。 その中からオートフィルを使って「M列」で条件を選択（複数）し、その結果を 抜き出して（切り取って）別のブック（別シートではダメ）に自動転記したいです。 最終的に、元々の表Aから条件に合ったものだけを表Bとして保存。 表Aから表Bのデータを抜いたものは、そのまま表Aとして上書き保存。 ・・・したいです（添付画像参照） ネットで調べたところ、表の中に検索条件を入れる欄を作って・・・という方法 ならあったのですが、データ(ｃｓｖ）はそのままシステムに取り込むので 余計な欄を増やしたり等はできません。 そこで行き詰ってしまいました。 【表の詳細】 A～S列まであります。 項目名などの行は無く、1行目からデータが入っています。 ※行数は、都度変化します。 M列の中から「90」「95」の物だけを抜き出して、表Bとしたい。 【やってみたこと】 オートフィルでの操作を「マクロの記録」で記録しようとしたのですが、 オートフィルの結果だけを「切り取る」ことが出来ず、ダメでした。 どなたかお知恵をお貸しください。