Excel VBA質問箱 IV

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

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


38035 / 76738 ←次へ | 前へ→

【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

0 hits

【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 お礼

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