先望望一下动态效用图：天天影视下载
图片
在正常使命中，数据录入是一项必不行少的任务。但是，无意咱们可能会不堤防改革了原有的数据。
为了措置这个问题，咱们不错将数据录入界面和数据存储表分开诞生。
具身阵势如下：
咱们需要三张使命表（1）录入界面：这是咱们的主要使命区域，用于输入数据。
图片
（2）数据表：用于存储已录入的数据。
图片
（3）产物与价钱表：包含产物称号和对应的价钱等信息。
图片
接下来，咱们将详备教师如何制作录入界面：
一、制作下拉菜单
1、选中需要制作下拉菜单的单位格A2。
2、点击“数据”选项卡，然后遴选“数据考证”。
图片
3、在弹出的对话框中，遴选“序列”手脚允许的类型，并在“起原”框中输入产物称号的列表。
图片
4、点击“细则”按钮，完成下拉菜单的制作。
裸舞二、结束单价自动读取
在需要表露单价的单位格中输入以下公式：
=IFERROR(VLOOKUP(A2，信息表!A:B，2，0)，'')
图片
理由是：在“信息表”使命表的A列中查找与A2单位格本色十足匹配的值，若是找到了，就复返该行B列的值；
因为A2单位格是输入后，才表露单价，是以当A2是空值时发生诞妄，只消VLOOKUP函数时会教唆#N/A 。
图片
是以加IFERROR函数就让复返一个空值。
三、制作保存按钮
1、在“插入”选项卡中遴选“神气”，然后遴选一个心爱的神气（举例圆角矩形）手脚保存按钮
图片
2、在录入表中绘图该神气，并诞生填充色、神气笼统等样式。
图片
3、右键点击神气，遴选“剪辑笔墨”，然后输入“保存”两字。
图片
4、选中“保存”两字，诞生字体、大小，并使其居中表露。
图片
图片
四、编写自动保存的代码
咱们需要编写一段VBA代码来结束数据的自动保存。
右键点击“录入界面”使命表标签，遴选“放哨代码”，
图片
然后在代码窗口中输入以下代码：
图片
把代码复制到这里，你不错平直拷贝使用：
Sub 录入()
I = Sheets('数据表').Cells(Rows.Count， 1).End(xlUp).Row + 1
Sheets('数据表').Range('A' & I & ':D' & I) = [a2:d2].Value
[a2].ClearContents
[C2].ClearContents
End Sub
这段代码的作用是：找到“数据表”使命表的终末一转，并在其下一转插入从“录入界面”使命表的A2到D2单位格中输入的数据。
然后清空“录入界面”使命表的A2到C2单位格，以便下次输入。
五、将按钮与代码联系
右键点击保存按钮，遴选“指定宏”，然后在弹出的对话框中遴选咱们刚才编写的代码名（即“录入”）。点击“细则”按钮。
图片
图片
这么你就不错进行数据的录入了。
六、保存文献
终末一步，别忘了将文献保存为启用了宏的使命簿花式（举例.xlsm），因为.xlsx文献是无法保存VBA代码的。
当今，你照旧学会了如何创建数据录入界面并结束自动保存。
快去试试吧！并将这篇著述保藏起来以备常常之须天天影视下载。
本站仅提供存储处事，扫数本色均由用户发布，如发现存害或侵权本色，请点击举报。