怎么用excel vba（教你怎么用vba）

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

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

材料/工具

電腦、excle

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

方法

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

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

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

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

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

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

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

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

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

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

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

打開你含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用宏匯總出入庫數(shù)據(jù).xls") xlApp.Visible = True End Sub

其中：sheet1.cells（1,3）就是指第一行第三列的這個單元格；Sheet1.Cells(1, 1)就是指第一行第一列的這個單元格；Sheet1.Cells(1, 2)就是指第一行第二列的單元格。執(zhí)行語句的意思是：將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用宏匯總出入庫數(shù)據(jù).xls") xlApp.Visible = True End Sub

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

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

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

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

注意看：現(xiàn)在的cells（1,3）數(shù)值是空的

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

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

舉例說明。 第一步：點擊office按鈕-excel選項。如圖： 第二步：對“在功能區(qū)顯示”開發(fā)工具欄“ 打勾。如圖： 第三步：點擊開發(fā)工具-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\用宏匯總出入庫數(shù)據(jù).xls")

xlApp.Visible = True

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

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

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

為什么要賦給xlBook?

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

EXCEL VBA的SUM函數(shù)怎么用啊

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

怎么用excel VBA range 函數(shù)來表示

range("j"&j)

range("k"&j)

、、、、

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

后面的j是指你定義的變量，代表行數(shù)，如果你定義了for j=1 to 10,那么range("j"&j)就是 J1、J2、J3、、、、、J10，循環(huán)到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 '獲取第一行的單元格數(shù)量

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

a = a + 1

For i = 1 To 100 '獲取第二行的單元格數(shù)量

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里的數(shù)據(jù)？

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

Dim temp As String

...

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

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

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

......

If temp = "yes" Then

.....

Else

If temp = "no" Then

.....

Else

.....

End If

End If

......

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

聲明：本網(wǎng)頁內容旨在傳播知識，若有侵權等問題請及時與本網(wǎng)聯(lián)系，我們將在第一時間刪除處理。TEL:177 7030 7066 E-MAIL:11247931@qq.com