Excel實現(xiàn)窗口式數(shù)據(jù)輸入2

本文格式為Word版，下載可任意編輯——Excel實現(xiàn)窗口式數(shù)據(jù)輸入2

為Excel編個智能輸入器

在日常工作和學習中，人們往往需要向一個有著十幾列甚至更多列的Excel工作表中輸入數(shù)據(jù)。在數(shù)據(jù)輸入過程中，為保證輸入數(shù)據(jù)的確鑿性，錄入者每次都要來回移動表格，核對已經(jīng)錄入的數(shù)據(jù)，操作起來很不便利。其實大可不必這么費事，只要利用Excel的宏功能，在VisualBasic編輯器中設計一個輸入窗體，如圖1所示，這樣既便利了數(shù)據(jù)的輸入，又提高了輸入的確鑿性。下面就跟隨筆者來一次親身體驗吧。

設計輸入窗口

第一步:啟動Excel2023(其他版本請仿照操作)，開啟相應的工作表，執(zhí)行“工具→宏→VisualBasic編輯器〞命令，進入VBA編輯狀態(tài)。

其次步:在左側的工程資源管理器窗口中，選擇相應的工作表(如“備案數(shù)據(jù)〞)，執(zhí)行“插入→用戶窗體〞命令，插入一個用戶窗體(Userform1)，并根據(jù)需要調(diào)整窗體的大小。此時，控件工具箱自動展開,如圖2所示。

小提醒

假使工程資源管理器沒有開啟，可以通過執(zhí)行“視圖→工程資源管理器〞命令來開啟。假使控件工具箱不展開的話，執(zhí)行“視圖→工具箱〞命令即可。

第三步:單擊工具箱上的“標簽〞按鈕，然后在窗體上拖拉出一個標簽來，并在標簽中輸入相應的字符(如“備案編號〞等)，調(diào)整好標簽的大小，將其定位在窗體的適合位置上。重復上述操作，完成其他標簽的制作工作。

第四步:單擊工具箱上的“文字框〞按鈕，然后在窗體上拖拉出一個文字框來，調(diào)整好文字框的大小，將其定位在窗體的適合位置上。重復上述操作，完成其他文字框的制作工作。小提醒

制作標簽和文字框時，請依照數(shù)據(jù)的錄入順序進行，以免出錯。

第五步:單擊工具箱上的“復合框〞按鈕，然后在窗體上拖拉出一個復合框來，調(diào)整好復合框的大小，將其定位在窗體的“結構類型〞標簽的右側。

第六步:單擊工具箱上的“命令按鈕〞，然后在窗體上拖拉出一個命令按鈕來，調(diào)整好命令按鈕的大小，將其定位在窗體的適合位置上。右擊此命令按鈕，在隨后彈出的快捷菜單中，選擇“屬性〞選項，開啟“屬性—CommandButton1〞對話框，如圖3所示。切換到“按分類序〞選項卡，展開“外觀〞標簽，將“Caption〞選項后面的字符修改為“添加〞，關閉對話框返回。

第七步:仿照上面的操作，再添加一個“退出〞命令按鈕。

設計窗口代碼

第一步:雙擊“添加〞命令按鈕，進入VBA編輯狀態(tài)，將下述代碼輸入到空白區(qū)域中。PrivateSubCommandButton1_Click()

Range(A1).Select'選中A1單元格

Selection.End(xlDown).Select

'將光標定位到最終一行第一個單元格中

ActiveCell.Offset(1,0).Range(A1)=TextBox1.Text

'將相應的數(shù)據(jù)輸入到表格下一行的相應單元格中

ActiveCell.Offset(1,0).Range(B1)=TextBox2.Text

ActiveCell.Offset(1,0).Range(C1)=TextBox3.Text

ActiveCell.Offset(1,0).Range(D1)=TextBox4.Text

ActiveCell.Offset(1,0).Range(E1)=TextBox5.Text

ActiveCell.Offset(1,0).Range(F1)=TextBox6.Text

ActiveCell.Offset(1,0).Range(G1)=TextBox7.Text

ActiveCell.Offset(1,0).Range(H1)=TextBox8.Text

ActiveCell.Offset(1,0).Range(I1)=ComboBox1.Text

ActiveCell.Offset(1,0).Range(J1)=TextBox9.Text

ActiveCell.Offset(1,0).Range(K1)=TextBox10.Text

ActiveCell.Offset(1,0).Range(L1)=TextBox11.Text

ActiveCell.Offset(1,0).Range(M1)=TextBox12.Text

ActiveCell.Offset(1,0).Range(N1)=TextBox13.Text

EndSub

小提醒

上述代碼中，英文單引號“'〞及其后面的字符是對代碼的解釋，在實際輸入中，是可以不輸入的。

其次步:雙擊“退出〞命令按鈕，進入VBA編輯狀態(tài)，將下述代碼輸入到空白區(qū)域中。PrivateSubCommandButton2_Click()

End

EndSub

第三步:雙擊“復合框〞命令按鈕，進入VBA編輯狀態(tài)，將下述代碼輸入到空白區(qū)域中。PrivateSubUserForm_Initialize()

ComboBox1.AddItem磚混

'代碼表示在復合框中添加相應的下拉選項

ComboBox1.AddItem框架

ComboBox1.AddItem框混

ComboBox1.AddItem道路

ComboBox1.AddItem橋梁

ComboBox1.AddItem框剪

ComboBox1.AddItem其他

EndSub

輸入完成后，關閉VBA窗口，返回到工作表編輯窗口。

設計數(shù)據(jù)錄入按鈕

第一步:在Excel工作表中，執(zhí)行“視圖→工具欄→控件工具箱〞命令，開啟“控件工具箱〞工具欄，如圖4所示。

其次步:單擊工具欄上的“命令按鈕〞，然后在工作表中拖拉出一個命令按鈕來，調(diào)整好命令按鈕的大小，將其定位在工作表的適合位置上。

第三步:右擊此命令按鈕，開啟“屬性〞對話框(類似圖3)，將“Caption〞選項后面的字符修改為“數(shù)據(jù)錄入〞，關閉對話框返回。

第四步:雙擊此命令按鈕，再次進入VBA編輯狀態(tài)，將下述代碼輸入到空白區(qū)域中。PrivateSubCommandButton1_Click()

Userfrom1.Show

EndSub

第五步:輸入完成后，關閉VBA窗口，返回到工作表編輯窗口，按一下工具欄上的“退出設計模式〞按鈕，退出設計狀態(tài)。

需要錄入數(shù)據(jù)時，只要單擊一下“數(shù)據(jù)錄入〞按鈕，系統(tǒng)彈出如圖1所示的窗體，將相應的數(shù)據(jù)填入(或選擇填入)到對應文本框中，檢查無誤后，按下“添加〞按鈕