EXCELVBA学习笔记_深空梦都

http://blog.sina.com.cn/u/1497285787

首页博文目录关于我

个人资料

微博

加好友发纸条

写留言加关注

博客等级：
博客积分：

博客访问：
关注人气：
获赠金笔：0支
赠出金笔：0支
荣誉徽章：

正文字体大小：大中小

EXCELVBA学习笔记

(2022-04-03 16:32:00)

分类：学习笔记

变量的命名：

1.尽量使用有意义的名字，以便对照记忆

2.变量名支持中文、英文、数字、下划线，

3.变量名尽量不要使用中文，以免版本不同导致运行错误

4.变量名首位不能使用数字

5.不能使用如sub、end sub 、if 、while等系统保留名

6.不区分大小写，Xy和xY是同一个变量

强制声明

Option Explicit

Sub math Test（）

Dim 变量名1，变量名2，变量名3，变量名4（遇到未声明变量名时候会自动报错）

Const 常量名 = ***（赋值后，在运行过程中再给常量赋值会自动报错）

-------

------

End Sub

批量计算

Sub 显示美元()

Dim rate, i: Rem 定义变量

rate = Cells(4, 4): Rem 给变量赋值

For i = 6 To 10 Step 1: Rem 让变量i从6变化到10,每一步增加1(可以省略,默认为+1),

Cells(i, 4) = Cells(i, 4) / rate: Rem 开始计算第一行

Next i: Rem 执行下一步的i(增加1以后的i)

Cells(3, 4) = "美元": Rem 显示美元单价

Cells(5, 4) = "单价($)"

End Sub

Sub 显示人名币()

Dim rate, i: Rem 定义变量

rate = Cells(4, 4): Rem 给变量赋值

For i = 6 To 10 Step 1: Rem 让变量i从6变化到10,每一步增加1(可以省略,默认为+1),

Cells(i, 4) = Cells(i, 4) * rate: Rem 开始计算第一行

Next i: Rem 执行下一步的i(增加1以后的i)

Cells(3, 4) = "人名币": Rem 显示人名币单价

Cells(5, 4) = "单价()"

End Sub

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report

前一篇：双鱼座上升星座（转）

后一篇：护肤品执行标准

新浪BLOG意见反馈留言板　欢迎批评指正