怎么实现对数据库的调取并修改,但不在数据库中直接修改,(注:数据库工作表除序号列A列不变外,对应的B,C,D,、、、在修改工作表中通过输入序号变量调取相应信息,修改姓名、地址等值后保存到数据库对应序号行对应列,实际数据库有近40多个列上千行,序号是连续且唯一的,这里只列举了三个列,谢谢!)另外,现在只解决了输入序号调出相关信息即第三行我可以用函数调取,差保存修改值这步
代码复制到 修改表里
追问因为修改表里是套用了公式的,点击修改后,基础数据库里被修改的部分变成函数公式了,所以需要填充为值,也就是基础数据里都是不带公式的,(为方便查看以往数据,所以用笨办法通过函数调用要修改序号的行的数据库数据,所以修改表中所看到的实际是公式或函数调取的,通过输入序号数频繁调取基础数据查看并修改保存)
追答Sub 修改并保存()不得行
OK了,刚才漏了“,”。
Sub 修改()
Dim i%,j%
For i=2 to 5000
if sheets(2).cells(i,"A")=sheets(1).cells(1,"B") then
sheets(2).cells(i,"B")=sheets(1).cells(2,"B")
sheets(2).cells(i,"C")=sheets(1).cells(2,"C")
sheets(2).cells(i,"D")=sheets(1).cells(2,"D")
end if
Next i
End Sub