带你入门VBA（2004第一期）

gvntw

TO求奇：

ZHYZ用的是窗体中的按钮。使用控件也不是你说的必须退出保存文件再打开才能使用，退出设计模式就可以使用。

兰色幻想

TO 求奇

可是再在A列加个数字，B1不会自动更新为22是怎么回事？？这个需要执行程序后才能计算的不象在EXCEL工作表中的公式”，是不是指加入数字，B1自动更新，但后面的程序也没有做到这点啊？

SUB 语句，需要有个事件触发它，才能执行，就比如一个箱子，只有去搬、推等外力施加与它时，它才会动。设置个按纽目的就是为了执行SUB语句

办公之星

这样是比看书省事多了。可是大家跟帖太多了，将来看起来太乱了。

问一个最基本的问题：空格在单词、运算符、句子中是否很重要，如果在一个地方多打几个空格会怎样？

经常看到别人的程序中，前面好多好多的空格。

兰色幻想

以下是引用办公之星在2004-10-3 21:00:00的发言：

这样是比看书省事多了。可是大家跟帖太多了，将来看起来太乱了。

问一个最基本的问题：空格在单词、运算符、句子中是否很重要，如果在一个地方多打几个空格会怎样？

经常看到别人的程序中，前面好多好多的空格。

程序里的字间矩多是程序自已调整的，如果程序太长才用空格+下划线来转行显示的

求奇

谢谢兰色幻想。

TO gvntw：

谢谢你的解答。我用控件制作的步骤一般是：“视图—>工具栏—>控件工具箱”，在制作的控件按钮点右键选“查看代码”进入编辑代码模式，编辑完退出后，按钮还是不能使用，我这样操作有问题吗。请问退出设计模式是怎样操作的？还有窗体中的按钮是怎么做的？多谢。

办公之星

如果手工录入，这一段程序中就有很多的空格，不是吗？

Sub 矩形1_单击() Dim i As Integer For i = 4 To 36 Sheets("sheet1").Cells(i, 4) = i Next Range("d37").Value = Application.WorksheetFunction.Sum(Range("D4:D36")) Range("B1").Value = Application.WorksheetFunction.CountA(Columns("A")) End Sub

我只是在问：这些空格哪些是必须的，哪些是可以省略的？可不可以再插入空格，譬如在语句之前或之后？

兰色幻想

Dim i As Integer 这之间的空格只是为了区别这是两个独立的词，当然是必须的，这也和正常的英语语法一致

单词之间或前后多余的空格会被系统自动多去少补，但是在APPLICATION 中间加空格 APP LICATION就不行了，因为系统会把它当作两个词对待

[此贴子已经被作者于2004-10-3 21:35:59编辑过]

兰色幻想

以下是引用求奇在2004-10-3 21:19:00的发言：

谢谢兰色幻想。

TO gvntw：

谢谢你的解答。我用控件制作的步骤一般是：“视图—>工具栏—>控件工具箱”，在制作的控件按钮点右键选“查看代码”进入编辑代码模式，编辑完退出后，按钮还是不能使用，我这样操作有问题吗。请问退出设计模式是怎样操作的？还有窗体中的按钮是怎么做的？多谢。

相关图片如下：退出设置模式，再点一下上面的设计模式图标就行了

创建按纽在窗体工具栏就有

办公之星

以下是引用兰色幻想在2004-10-3 21:35:00的发言： Dim i As Integer 这之间的空格只是为了区别这是两个独立的词，当然是必须的，这也和正常的英语语法一致 单词之间或前后多余的空格会被系统自动多去少补，但是在APPLICATION 中间加空格 APP LICATION就不行了，因为系统会把它当作两个词对待

要的就是这个结果，谢谢。

继续追问：

Range("d37").Value = Application.WorksheetFunction.Sum(Range("D4:D36")) Range("B1").Value = Application.WorksheetFunction.CountA(Columns("A")) 和 　　Range("d37").Value = Application.WorksheetFunction.Sum(Range("D4:D36")) 　　Range("B1").Value = Application.WorksheetFunction.CountA(Columns("A"))

是否为相同的语句？

兰色幻想

以下是引用办公之星在2004-10-3 22:04:00的发言：

要的就是这个结果，谢谢。

继续追问：

Range("d37").Value = Application.WorksheetFunction.Sum(Range("D4:D36")) Range("B1").Value = Application.WorksheetFunction.CountA(Columns("A")) 和 　　Range("d37").Value = Application.WorksheetFunction.Sum(Range("D4:D36")) 　　Range("B1").Value = Application.WorksheetFunction.CountA(Columns("A"))

是否为相同的语句？

相同！我知道你的意思了，

你是说很多这样的语句

FOR I=0 TO 100

IF W=122 THEN

IF J=456 THEN

IF K=789 THEN

END IF

END IF

END IF

NEXT I

这时候加空格只是方便区分语句的对应关系。如果这样

FOR I=0 TO 100

IF W=122 THEN

IF J=456 THEN

IF K=789 THEN

END IF

END IF

END IF

NEXT I

谁能一眼看清哪一句和哪一句相对应啊

这对程序本身没有一点影响，只是方便查看程序而已