1、在新工作表的Sheet1上点击右键
2、选择查看代码
3、点击倒三角,选择Worksheet
4、点击右边倒三角,选择触发方式,如BeforeDoubleClick表示在双击鼠标左键时触发
5、点击候出现如下代码框架
6、输入以下语句:Sheet1.Cells(1, 3) = Sheet1.Cells(1, 1) + Sheet1.Cells(1, 2)意为将A1、B1单元格求和并放在C1单元格
7、点击保存,然后关闭VBA窗口
8、由于A1,B1没有数据,所以C1为0
9、输入数据后,会发现即使按了回车,C1也不变,因为设置的是双击鼠标左键触发。
10、双击鼠标左键后就变了
1、首先我们打开一个工作样表作为例子。
2、使用alt+f11组合快捷键进入vbe编辑器,插入一个新模块,在模块编辑框中输入以下代码:Option Explicit,Sub asc(),Dim Num1%, Num2%,Num1 = asc("Excel") '返回69Num2 = asc("e") '返回,101[a1] = "Num1= ": [b1] = Num1,[a2] = "Num2= ": [b2] = Num2,End Sub。
3、这里我们声明变量类型的方式和原来的不一样,使用的是%符号,其实代表的就是as integer,效果是一样的。
4、这里我们给两个变量赋值,赋值的内容为字符串Excel和字符串e,但是并不是那么简单,我们给的值是asc()函数转换的代码。其中Excel使用asc()函数只是取字符串首位字母的代码。这里区分大小写。
5、插入一个按钮并指定宏,我们运行后得到了正确的结果。另外,我的这个过程是可以正常运行,但是asc被指定按钮时会报错,大家可以选择其他的过程名,就可以指定按钮了。
本回答被网友采纳