質問: Excel VBAについての質問です。 Do......Loopの中に、インプットボックスを入力することで想像していたものは完成したのですが、注を読むとこれが答えではないようです。 詳しい方、回答いただけ
回答: わかりにくい日本語ですがこんなでしょうか。 Sub sample() Dim in1 As String Dim in2 As String Do in1 = InputBox("1回目入力") in2 = InputBox("2回目入力") MsgBox "1回目=" & in1 MsgBox "2回目=" & in2 Loop Until in1 = in2 End Sub またはこんなでしょうか。 Sub sample() Dim in1 As String Dim in2 As String Do in1 = InputBox("1回目入力") in2 = InputBox("2回目入力") MsgBox "1回目=" & in1 MsgBox "2回目=" & in2 If in1 = in2 Then MsgBox "同じです" Exit Do Else MsgBox "違います" End If Loop End Sub