"H133"のセルが今月の数字になっており、その数字に応じてシートを選択するマクロを作りましたが、明らかに初心者が作ったような非効率なマクロになっているようで、保存時間に影響がでるので、なるべく短く訂正したいのですが、どうかご指導頂けると幸いです。
※Win8.1/7、Excel2010です。
Sub シートの選択()
If Range("H133") = 1 Then
Worksheets("1月").Select
End If
If Range("H133") = 2 Then
Worksheets("2月").Select
End If
If Range("H133") = 3 Then
Worksheets("3月").Select
End If
If Range("H133") = 4 Then
Worksheets("4月").Select
End If
If Range("H133") = 5 Then
Worksheets("5月").Select
End If
If Range("H133") = 6 Then
Worksheets("6月").Select
End If
If Range("H133") = 7 Then
Worksheets("7月").Select
End If
If Range("H133") = 8 Then
Worksheets("8月").Select
End If
If Range("H133") = 9 Then
Worksheets("9月").Select
End If
If Range("H133") = 10 Then
Worksheets("10月").Select
End If
If Range("H133") = 11 Then
Worksheets("11月").Select
End If
If Range("H133") = 12 Then
Worksheets("12月").Select
End If
If Range("F1") <> Range("H134") Then
MsgBox "この体温表は " & Range("F1") & " 年分です。" & vbCrLf & " (現在は " & Range("H134") & " です)"
Worksheets("1月").Select
End If
No.1ベストアンサー
- 回答日時:
Sub シートの選択()
If Range("H133") >= 1 And Range("H133") <= 12 Then
Worksheets(Range("H133") & "月").Select
End If
If Range("F1") <> Range("H1") Then
MsgBox "この体温表は " & Range("F1") & " 年分です。" & vbCrLf & " (現在は " & Range("H134") & " です)"
Worksheets("1月").Select
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- Visual Basic(VBA) VBAが止まります。 1 2022/09/02 14:51
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのシート名変更で重複...
-
別のシートから値を取得するとき
-
【ExcelVBA】全シートのセルの...
-
シートが保護されている状態で...
-
VBAで同じシート名のコピー時は...
-
セルのコピーで「オブジェクト...
-
excelのマクロで該当処理できな...
-
XL:BeforeDoubleClickが動かない
-
エクセルのマクロでアクティブ...
-
VBA 存在しないシートを選...
-
ユーザーフォームに入力したデ...
-
指定文字が含まれるシートを削...
-
エクセル・マクロ シートの非...
-
【Excel VBA】Ifマクロを簡潔に...
-
実行時エラー'1004': WorkSheet...
-
同じ作業を複数のシートに実行...
-
ExcelのVBAのマクロで他のシー...
-
Excel VBA マクロ シートコピー
-
EXCEL VBAで複数シートから該当...
-
VBA 最終行まで数式をコピーする
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
excelのマクロで該当処理できな...
-
【ExcelVBA】全シートのセルの...
-
ユーザーフォームに入力したデ...
-
同じ作業を複数のシートに実行...
-
ブック名、シート名を他のモジ...
-
特定の文字を含むシートだけマ...
-
実行時エラー'1004': WorkSheet...
-
VBA 存在しないシートを選...
-
エクセルのシート名変更で重複...
-
XL:BeforeDoubleClickが動かない
-
シートが保護されている状態で...
-
Excel VBA 複数行を数の分だけ...
-
実行時エラー1004「Select メソ...
-
【Excel VBA】Worksheets().Act...
-
Excelマクロのエラーを解決した...
-
エクセル・マクロ シートの非...
-
VBAで同じシート名のコピー時は...
-
ExcelのVBAのマクロで他のシー...
-
【VBA】色のついたシート名を取得
おすすめ情報