Word VBA で 3 の倍数のときだけアホと表示されるプログラムです↓
Sub IfThen()
Dim i As Integer
For i = 1 To 20
If i Mod 3 = 0 Then
Selection.TypeText Text:="アホ" + Chr(13)
Else
Selection.TypeText Text:=Str(i) + Chr(13)
End If
Next
End Sub
ただそれだけなんすけど何か?
今更ですが
14 年前