右擊excel的sheet也名稱，點擊查看代碼，這時就打開了一個VBA窗口。 VBA都是由 Sub 宏名() 開始，End Sub 結束。 推薦你一本書《別怕，Excel VBA其實很簡單》，簡單通俗，適合初學者。這個在百度上都能搜得到電子版的。

VB、VBA？這其實都是編程的入門級語言。接下來為大家展示如何使用VBA。

材料/工具

電腦、excle

手頭電腦未裝excel2007,某些用詞可能不太準。供參考吧！ 關鍵是在功能區中打開“開發工具”。 (窗口左上角）Office按鈕-->Excel選項-->（其中有一項是打開“開發工具”） -->（功能區會增加“開發工具”）點擊-->(出現“Visual Basic 編輯器”）

方法

打開一個Excel文件，鼠標右擊下面的工作表（如sheet1）。選擇“查看代碼”，就可以打開VBA編輯界面。

漏參數了 語法 ROUNDDOWN(number, num_digits) ROUNDDOWN 函數語法具有下列參數 （參數:為操作、事件、方法、屬性、函數或過程提供信息的值。）： Number 必需。需要向下舍入的任意實數。 Num_digits 必需。四舍五入后的數字的位數。 說明 函數

選擇下拉菜單，選擇“worksheet”。

Set 語句 請參閱 示例 特性 將對象引用賦給變量或屬性。 語法 Set objectvar = {[New] objectexpression | Nothing} Set 語句的語法包含下面部分： 部分 描述 objectvar 必需的。變量或屬性的名稱，遵循標準變量命名約定。 New 可選的。通常在聲

選擇對應的觸發模式。這里選擇BeforeDoubleClick,即在本工作表鼠標雙擊（之前），將觸發下面的代碼程序。

Join 函數，返回一個包含子字符串數組中的指定數量的字符串。這與 Split方法的作用完全相反。語法Join(List[,delimiter]) 1.List, 必需的參數。要加入包含屬于子數組。2.delimiter, 一個可選的參數。字符就是返回的字符串，用作分隔符。缺省的分

（activate意思是說：在sheet表被選取的時候，就觸發；Change意思是說：在這個模式下，只要sheet（工作表）發生變化，就將觸發；Before Right Click是指在鼠標右擊之前觸發；SelectionChange是指在鼠標焦點發生變化時，觸發。）

你是要運行EXCEL工作表函數還是要給在VBA中給單元格寫公式 如果是要用函數 applivation.worksheetfunction. 如果是要給格寫公式比如B4＝A1+1 請用range("B4").Formula = "=A1+1"

選擇完成后，會看到下面出現了兩條代碼；這倆條代碼其實是在聲明一個函數。

監視窗口 當工程中有定義監視表達式定義時，就會自動出現。 可以： 重置列標頭的大小，通過往右拖移邊線來使它變大，或往左拖移邊線來使它變校 拖動一個選取的變量，到立即窗口或監視窗口中。 可以按下關閉框，來關閉一個窗口。如果關閉框不是可

將鼠標放置在這兩行代碼之間，我們寫上執行語句：

打開你含VBA程序的EXCEL 文件 點擊菜單中的 工具---宏---Visual Basic 編輯器 打開Visual Basic 編輯器 在Visual Basic 編輯器菜單中 點擊 工具---VBAProject屬性 打開VBAProject屬性對話框 選擇點擊 保護選項卡 選擇 查看時鎖定工程 下面輸入密

Sheet1.Cells(1, 3) = Sheet1.Cells(1, 1) + Sheet1.Cells(1, 2)

這個可以有 Sub chiefzjh() Dim xlApp, xlBook Set xlApp = CreateObject("excel.application") Set xlBook = xlApp.Workbooks.Open("E:My Document用宏匯總出入庫數據.xls") xlApp.Visible = True End Sub

其中：sheet1.cells（1,3）就是指第一行第三列的這個單元格；Sheet1.Cells(1, 1)就是指第一行第一列的這個單元格；Sheet1.Cells(1, 2)就是指第一行第二列的單元格。執行語句的意思是：將cells（1,1）和cells（1,2）的值相加，并賦值給cells（1,3）

這個可以有 Sub chiefzjh() Dim xlApp, xlBook Set xlApp = CreateObject("excel.application") Set xlBook = xlApp.Workbooks.Open("E:My Document用宏匯總出入庫數據.xls") xlApp.Visible = True End Sub

注意的是：寫語句的時候，輸入法一定要是輸入字母的模式。要不然你的語句會報錯

range("j"&j) range("k"&j) 、、、、 括號里是雙引號里為列標，后面加個連接符號&和變量名稱j

然后點擊保存，回到Excel的原始界面。在cells（1,1）和cells（1,2）中輸入兩個數值。（樓主輸入的是：125895和78954）

Alt+F11，輸入以下代碼便可： Private Sub Worksheet_SelectionChange(ByVal Target As Range)For i = 1 To 100 '獲取第一行的單元格數量 If Cells(1, i).Value = "" Then Exit For a = a + 1 Next i For i = 1 To 100 '獲取第二行的單元格數量I

注意看：現在的cells（1,3）數值是空的

要調用某個CELL的數據，可以在VBA中寫：（假設是B3單元） Dim temp As String temp = Range("B3").Value 或 temp = Cells(3,2).Value 或 temp = Cells(3, "B") 這里，即使EXCEL表格里是數字，到了VBA里面還是變成字符串。 然后，再判斷temp

在sheet1的工作表中，雙擊你的鼠標。你會發現，cells（1,3）的值變成了cells（1,1）和cells（1,2）的和。（204849=125895+78954）

舉例說明。 第一步：點擊office按鈕-excel選項。如圖： 第二步：對“在功能區顯示”開發工具欄“ 打勾。如圖： 第三步：點擊開發工具-visual basic。如圖： 第四步：插入模塊。如圖： 這樣就可以開始編寫代碼了 。

擴展閱讀，以下內容您可能還感興趣。

EXCEL VBA 大師請進 怎么在excel中利用VBA（宏）命令打開一個新的EXCEL

這個可以有

Sub chiefzjh()

Dim xlApp, xlBook

Set xlApp = CreateObject("excel.application")

Set xlBook = xlApp.Workbooks.Open("E:\My Document\用宏匯總出入庫數據.xls")

xlApp.Visible = True

End Sub追問這才正解嘛，不過兩點疑問：

1.Set xlBook = xlApp.Workbooks.Open("E:\My Document\用宏匯總出入庫數據.xls")

可改為：xlApp.Workbooks.Open("E:\My Document\用宏匯總出入庫數據.xls")嗎？

為什么要賦給xlBook?

2.為什么打開后是隱藏的呀？即 要使用xlApp.Visible = True來顯示。

EXCEL VBA的SUM函數怎么用啊

Application.Sum (Range("b8:b100"))

怎么用excel VBA range 函數來表示

range("j"&j)

range("k"&j)

、、、、

括號里是雙引號里為列標，后面加個連接符號&和變量名稱j追問range("j"&j)里j是代表行標嗎追答前面的"J"是指J列的列標，因為range表示區域時，里面要加雙引號的，比如 用range("a1:c1")來表示A1:C1區域，里面的字母不區分大小寫，range("A1:C1")也是一樣的

后面的j是指你定義的變量，代表行數，如果你定義了for j=1 to 10,那么range("j"&j)就是 J1、J2、J3、、、、、J10，循環到10之后就停止了。

range("j"&j)--range("j"&1)--range("j1")

range("j"&j)--range("j"&2)--range("j2")

里面的&連接符是把J列標和變量1、2、3給連接起來

怎么用EXCEL的VBA腳本進行行的操作

Alt+F11，輸入以下代碼便可：

?

Private?Sub?Worksheet_SelectionChange(ByVal?Target?As?Range)

For?i?=?1?To?100?'獲取第一行的單元格數量

If?Cells(1,?i).Value?=?""?Then?Exit?For

a?=?a?+?1

For?i?=?1?To?100?'獲取第二行的單元格數量

If?Cells(2,?i).Value?=?""?Then?Exit?For

b?=?b?+?1

For?i?=?1?To?b

For?j?=?1?To?a

Cells(3,?k?+?1)?=?Cells(2,?i)?&?"->"?&?Cells(1,?j)

k?=?k?+?1

Next?j

Next?i

End?Sub

結果：

怎么用VBA調用EXCEL里的數據？

要調用某個CELL的數據，可以在VBA中寫：（假設是B3單元）

Dim temp As String

...

temp = Range("B3").Value 或 temp = Cells(3,2).Value 或 temp = Cells(3, "B")

這里，即使EXCEL表格里是數字，到了VBA里面還是變成字符串。

然后，再判斷temp的內容，用 if...then... 語句就可以了：

......

If temp = "yes" Then

.....

Else

If temp = "no" Then

.....

Else

.....

End If

End If

......

語句不多，好像沒有必要寫一個SUB TEXT()。