2016-06-21 7 views
2

私はコード予期しない変化マクロ

= SUMSQ(RC13で定義したのと同じ式でSumSQ範囲を移入する必要がありVBA以下のサンプルコードを有します-RC11、RC16、RC14、RC19、RC17、RC22、RC20、RC25-RC23)/(MONTH(TODAY()) - MONTH(DATE(2016,1,1)))

Sub Prep() 
    Dim Sh As Worksheet 
    Dim CBS As Range 
    Dim SumSQ As Range 

    'Set range from C3 to final row of column C 
    Set Sh = Worksheets("Sheet1") 
    With Sh 
     Set CBS = .Range("C6:C" & .Range("C" & .Rows.Count).End(xlUp).Row) 
     Set SumSQ = .Range("AV6:AV" & CBS.End(xlDown).Row) 
    End With 

    SumSQ.Formula = "=SUMSQ(RC13-RC11,RC16-RC14,RC19-RC17,RC22-RC20,RC25-RC23)/(MONTH(TODAY())-MONTH(DATE(2016,1,1)))" 

End Sub 

しかし、何らかの理由で実際のスプレッドマクロを実行した後、実際には、その範囲内の全てのセルについて移入なっている処方らは、次のとおり

= SUMSQ(R [7] C [423] -R [5] C [423]。 R 13 C 12 C 12 - アルキル、C 12-12アリール、C 12-12アリール、C 12-12アリール、C 12-12アリール、 [423]、R [19] C [423] -R [17] C [423])/(MONTH(TODAY()) - MONTH(日付(2016; 1; 1)))

関連性がある場合、私のロケール設定では、,の代わりに;を使用します。

+2

ちょうど推測ですが、SumSQ.FormulaをSumSQ.Formular1C1に変更できますか? – Vityata

+0

@Vityataは正しいです。あなたの意図したR1C1参照もまた有効なA1アドレスです。その結果、あなたはその結果を得ています。 – Rory

+0

R1C1のアドレスはありますか?またはあなたは列RC(列471)を参照しています –

答えて

1

だから私は答えとしてこれを投稿しています: SumSQ.FormulaSumSQ.Formular1C1に変更できますか?

関連する問題