作者:乔山办公网日期:
返回目录:excel表格制作
如果你是要VBS的话
打开个文本,把下面的代码粘进去,另存为 ***.vbs文件
set excelapp=getobject(,"Excel.application")
set excelsheet=excelapp.activeworkbook.activesheet
with excelsheet
.range("C5")=.range("A1")
.range("C6")=.range("A1")
.range("C7")=.range("A1")
.range("C8")=.range("A1")
.range("C9")=.range("A1")
end with
运行之前保证你的Excel是打开,并且抄开着你要修改的那张表。
晕死,下面的哥们VBS代码怎么跟我写的一模一样???
顺便说一下,你的VBA差个End Sub
而且要么你就别用zhidaoPublic,直接Sub开头就可以了,要用就写对,是Public!
更晕了,我修改了一下,怎么我到后面去了,变更我抄你的了???