点击蓝字关注我们
看到这的老铁你离会VBA不远了！
你已经超越了40.6%的同学！同时看完全集的概率由10.2%提高到了17.2%！
惊不惊喜！意不意外！
Whatever，以上分析卵用没有。仅能用来开篇扯皮……
像不像某些数据分析师？（手动狗头
）
复习一下
今天的小目标
整几个特别low的变量； 用for循环偷懒； 用if告诉程序怎么做是对的； 从单元格读取内容，经过一番折腾再放回去。
正经的教程开始
变量
1潘 = 1000元/平方米。在这里，“潘”就是一个变量，而后被赋值为“千元/平方米”。
1Dim 潘 as 单位
2潘 = 千元/平方米
语法解释：
Dim，声明，告诉程序，我要公告一个变量了！以后我要用它！
虽然“a”呀，“b”呀这些个变量名你可以用，但是真的不建议，因为写到后面变量多了，你根本不知道“a”是个啥！
变量名 = 值。等号左边放变量名，等号右边放值，之后任何地方用到这个变量，它就是右边的值！如果一个变量被定义后没有被赋值过，如果是数字型那就是0，如果是字符串型那就是空。注意X = X + 1：这不是一元（不要钱）一次方程！而且求出来0 = 1你会疯！这就是一个赋值：X增加了1！
正经的举例
1Sub 一个正经的例子()
2 Dim aNumber As Integer
3 aNumber = 250
4 MsgBox (aNumber)
5End Sub
1MsgBox (aNumber)
2MsgBox ("Hello World!")
1Sub 一个正经的例子()
2 Dim aNumber As Integer
3 aNumber = 250
4 aNumber = 1111.234
5 MsgBox (aNumber)
6End Sub
你先猜一下会输出什么！
109876543210.90.80.7……0！
第一梯队：加减乘除，没错小键盘区已经足够了。
第二梯队：幂运算，也就是次方，符号比较特殊：^。X ^ 3就是X的立方。
第三梯队：取模运算，也就是求余数。比如今天星期八，求250天后星期几就能用到取模。因为其涉及到函数，先不讲。前两个梯队基本够用！别学太多！容易放弃！
运算顺序还记得吗！幂 > 乘除 > 加减！
举个例子：
1Sub 求圆的面积()
2 Dim R As Integer
3 Dim Pai As Single
4 Dim S As Single
5 R = 3
6 Pai = 3.1415926
7 S = Pai * R ^ 2
8 MsgBox (S)
9End Sub
单元格操作
代码：
1Sub 十分简单的单元格操作()
2 Dim temp
3 temp = Cells(1, 1)
4 temp = temp + 1
5 Cells(2, 1) = temp
6End Sub
1Sub 十分粗暴的单元格操作()
2 Cells(2, 1) = Cells(1, 1) + 1
3End Sub
（会上面的足够，这个不会不要紧我后面会具体讲，看不懂没关系千万别放弃啊！）
今日作业
下期不定期更新预告
（这回真讲）
今日毒奶
墨迹在最后
扫描二维码
关注我们
微信号 :AlphaGame
原文作者：可以叫我才哥；如有侵权，请联系管理员删除。
请登录后发表评论
登录
全部评论
