しゃちくにオーダーしたものの記録
オーダー
「ブックでシート名入れたらそのシート名がアクティブになるものをつくりたまえ」
以下しゃちくの回答
↓↓↓
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。
対象シート名がない場合、何もしません。以上です。
しゃちく有能だからチロルチョコのボーナスをあげようね。