excel vb运行时错误1004

excel vb运行时错误1004

单击文件――选项――信任中心――打开“信任中心”对话框，宏设置――勾选“信任对VBA工程对象模型的访问”。再次运行，就不会出现运行时错误1004提示。

Sub aa()
Sheets("Sheet3").[e2].Copy Sheets("Sheet2").[k3]
End Sub

Sub text()
Sheets( "Sheet3").Range(Cells(2, 5)).Copy sheets(" Sheet2").Range(Cells(3, 11))
ActiveSheet.Paste
End sub追问按你方法怎么还有下表越界错误，有时间q聊854580218
Private Sub cmdfill_Click()
Sheets("Sheet3").Range(Cells(2, 5)).Copy
Sheets(" Sheet2").Range (Cells(3, 11))
ActiveSheet.Paste
End Sub追答ActiveSheet.Paste

这句删除就可以了追问那跟另一个人回答是一样的，但还不可以，vb编辑器上左侧sheet3对应的是sheet2，是这样的sheet3（sheet2），我分析引用的时候sheet3应该用sheet2代替才行
另外咨询你个小问题（A1）和[A1]有什么区别追答Private Sub CommandButton1_Click()

Cells(2, 5).Copy Sheets("sheet3").Cells(3, 11)
End Sub

就这样写，我试过了，可以的追问额，你邮箱呢，看不到。。。代码功能是选择不同冷媒后，点击自动计算自动生成相关的饱和温度以及过热度，第一次搞代码应该是很废话的，现在可以运行了，本来打算让你给点优化意见，既然不给qq就算了~~ 对了单元格（A1）和[A1]这两个到底有区别不？追答有的，[ a1]可以省略

range(),或者CELLS(),追问你看下wjp的回答，貌似（A1）和[A1]是同一种概念，而不是你说的可以省略，我用的是他的代码追答他是直接进单位格了，省略了range(),或者CELLS(),

你如果把[e2]换成(E2)就不能运算了，还有你录制这个宏的目的，肯定想把单元设置成变量，然后循环赋值，这样才是编写VB的最终目的，[e2]格式，不宜循环赋值，所以你原先格式好（当然原先的写法有错误 ）。追问我编程是让单元格在不同条件下赋予不同的公式，然后在有数值的范围内将公式向下进行填充，其实可以不跨工作表提取公式的，但是公式放在另一个工作表中，可以用来单独计算和查询，，回答了那么多，谢谢了，你说的[A2]这种进入方法应该参考什么资料，感觉这个写起来简洁很多，我自己去学习下就可以了追答不客气，其实我也是初学者，http://club.excelhome.net/thread-660993-1-1.html
EXCEL之家高手很多，而且很热心，你去空去看看，听你刚才说的情况，不一定要用VB,函数也能解决，88追问函数解决不了，最开始我用的就是函数，由于条件是单元格里列表中选择的，所以函数在填充的时候条件也会递增，所以才用vb去写

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息