Excel VBA質問箱 IV

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

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


18216 / 76732 ←次へ | 前へ→

【63959】Re:Findについて
発言  kanabun  - 10/1/4(月) 10:22 -

引用なし
パスワード
   ▼きくと さん:

おじゃまします。
>同じ行を複数の文字列で検索してAND処理をしたいのですが
>FindとFindNextを使った場合が期待通りに動かないので質問です。

たとえば以下のようなシートレイアウトで教えてもらえませんか?

  [A]    [B]    [C]
[1]     検索    
[2]         検索
[3]     検索    
[4]         
[5] 検索        検索
[6]     検索    
[7]         
[8]         検索
[9]     検索    
[10] 検索        
[11]         

たとえば、以下のコードを実行すると
Sub 質問()
 Dim ws As Worksheet
 Dim ● As Range
 Dim ▲ As Range
 Dim ■ As Range
 
 Set ws = ActiveSheet
 ' ワークシート全体から行を取り出す。
 Set ● = ws.Cells.Find("検索", LookAt:=xlWhole, _
          SearchOrder:=xlByRows)  '列方向(→)
   ●.Select
 
 ' 行方向に2つ目で検索
 Set ▲ = ws.Cells.Find("検索", LookAt:=xlWhole, _
          SearchOrder:=xlByColumns) '行方向(↓)
   ▲.Select
 
 '次を検索
 Set ■ = ws.Cells.FindNext(●)  '●の次のセルの検索(↓)
   ■.Select
End Sub

最初にヒットするセル●は [B1]
次にヒットするセル ▲は [A5]
FindNext(●) でヒットするセル■は [B3]
です。
0 hits

【63957】Findについて きくと 10/1/4(月) 0:17 質問
【63958】Re:Findについて かみちゃん 10/1/4(月) 5:38 発言
【63959】Re:Findについて kanabun 10/1/4(月) 10:22 発言
【64002】Re:Findについて きくと 10/1/9(土) 19:50 発言
【64005】Re:Findについて かみちゃん 10/1/9(土) 21:19 発言
【64006】Re:Findについて kanabun 10/1/9(土) 21:27 発言
【64007】Re:Findについて kanabun 10/1/9(土) 21:33 発言
【64008】Re:Findについて かみちゃん 10/1/9(土) 21:44 発言
【64010】Re:Findについて kanabun 10/1/9(土) 22:33 発言
【64011】Re:Findについて かみちゃん 10/1/9(土) 22:39 発言
【64013】Re:Findについて kanabun 10/1/9(土) 22:51 発言
【64015】Re:Findについて かみちゃん 10/1/9(土) 23:13 発言
【64012】Re:Findについて kanabun 10/1/9(土) 22:48 発言
【64029】Re:Findについて きくと 10/1/10(日) 20:07 お礼
【64030】Re:Findについて kanabun 10/1/10(日) 21:31 発言

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