带你入门VBA（2004第一期）

兰色幻想

       如果你对VBA很兴趣，现在又有时间（不能半途而废），马上跟贴，一个小时左右就能教会你（前提是你要配合，我的电脑不断线）。

        只限一名！

    其余讲的链接第二期：进阶操作VBAhttp://club.excelhome.net/viewthread.php?tid=64329第三期：编制简单的自定义函数http://club.excelhome.net/viewthread.php?tid=64605第四期:如何控制工作薄和工作表http://club.excelhome.net/viewthread.php?tid=65527
第五讲：如何控制单元格http://club.excelhome.net/viewthread.php?tid=67109

带你入门第一讲的整理贴链接（剔除了灌水贴）

[此贴子已经被作者于2006-6-26 10:34:12编辑过]

linvv

3Q,这几天刚好在学，可还没头绪，现在就指望老兄了

怎么有人先来了，能再加一个吗，楼主？

[此贴子已经被作者于2004-10-3 16:00:50编辑过]

兰色幻想

以下是引用先锋在2004-10-3 15:58:00的发言：

我来了，不过老师，你可要有足够的耐心！

马上新建一个EXCEL文件，用绘图插入一个矩形，点击右键，在菜单中点击指定宏，再点击新建。

会出现

Sub 矩形1_单击()

End Sub

兰色幻想

在两句中间加入Sheets("sheet1").Range("a1") = 100

Sub 矩形1_单击() Sheets("sheet1").Range("a1") = 100 End Sub

linvv

3Q，已经好了，运行宏得A1＝100了，接下来呢

先锋

OK了。有一点不方便，我不刷新，就看不到你的信息，傻等了半天。

[此贴子已经被作者于2004-10-3 16:15:14编辑过]

兰色幻想

再加一句：

Sub 矩形1_单击() Sheets("sheet1").Range("a1") = 100 Sheets("sheet1").Cells(2, 1) = 200 End Sub

这是两种单元格的基本录入方法，都懂吗？

linvv

只能说知道

兄台，怎么没了？？？？

[此贴子已经被作者于2004-10-3 16:26:22编辑过]

兰色幻想

再输入下面的循环程序

Sub 矩形1_单击() Dim X As Integer 声明 X为整数型变量 For X= 1 To 20 X的值为从1到20循环 Sheets("sheet1").Cells(x, 1) = x 单元CELLS(X,1)的值班等于X值 Next End Sub

[此贴子已经被作者于2004-10-3 16:32:29编辑过]

徒然客

感觉还是自己看书学的快一些。不过蓝色幻想的精神还是值得赞扬的。