vba中的错误1004

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 

但我得到RUNTIME ERROR 1004  请有人帮帮我

Answer 1

您调用R1C1样式的公式属性，但提供A1样式的公式。试试这个：

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

即。 ActiveCell.Formula代替ActiveCell.FormulaR1C1。