GoToステートメントでラベルまで飛ばす【ExcelVBA】

GoTo 〇〇で〇〇:の場所まで飛ばすことができる

強制的に分岐させるので、処理を分けたい時に便利

無限ループを作ったり色々考え方次第でできるけど、多用するとややこしくなるのがネック

今回は3種類の命令があり、3種類中1つを実施させるケース、2つを実施させるケース、3つを実施させるケースという場合に

GoToラベルで処理を３段階に分ける形で実践。処理の内容ではなく、処理をさせる部分を分けたい場合にラベルで分ける形で実践

ｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰ

実際に使用したサンプルコード

Option Explicit
Public Sub Sample()

Dim x As Integer

x = Application.WorksheetFunction.RandBetween(1, 3)

Select Case x

Case 1
GoTo 全部

Case 2
GoTo 中盛

Case 3
GoTo 並盛

End Select

Exit Sub

全部:
Range("A1").Value = "〇"
中盛:
Range("B1").Value = "〇"
並盛:
Range("C1").Value = "〇"

Range("A1", "C1").ClearContents

End Sub