
いつもお世話になっております
下記のコード
は以前教え頂きましたコードです。
これを
ワークシート内を検索するには
どうしたよろしいでしょうか
わかる方おしえてくれませんでしょうか
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で質問しましょう!
関連するカテゴリからQ&Aを探す
今、見られている記事はコレ!
-
隣の枝がはみ出してきたら切ってもいい?最もやってはいけないことは?
「隣の木が越境してきて困るが、勝手に切ってはいけないと聞くし…」そう思っている方も多いだろう。実は、2023年4月1日に民法が改正され、この「越境枝」のルールが大きく変わった。 教えて!gooでも「境界から出て...
-
弁護士が解説!あなたの声を行政に届ける「パブリックコメント」制度のすべて
社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フィルターかけた後、重複を除...
-
1日に1人がこなせるプログラム...
-
【VB6】実行ファイルとした後、...
-
VBA 現在のセル番地を記憶、復...
-
COBOLの文法
-
エクセルに見えない文字(JISX0...
-
SQL
-
特定行の背景色を変えたいのですが
-
レポートでグループレベルの変...
-
pythonにてseleniumを使うも、...
-
Access DCountでの連番について
-
MessageBoxで表示される文字列...
-
JIS C 6226(旧JIS)コードをパ...
-
スキャンコード取得は MapVirtu...
-
ODBC接続時、SQL文で日本語...
-
vb6.0の実行時エラー'3075'につ...
-
ActiveReportの改ページ不具合...
-
とある条件でIntelliSenseが使...
-
JIPS-Eコードのコード表について
-
C# コードビハインドについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フィルターかけた後、重複を除...
-
1日に1人がこなせるプログラム...
-
access2021 VBA メソッドまたは...
-
1、Rstudioで回帰直線を求める...
-
JANコードとPOSコードは同じ?
-
Exel VBA 別ブックから該当デ...
-
VBAでファイルオープン後にコー...
-
Excelシート上で右クリックがで...
-
変数名「cur」について
-
COBOLの文法
-
access2003 クエリSQL文に...
-
エクセルに見えない文字(JISX0...
-
オートフィルタで抽出結果に 罫...
-
UWSCでMOUSEORG関数が上手く処...
-
特定行の背景色を変えたいのですが
-
Nullの使い方が不正です。
-
Excel VBA素人です。VBAで図形...
-
ACCESSユニオンクエリでORDER B...
-
JavaScriptの定数名が取り消し...
-
C# コードビハインドについて
おすすめ情報
いつもありがとうございます。
質問の仕方がわるくて 申し訳ございません
例えば
シート名
シート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
なにか うまく いかないですかね