插入与target.column问题的公式

我遇到的问题得到一个公式进入单元格旁边的单元格。 我一直遇到应用程序定义或对象定义的错误

这是我遇到的代码

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Sheets("Scan").Cells(Target.Row, 3) = "=(INDEX(Roster!C,MATCH(Scan!RC1,Roster!C4,0))" End If End Sub 

Answer 1

使用它只更改一个单元格和使用其他工作表单元格的公式。 为了使它的工作公式应该是A1格式。

你也需要表示它是.Formula一个公式

第三，缺less一个左括号。

 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Sheets("Scan").Cells(Target.Row, 3).Formula = "=(INDEX(Roster!D" & Target.Row & ",MATCH(Scan!D" & Target.Row & ",Roster!G" & Target.Row & ",0)))" End If End Sub 

单元地址基于您的R1C1。 我可能有错栏复查。