菜鸟谈VBA最最基础入门《原创》

dw6688

原帖由 ruty 于 2009-8-14 02:08 发表
在看过 “菜鸟谈VBA最最基础入门《原创》”，其中给宏安上门铃，（2）单击”窗体“工具栏中的“按钮”控件，在工作表中希望放置按钮的位置按下鼠标左键，拖动鼠标画出一个按钮，松开鼠标后，Excel会自动显示“指定宏 ...

可以呀，你在按钮上点右键就会出现快捷菜单，下面有一个指定宏就可以了！！

dw6688

原帖由 hyz00001 于 2009-8-14 11:22 发表
这个有用没有呢？

你不是在说费话吧，这么好的东东，怎么说没有用呀，你看了没有哟，边看边练习，过几天再来复习一下保证你慢慢就会入门了

dw6688

原帖由 moon2778 于 2009-8-16 15:33 发表
为避免大家都不习惯，我还是不客气好了。。。。。11楼的代码 为什么前面要if呢？为什么不全部case？
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case [a1].Value
    Case ""
    Ms ...

质疑的好，善于专研值得我们学习

dw6688

原帖由 口是心非 于 2009-8-17 21:25 发表
Sub mysum()
Dim Lsum As Long, i As Long
i = 1
Do While i  

实际上这里的i  也可以不设置初值也是可以的

[ 本帖最后由 dw6688 于 2010-2-25 16:14 编辑 ]

dw6688

原帖由 artemis_xu 于 2009-8-18 12:19 发表
请问老师，这一段：
Sub 求1到10000之间奇数和2()
    Dim I&, J&
    For I = 10000 To 1 Step -2
        J = J + I
    Next
    MsgBox "1到10000之间奇数和为" & J
End Sub
是不是应该9999 to 1啊？
...

你的分析很正确，这个结果是10000以内的偶数和，因为J=J+i 是从第一个I值开始运行的，运行一个循环后再执行step语句，这样就是10000、9998、9996.。。。。。的和了。

dw6688

原帖由于 2009-8-16 14:40 发表
用户窗体
-----------------------
　　用户窗体(UserForm对象)是VBA的另一类对象。它表现出来是一个窗口或对话框，如前面我们说的MsgBox与InputBox语句弹出来的都属于窗体。使用窗体可以提供一个形象的用户界面。 ...

今晚看了一晚上这个用户窗体部分，还是有一定难度的，搞到最后还有作业都还不敢做呀，那作业只能等明天了

ivanhr

VBA真的很强大 学习中

谷神

楼主辛苦了
俺们新手学习了

dw6688

现在终于完成了模式窗体和无模式窗体的作业了

dw6688

请老师帮我看看，这个学做的欢迎界面为什么不能运行？

窗体中的代码：
Private Sub UserForm_Initialize()
    Call 计时
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
cancle = True
End Sub

模块里的代码

Sub 计时()
    欢迎.Itime.Caption = 欢迎.Itime.Caption - 1
    If 欢迎.Itime.Caption = 0 Then
    Unload 欢迎 ' Application.Visible = True
    Exit Sub
    End If
    Application.OnTime Now + TimeValue("00:00:01"), "计时"
End Sub