生日祝福留言代码（借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资料