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