Excel総合相談所 132

[0520 名無しさん＠そうだ選挙にいこう 2018/09/23(日) 16:17:26.66]

>>519
Sub 偶数()

'1から10の中で偶数一覧を出力する
For i = 1 To 10
If i Mod 2 Then
'do nothing.
Else
偶数一覧 = 偶数一覧 & i & ","
End If
Next

'output
If 偶数一覧 Then
MsgBox "偶数：" & 偶数一覧
Else
MsgBox "偶数なし"
End If

End Sub