为了不影响帖子里的链接,便于大家阅读,请大家不要随意删除自己的跟帖,谢谢合作!
课间休息,插播一段广告:按钮,工作表等这些对象就像是Excel的众多儿女,儿女太多,怎么称呼这群儿女也是一个问题.为了不出现叫"儿子"就七八个一起跑出来,同许多农村父母给儿女起"老大,老二,老三……"的称呼一样,Excel也用这种顺序的起名方法给这些儿女贴上了标签.比如第一个按钮是"按钮一",再画一个就是"按钮二",然后是"按钮三","铵钮四"等等.这样,以后你要叫第三个儿子的时候直接叫"按钮三"即可.如果你嫌这个名字乡下味太浓,如果你嫌这个名字不能很好地反映点击它后会执行怎样的操作不清楚,你可以通过双击按钮表面激活它,可重新为按钮贴上合适的显示标签.需要提醒你的是,这里的标签只是它显示在你面前的样子,实际上它是什么名字?我们可以点击它,看一下名称框里是什么.
提醒: 初学的我们,不必完全记住对象及事件的名称,也不必手工输入,系统早为你准备好了,你可以在代码窗口里进行选择,左边是对象,右面是事件,如果你想知道某个对象(例如工作薄、工作表、窗体等)有哪些事件,只需要双击这个对象,然后在代友窗口里查看即可。我们需要做的只是:当自己需要它的时候,知道打开哪个箱子把它拿出来即可.
数据类型 | 存储空间大小 | 范围 |
Byte | 1 个字节 | 0 到 255 |
Boolean | 2 个字节 | True 或 False |
Integer | 2 个字节 | -32,768 到 32,767 |
Long(长整型) | 4 个字节 | -2,147,483,648 到 2,147,483,647 |
Single (单精度浮点型) | 4 个字节 | 负数时从 -3.402823E38 到 -1.401298E-45;正数时从 1.401298E-45 到 3.402823E38 |
Double (双精度浮点型) | 8 个字节 | 负数时从 -1.79769313486232E308 到 |
-4.94065645841247E-324;正数时从4.94065645841247E-324 到 1.79769313486232E308 | ||
Currency | 8 个字节 | 从 -922,337,203,685,477.5808 到 922,337,203,685,477.5807 |
(变比整型) | ||
Decimal | 14 个字节 | 没有小数点时为 +/-79,228,162,514,264,337,593,543,950,335,而小数点右边有 28 位数时为 +/-7.9228162514264337593543950335;最小的非零值为 +/-0.0000000000000000000000000001 |
Date | 8 个字节 | 100 年 1 月 1 日 到 9999 年 12 月 31 日 |
Object | 4 个字节 | 任何 Object 引用 |
String | 10 字节加字符串长度 | 0 到大约 20 亿 |
(变长) | ||
String(定长) | 字符串长度 | 1 到大约 65,400 |
Variant(数字) | 16 个字节 | 任何数字值,最大可达 Double 的范围 |
Variant(字符) | 22 个字节加字符串长度 | 与变长 String 有相同的范围 |
用户自定义 | 所有元素所需数目 | 每个元素的范围与它本身的数据类型的范围相同。 |
(利用 Type) |
ggsmart的补充说明:楼上写的代码,我只考虑分数是整数的时候,这里我只是举个例子,目的是让大家认识Select Case语句,因为没有考虑小数和负数的情况.一旦出现29.5之类的,就都全是优秀.所以,程序本身并不全面.为此,38度OFFICE技术论坛的老朽对代码进行了修定,提供了另一段全面的代码,非常感谢!
ggsmart说明:以下代码为38度OFFICE技术论坛的老朽版主提供,主要是帮助大家对VBA语句的认识.
感谢109楼artemis_xu朋友对以上代码的纠正!
ggsmart回复:
1.使用的是"窗体"上的按钮,而不是"控件工具箱"上的按钮.只有"窗体"上的按钮在画完后才会弹出"指定"宏的对话框,如果你的按钮已经画好,你可以右键单击按钮,在弹出的右键菜单中选择"指定宏"命令.
2.判断某个按钮是"窗体"上的按钮还是"控件工具箱"里的按钮,可以右键单击该按钮,如果是"窗体"上的按钮,此时,你可以对该按钮进行编辑.而控件工具箱的按钮是不可以的,你需要进入"设计模式"才能对其进行编辑.
当然,上面只是教你怎样在属性窗口里对控件的属性进行修改。要求不是太完美的时候,我们可以在窗体上用鼠标拖动修改一下就可以了。
悄悄告诉你:因为对于Show方法,如果不指定模式,则默认为模式窗体,又因为我很懒,所以我的习惯是:当我需要用模式窗体的时候,就直接“窗体.Show”,需要无模式的时候就“窗体.Show 0”,多个0少个0而已,懒得去记那有模式无模式的字母,我英文差,反正看了也不一定认识。
原帖由 moon2778 于 2009-8-16 15:33 发表
为避免大家都不习惯,我还是不客气好了。。。。。11楼的代码 为什么前面要if呢?为什么不全部case?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case [a1].Value
Case ""
Ms ...
欢迎光临 ExcelHome技术论坛 (https://club.excelhome.net/) | Powered by Discuz! X3.4 |