Sub test() Dim intAge As Integer intAge = InputBox("あなたの年齢を入力してください。") If intAge > 19 Then MsgBox "成人です。" Else MsgBox "未成年です。" End If End Sub
このサイトはreCAPTCHAによって保護されており、Googleの プライバシーポリシー と 利用規約 が適用されます。
1文字以上入力してください
本文は少なくとも1文字以上必要です。
1文字以上入力してください。