いつもお世話になっております
下記のコード
は以前教え頂きましたコードです。
これを
ワークシート内を検索するには
どうしたよろしいでしょうか
わかる方おしえてくれませんでしょうか
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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 数字が「0」の列を削除するため、下記のコードを実行しましたが、コンパイルエラーSubまたはFunct 3 2022/12/04 00:00
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Excel(エクセル) マクロで最終行から上に検索を逆にしたい 1 2022/05/17 18:27
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) ユーザーフォームの書き出しで追加のご相談 ユーザーフォームの値をシートに書き出す際、コードが表示され 2 2022/08/05 10:58
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フィルターかけた後、重複を除...
-
1日に1人がこなせるプログラム...
-
ACCESSで、履歴事項を管理する...
-
1、Rstudioで回帰直線を求める...
-
エクセルVBAコードで教えて下さ...
-
JavaScriptの定数名が取り消し...
-
◾️Excel VBA 統合について Cons...
-
Exel VBA 別ブックから該当デ...
-
PreviewKeyDownイベントが2回...
-
【VB6】実行ファイルとした後、...
-
CheckBoxのコントロール配列に...
-
VBAでファイルオープン後にコー...
-
access2003 クエリSQL文に...
-
コンボボックス3つを連動させたい
-
GrapeCityのSpreadについて
-
多数のExcelファイルからVBAの...
-
ACCESSユニオンクエリでORDER B...
-
オートフィルタで抽出結果に 罫...
-
COBOLの文法
-
ランタイムのいらないプログラ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フィルターかけた後、重複を除...
-
過剰なオブジェクト指向脳から...
-
1、Rstudioで回帰直線を求める...
-
1日に1人がこなせるプログラム...
-
Exel VBA 別ブックから該当デ...
-
access2003 クエリSQL文に...
-
pythonにてseleniumを使うも、...
-
access2021 VBA メソッドまたは...
-
chatgptでつくってもらったコー...
-
パイソンプログラム
-
Gitのクローンについて
-
ExcelのVBAコードについて教え...
-
JANコードとPOSコードは同じ?
-
sinカーブの表示のさせ方
-
COBOLの文法
-
特定行の背景色を変えたいのですが
-
JavaScriptの定数名が取り消し...
-
アルファベットに付いて質問し...
-
◾️Excel VBA 統合について Cons...
-
変数名「cur」について
おすすめ情報
いつもありがとうございます。
質問の仕方がわるくて 申し訳ございません
例えば
シート名
シート1 シート2 シート3
があり、
その中で 田のつく文字を検索していきたのです。
一つ見つかれば、さらにコマンドボタンを押すと
次の田 を選択したのですが
わたしが さきにつけたコードは 一つの
シートのみの検索です。
よろしくお願いいたします。
下記のコードはエラーになりますが
なりますが どこをなえしたらよいのか
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
添付ファイルのように 検索場所をプック全体にして
ひとつひとつ 検索していきたのです。
マクロで記録すると Cells.FindNext(After:=ActiveCell).Activate
なにか うまく いかないですかね