錯誤1004 VBA

Question

你好我選擇最接近的價值是用戶價值的一些代碼

Private Sub CommandButton1_Click() 
Dim col As Integer 
col = Me.TextBox1.Value 
ActiveCell.FormulaR1C1 = "=SMALL($A$1:$EN$1,COUNTIF($A$1:$EN$1,""<" & col & """)+1)" 
End Sub 

但我得到的運行時錯誤1004 人幫助我，請

Answer 1

您調用R1C1式樣的配方屬性，但提供A1式配方。試試這個：

ActiveCell.Formula = "=SMALL($A$1:$EN$1,COUNTIF($A$1:$EN$1,""<" & col & """)+1)" 

即ActiveCell.Formula，而不是ActiveCell.FormulaR1C1。