生日祝福留言代码(借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资料
声明:若涉及版权问题,请联系我们进行删除!谢谢大家!