Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


6673 / 13644 ツリー ←次へ | 前へ→

【43845】ファイル内指定場所検索 takenokotaro 06/10/26(木) 19:08 質問[未読]
【43846】Re:ファイル内指定場所検索 ponpon 06/10/26(木) 19:26 発言[未読]
【43852】Re:ファイル内指定場所検索 takenokotaro 06/10/26(木) 22:20 お礼[未読]
【43847】Re:ファイル内指定場所検索 ハチ 06/10/26(木) 19:57 発言[未読]
【43851】Re:ファイル内指定場所検索 takenokotaro 06/10/26(木) 22:20 お礼[未読]

【43845】ファイル内指定場所検索
質問  takenokotaro  - 06/10/26(木) 19:08 -

引用なし
パスワード
   ご無沙汰しておりましたがまたしても皆さんに助けて頂きたく投稿させていただきます。

あるフォルダ内にxls拡張子のいくつかのファイルがあり、ある一つのユニークキーをインプットボックスなりでインプットした値をフォルダ内にある全てのファイル、シートから検索して該当セルを見つけだしたいのです。
ユニークキーは各シート共通の決まった列にある値からのみの検索です。
尚、値は複数あり、あるだけ検索し選べたらなおうれしいです。
EXCELの検索機能では指定列内での検索ができず該当値を手当たり次第検索してしまいます。
是非ともアドバイスを頂けたらと思いますので宜しくお願い致します。

【43846】Re:ファイル内指定場所検索
発言  ponpon  - 06/10/26(木) 19:26 -

引用なし
パスワード
   ▼takenokotaro さん:
>是非ともアドバイスを頂けたらと思いますので宜しくお願い致します。

Dirで検索すると、
http://www.vbalab.net/vbaqa/c-board.cgi?word=Dir&way=0&target=all&view=0&id=excel&cmd=src
役に立つものがあると思います。

【43847】Re:ファイル内指定場所検索
発言  ハチ  - 06/10/26(木) 19:57 -

引用なし
パスワード
   ▼takenokotaro さん:

>EXCELの検索機能では指定列内での検索ができず該当値を手当たり次第検索してしまいます。

ここはマクロならできます。

例)A列の"A"だけを検索
Sub Macro1()
  Dim Fi As Range
  Dim Adr As String
  
  With ActiveSheet.Columns(1)
    Set Fi = .Find(What:="A", LookIn:=xlFormulas, LookAt:=xlWhole, _
    MatchCase:=False, MatchByte:=False)
    If Fi Is Nothing Then MsgBox "なし": Exit Sub
    Adr = Fi.Address
    Do
      Fi.Select
      MsgBox Fi.Address
      Set Fi = .FindNext(Fi)
    Loop Until Adr = Fi.Address
  End With
  
  Set Fi = Nothing
End Sub

【43851】Re:ファイル内指定場所検索
お礼  takenokotaro  - 06/10/26(木) 22:20 -

引用なし
パスワード
   ▼ハチ さん:
早々のお返事ありがとうございます。お陰さまで今やってみてうまくいきそうです。
ありがとうございました。ホント感謝2.です。ありがとうございました。

【43852】Re:ファイル内指定場所検索
お礼  takenokotaro  - 06/10/26(木) 22:20 -

引用なし
パスワード
   ▼ponpon さん:
参考になりました。ありがとうございました。

6673 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free