Excel-VBA-公式错误1004-
使用以下vba代码时,我遇到运行时错误“1004”应用程序定义错误或对象定义错误:Excel-VBA-公式错误1004-,vba,excel,Vba,Excel,使用以下vba代码时,我遇到运行时错误“1004”应用程序定义错误或对象定义错误: Private Sub CommandButton1_Click() Dim formul as String 'Run Tercih14 formul = "=vlookup($c$15;'Şube Listesi'!$B:$J;9;FALSE)" Sheet35.Range("F12").Formula = formul End Sub 我可以更改F12单元格的值。分配不同的公式,如=sum(A
Private Sub CommandButton1_Click()
Dim formul as String
'Run Tercih14
formul = "=vlookup($c$15;'Şube Listesi'!$B:$J;9;FALSE)"
Sheet35.Range("F12").Formula = formul
End Sub
我可以更改F12单元格的值。分配不同的公式,如=sum(A1:A2)
等。如果我创建一个新工作表并编辑新工作表的代码,它可以与vlookup
公式配合使用。
我检查过了,床单没有保护。我很难弄清楚这里有什么问题。希望你们能帮我找到解决办法。改变
"=vlookup($c$15;'Şube Listesi'!$B:$J;9;FALSE)"
到
您正在使用;'s而不是,我对包含变量的公式也有同样的问题
Dim Instruc As String
Instruc = "=MAX(R" & CStr(suiv) & ";S" & CStr(suiv) & " )"
MAIN.Cells(suiv, 20).Formula = CStr(Instruc)
当我使用时caracter在公式中,我总是得到运行时错误“1004”应用程序定义的错误或对象定义的错误
我使用了公式的一个变体:caracter
Dim Instruc As String
Instruc = "=MAX(R" & CStr(suiv) & ";S" & CStr(suiv) & " )"
MAIN.Cells(suiv, 20).Formula = CStr(Instruc)
在sheet35单元格F12中手动键入上述公式是否可以正常工作?非常感谢,我原以为工作表名称不会影响它,但它的效果似乎是工作表名称不是问题所在。仅仅是用于Vlookup的不正确的分隔符@ozgurMy代码已将Şube更改为Sube。我已经纠正了worksmarter中的ozgur和clarity。当我将formul定义为字符串时,我认为它必须与excel相同,现在我明白VBA替换了“,”;“:)。再次感谢guysIt和excel一样,vba不能代替任何东西。您在OP中的代码有“;”in not“,”in
Dim Instruc As String
Instruc = "=MAX(R" & CStr(suiv) & ";S" & CStr(suiv) & " )"
MAIN.Cells(suiv, 20).Formula = CStr(Instruc)