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 

しかし、私はランタイムエラー1004を取得しています誰かが私を助けてください

Answer 1

R1C1スタイルの数式プロパティを呼び出しますが、A1スタイルの数式を指定します。代わりにこれを試してください：

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

つまりActiveCell.Formula、の代わりにActiveCell.FormulaR1C1。