ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH云课堂-专业的职场技能充电站 Excel转在线管理系统,怎么做看这里 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 高效办公必会的Office实战技巧 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
楼主: 兰色幻想

[分享] 带你入门VBA(2004第一期)

[复制链接]

TA的精华主题

TA的得分主题

发表于 2004-10-3 20:29 | 显示全部楼层

TO求奇:

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

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-10-3 20:56 | 显示全部楼层

TO 求奇

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

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

TA的精华主题

TA的得分主题

发表于 2004-10-3 21:00 | 显示全部楼层

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

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

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

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-10-3 21:06 | 显示全部楼层
以下是引用办公之星在2004-10-3 21:00:00的发言:

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

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

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

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

TA的精华主题

TA的得分主题

发表于 2004-10-3 21:19 | 显示全部楼层

谢谢兰色幻想。

TO gvntw:

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

TA的精华主题

TA的得分主题

发表于 2004-10-3 21:26 | 显示全部楼层

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

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

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

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-10-3 21:35 | 显示全部楼层

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

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

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

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-10-3 21:42 | 显示全部楼层
以下是引用求奇在2004-10-3 21:19:00的发言:

谢谢兰色幻想。

TO gvntw:

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

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

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

带你入门VBA(今天限一名)

带你入门VBA(今天限一名)

TA的精华主题

TA的得分主题

发表于 2004-10-3 22:04 | 显示全部楼层
以下是引用兰色幻想在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"))

是否为相同的语句?

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-10-3 22:13 | 显示全部楼层
以下是引用办公之星在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

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

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

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2019-8-23 03:47 , Processed in 0.082584 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表