1、Excel實現窗口式數據輸入2Excel實現窗口式數據輸入24/4Excel實現窗口式數據輸入2頁眉內容為Excel編個智能輸入器在平時工作和學習中，人們經常需要向一個有著十幾列甚至更多列的Excel工作表中輸入數據。在數據輸入過程中，為保證輸入數據的正確性，錄入者每次都要往返挪動表格，查對已經錄入的數據，操作起來很不方便。其實大可不用這么費事，只需利用Excel的宏功能，在VisualBasic編寫器中設計一個輸入窗體，如圖1所示，這樣既方便了數據的輸入，又提高了輸入的正確性。下邊就跟從筆者來一次親自體驗吧。設計輸入窗口第一步:啟動Excel2003(其余版本請模擬操作)，翻開相應的工作表，

2、履行“工具宏VisualBasic編寫器”命令，進入VBA編寫狀態。第二步:在左邊的工程資源管理器窗口中，選擇相應的工作表(如“存案數據”)，履行“插入用戶窗體”命令，插入一個用戶窗體(Userform1)，并依據需要調整窗體的大小。此時，控件工具箱自動張開,如圖2所示。頁腳內容頁眉內容小提示假如工程資源管理器沒有翻開，能夠經過履行“視圖工程資源管理器”命令來翻開。假如控件工具箱不張開的話，履行“視圖工具箱”命令即可。第三步:單擊工具箱上的“標簽”按鈕，此后在窗體上拖沓出一個標簽來，并在標簽中輸入相應的字符(如“存案編號”等)，調整好標簽的大小，將其定位在窗體的適合地點上。重復上述操作，達成其

3、余標簽的制作工作。第四步:單擊工具箱上的“文字框”按鈕，此后在窗體上拖沓出一個文字框來，調整好文字框的大小，將其定位在窗體的適合地點上。重復上述操作，達成其余文字框的制作工作。小提示制作標簽和文字框時，請依據數據的錄入次序進行，免得犯錯。第五步:單擊工具箱上的“復合框”按鈕，此后在窗體上拖沓出一個復合框來，調整好復合框的大小，將其定位在窗體的“構造種類”標簽的右邊。第六步:單擊工具箱上的“命令按鈕”，此后在窗體上拖沓出一個命令按鈕來，調整好命令按鈕的大小，將其定位在窗體的適合地點上。右擊此命令按鈕，在隨后彈出的快捷菜單中，選擇“屬性”選項，翻開“屬性CommandButton1”對話框，如圖3

4、所示。切換到“按分類序”選項卡，張開“外觀”標簽，將“Caption”選項后邊的字符改正為“增添”，封閉對話框返回。第七步:模擬上邊的操作，再增添一個“退出”命令按鈕。設計窗口代碼第一步:雙擊“增添”命令按鈕，進入VBA編寫狀態，將下述代碼輸入到空白地區中。PrivateSubCommandButton1_Click()Range(A1).Select選中A1單元格Selection.End(xlDown).Select將光標定位到最后一行第一個單元格中ActiveCell.Offset(1,0).Range(A1)=TextBox1.Text將相應的數據輸入到表格下一行的相應單元格中Acti

5、veCell.Offset(1,0).Range(B1)=TextBox2.Text頁腳內容頁眉內容ActiveCell.Offset(1,0).Range(C1)=TextBox3.TextActiveCell.Offset(1,0).Range(D1)=TextBox4.TextActiveCell.Offset(1,0).Range(E1)=TextBox5.TextActiveCell.Offset(1,0).Range(F1)=TextBox6.TextActiveCell.Offset(1,0).Range(G1)=TextBox7.TextActiveCell.Offset(1,

6、0).Range(H1)=TextBox8.TextActiveCell.Offset(1,0).Range(I1)=ComboBox1.TextActiveCell.Offset(1,0).Range(J1)=TextBox9.TextActiveCell.Offset(1,0).Range(K1)=TextBox10.TextActiveCell.Offset(1,0).Range(L1)=TextBox11.TextActiveCell.Offset(1,0).Range(M1)=TextBox12.TextActiveCell.Offset(1,0).Range(N1)=TextBox

7、13.TextEndSub小提示上述代碼中，英文單引號“”及此后邊的字符是對代碼的解說，在實質輸入中，是能夠不輸入的。第二步:雙擊“退出”命令按鈕，進入VBA編寫狀態，將下述代碼輸入到空白地區中。PrivateSubCommandButton2_Click()EndEndSub第三步:雙擊“復合框”命令按鈕，進入VBA編寫狀態，將下述代碼輸入到空白地區中。PrivateSubUserForm_Initialize()ComboBox1.AddItem磚混代碼表示在復合框中增添相應的下拉選項ComboBox1.AddItem框架ComboBox1.AddItem框混ComboBox1.AddIt

8、em道路ComboBox1.AddItem橋梁ComboBox1.AddItem框剪ComboBox1.AddItem其余EndSub輸入達成后，封閉VBA窗口，返回到工作表編寫窗口。設計數據錄入按鈕第一步:在Excel工作表中，履行“視圖工具欄控件工具箱”命令，翻開“控件工具箱”工具欄，如圖4所示。頁腳內容頁眉內容第二步:單擊工具欄上的“命令按鈕”，此后在工作表中拖沓出一個命令按鈕來，調整好命令按鈕的大小，將其定位在工作表的適合地點上。第三步:右擊此命令按鈕，翻開“屬性”對話框(近似圖3)，將“Caption”選項后邊的字符改正為“數據錄入”，封閉對話框返回。第四步:雙擊此命令按鈕，再次進入VBA編寫狀態，將下述代碼輸入到空白地區中。PrivateSubCommandButton1_Click()Userfrom1.ShowEndSub第五步:輸入達成后，封閉VBA窗口，返回到工作表編寫窗口，按一下工具欄上的“退出設計模式”按鈕，退出設計狀態。需要錄入數據時，只需單擊一下“數據錄入”按鈕，系統彈出如圖1所示的窗體，將相應的數據填入(或選擇填入)到對應文本框中，檢查無誤后，按下“增添”