Excel VBA質問箱 IV

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

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


18170 / 76732 ←次へ | 前へ→

【64005】Re:Findについて
発言  かみちゃん E-MAIL  - 10/1/9(土) 21:19 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>この表から(検索1)(検索2)で検索して、[5]行のセルを選択できる

以下のような感じではいかがでしょうか?

Sub Sample()
 Dim ws As Worksheet
 Dim ● As Range
 Dim ▲ As Range
 Dim firstAddress As String

 Set ws = ActiveSheet
 With ws
  Set ● = .Cells.Find("検索1", After:=.Range("A1"), LookAt:=xlWhole, _
           SearchOrder:=xlByColumns)  '行方向(↓)
  If Not ● Is Nothing Then
   firstAddress = ●.Address
   Do
    Set ▲ = ●.EntireRow.Find("検索2", After:=●, LookAt:=xlWhole, _
             SearchOrder:=xlByRows)  '列方向(→)
    If Not ▲ Is Nothing Then
     ▲.Select
     MsgBox ▲.Row & " 行目に見つかりました。"
     Exit Do
    End If
    Set ● = .Cells.FindNext(●)
    If ● Is Nothing Then Exit Do
   Loop Until ●.Address = firstAddress
  Else
   MsgBox "検索1が見つかりません"
  End If
 End With
 MsgBox "終了しました"
End Sub
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 発言

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