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

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

為Excel編個(gè)智能輸入器

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

設(shè)計(jì)輸入窗口

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

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

小提醒

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

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

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

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

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

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

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

設(shè)計(jì)窗口代碼

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

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

Selection.End(xlDown).Select

'將光標(biāo)定位到最終一行第一個(gè)單元格中

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

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

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

小提醒

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

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

End

EndSub

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

ComboBox1.AddItem磚混

'代碼表示在復(fù)合框中添加相應(yīng)的下拉選項(xiàng)

ComboBox1.AddItem框架

ComboBox1.AddItem框混

ComboBox1.AddItem道路

ComboBox1.AddItem橋梁

ComboBox1.AddItem框剪

ComboBox1.AddItem其他

EndSub

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

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

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

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

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

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

Userfrom1.Show

EndSub

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

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