VBA　Gotoで会計年度内月数を取得

Gotoで会計年度内月数を取得

Sub test()
'Gotoで会計年度内月数を取得

Dim m As Integer
Dim str As String

m = InputBox("月数を入力してください")

If m < 4 Then GoTo Sub1
str = Year(Now()) & Format(m, "00")
MsgBox str
Exit Sub

Sub1:

str = Year(Now()) + 1 & Format(m, "00")
MsgBox str

End Sub

実行結果

GoToステートメント

GoToステートメントは、プロシージャ内の指定した行へジャンプさせる制御ステートメントです。

GoTo 行ラベル
　処理
行ラベル:
　処理

※注意：　GoTo ステートメントの分岐先は、同じプロシージャ内だけで、ほかのプロシージャには分岐することはできません。

実務では、単純の条件分岐は、あまり使われていないのですが、On Error Gotoによるエラー処理へのジャンプは、ケースによっては効果的です。

参考記事