金銭欲と性欲を一気に解消
♂近所で即会い希望のみ♀

空手ってどんなの?
174:10/05(月) 14:23
Sub 課題2()

Dim m As Long

bango = InputBox("郵便番号を入力してください")

For m = 2 To 120659

If bango = Cells(m, 2) Then

MsgBox "郵便番号 ⇒ " + Cells(m, 2) + Chr(13) _
+ "都道府県 ⇒ " + Cells(m, 3) + Chr(13) _
+ "区郡市町村 ⇒ " + Cells(m, 4) + Chr(13) _
+ "市区町村以下 ⇒ " + Cells(m, 5)

End If

Next m



End Sub

1-AA
#
コテハンの馴れ合い場