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 , 只要我們告訴它 , 是那一個儲存格的值和那一個儲存格的值相加就可以了 .