• ベストアンサー

エクセル　マクロで

教えて下さい。　ある特定のフォルダ内に（例　c:\写真） に　いくつかのファイルがはいっています。 あるセルに　ファイル名を入力すると　フォルダ内にある ファイルから　セルに記入したファイルと一致する　ファイルを　読み込み　貼り付けるマクロを教えて下さい。 ちなみにファイルは　jpg等の写真ファイルです。

質問者が選んだベストアンサー

  • ベストアンサー
  • WWolf
  • ベストアンサー率26% (51/192)
回答No.3

＃２です。 他のマクロ実行の要求とは？？ シート1のコードに先ほどのロジックでいけば Private Sub Worksheet_SelectionChange(ByVal Target As Range)’セレクトチェンジイベント時の実行 Dim PastePicName　’単なる宣言 If Target.Address = "$A$1" Then　’A1なら PastePicName = "c:\" & Range("A1").Value　’変数へファイル名の代入 Range("A2").Select　’A2セル選択 ActiveSheet.Pictures.Insert(PastePicName).Select　’A1に記述されたファイル名を貼り付け End If End Sub なのですが、要求されるメッセージを教えてください。

その他の回答 (2)

  • WWolf
  • ベストアンサー率26% (51/192)
回答No.2

深く考えていませんが、 シート1のA1にファイル名（○.ｊｐｇ）を書くとＣドライブのルート配下の○.ｊｐｇをA2に貼り付けます。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim PastePicName If Target.Address = "$A$1" Then PastePicName = "c:\" & Range("A1").Value Range("A2").Select ActiveSheet.Pictures.Insert(PastePicName).Select End If End Sub

GACHAMAN
質問者

補足

早速の回答ありがとうございます。　試してみましたが マクロを実行しようとすると、他のマクロ実行するように 要求されます。どういう事なのでしょうか？　何か他に必要なのでしょうか　お教え下さい

  • 0shiete
  • ベストアンサー率30% (148/492)
回答No.1

ベクターで探すと、同様の作業ができるエクセルマクロがあると思いますよ。

参考URL：
http://www.vector.co.jp/vpack/filearea/win/art/graphics/filer/
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • エクセルのマクロで

    こんにちは、お願いします。 エクセルに画像の添付でマクロを使用したいのですが、 下記のようなマクロ作成・編集ができるのでしょうか？ エクセルの特定のセルに画像のファイル名を入力しマクロを実行すると、他のフォルダにある.jpg画像が指定したセル位置に添付される。 また、添付位置を複数にもできますか？ 説明がわかるでしょうか…？^_^; マクロに関して全く無知なのですが、できるものでしたら是非教えてください。 宜しくお願いします。

  • マクロで文字検索と書き出し

    Excelのマクロで各フォルダ内にあるテキストファイルに特定文字が含まれていたら そのテキストファイルがあるフォルダ名をセルB1に書きだすというマクロを組みたいです。 Aというフォルダ内に 20150328 20150410 20160322 ・・・・ ・・・・ ・・・・ 20160412 というようなフォルダ名のついたフォルダが300個近くあります。 300個近いフォルダ内にはテキストファイルがあり（ないものある） そのテキストファイル内にセルA1で入力されている文字と同じ物があれば(完全一致ではなく一部一致でよい) 一番最初に見つけたそのテキストファイルが入っているフォルダ名をB1に 書きだす方法が知りたいです。 例えば上記の例で言うと 検索した文字　【計測】だとします。 20150328 20150410 20160322 このフォルダ内のテキストファイルには全て　計測　とい文字が含まれていますが 名前の順番からすると20150328のフォルダが最初なので そのフォルダ名をB1に書きだすという感じです。 また、これは出来ればでいいのですが 300個近いフォルダを全て調べていくと時間が掛ってしまうので セルA2に日付を入力しておき 上記のマクロを実行すると、セルA2に入力した日付以降に作成されたフォルダから 検索を始めるようにしたいです。 このような事が出来るかわかりませんが、宜しくお願いします。

  • セルをダブルクリックすると、不特定のフォルダ内にある、セルの値を含む名前のファイルが開くマクロを教えて下さい。

    マクロ初心者です。 いろいろ検索してみましたが、見つけられなかったので教えて下さい。 セルをダブルクリックすると、そのセルの値を含むファイルが開くようにしたいのですが、ファイル名はセルの値と完全に一致してはいません。但し、必ずセルの値でファイル名は始まります。 例：　セルの値＝"A" 　　　開きたいファイル名は＝　 "AA　12345987.xls"とか"BCBB 657.xls 開きたいファイルは、C:\ww\001、C:\ww\022、C:\ww\303、、、いずれかのフォルダ内にあります。　C:\wwまでは同じです。 Private Sub Worksheet_BeforeDoubleClick _ (ByVal Target As Range, Cancel As Boolean) を使って、特定フォルダ内にある、セルの値と完全に一致する名前のファイルを開く方法は、検索をくりかえして見つけることができました。 ファイルが存在するパスを特定できず、 ファイル名が、セルの値と完全には一致していないファイルを自動的に開く方法がありましたら、教えて下さい。お願いします。

  • エクセル

    教えて下さい。　今、あるフォルダ　例：c:\my photo にある写真ファイルを自動的に読み込んで貼りつけるマクロを組んであります。　このマクロでは、必ず貼りつけたい写真ファイルが　c:\my phoyo　の中にある必要があります。そこで　このマクロを、エクセルマクロファイルがあるフォルダと同じフォルダの中にある写真を必ず貼り付けるにはどうしたらよいでしょうか？　ちなみに写真ファイル名はどのフォルダの中に入っても、かわりません。

  • エクセルマクロ文で教えてください。

    お世話になります。 エクセルマクロ文で　セルD６　に保存するドライブ名（Ｃ　とか　Ｄ）　セルＤ７に保存するフォルダ－名（資料2016　とか　閲覧2016　など）　セルＤ8にファイル名　を置いて、　ドライブ名やフォルダ－名を任意に選択できる形で、作成したエクセルシ－トを保存するマクロ文を、お教えください。 ＴhisWorkbook.SaveAs "D:\資料2016"&fileName というような形で、fileＮame＝Ｒange（”Ｄ８”）と置いてあるのですが、ドライブ名とフォルダ－名とをＤ６とＤ７に任意の値を置いて当該文字によるドライブとフォルダ－にＤ８に記入したファイル名で保存したいというマクロ文を、お教えください。

  • 条件付マクロの質問です

    エクセルのマクロでご質問です。 C:\Users等の場所のとあるフォルダに、7777.jpgなどの4桁の名前の写真データが多く格納されており、そのフォルダから特定セルに写真データの番号を入力してシートに挿入表示させるマクロを作ったのですが、 フォルダ内に該当番号ファイルがある場合は問題無いのですが、フォルダに該当する番号の写真データ(番号)が無い場合にマクロを終了させたいプログラムが分かりません。条件でif～thenなどあるようなのですが上手く行きませんでした。とくにメッセージなど高度なことは無くても構いませんので、単に該当番号がフォルダに無い場合マクロを強制終了させる構文などお分かりでしたらぜひ教えていただきたく存じます。大変お手数ですが何卒よろしくお願いいたします。

  • ExcelのVBAで写真を貼り付ける

    Cドライブのpicというフォルダ内にファイル名が1から連番の写真データがあり、 セルA1にファイル名を入力した後にマクロを実行すると、 A2のセルに写真が貼り付けられるようにする （セルに写真がある場合は写真削除後に貼り付ける）には どう書けばいいでしょうか？ お願いします。

  • エクセルでフォルダまたはファイルを開くマクロですが、どのように改良すれ

    エクセルでフォルダまたはファイルを開くマクロですが、どのように改良すればよろしいでしょうか？ 下記マクロは、エクセルシートのJ列のあるセルをダブルクリックすると、そのセルに記入された文字列を検索して、該当のフォルダまたは、写真が開きます。（エクセルファイルと写真は同フォルダに保存している場合のみ有効） 困っていることは、J列のセルと該当フォルダまたは、写真ファイルをリンクさせたいのですが、文字列が全て一致している時のみしか開かないことです。 D<デジカメ<商品名フォルダ＜写真ファイル 例えば　セルＪ3の文字列がABCEで、フォルダ名またはファイル名がABCDEFであった場合、文字列ABCEを含む条件で、フォルダ名またはファイル名ABCDEFを開くように改良したいのですが、 また、エクセルファイルと写真ファイルの保存場所は、全く違うフォルダにしたいのですが、 エクセルファイルと写真ファイルは、別フォルダの場合、どのように検索先フォルダのパスを入れたら良いのでしょうか？ マクロに詳しい方ご教授下さい。よろしくお願い致します。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim myPath As String If Target.Cells(1, 1).Column <> 10 Then Exit Sub Cancel = True myPath = ThisWorkbook.Path & "\" & Target.Cells(1, 1).Text If Dir(myPath, vbDirectory) <> "" Then Shell "explorer.exe /e,/root," & myPath, vbNormalFocus Exit Sub End If myPath = Replace(LCase(myPath), ".jpg", "\" & Target.Cells(1, 1).Text) If Dir(myPath, vbNormal) <> "" Then Shell "rundll32.exe shimgvw.dll,ImageView_Fullscreen " & myPath, vbNormalFocus End If End Sub

  • 再度マクロで質問します。

    セルのＧ９に　圧０１－１．ＪＰＧという文字がはいっています。Ｇ９には関数の式　CONCATENATE(　　)により、 圧０１－１という表示になっているます。この為、セル Ｇ９の文字は変化するわけですが、今WINDOWSのデスクトップ上に写真というフォルダがありその中にいくつかのファイルがあります。　セルＧ９と一致するファイル（JPGファイル）を　エクセル上で結合されているセル　（A2:A13)に 自動的に貼りつけたいのですが、マクロがよくわかりません教えて下さい。

  • エクセルのマクロ

    素人なのですみませんが教えてください エクセルのマクロを使用して エクセルを起動して ウィンドウズ内のあるフォルダ内のエクセルファイルをコピーをして違うフォルダに貼り付けをしたいのですが、どのようにマクロを組み込むのか教えてください（マクロの式） （例）エクセル起動後エクセルのマクロにて c\Aフォルダ\aファイル←コピー c\Bフォルダ\aファイル←貼り付け

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する