VBAで教えて下さい。

質問

VBA初心者です。始めてから２，３週間です。
表を作りたいのですが、
顧客名のシートを１００枚ほど作り、シート１（シート１は検索シートにしたいので顧客名は無）のA1にクライアント名を入力したら入力した顧客名シートが出てくる様にしたいです。
参考書、ネット等をみて作成しましたがエラーが出ます。作動するにはどの様にしたら宜しいでしょうか？どうかお助け下さい。宜しくお願い致します。コードは下記です。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim i As Integer

Dim myWSname As String, myworksheet As Worksheet

myWSname = "i"

myWSname = Worksheets("sheet2").Range("A1").Value

For Each myworksheet In Worksheets

If myworksheet.Name = mayWSname Then

Worksheets("myWSname").Activate

Exit Sub

End If

Next myworksheet

End Sub

回答No.2

tom04 · ベストアンサー

こんばんは！
せっかくコードをお考えですので、余計なお世話かもしれませんが・・・

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Long, str As String, myFlg As Boolean
str = Range("A1")
For k = 1 To Worksheets.Count
If Worksheets(k).Name = str Then
myFlg = True
Exit For
End If
Next k
If myFlg = True Then
Worksheets(str).Activate
Else
MsgBox "該当シートなし"
End If
End Sub

こんなんではどうでしょうか？m(_ _)m

お礼

ありがとうございます。
名前のシートに飛びました！大変助かりました。本当にありがとうございます。

欲を出して申し訳御座いませんが、シートのC1に顧客のＩＤ数字が7ケタあるのですが、顧客名シート検索かＩＤ検索どちらかで一方入力した場合のコードとかは教えて頂いたコードに足せば可能ですか？
あつがましく申し訳ありませんが宜しくお願い致します。

回答No.1

nosamajin

プログラム文中、"If myworksheet.Name = mayWSname Then"の部分で、冒頭で宣言していない変数名"mayWSname"を使用しています。
これを"myWSname"に直せばいけるのではないのでしょうか？
私が見た限り、エラーが出る可能性がある個所はここしか考えられません。

それと、プログラムの問題を問う場合は単にエラーではなく、エラーメッセージやエラーコードも併せて併記した方が回答する側にも問題点が伝わりやすくなります。

お礼

ご回答ありがとうございます。
ご指摘の通り直しましたが反応なしでした。

次回からはコードやメッセージも併せて質問する様にします。