しゃちくにオーダーしたものの記録

オーダー

「ブックでシート名入れたらそのシート名がアクティブになるものをつくりたまえ」

以下しゃちくの回答

↓↓↓

1.新規Bookを開く

2.オプションで開発メニュー表示

3.VBEから標準モジュールを追加

4.DMしたコードをコピペする

Public Sub SearchSheet()

    s (InputBox("遷移先のシート名を入力してください"))

End Sub

Public Function s(ByVal i As String)

    Dim w As Worksheet

    For Each w In Sheets

        If StrConv(UCase(w.name), vbNarrow) = StrConv(UCase(i), vbNarrow) Then

            Sheets(w.name).Activate

            Exit Function

        End If

    Next

End Function

5.Excelアドインとして保存

6.適当にBookを開いて、アドインを登録

7.オプションでクイックアクセスツールバーに追加

画像通りの設定だとAlt+5で表示されます。割り当てを変更する場合、7.の手順にて↑↓ボタンで一番上に持ってくるとAlt+1にできます。

検索は、大小文字全半角どれでもヒットするので、文字さえ合ってればOK。

対象シート名がない場合、何もしません。以上です。

しゃちく有能だからチロルチョコのボーナスをあげようね。