先看看一下動態(tài)效果圖：
在日常工作中，數(shù)據錄入是一項必不可少的任務。然而，有時我們可能會不小心更改了原有的數(shù)據。
為了解決這個問題，我們可以將數(shù)據錄入界面和數(shù)據存儲表分開設置。
具體步驟如下：
（1）錄入界面：這是我們的主要工作區(qū)域，用于輸入數(shù)據。
（2）數(shù)據表：用于存儲已錄入的數(shù)據。
（3）產品與價格表：包含產品名稱和對應的價格等信息。
接下來，我們將詳細講解如何制作錄入界面：
一、制作下拉菜單
1、選中需要制作下拉菜單的單元格A2。
2、點擊“數(shù)據”選項卡，然后選擇“數(shù)據驗證”。
3、在彈出的對話框中，選擇“序列”作為允許的類型，并在“來源”框中輸入產品名稱的列表。
4、點擊“確定”按鈕，完成下拉菜單的制作。
二、實現(xiàn)單價自動讀取
在需要顯示單價的單元格中輸入以下公式：
=IFERROR(VLOOKUP(A2,信息表!A:B,2,0),'')
意思是：在“信息表”工作表的A列中查找與A2單元格內容完全匹配的值，如果找到了，就返回該行B列的值；
因為A2單元格是輸入后，才顯示單價，所以當A2是空值時發(fā)生錯誤，只有VLOOKUP函數(shù)時會提示#N/A 。
所以加IFERROR函數(shù)就讓返回一個空值。
三、制作保存按鈕
1、在“插入”選項卡中選擇“形狀”，然后選擇一個喜歡的形狀（例如圓角矩形）作為保存按鈕
2、在錄入表中繪制該形狀，并設置填充色、形狀輪廓等樣式。
3、右鍵點擊形狀，選擇“編輯文字”，然后輸入“保存”兩字。
4、選中“保存”兩字，設置字體、大小，并使其居中顯示。
四、編寫自動保存的代碼
我們需要編寫一段VBA代碼來實現(xiàn)數(shù)據的自動保存。
右鍵點擊“錄入界面”工作表標簽，選擇“查看代碼”，
然后在代碼窗口中輸入以下代碼：
把代碼復制到這里，你可以直接拷貝使用：
Sub 錄入()
I = Sheets('數(shù)據表').Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets('數(shù)據表').Range('A' & I & ':D' & I) = [a2:d2].Value
[a2].ClearContents
[C2].ClearContents
End Sub
這段代碼的作用是：找到“數(shù)據表”工作表的最后一行，并在其下一行插入從“錄入界面”工作表的A2到D2單元格中輸入的數(shù)據。
然后清空“錄入界面”工作表的A2到C2單元格，以便下次輸入。
五、將按鈕與代碼關聯(lián)
右鍵點擊保存按鈕，選擇“指定宏”，然后在彈出的對話框中選擇我們剛才編寫的代碼名（即“錄入”）。點擊“確定”按鈕。
這樣你就可以進行數(shù)據的錄入了。
六、保存文件
最后一步，別忘了將文件保存為啟用了宏的工作簿格式（例如.xlsm），因為.xlsx文件是無法保存VBA代碼的。
現(xiàn)在，你已經學會了如何創(chuàng)建數(shù)據錄入界面并實現(xiàn)自動保存。
快去試試吧！并將這篇文章收藏起來以備不時之需。
