|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
“报销记录”表中任意一行或多行数据,通过“查询记录”按钮弹出窗口选中要修改数据,点“”追加“”后,将选出数据(A8:T17)修改后,点“保存修改”后,数据保存覆盖“报销记录”原来位置。Sub 修改保存()
Dim arr, brr, d, i&, db
Dim cz
Set d = CreateObject("scripting.dictionary")
Sheet198.Activate
arr = Sheet198.Range("a8").CurrentRegion
brr = Sheet4.Range("a1").CurrentRegion
For ii = 1 To UBound(arr)
cz = arr(ii, 21) & [e2] & [d3] & [q3] & arr(ii, 1) & arr(ii, 2)
d(cz) = ii
Next
For i = 4 To UBound(brr)
db = brr(i, 1) & brr(i, 3) & brr(i, 4) & brr(i, 5) & brr(i, 6) & brr(i, 7)
If d.exists(db) Then Rows(d(db)).Copy Sheet4.Cells(i, 1)
Next
[z1] = cz: [z2] = db
End Sub
用这代码能运行,但存放位置不对。
If d.exists(db) Then Rows(d(db)).Copy Sheet4.Cells(i, 1),如果改成我要存放位置的代码是
If d.exists(db) Then Rows(d(db)).Copy Sheet4.Cells(i, 6),却不能运行,提示出错。
|
|