freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

vab學(xué)習(xí)之我見(已修改)

2025-08-16 09:36 本頁面
 

【正文】 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的屬性值。如果在C4單元格輸入一個(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),
點(diǎn)擊復(fù)制文檔內(nèi)容
黨政相關(guān)相關(guān)推薦
文庫吧 www.dybbs8.com
公安備案圖鄂ICP備17016276號-1