如何用VBA将Excel一个工作表里数据运算传到另一个工作表中
举例,我写的是这样的:SubConditionCopy()IfCells(17,1)=""ThenIfCells(20,1)<>""ThenActiveWorkbook....
举例,我写的是这样的:
Sub ConditionCopy()
If Cells(17, 1) = "" Then
If Cells(20, 1)<> "" Then
ActiveWorkbook.Sheets("Test(2)").Cells(17, 4)= Cells(20, 2)* Cells(20, 3)
Else
ActiveWorkbook.Sheets("Test(2)").Cells(20, 4).Value = "None"
End If
End If
End Sub
但始终无法运行,VBA始终说找不到Indice。但如果去掉 ActiveWorkbook.Sheets("Test(2)"),在同一个工作表里就没问题,但在两个工作表之间就不对(但还是在同一个工作簿里) 展开
Sub ConditionCopy()
If Cells(17, 1) = "" Then
If Cells(20, 1)<> "" Then
ActiveWorkbook.Sheets("Test(2)").Cells(17, 4)= Cells(20, 2)* Cells(20, 3)
Else
ActiveWorkbook.Sheets("Test(2)").Cells(20, 4).Value = "None"
End If
End If
End Sub
但始终无法运行,VBA始终说找不到Indice。但如果去掉 ActiveWorkbook.Sheets("Test(2)"),在同一个工作表里就没问题,但在两个工作表之间就不对(但还是在同一个工作簿里) 展开
3个回答
展开全部
ActiveWorkbook.Sheets("Test(2)")这种写法是错误的
应该是ActiveWorkbook.WorkSheets("Test(2)")
你试一下吧,可以的话,就给分吧
不行再hi我
应该是ActiveWorkbook.WorkSheets("Test(2)")
你试一下吧,可以的话,就给分吧
不行再hi我
追问
始终不行。。
说 "Indice不属于选择域"
我这是法语版本的,翻译过来就是这个意思
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
代码看起来没问题啊。
是不是TEST(2)有问题,你确定你的工作表名是Test(2),而不是Test(2)或者Test (2)?
是不是TEST(2)有问题,你确定你的工作表名是Test(2),而不是Test(2)或者Test (2)?
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在我电脑上运行没有问题,
可能是你的TEST(2)有问题
还有同一工作薄之间 ActiveWorkbook 可以去掉
可能是你的TEST(2)有问题
还有同一工作薄之间 ActiveWorkbook 可以去掉
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询