VBA機能。 #VALUEエラー、数式で使用されている値のデータ型が間違っています。

Question

これは可能な限り明確にしようとしています。コードの混乱の可能性について私と一緒に裸をしてください。私は指定されたセルの色に応じて私に値を与える関数を持っています。次のようにこの機能は次のとおりです。

Function CheckColor1(range) 
If range.Interior.Color = RGB(189, 215, 238) Then 
    CheckColor1 = "R" 
ElseIf range.Interior.Color = RGB(255, 230, 153) Then 
    CheckColor1 = "C" 
End If 
End Function 

だから私のシートの上に、L1にそれは私に対応する「R」と「Cを与え、罰金である、私は= CheckColor1（a1）を持っていると私はすべての行に対してフィルダウン"を各行に割り当てます。私はM1で、その隣に= L1を使用し、もう一度塗りつぶし、コピーして値を貼り付けます。私はL列に直接コピー＆ペーストの値を試しましたが、うまくいきません。

これをマクロに記録しました。私に与えた：

range("L1").Select 
ActiveCell.FormulaR1C1 = "=CheckColor1(RC[-11])" 
range("L1").Select 
Selection.AutoFill Destination:=range("L1:L102") 
range("L1:L102").Select 
range("M1").Select 
ActiveCell.FormulaR1C1 = "=RC[-1]" 
range("M1").Select 
Selection.AutoFill Destination:=range("M1:M102") 
range("M1:M102").Select 

を私はマクロを実行するために来るときしかし、私はL1で正しく最初の値を取得しますが、その下にあるすべての値は、私が#VALUEエラーを取得します。これは、数式で使用される値が間違ったデータ型であると言います。

私はちょっと混乱しています！手動で入力すると機能します。しかし、マクロではありませんか？列はちょうど "一般的な"形式です。

ご迷惑をおかけして申し訳ありません。

Answer 1

はあなたがHow to avoid using Select in Excel VBA macros

すべてのことのコードはたった2行

range("L1:L102").Formula = "=CheckColor1(A1)" 
range("M1:M102").Formula = "=L1" 

次の2行を使用して、コードを交換して、再度お試しに書き込むことができます見てみたいことがあり.Selectの使用は避けてください。今回はうまくいくでしょう。

編集

アイデアは.Autofillを使用するのではなく、一度に完全な範囲で数式を入力することではありません。

"L"と "M"の列が固定され、行が毎回変更される場合は、列 "L"の最後の行を見つけてコードに組み込むことができます。これを参照してください

Dim lRow As Long 

With Worksheet("Orders") 
    lRow = .Range("L" & .Rows.Count).End(xlUp).Row 

    .Range("L1:L" & lRow).Formula = "=CheckColor1(A1)" 
    .Range("M1:M" & lRow).Formula = "=L1" 
End With