vba入門講義(編輯修改稿)
2024-10-10 13:03 本頁面
【文章內容簡介】 當前工作表D5 的姓名 。 具體步驟： 新建或在剛才的代碼后，再輸入下面的代碼： Sub sheetshuru() Sheets(數據庫 ).Cells(4, 1) = Sheets(主界面 ).Range(D5) End Sub 代碼說明： A、 在 VBA中表示工作表的方法是： Sheets(“工作表名稱 ”) B、 表示工作表中某個單元格的方法是： Sheets(“工作表名稱 ”).cells(行數，列數 ) 或 Sheets(“工作表名稱 ”).Range(“單元格地址 ”) 返回最后一個非空單元格行數的行數。 27 C、 一個單元格的值等于另一個單元格值用 =連接即可，等號后的單元格值會輸入到等號前 單元格中。 練習：在剛才的程序中補充，完成數據庫工作表中的 A B C D4 單元格分別等于主界面的 D D D D11 單元格值。 結果是： Sub sheetshuru() Sheets(數據庫 ).Cells(4, 1) = Sheets(主界面 ).Range(D5) Sheets(數據庫 ).Cells(4, 2) = Sheets(主界面 ).Range(D7) Sheets(數據庫 ).Cells(4, 3) = Sheets(主界面 ).Range(D9) Sheets(數據庫 ).Cells(4, 4) = Sheets(主界面 ).Range(D11) End Sub 從代碼我們可以看出，每句代碼都帶有 Sheets(數據庫 ),如果有很多行這樣的代碼， 會造成過多的重復錄入。我們是否可以只寫一次，后面的工作表 代碼 可以省略呢？ 答案是肯定的，我們可以用 with 語句。使用 with 后的代碼更改為： Sub sheetshuru() With Sheets(數據庫 ) .Cells(4, 1) = Sheets(主界面 ).Range(D5) .Cells(4, 2) = Sheets(主界面 ).Range(D7) .Cells(4, 3) = Sheets(主界面 ).Range(D9) .Cells(4, 4) = Sheets(主界面 ).Range(D11) End With End Sub 注： with 語句一定要有結束的語句： End with 返回最后一個非空單元格行數的行數。 以上我們通過編寫代碼，可以把主界面的信息輸入到數據庫工作表中第四行的 14 列，但實際上數據會不停的添加，輸入的位置也會不斷的下移，并不是固定的 ，所以我們在輸入前需要確定數據庫中輸入的行數。 在工作表中我們可以用 ctrl+箭頭來選取頂點單元格，如在數據庫的 A100處按 CTRL+向上箭頭會選取 A列最下面一個非空單無格。 如果用 VBA來定位呢？方法是 Range(“A65536”).End（ xlup）就表示 A列最下邊一個 非 空單元格。 如果得到它的行數呢？方法是 Range(“A65536”).End（ xlup） .row 而 Range(“A65536”).End（ xlup） .row+1 則是我們需要輸入新記錄的位置 。 輸入的 行數我們得到了。我們 就 可以完成第一個輸入按鈕的 大 部分任務，即不斷的向數據庫工作表添加新的人員信息。 Sub luru() 錯誤 !文檔中沒有指定樣式的文字。 錯誤 !文檔中沒有指定樣式的文字。 28 With Sheets(數據庫
公司管理相關推薦
鄂ICP備17016276號-1