生日祝福留言代码（借API函数祝lp生日快乐！）
今天老婆生日,来一个excel vba的祝福
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)'API接口函数
Sub happy()
Dim str, i
str = "祝你生日快乐☆" & "祝你生日快乐☆"
For i = 1 To Len(str)
range（"A1"） = Mid(str, i, 1)
With [a1].Font
.Size = 18
.Color = vbRed
End With
Sleep 500'延迟500毫秒
Next i
End Sub
关注咕吧课堂获取更多vba资料
