VBでのＧＯＴＯ文はできますか？

　教えてください。
例えば）
　　　もしＡ１セルが－１だったら、選択１へ飛び、黄色をつける。
　　　　　　　　　　　　０だったら、選択２へ飛び、赤色をつける。
　　　　　　　　　　　　１だったら、選択３へ飛び、青色をつける。
　　　と選択肢が選択１・選択２・選択３と３つあった場合、それぞれにＧＯＴＯ文で飛ばしたいのですが、可能でしょうか？
　よろしくお願いします。

No.6 ベストアンサー 回答者： imogasi 回答日時： 2002/11/12 15:28

GOTO文とCASE文利用を挙げます。

（GOTO文利用）
Sub test01()
i = 10
If Cells(i, 1) = -1 Then GoTo a1
If Cells(i, 1) = 0 Then GoTo a2
If Cells(i, 1) = 1 Then GoTo a3
GoTo a4
a1:
　Cells(i, 1).Interior.ColorIndex = 6
　MsgBox "-1" & "でした"
　Exit Sub
a2:
　　Cells(i, 1).Interior.ColorIndex = 3
　MsgBox "0" & "でした"
　Exit Sub
a3:
　Cells(i, 1).Interior.ColorIndex = 5
　MsgBox "1" & "でした"
　Exit Sub
a4:
End Sub
'-------（CASE文利用）
Sub test02()
i = 10
Select Case Cells(i, 1)
Case -1
　Cells(i, 1).Interior.ColorIndex = 6
　MsgBox "-1" & "でした"
Case 0
　Cells(i, 1).Interior.ColorIndex = 3
　MsgBox "0" & "でした"
Case 1
　Cells(i, 1).Interior.ColorIndex = 5
　MsgBox "1" & "でした"
Case Else
End Select
End Sub
選択肢１，２，３ルーチンはCoLorIndexの次の行にいれてください。
沢山セルがある場合はiをFor i=1 to 30
とかで繰り返してください。

この回答へのお礼

　ありがとうございます。ＣＡＳＥ文でやってみます。

お礼日時：2002/11/12 15:48

No.5 回答者： miz-fuyu 回答日時： 2002/11/12 15:26

No4の回答訂正。

ごめんなさい。
SwitchじゃなくてSelect Caseですね。

No.4 回答者： miz-fuyu 回答日時： 2002/11/12 15:23

ＧＯＴＯ文を使った場合はこうなりますが…先の方の回答のとおり使用はあまりオススメは出来ません。

現在のVisualBasicは構造化記法で記述することが一般的でありこれらから外れるGoto文やGoSub文はソースの複雑化を招くためあまり使用しません。
先の方の言われるとおりIFやSwitchのみで記述するほうが良いと思います。

Public Sub main()

If Cells(1, 1) = -1 Then
　　 GoTo Yellow_Exe
ElseIf Cells(1, 1) = 0 Then
　　 GoTo Red_Exe
ElseIf Cells(1, 1) = 1 Then
　　 GoTo Blue_Exe
End If

Exit Sub

Yellow_Exe:
　　 '黄色色づけ処理の記入
　　 Exit Sub

Red_Exe:
　　 '赤色色づけ処理の記入
　　 Exit Sub

Blue_Exe:
　　 '青色色づけ処理の記入
　　 Exit Sub

End Sub

No.3 回答者： -boya- 回答日時： 2002/11/12 15:21

Excelマクロ？

Select Caseって使えませんかね？
例えばこんな感じ、、、

Select Case i
Case 0
'黄色をつける
Case 1
'赤色をつける
Case 2
'青色をつける
Case Else
'その他の場合の処理
End Select

No.2 回答者： taknt 回答日時： 2002/11/12 14:58

可能です。

ですけど、できるだけ ＧＯＴＯ文を使わないほうがいいですね。

っていうか、上記のたとえば、 ＩＦ文だけで すみます。

No.1 回答者： aloop 回答日時： 2002/11/12 14:57

Excelマクロですか？

ifかswitch文でできると思うのですが、だめでしょうか？