【正文】 VAB學(xué)習(xí)之我見 單元格附值a. [A1] = 100 39。在 A1 單元格輸入100。b. [A2:A4] = 10 39。在 A2:A4 單元格輸入10。c. Range(B1) = 200 39。在 B1 單元格輸入200.d. Range(C1:C3) = 300 39。在 C1:C3 單元格輸入300。e. Cells(1, 4) = 400 39。在 D1 單元格輸入400.f. Range(Cells(1, 5), Cells(5, 5)) = 50 39。在 E1:E5單元格輸入50。 讀取其他單元格數(shù)值a. Cells(1, 4) = (1, 4) 39。把 Shee4 工作表（只能是原始名字，sheet改名后不可用）單元格 D1 數(shù)據(jù)，讀到 D1 單元格。b. Cells(1, 4) = worksheets(2).Cells(1, 4) 39。把第2個(gè)sheet（從左向右數(shù)） 工作表單元格 D1 數(shù)據(jù)，讀到 D1 單元格。也可以寫成Cells(1, 4) = sheets(2).Cells(1, 4)c. Cells(1, 4) = (1, 4) 39。把 Shee4 工作表單元格 D1 數(shù)據(jù)，讀到 D1 單元格。d. Range(Cells(1, 5), Cells(5, 5)) = Sheets(name).Cells(1, 1) 39。讀取名字為name 工作表單元格 A1 數(shù)據(jù)。e. i = ’是把當(dāng)前單元格的行數(shù)，指定給變量 i。j = ’是把當(dāng)前單元格的欄數(shù)，指定給變量 j。f. vba中range(cells,cells)插入變量，選擇不連續(xù)單元格區(qū)域的問題就是我編vba的時(shí)候，通過錄制發(fā)現(xiàn)Range(A1:B4,D1:E4).Select可以選取不連續(xù)的單元格區(qū)域。 但是我實(shí)際上單元格區(qū)域是不定的，比如A1:B4中的行4是不定的，我用i=range(A65536).end(xlup).row計(jì)算的。 所以當(dāng)我現(xiàn)在選取這些不連續(xù)單元格區(qū)域的時(shí)候，就有變量了 首先我把4改成i，那么就變成了range(A1:Bi，D1:Ei)，當(dāng)然這句話肯定是錯(cuò)的，于是又改成range(A1:Bamp。i,D1:Eamp。i),還是錯(cuò)的，又改成range(39。A1:B39。amp。i,39。D1:E39。amp。i),但變量在中似乎不能識別。 于是去掉外面的后就成了range(A1:Bamp。i,D1:Eamp。i)，這樣又成了連續(xù)的單元格區(qū)域，我實(shí)在暈死，不知道怎么辦了，我的區(qū)域很多，操作的變量不止i一個(gè)，而且后面操作的代碼一大串。 所以請問高手如何解決插入變量，選擇不連續(xù)單元格區(qū)域的問題啊最佳答案你的意思是想在range中插入變量對吧？ 你的原來寫法是： range(A1:Bamp。i,D1:Eamp。i) 你把它改成： Range(a1:b amp。 i amp。 , d1:e amp。 i amp。 )看看 你一定要分清這串字符串中的變量和字符 要了解雙分號和amp。的用法 記得要在amp。和i中間加入空格 Worksheet_SelectionChangea. Private Sub Worksheet_SelectionChange(ByVal Target As Range)Target = 100End Sub‘利用 Worksheet_SelectionChange 輸入數(shù)據(jù), Target 指的是你鼠標(biāo)所選的單元格，Worksheet_SelectionChange() 事件的參數(shù)?？梢允且粋€(gè)也可以是好幾個(gè)單元格。Range 是 Excel 特有的變量形態(tài)，叫范圍。Target As Rang 是把 Target 這個(gè)參數(shù)設(shè)定為 Range 變量形態(tài)。Target = 100 是把你點(diǎn)選的單元格輸入數(shù)字100。b. Private Sub Worksheet_SelectionChange(ByVal Target As Range)If = 2 And = 2 ThenTarget = 100End IfEnd Sub‘ = 2，指的是鼠標(biāo)選定的單元格的行數(shù)大于或等于2。 = 2 ，指的是鼠標(biāo)選定的單元格的列數(shù)等于 2。If = 2 And = 2 Then 指的是 ( = 2) 為True及( = 2)為True時(shí)，才執(zhí)行B 欄第二行及以下行用鼠標(biāo)被點(diǎn)選時(shí)，才會被輸入100，其它單元格則不被輸入數(shù)據(jù)。 等同方法：利用CommandButton1_Click()Private Sub CommandButton1_Click()If = 2 And = 3 ThenActiveCell = 100End IfEnd Sub Worksheet_Change()Private Sub Worksheet_Change(ByVal Target As Range)Dim iRow, iCol As IntegeriRow = iCol = If iRow = 2 And iCol = 2 And Target Then = FalseCells(iRow, iCol + 1) = Cells(iRow, iCol) * 2 = TrueElseIf iRow = 2 And iCol = 2 And Target = ThenCells(iRow, iCol + 1) = ElseCells(iRow, iCol + 1) = End IfEnd Sub　　　 = = True，這是個(gè)成雙的程序，當(dāng)你用了前者記得在執(zhí)行其他程序後要寫上後面的程序。它的目的在抑制事件連鎖執(zhí)行。簡單的說就是，在 B 字段所觸發(fā)的事件，不愿在其它單元格再觸發(fā)另一個(gè)Worksheet_Change()事件。 Worksheet_Activate() Worksheet_Calculate ( ) Worksheet_BeforeRightClick ()Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)If Not (Target, Range(D8)) Is Nothing Then Cancel = TrueMsgBox (Target is Range D8 and Cancel is True !)ElseCancel = FalseEnd IfEnd Sub‘在 D12 按鼠標(biāo)右鍵將呈現(xiàn)正常的右鍵菜單；在 D8 按鼠標(biāo)右鍵將呈現(xiàn)一個(gè)對話框并且屏閉掉右鍵菜單。 Worksheet_FollowHyperlink ( ) Worksheet_BeforeDoubleClick ( ) 語句和語法A、 if thenelseend ifB、 select caseSelect Case Case Is 60Cells(, + 1) = 不及格Case 60 To Cells(, + 1) = 良Case ElseCells(, + 1) = 優(yōu)End SelectC、 Do UntilLoop1 設(shè)置忽略錯(cuò)誤語句1：On Error Resume Next 表示：若發(fā)生錯(cuò)誤，則忽略它，跳到下一條語句繼續(xù)執(zhí)行。語句2：On Error GoTo 行號（或標(biāo)號） 表示：若運(yùn)行有錯(cuò)，則跳到標(biāo)號指定位置，轉(zhuǎn)去執(zhí)行錯(cuò)誤處理例程。獲取錯(cuò)誤信息在宏執(zhí)行過程中，可以通過專用調(diào)試對象Err的屬性值來了解是否發(fā)生實(shí)時(shí)錯(cuò)誤以及發(fā)生了什么樣的錯(cuò)誤。，則表明沒有產(chǎn)生錯(cuò)誤，反之有錯(cuò)誤。下面通過兩個(gè)例子說明如何使用錯(cuò)誤捕獲技術(shù)。例1，假設(shè)有一學(xué)生檔案工作簿StudentBook，其中已有若干學(xué)生檔案工作表StudentStudent2……以及其它一些工作表?，F(xiàn)需要建立一個(gè)新的Student學(xué)生檔案工作表，但又不想刪除已有的Student工作表，如同Excel增加新工作表一樣，只將工作表名稱的后綴加1。SubMakeNextStudent()DimSheetAsWorksheetDimBaseAsStringDimSuffixAsIntegerSetSheet=Base=“Student”Suffix=1OnErrorResumeNext=Baseamp。Suffix=0Suffix=Suffix+1=Baseamp。SuffixLoopEndSubMakeNextStudent宏的執(zhí)行過程是：先建立一個(gè)新工作表，再試著以Student為基本名、1為后綴構(gòu)成的名稱給新工作表命名。OnErrorResumeNext語句的作用是：若已有同名工作表存在，Excel不能給新工作表命名時(shí)，VisualBaisc并不終止所執(zhí)行的程序，而是自動給Err對象的Number屬性賦值，設(shè)置出錯(cuò)信息代碼，執(zhí)行DoUntil循環(huán)。DoUntil循環(huán)首先檢查命名是否成功，若不成功，則增加后綴值，再試著重新命名，再檢查……直到?jīng)]有產(chǎn)生錯(cuò)誤（=0），才結(jié)束循環(huán)。，讓VisualBaisc忘記曾經(jīng)發(fā)生的錯(cuò)誤。例2，下面宏的功能是：當(dāng)試圖刪除打開的文件時(shí)，錯(cuò)誤處理例程先調(diào)用MsgBox函數(shù)提示用戶文件正在使用，讓用戶確認(rèn)是否要?jiǎng)h除該文件，再作相應(yīng)的處理。SubKillFile()OnErrorGoToKillFile_ErrOpenMyFileForOutputas1KillMyFileExitSubKillFile_Err:myCheck=MsgBox(MyFile文件正在使用，是否要?jiǎng)h除？，vbYesNo)IfmyCheck=vbYesThenClose1KillMyFileEndIfEndSub1 數(shù)值調(diào)節(jié)鈕和滾動條控件從“視圖”菜單中選“工具欄”命令，單擊“控件工具箱”。單擊“控件工具箱”中的“數(shù)值調(diào)節(jié)鈕”控件，然后在周期單元格的右側(cè)拖拽出一個(gè)大小合適的“數(shù)值調(diào)節(jié)鈕”。單擊“控件工具箱”上的“屬性”按鈕，在出現(xiàn)的屬性窗口中設(shè)置Max屬性值為30，Min屬性值為5，LinkCell屬性值為C4（它使得單擊“數(shù)值調(diào)節(jié)鈕”時(shí)，C4單元格的內(nèi)容會相應(yīng)變動），SmallChange屬性值為5（它使得每單擊“數(shù)值調(diào)節(jié)鈕”一次，C4單元個(gè)的值增加或減少5）。如果數(shù)值增減幅度很小，再使用數(shù)值調(diào)節(jié)鈕不太方便。故使用滾動條控件。同樣可以設(shè)置Max、Min、SmallChange的屬性值。如果在C４單元格輸入一個(gè)數(shù)，將清除單元格中的公式，導(dǎo)致相應(yīng)的滾動條失效。如果簡單地將將工作表保護(hù)起來，雖然會避免用戶輸入無效值，但工作表被保護(hù)起來的同時(shí)，連ActiveX控件也不能改變相應(yīng)單元格的值了?，F(xiàn)采用另一種方法，既可以保護(hù)工作表 ，又能用Visual Basic程序改變單元格的值，這就是用事件控制程序。 首先，把與控件相連的單元格清除，即不用控件往單元格內(nèi)填值，轉(zhuǎn)而用事件控制程序往單元格內(nèi)填寫值。進(jìn)入“設(shè)計(jì)模式”。選定第一個(gè)滾動條，將其的LinkCell屬性清空。再單擊“查看代碼”按鈕，在名為Private Sub ScrollBar1_Change()的事件控制程序中，添加下述語句： Range(C3).Value = / 10000 類似地清除“數(shù)字調(diào)節(jié)鈕”和第二個(gè)滾動條的LinkCell屬性，在ScrollBar2_Change()事件過程中添加語句： Range(C5).Value = 在SpinButton1_Change()事件過程中添加語句： Range(C4).Value = 這些事件控制程序使得單元格中的值隨著控件的變化而變化。這時(shí)可以保護(hù)工作表了。在“工程”窗口中雙擊“ThisWorkbook”對象，進(jìn)入“代碼”窗口。在Workbook_Open()事件控制程序中加入下述語句： Sheets(“Sheet1”).Protect User InterfaceOnly := True Workbook_Open事件過程是工作簿的默認(rèn)事件，每當(dāng)工作簿打開時(shí)執(zhí)行。該語句的UserInterfaceOnly參數(shù) 使得宏可以改變那些用戶和控件不能改變的單元格。這樣用戶就不能往工作表中輸入內(nèi)容了，實(shí)際上也不必輸入，只要用鼠標(biāo)簡單操作哪些控件就可以了。圖形用戶界面最大的好處是將可選功能限制于那些有效功能之間，因此減少，甚至杜絕了用戶出錯(cuò)的機(jī)會。1 添加新菜單例子1.Private Sub Workbook_Open() 39。Create main menu on the CommandBar MenuBars(xlWorksheet). Caption:=amp。Creat 文件 With MenuBars(xlWorksheet).Menus(Creat 文件) 39。Add submenu and submenu items . Caption:=amp。打開文件, OnAction:=Userform1show 39。 需要在模塊中添加相應(yīng)的宏 sub userform1show() End WithEnd Sub1 選擇類選擇帶有數(shù)的連續(xù)區(qū)域 Rows(3:3).Select Range(Selection, (xlDown)).Select選擇第三行向下所有的連續(xù)帶數(shù)值的行。如何選擇當(dāng)前工作表中的單元格？例如，可以使用下面的代碼選擇當(dāng)前工作表中的單元格D5：(5, 4).Select或：(D5).Select如何選擇同一工作簿中其它工作表上的單元格？例如，要選擇同一工作簿中另一工作表上的單元格E6，可以使用下面的代碼： (Sheet2).Cells(6, 5)或： ((Sheet2).Range(E6))也可以先激活該工作表，然后再選擇：Sheets(Sheet2).Activate(6, 5).Select如何選擇不同工作簿中的單元格？例如，要選擇另一工作簿中的一個(gè)工作表上的單元格F7，可以使用下面的代碼： Workbooks(BOOK2 ).Sheets(Sheet1).Cells(7, 6)或： Workbooks(BOOK2 ).Sheets(Sheet1).Range(F7)也可以先激活該工作簿中的工作表，然后再選擇：Workbooks().Sheets(Sheet1).Activate(7, 6).Select如何選擇當(dāng)前工作表中的單元格區(qū)域？例如，要選擇當(dāng)前工作表中的單元格區(qū)域C2:D10，可以使用下面的代碼：(Cells(2, 3),