我有一个完全可以工作的代码,可以做各种有趣的事情。它所做的一件事就是根据同一张表上的管理表来验证一些内容。
此管理表将被移动到另一个工作表(" admin“工作表)。
当我试图修改我的代码以在另一个工作表上执行此操作时,它会给我一个错误。
admin表在同一张表上时的示例代码:
If LastRow = 12 Then
Sheets("Project Name & Series").Range("U12").Formula = "=IF(COUNTIFS(TEPSD!A:A,F12,TEPSD!C:C,G12,TEPSD!E:E,H12)>=1,TRUE,FALSE)"
Else
Sheets("Project Name & Series").Range("U12").Formula = "=IF(COUNTIFS(TEPSD!A:A,F12,TEPSD!C:C,G12,TEPSD!E:E,H12)>=1,TRUE,FALSE)"
Sheets("Project Name & Series").Range("U12").AutoFill Destination:=Range("U12:U" & LastRow)
End If
适用于在另一个工作表上执行相同操作的代码示例:
If LastRow = 12 Then
Sheets("Admin").Range("C12").Forumla = "=IF(COUNTIFS(TEPSD!A:A,'Project Name & Series'!F12,TEPSD!C:C,'Project Name & Series'G12,TEPSD!E:E,'Project Name & Series'H12)>=1,TRUE,FALSE)"
Else
Sheets("Admin").Range("C12").Forumla = "=IF(COUNTIFS(TEPSD!A:A,'Project Name & Series'!F12,TEPSD!C:C,'Project Name & Series'G12,TEPSD!E:E,'Project Name & Series'H12)>=1,TRUE,FALSE)"
Sheets("Admin").Range("C12").AutoFill Destination:=("C12:C" & LastRow)
End If
VBA不喜欢它。我想是因为“管理”表没有激活吗?
更改代码的最简单方法是什么,而不需要重写大部分代码?
谢谢
https://stackoverflow.com/questions/50710376
复制相似问题