電子書籍の厳選無料作品が豊富!

いつもお世話になっております
下記のコード
は以前教え頂きましたコードです。
これを
ワークシート内を検索するには
どうしたよろしいでしょうか
わかる方おしえてくれませんでしょうか

Private Sub CommandButton1_Click()
  Dim lastrow As Long
  Dim actrow As Long, actcol As Long
  Dim i As Long
  actcol = Selection.Column
  actrow = Selection.Row
  lastrow = Cells(Rows.Count, actcol).End(xlUp).Row
  For i = actrow + 1 To lastrow
    If Cells(i, actcol) Like "*" & TextBox1 & "*" Then
      Cells(i, actcol).Select
      Exit For
    End If
  Next
End Sub

質問者からの補足コメント

  • うーん・・・

    いつもありがとうございます。
    質問の仕方がわるくて 申し訳ございません

    例えば
    シート名
    シート1 シート2 シート3
    があり、
    その中で 田のつく文字を検索していきたのです。
    一つ見つかれば、さらにコマンドボタンを押すと
    次の田 を選択したのですが

    わたしが さきにつけたコードは 一つの
    シートのみの検索です。

    よろしくお願いいたします。

    No.1の回答に寄せられた補足コメントです。 補足日時:2022/12/20 08:09
  • へこむわー

    下記のコードはエラーになりますが
    なりますが  どこをなえしたらよいのか
    Dim la As Long
    Dim cr As Long
    Dim i As Long

    cr = Selection.row
    aa = Array("台帳", "Sheet5")
    For Each ws In Worksheets
    With Worksheets(aa)
    For i = cr + 1 To Cells(Rows.Count, 2).End(xlUp).row
    If Cells(i, 2) Like "*" & TextBox1 & "*" Then
    Cells(i, 2).Select

    End If
    Next
    End With
    Next

      補足日時:2022/12/20 08:30
  • 添付ファイルのように 検索場所をプック全体にして
    ひとつひとつ 検索していきたのです。

    「ワークシート内を検索」の補足画像3
      補足日時:2022/12/20 08:47
  • へこむわー

    マクロで記録すると Cells.FindNext(After:=ActiveCell).Activate
    なにか うまく いかないですかね

      補足日時:2022/12/20 08:49

A 回答 (1件)

Set Rng = Cells.Find(what:="*" & TextBox1.Value & "*", LookAt:=xlWhole)


If Not Rng Is Nothing Then Rng.Select
この回答への補足あり
    • good
    • 1

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!