More than 5 years have passed since last update.

VBAで恋人占いやってみた

Excel
VBA
VBAマクロ
無限ループ

Last updated at 2020-07-29Posted at 2020-07-28

Sub uncode()
'変数宣言
    Dim GF As Boolean   '彼女の有無
    GF = False
    
    Dim Age, year As Integer    '年齢、年号
    Age = 0
    year = 1

Do Until year = Age  '彼女ができる日
    If year = Age Then
        GF = True
    End If
       MsgBox "令和" & year & "年" _
              & vbCrLf & Age & "歳" & "＼(^o^)／"
      Age = Age + 1
      year = year + 1
Loop

MsgBox "おめでとう(ノ゜∇゜)ノ"

End Sub

You get articles that match your needs
You can efficiently read back useful information
You can use dark theme

What you can do with signing up