![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
VBAでエクセルの全シート名を部分一致で検索したいと考えています。
そこで以下のコードを書いたのですが、
インプットボックスにどんな文字列を入力しても全てのシート名を
取得してしまって途方にくれています。
どなたかお助けください。
Sub test01()
Dim name As String
Dim ws As Worksheet
shn = InputBox("検索文字列を入力")
For Each ws In ThisWorkbook.Worksheets
If ws.Name Like " * " & name & " * " Then
ws.Activate
MsgBox ws.Name
End If
Next ws
End Sub
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
>Dim name As String
これ、おかしくない?
>shn ⇒ name に訂正します。
では無く
name ⇒ shn に訂正した方がいいよ
ws.NameのNameとかぶってるよね
Nameは変数?それともプロパティ?とEXCELさんが悩んでいると思います
なぜ、コンパイルエラーがでないのかは、私の知識では説明できませんが・・・
Sub test01()
Dim shn As String
Dim ws As Worksheet
shn = InputBox("検索文字列を入力")
For Each ws In ThisWorkbook.Worksheets
If ws.Name Like "*" & shn & "*" Then
ws.Activate
MsgBox ws.Name
End If
Next ws
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルシート中の全角英数字を半角に変換したい 4 2022/07/07 13:14
- Excel(エクセル) vba シート名の一覧を2列に分けるには 5 2023/04/24 08:56
- Visual Basic(VBA) VBA 改行コードの取り方 1 2022/03/22 14:14
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルのオートフィルターのしぼりをクリアーしたい 2 2022/12/24 08:36
- Visual Basic(VBA) シート削除のマクロで「deleteメソッドは失敗しました」となります。助けてください! Sub 不要 6 2022/09/08 16:41
- Visual Basic(VBA) 【VBAエラー】Nextに対するForがありません 対策について 5 2022/11/21 21:26
- Excel(エクセル) vbaで列幅について 1 2022/11/15 08:31
- Excel(エクセル) vba 転記するときの最終行について 2 2022/09/03 09:31
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Application.ScreenUpdating = ...
-
VBAでPDFのコピーとリネームを...
-
文字列配列をメンバにもつ構造...
-
MSXMLでの属性の存在確認法
-
構造体の各データの表示につい...
-
phpでボタンを押したときに変数...
-
VBA他のブックから値のみ貼付す...
-
pythonの初心者です!コマンド...
-
コンボボックスのtag情報の取得...
-
ACCESS テキストボックスを隙...
-
[python] 文字列を変数名として...
-
UWSC:ポップアップウインドウ...
-
JSONで文字列が長い時
-
pythonで演算子を変数に代入す...
-
16進の10進変換について
-
実行中の変数の中身をイミディ...
-
VB6で、長い時間かかる処理...
-
メモリをアドレスを直接指定し...
-
結果を得て自動的にページ移動...
-
文字のカラーとフォントの指定...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Application.ScreenUpdating = ...
-
実行時エラー 3020の対策
-
FindFirst を複数条件で検索
-
VBAでPDFのコピーとリネームを...
-
「*:*」って何を意味するのでし...
-
ACCESS テキストボックスを隙...
-
構造体の各データの表示につい...
-
phpでボタンを押したときに変数...
-
VBA他のブックから値のみ貼付す...
-
[python] 文字列を変数名として...
-
vbaでxmlからNodeListでデータ...
-
UWSC:ポップアップウインドウ...
-
コンボボックスのtag情報の取得...
-
エクセルVBA シート名の部分一...
-
MSXMLでの属性の存在確認法
-
C++ コマンドプロンプトでの入...
-
【メモリ不足で落ちる(python)】
-
2つのpythonがあって、一方で...
-
pythonで実体参照文字を直す方法
-
Option Strinct On のなかでの...
おすすめ情報