Part04 - VBA 学习第三回 - 加减乘除 ( 简体 )

~ 上傳‧分享‧網賺 ~

~ 免費上傳空間‧請即申請 Freak Share ~

~ 進入後請點選左上角 注冊 ! ~

~ 声明事项 ~

如各位想把以下本文章转贴 , 请记得要注明出处.

本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.

由于图片制作需时, 所以更新会比较慢.

存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.

上一回有讲解过程序语法的基本理解 , 现在就来讲解一下怎样利用这些东西 , 来处理一些基本的加减乘除运作 .

上一次例子中

'开始 程序abc
Sub abc()

'本工作表第一页 [ Worksheets("Sheet1") ] " 的 " 储存格 A1 [ Range("A1") ] " 的 " 值等于 100 [ Value = "100" ]
Worksheets("Sheet1").Range("A1").Value = "100"

'结束 程序abc
End Sub

你应该能够理解到这样的一句语法可以把指定的储存格的值改变 , 现在 , 我们就尝试一下 , 把上述的语句加多一点 , 让我们的程序结果再多一点变化 .

Sub abc()

Worksheets("Sheet1").Range("A1").Value = "100"
Worksheets("Sheet1").Range("A2").Value = "100"

Worksheets("Sheet1").Range("B1").value = Worksheets("Sheet1").Range("A1").Value + Worksheets("Sheet1").Range("A2").Value
Worksheets("Sheet1").Range("B2").value = Worksheets("Sheet1").Range("A1").Value - Worksheets("Sheet1").Range("A2").Value
Worksheets("Sheet1").Range("B3").value = Worksheets("Sheet1").Range("A1").Value * Worksheets("Sheet1").Range("A2").Value
Worksheets("Sheet1").Range("B4").value = Worksheets("Sheet1").Range("A1").Value / Worksheets("Sheet1").Range("A2").Value

End Sub

上述的程序中 , 首先设定了 Worksheets("Sheet1") 中的 A1 及 A2 的值为 100 , 而 B1 的值就等于 A1 和 A2 的值的总和 , B2 的值等于 A1 的值减 A2 的值 , B3 的值等于 A1 的值乘 A2 的值 , B4 的值等于 A1 除 A2 的值 .

现在我们就让程序执行一次 , 看看得出来的结果是不是我们想要的 .


( Pic4_1 )

现在我们可以看到结果了 .

B1 的值等于 A1 的值加 A2 的值 , 结果等于 200 , 结果正确
B2 的值等于 A1 的值减 A2 的值 , 结果等于 0 , 结果正确
B3 的值等于 A1 的值乘 A2 的值 , 结果等于 10000 , 结果正确
B4 的值等于 A1 的值除 A2 的值 , 结果等于 1 , 结果正确

这样就能够确定我们的程序代码并没有错 , 而且计算机也已经按照我们的要求 , 把相关的数据计算出来了 . 这里还告诉你一件事 , 我们在编写程序时 , 并不需要确定的告诉电话 B1 的值要等于 100 加 100 , 只要我们告诉它 , 是那一个储存格的值和那一个储存格的值相加就可以了 .