vba - 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.