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