VBA 根据凭证号自动填写审核人姓名

wl-w.l · 发表于 2015-10-25 19:36

A列多个单元格中可以有重复的a值，如果A列单元格中等于a值，那么其B列同一行的单元格等于b值，

实例：在数据库中查找凭证号列，将等于某一凭证号对应的审核人列的同一行上，填上审核人姓名

huang1314wei · 发表于 2015-10-26 07:00

审核人张三是怎么来的？

wl-w.l · 发表于 2015-10-26 07:47

谢谢，审核人根据登录信息，存在凭证录入的表格单元格中

wl-w.l · 发表于 2015-10-28 09:37

没能想到简单的VBA,现自己写出了相关代码，已能解决：
Private Sub CommandButton1_Click() '记账
  m = Format(Month(Sheets("工资单").Cells(3, 4)), "00") & Format(Sheets("工资单").Cells(2, 3), "0000")  '提取编码
  x = Sheets("数据库").Range("a:a").Find(m).Row '符合编码的首行
n = Application.WorksheetFunction.CountIf(Worksheets("数据库").[A:A], m)  '符合编码的记录行数
L = x + n - 1  '计算末位的行数
For i = x To L '填写审核人和日期
Sheets("数据库").Cells(i, 20) = Sheets("工资单").Cells(256, 4)
Sheets("数据库").Cells(i, 21) = Sheets("工资单").Cells(1, 3)
Next i
End Sub
不知老师们是否有更好的代码，比如用数组的方法

非常理之子 · 发表于 2015-12-28 15:47

大师太谦虚了！

		自动登录	找回密码
密码			免费注册

[求助] VBA 根据凭证号自动填写审核人姓名