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

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

2、輸入窗口第一步:啟動(dòng)Excel2003(其他版本請(qǐng)仿照操作)，打開(kāi)相應(yīng)的工作表，執(zhí)行“工具→宏→VisualBasic編輯器”命令，進(jìn)入VBA編輯狀態(tài)。第二步:在左側(cè)的工程資源管理器窗口中，選擇相應(yīng)的工作表(如“備案數(shù)據(jù)”)，執(zhí)行“插入→用戶(hù)窗體”命令，插入一個(gè)用戶(hù)窗體(Userfm1)，并根據(jù)需要調(diào)整窗體的大小。此時(shí)，控件工具箱自動(dòng)展開(kāi)如圖2所示。ActiveCell.Offset(10).Range(“C1“)=TextBox3.T

3、extActiveCell.Offset(10).Range(“D1“)=TextBox4.TextActiveCell.Offset(10).Range(“E1“)=TextBox5.TextActiveCell.Offset(10).Range(“F1“)=TextBox6.TextActiveCell.Offset(10).Range(“G1“)=TextBox7.TextActiveCell.Offset(10).Range(“

4、H1“)=TextBox8.TextActiveCell.Offset(10).Range(“I1“)=ComboBox1.TextActiveCell.Offset(10).Range(“J1“)=TextBox9.TextActiveCell.Offset(10).Range(“K1“)=TextBox10.TextActiveCell.Offset(10).Range(“L1“)=TextBox11.TextActiveCell.

5、Offset(10).Range(“M1“)=TextBox12.TextActiveCell.Offset(10).Range(“N1“)=TextBox13.TextEndSub小提示上述代碼中，英文單引號(hào)“”及其后面的字符是對(duì)代碼的解釋?zhuān)趯?shí)際輸入中，是可以不輸入的。第二步:雙擊“退出”命令按鈕，進(jìn)入VBA編輯狀態(tài)，將下述代碼輸入到空白區(qū)域中。PrivateSubCommButton2_Click()EndEndSub第三步:雙擊

6、“復(fù)合框”命令按鈕，進(jìn)入VBA編輯狀態(tài)，將下述代碼輸入到空白區(qū)域中。PrivateSubUserFm_Initialize()ComboBox1.AddItem“磚混“代碼表示在復(fù)合框中添加相應(yīng)的下拉選項(xiàng)ComboBox1.AddItem“框架“ComboBox1.AddItem“框混“ComboBox1.AddItem“道路“ComboBox1.AddItem“橋梁“ComboBox1.AddItem“框剪“ComboBox1.Add