vba入門講義-資料下載頁(yè)
2025-08-26 13:03本頁(yè)面
【導(dǎo)讀】點(diǎn)，受到越來(lái)越多的Excel用戶的喜愛。俗話說萬(wàn)事開頭難，VBA也是頭三腳難踢。少人望而卻步或失去興趣。所以本次講座就以工作中的實(shí)例來(lái)講。宏的結(jié)構(gòu)、工作表、單元格的表示和輸入方法。學(xué)會(huì)使用End方法獲取單元格頂點(diǎn)。Msgbox函數(shù)的簡(jiǎn)單使用。錯(cuò)誤處理語(yǔ)句的使用。能一次取消一個(gè)，而用VBA可以輕輕一點(diǎn)按鈕，1秒鐘完成這些任務(wù)。你的數(shù)組公式學(xué)的不是很好，也設(shè)計(jì)不出復(fù)雜的公式。編寫自定義函數(shù)。是無(wú)能為力的，而VBA中的ADO可以輕松幫你解決。VBA來(lái)完成一個(gè)更適合自已的軟件。是完成工作表中所示的“輸入”、“查詢”、“刪除”、“修改”四個(gè)功能代碼的編寫。文檔中沒有指定樣式的文字。法是每個(gè)功能都要先滿成更小的功能，然后再組合成這四個(gè)大的功能。工具，編寫完成的代碼也會(huì)存放在這個(gè)VBE編輯器中。方法是在打開的VBA窗口中執(zhí)行插入菜單/模塊命令。觸過VBA的學(xué)員雙是一頭霧水：要實(shí)現(xiàn)的功能我知道，但怎么來(lái)編寫啊。
【正文】 彈出信息框 下圖 所示： 圖 16 彈出的錄入成功提示 查找指定的內(nèi)容 。 第二個(gè)功能是完成查詢功能，這里如果知道姓名在數(shù)據(jù)庫(kù)工作表中所在的行數(shù)，就可以使用 =號(hào)來(lái)取值。怎么查找呢。 在 VBA中有一個(gè)方法 find，它可以根據(jù)提供的字符或數(shù)字查找位置， find 方法的同在工作表中使用查找功能。它有很多參數(shù)也是和這 個(gè)對(duì)話框相對(duì)應(yīng)的。這里我們只需要錯(cuò)誤 !文檔中沒有指定樣 式的文字。 錯(cuò)誤 !文檔中沒有指定樣式的文字。 30 使用兩個(gè)參數(shù)，一個(gè)是查找的內(nèi)容，一個(gè)是要精確查找。即： 查找的區(qū)域 .Find（查找的內(nèi)容，， xlwhole） 如果在數(shù)據(jù)庫(kù)工作表中查找主界面工作表中 D5 的姓名 并返回行數(shù)， 可以表示為： Sheets(數(shù)據(jù)庫(kù) ).Columns(1).Find(Range(D5), , , xlWhole).Row 代碼說明： Columns(1)：表示第 1 列 為了讓代碼更直觀，這里也可以把返回的結(jié)果放在一個(gè)變量中，即： myrow = .Columns(1).Find(Range(D5), , , xlWhole).Row 求出了行數(shù)，下面大家就試著編寫查詢按鈕的代碼。 查找不到的錯(cuò)誤處理。 在上面查找的過程中，如果查找的姓名不存在則會(huì)出現(xiàn)錯(cuò)誤，那么怎么來(lái)處理這種錯(cuò)誤呢，最好是出現(xiàn)錯(cuò)誤后會(huì)彈出“查不到相應(yīng)記錄”的提示。 在 VBA有多種錯(cuò)語(yǔ)處理語(yǔ)句，這里要用錯(cuò)誤轉(zhuǎn)換語(yǔ)句： On error goto 跳到的位置 進(jìn)行錯(cuò)誤處理后的代碼為： Sub chxun() Dim myrow As Long On Error GoTo 100 With Sheets(數(shù)據(jù)庫(kù) ) myrow = .Columns(1).Find(Range(D5), , , xlWhole).Row Range(D5) = .Cells(myrow, 1) Range(D7) = .Cells(myrow, 2) Range(D9) = .Cells(myrow, 3) Range(D11) = .Cells(myrow, 4) End With MsgBox 查詢成功 Exit Sub 100: MsgBox 查找不到記錄 End Sub 代碼說明： On Error GoTo 100 和 100： MsgBox 查找不到記錄 相對(duì)應(yīng)，即當(dāng)出現(xiàn)查找不到的情況時(shí)程序就跳到 100 處，執(zhí)行 100 后的語(yǔ)句。 這里值得注意的是，在 100 前一定要加上一句 Eixt sub 語(yǔ)句，要不然，無(wú)論壇是否出錯(cuò)，都會(huì)執(zhí)行 100后的語(yǔ)句。而放上 Exit sub 語(yǔ)句后如果查找成功則在此 結(jié)束語(yǔ) 31 句中止程序的運(yùn)行。 結(jié)束語(yǔ) 費(fèi)了一下午時(shí)間終于把這篇講義完成，希望大家能從中學(xué)習(xí)一些，蘭色這里就滿足了。對(duì)于一個(gè)未入門 VBA 的學(xué)員來(lái)說，開始時(shí)就遇到了編寫完整程序的課程，可能一下子完全接受有些困難，因?yàn)閷W(xué)習(xí) VBA 也需要一個(gè)過程，不是短短兩個(gè)小時(shí)就時(shí)全部學(xué)會(huì)的。入了門，有了興趣，大家就可以更好的自學(xué)了。 另外 Excel 精英培訓(xùn)網(wǎng)致力于 excel 新手和 excel 精英的培訓(xùn)，眾多的高手都在無(wú)私的為大家奉獻(xiàn)著自已的時(shí)間和經(jīng)驗(yàn)。 為了能有更好的學(xué)習(xí)平臺(tái)，希望大家多支持論壇的發(fā)展，論壇發(fā)展了才能有更多的高手和新手前來(lái)論壇。我們的培訓(xùn)工作才能進(jìn)行的更好更順利。
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1