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