作者：乔山办公网日期：
返回目录：excel表格制作
其实你应该说明一下 你的报表中的数据 是怎样的情况 原来记录的内容中 没有 灰色区域之外的内容？一个 单号 只有一行数据 在你的“报表”中？
你只是想 在 明细表中 再补zd充上其他信息？还是为了其他目的？这个有点儿不太清除哦……
似乎是 报表 单号不重复、你想在工单明细的C列输入一个专 单号 就把 灰色区域对应的 报表数据 引用过来？
为什么要这样做哪？为什么不在原来的报表基础上 直接补充你的数据哪？所以这里感到疑惑 需要你澄清一下，如果是上面我属猜测的那个样子的话 可以 使用对C列的change 事件 来完成同行的灰色区域数据填充的！
再说的具体一点儿 然后 给你代码
1、首先在电脑桌面中，鼠标右键鼠标，新建一个excel工作簿并打开。
2、创建一个简单的表格，并输入一些字符串，比如衣服购买表格，如下图所示。
3、接着，百鼠标左键单击【开发工具】菜单标签，并单击VBA按钮，如下图所示。
4、然后，在VBA编辑的代码窗口中，鼠标右度键单击表格，选择添加用户回窗体，如下图所示。
5、接着，在用户窗体上，选择工具箱中的【按钮】，如下图所示。
6、接着，鼠标右键选择【添加代码】，在代码窗口上，输入VBA代码，比如读取表格中的数据，给出消息提示，如下图所示。
7、最后，在设计窗口上，鼠标左键单击用户窗体上的按钮，可以看答到表格中提示读取表格中数据的提示，如下图所示。
方法/步骤
在设计之初，首先要想到如何实现登录，思路就是要我们输入的字符串要与系统是给予的要一致，不然就登录不进去，这样我们就需要利用到循环语句if...else。但是并不是无限制的去进行输入，需要规定相应的次数，那么我们就要判断一下，到底会给予用户多少次输入呢，循环一下，利用到do...loop语句。思想理清了，下面就可以进行制作了。
启动excel，选择工具--宏---visual basic编辑器，也可以按住Alt+F11键进入。
进入到VB编辑器以后，在VB编辑器的菜单选项中的插入e68a847a64366菜单下，选择插入模块。
插入之后，在我们的工程窗体中就会出现一个模块选项，用鼠标双击一下，就会在右边的窗口中出现一个代码编辑区。
现在我们的任务就是开始怎么进行编程了，我们首先建立一个login的程序，在下面进行代码录入就完成了。
6
代码录入完毕之后，安装F5键进行执行调试，那么我们为什么不选择选择三角形的那个执行按钮呢？因为F5键有个好处就是单步执行，可以在立即窗口中看见我们的执行结果，如果哪步有问题，可以马上进行改动，执行无误之后，选择三角形的那个运行也是可以的。
7
结果验证，你可以进行三种尝试，一种是按照系统基于的用户名输入，一种是不是系统给予的输入，再一种是超过3次输入，因为这样做的目的是为了验证我们编写过程到底有没有bug。
用Excel来管理这些数据确实费劲了些，而且效率不高。
如果你的数据比较规范的的话可以在VBA中ADO+SQL来提取和处理数据，要比直接读取单元格方便的多，而且很高效。最好给几个数据测试一下。
SQL语句要根据你数据的规则来写，没法给你举例e68a84e799bee5baa6e997aee7ad94361子。
下面是我用到过的一段主要代码你可以参考一下。
Dim Cnn As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim Sql As String, i As Long
Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
Sql = "SELECT distinct sample_number,sampled_date,a_point_desc,a_batch,sin_spec "
Sql = Sql & "FROM [Sheet1$] "
Sql = Sql & "where product = '" & Product & "' "
Sql = Sql & "and product_grade = '" & Grade & "' "
Sql = Sql & "ORDER BY sample_number ASC "
'debug.Print Sql
Set rs = Cnn.Execute(Sql)
Sheets("报表").[A1].CopyFromRecordset rs
rs.Close
Cnn.Close