[原创]Excel VBA 快速上手之宝典

ayld · 发表于 2006-7-26 20:49

绝对高手

[em17][em17][em17][em17][em17][em17][em17][em17][em17][em17][em17][em17][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23]

[em26][em26][em26][em26][em26][em26][em26][em26][em26][em26][em26][em26]

zhangguangfu · 发表于 2006-7-26 21:08

感谢楼主!楼主辛苦了!

ruoie · 发表于 2006-7-26 21:47

辛苦啦!谢谢

weifengcao · 发表于 2006-7-26 22:37

大侠，有没有总结成WORD文档供下载啊？

lirong · 发表于 2006-7-26 23:01

以下是引用zhoujibin1在2006-7-23 16:40:20的发言：

四、示例
（1）弹出一个对话框，提示计算机的名称，并且扬声器喇叭会鸣叫。

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Sub ComputerName()
    Dim dwLen As Long
    Dim strString As String
    '创建缓冲区32位
    dwLen = MAX_COMPUTERNAME_LENGTH + 1
    strString = String(dwLen, "X")
    '获得计算机名称
    GetComputerName strString, dwLen
    '获得实际名称字串
    strString = Left(strString, dwLen)
    '播放频率为4500赫兹的扬声器声音，持续100微秒
    For I = 0 To 5
        Beep 4500, 100
        DoEvents
    Next
    '显示计算机名称
    MsgBox "电脑名称是 " & strString & ", 我搞对了吗？"
End Sub

不错，找寻已久。谢谢分享。

denny_dzw · 发表于 2006-7-27 00:33

搂主真有心占了这么大篇幅，不过很精彩，大量得辛勤劳动令人尊敬，奉献得精神令人学习，辛苦了，

opiona · 发表于 2006-7-27 09:02

希望；楼主能够将全部内容打包上传到免费的空间，比如：www.ys168.com

不学无术 · 发表于 2006-7-27 15:27

辛苦了,虽然怕打断你的贴,还是忍不住道个谢

hzjdtjb · 发表于 2006-7-27 16:48

期盼你这本书的出版，你一定得在这贴上宣布，以便我能及时买到。

ynztwxqy · 发表于 2006-7-28 11:20

辛苦啦

		自动登录	找回密码
密码			免费注册