Question

在我的excel VBA代码中，我不想从表格Calculatie复制到表格甘特图表，但是当我不想粘贴到甘特图表格中的单元格时，我收到错误。请参阅下面的代码。

请注意，我使用“test”变量来查看是否可以通过其他方式使其工作。

Sub setValue()
Dim test As String

gantCell = Sheets("Gantt Chart").Rows("5:1000").SpecialCells(xlCellTypeVisible).Row
calcCell = gantCell - 3
formCell = gantCell + 1
Worksheets("Gantt Chart").Cells(gantCell, 6).Value = "1"
gantCellNext = Sheets("Gantt Chart").Rows("5:1000").SpecialCells(xlCellTypeVisible).Row
'code zoeken om alle cellen onder de 1e zichtbare cell de volgende formule te geven =rij 1 hoger dan de huidige cel + 1 rij en 1 kollum hoger
i = gantCell
test = "F" & i
MsgBox test
Sheets("Calculatie").Cells(calcCell, 2).Copy
Sheets("Gantt Chart").Range("test: F35").PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationMultiply
MsgBox formCell
MsgBox gantCell
MsgBox calcCell

End Sub

Answer 1

作为评论的后续内容，这个有效：

Sheets("Gantt Chart").Range(test).PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationMultiply

或

Sheets("Gantt Chart").Range(test & ":F35").PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationMultiply

继续得到应用程序定义或对象定义的错误，而我无法看到我做错了什么

1 个答案: