添加新工作表时，VBA Excel自动增加公式中的单元格编号

Question

下午好，

我想在添加新工作表时自动更改公式。 单元格值将大致每 13 步更改一次，它们出现在 excel IF 语句中。 正如您在下图中看到的，我希望有 13 步的增量，因为公式将引用位于 NIM & BADGER 表中每 13 步以下的单元格。 在工作表 CAB1 中这是 G33，在工作表 CAB2 中应该是 G46，在工作表 CAB3 - G59 中，以此类推......

我的公式是基于 IF 语句的，所以可以按照这里的解决方案用 VBA 编写：

Using IF formula in VBA

接下来，我需要每 13 步更换一次单元格。我在这里发现了一些类似的问题和解决方案：

Increment excel formula by 1

Increment value on multiple worksheets

我试着写成下面的代码：

 Sub Value()

 Dim i As Long
 Dim xNumber As Long, xValue As Long
 Dim xName As String
 Dim ws As Worksheet

 Application.ScreenUpdating = False

 Set ws = Sheets("CAB1")
 xNumber = Sheets("NIM & BADGER").Range("R27").Value
 xValue = 33

 For i = 1 To Number
 ws.Copy After:=ActiveWorkbook.Sheets(ws.Index + i - 1)
 ActiveSheet.Name = "CAB" & i + 1
 Sheets("CAB" & i + 1).Range("E43").Formula = "=IF('NIM & BADGER'!G" & xValue + (13 * i) & "=0,"",'NIM & BADGER'!G" & xValue + (13 * i) & ")"
 Next

 ws.Activate

 Application.ScreenUpdating = True

 End Sub

我有一个错误： 应用程序定义或对象定义的错误

调试器指向以下行：

  Sheets("CAB" & i + 1).Range("E43").Formula = "=IF('NIM & BADGER'!G" & xValue + (13 * i) & "=0,"",'NIM & BADGER'!G" & xValue + (13 * i) & ")"

如何在添加一个或多个工作表时自动更改这些公式（单元格编号）？

衷心感谢任何帮助。

更新：

我玩了一下引号，但结果还是一样...

   Sheets("CAB" & i + 1).Range("E43").Formula = "=IF('NIM & BADGER'!G" & xValue + (13 * i) & "=0,'','NIM & BADGER'!G" & xValue + (13 * i) & "')"

Answer 1

你可以把它写成一个公式。虽然它不是很漂亮，但它会起作用：

=IF(OFFSET('NIM & BADGER'!$G$1,(NUMBERVALUE(MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+4,255) )*13)+19,0,1,1)=0,"",OFFSET('NIM & BADGER'!$G$1,(NUMBERVALUE(MID(CELL("filename",A1),FIND("]" ,CELL("文件名",A1))+4,255))*13)+19,0,1,1))

编辑：使您的 VBA 代码工作。试试这个：

 Sub Value()

 Dim i As Long
 Dim xNumber As Long, xValue As Long
 Dim xName As String
 Dim ws As Worksheet

 Application.ScreenUpdating = False

 Set ws = Sheets("CAB1")
 xNumber = Sheets("NIM & BADGER").Range("R27").Value
 xValue = 33

 For i = 1 To xNumber
 ws.Copy After:=ActiveWorkbook.Sheets(ws.Index + i - 1)
 ActiveSheet.Name = "CAB" & i + 1
 Sheets("CAB" & i + 1).Range("E43").Formula = "=IF('NIM & BADGER'!G" & xValue + (13 * i) & "=0,"""",'NIM & BADGER'!G" & xValue + (13 * i) & ")"
 Next

 ws.Activate

 Application.ScreenUpdating = True

 End Sub

正如我试图在下面解释的那样，您遇到了两个问题：

1. 在您的“For”语句中，您忘记了“Number”前面的“x”，所以 你没有提到你的变量。
2. 在 VBA 中引用双引号时，需要将它们用双引号括起来。因此，您的 IF 语句的真实情况必须看起来像 """"。

希望现在很清楚。