10/11/19 12:25:13 6O8kbnCv0
エクセル VBA 柳田ジェネレータ Ver0.1
Sub Yanagida()
Title = "柳田ジェネレータ Ver0.1"
Line1:
MyValue = InputBox("質問を入力してください。", Title)
If Int((2 * Rnd)) Then
MsgBox "個別の事案についてはお答えを差し控えます。"
Else
MsgBox "法と証拠に基づいて､適切にやっております。"
End If
Response = MsgBox("質問を続けますか？", vbYesNo)
If Response = vbYes Then
GoTo Line1
End If
End Sub