带你入门VBA，第二讲

黑色幽默

谢谢。我用WORLD把他的解说存了。嘿嘿。

happy91

回答一下我46楼的问题啊

兰色幻想

以下是引用happy91在2004-10-11 10:50:00的发言：

1.两个模块的代码怎么移到一个模块中；

2.end sub后怎么自动产生另一个sub,即不用输入sub...,end sub

3.还有怎么样默认宏的位置在当前工作薄

4.VB编辑器中存的程序是在所有工作薄还是当前工作薄，或......我没找到啊，默认好象是所有工作薄

1、.两个模块的代码怎么移到一个模块中没有必要如果同一文件中的不同模块相互调用，只须在程序中使用另一程序的名称即可

如：同一文件内：SUB A（）

B（B是另一具模块名称）

END SUB

不同工作薄：

SUB A（）

APPLICATION.RUN"工作薄1.XLS"!B（B是工作薄1中模块名称）

END SUB

2、做不到

3、在使用单元格时，加上ACTIVESHEET，如ACTIVESHEET.RANGE("A1")

4、在VBE编辑器里显示的是所有打开的工作薄，每一个打开的工作薄都视为一个工程。

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

办公之星

虽然做得很晚了，还是想贴出来。

Sub 椭圆2_单击() Dim i As Integer Dim j As Integer For i = 1 To 15 Cells(i, 2).Value = i + 100 j = Application.WorksheetFunction.Count(Columns("b:b")) Next Cells(j + 1, 2).Value = Application.WorksheetFunction.Sum(Range(Cells(1, 2), Cells(j, 2))) End Sub

办公之星

以下是引用chenjun在2004-10-7 0:30:00的发言： 换成Cells(i, 2).Interior.Color = RGB(255, 0, 0)是不是更好理解 其中RGB(red, green, blue)中的每个参数为0至255，表示颜色的红、绿、蓝色的分量。

看来FGB也是作为一个函数，可以数控使用的。希望得到证实，呵呵。

HXJWC

请问，Counta()是函数吗？作用是啥？另sheets("sheet1").range("a1") 与 worksheetsheets("sheet1").range("a1") j是一回事吗？

兰色幻想

以下是引用HXJWC在2004-10-15 15:02:00的发言： 请问，Counta()是函数吗？作用是啥？另sheets("sheet1").range("a1") 与 worksheetsheets("sheet1").range("a1") j是一回事吗？

1、Counta()是调用EXCEL工作表函数

2、sheets("sheet1").range("a1") 和worksheets("sheet1").range("a1") 是一回事

HXJWC

请问，Counta()是函数吗？作用是啥？另sheets("sheet1").range("a1") =与 worksheetsheets("sheet1").range("a1")。value= 是一回事吗？

我是一菜鸟，请教兰老师及各位高手

HXJWC

谢谢兰老师

HXJWC

我走进EXCELHOME，就如饥饿的人赴进面包堆里！