您的位置:首页 > 百科大全 |

生日祝福留言代码(借API函数祝lp生日快乐!)

生日祝福留言代码(借API函数祝lp生日快乐!)

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