Excel VBA 数式を利用した条件付き書式

Question

前提・実現したいこと

Excel VBAにて数式を利用した条件付き書式を記述しています。
演算結果を表示するR列の値が０の場合、当該行の背景色を消去して、１以上の場合は、背景色を表示するという形です。

発生している問題・エラーメッセージ

プロシージャの呼び出しが不正といわれてしまいました。
どこがおかしいのでしょうか？

該当のソースコード

Dim fc As FormatCondition
Dim MRow As Long
Dim MCol As Integer
Dim Ws As Worksheet
Private Sub shiwake1()
Set Ws = Worksheets(3)
MRow = Ws.Cells(Rows.Count, 3).End(xlUp).Row  '最終行番号を取得する
MCol = Ws.Cells(2, 2).End(xlToRight).Column  '右端列番号を取得する
For i = 3 To MRow '各行に数式を追加する
    Ws.Cells(i, 11).Value = "-": Ws.Cells(i, 13).Value = "-": Ws.Cells(i, 15).Value = "-"
    Ws.Cells(i, MCol - 1).Value = "=" '減算記号と等号を出力する
    Ws.Cells(i, 12).Value = "0": Ws.Cells(i, 14).Value = "0": Ws.Cells(i, 16).Value = "0" '数値の初期値を出力する
    Ws.Cells(i, MCol).Value = "=J" & i & "-(L" & i & "+N" & i & "+P" & i & ")" '数式を出力する
    
    Set fc = Range(Ws.Cells(i, 3), Ws.Cells(i, MCol)).FormatConditions.Add(xlExpression, , "=$R" & "$" & i & " = " & "0")
    Set fc = Range(Ws.Cells(i, 3), Ws.Cells(i, MCol)).FormatConditions(1) ' 1 つ目の条件付き書式を取得
    fc.Interior.ColorIndex = xlNone '条件式に一致する場合、『背景色を消去』する
    For j = 12 To 16 Step 2 '数値の間処理をする
      Ws.Cells(i, j).NumberFormatLocal = "G/標準" 'セルの表示形式を設定する
    Next
    合計(CInt(Ws.Cells(i, 6).Value)) = 合計(CInt(Ws.Cells(i, 6).Value)) + CInt(Ws.Cells(i, 10).Value)
  Next

End Sub

set fc …という数式を指定する行で止まってしまいます。
デスクトップPCでコードを記述して、ノートPCで処理を実行する方式を採用しており、コードを記述したデスクトップPCでは条件付き書式が設定できたのですが、実行するノートPCにファイルをコピーして実行してみたところ、数式を利用した条件付き書式設定がプロシージャの不正となってしまいました。Excelのバージョン等で利用不可であれば諦めます。

Answer 1

何をやりたいのかよくわからないので、エラーの対処法のみ。

    Set fc = Range(Ws.Cells(i, 3), Ws.Cells(i, MCol)).FormatConditions.Add(xlExpression, , "=$R" & "$" & i & " = " & "0")
    Set fc = Range(Ws.Cells(i, 3), Ws.Cells(i, MCol)).FormatConditions(1) ' 1 つ目の条件付き書式を取得

この2行ではRangeの範囲にWsシートのセルを指定しますが、Range自体がアクティブシートを対象にしています。
マクロの置き場所がWorksheet(3)ではない場合、対象のRangeが一致しないためエラーになっていると思われます。
Worksheet(3)を対象に処理してよいのであれば、次のようにWsを指定してください。

    Set fc = Ws.Range(Ws.Cells(i, 3), Ws.Cells(i, MCol)).FormatConditions.Add(xlExpression, , "=$R" & "$" & i & " = " & "0")
    Set fc = Ws.Range(Ws.Cells(i, 3), Ws.Cells(i, MCol)).FormatConditions(1) ' 1 つ目の条件付き書式を取得

Answer 2

諦めることにしました

Comments

[ttyp03]

回答しましたよ？
スルーですか？

Answer 3

Option Explicit

Sub test()
    With Worksheets(3).UsedRange
        With .Columns(.Columns.Count).FormatConditions
            .Delete
            .Add Type:=xlExpression, Formula1:="=R3=0"
            .Item(1).Interior.ColorIndex = xlNone
        End With
    End With
End Sub

なんでそんなコードになっているか前提条件が分かりませんが、特にエラーはなさそうです。
ただ、先に色を付けておいて、0なら色を消すみたいな遠回りなやりかたや（考え方？）、
各セルをループして設定する等、なんだかよくわからないなぁ。。。と、、、、
あと、マクロを実行するたびに設定が際限なく増えるのも問題あり？
毎度毎度クリアしてから設定し直ししてはいかがでしょ？
列が増えたら色を塗りたいのかなぁ。。。

Answer 4

頭に　Sub hogehoge()
最終行に　End Sub　と記載して下さい。

質問者さんの末尾のEnd Subがend subと小文字に表示されているところが
変に思います。

私も　頭と終わりに　関数の宣言を行い実行しましたが
エラー終了は起こりませんでした

Comments

[Yoshikun_0945]

失礼いたしました。コードを確認したら、Subは大文字で記載してありました。
再度実行してみましたが、エラーが直りませんでした。
Excelのバージョン的に使用できないということでしょうか？

[nanami12]

私が変だなと思ったのは、末端の　End Sub で
質問者んのコードではend sub となっている部分です
EとSが大文字です

[nanami12]

当方、office 365 office 2013 で実施しましたが、エラーは出力されませんでした

[nanami12]

蛇足ですがPOSされているコードの一番最初に
関数の宣言がなく、End Sub だけではいけませんよ
頭に関数宣言しないと、例えばSub hogehoge()　を一番頭にかくという意味です

Answer 5

サブルーチンが記述されていないからでは？

試しに
Sub hogehoge()
と
End Sub
の間に目的のコードを書いたら正常終了しましたよ。

Comments

[Yoshikun_0945]

Subで囲んでいますが、set fc の行でプロシージャの不正といわれてしまいました。

[DreamTheater]

[ツール]→[参照設定]で以下のライブラリが未チェックということはないですか？
Visual Basic For Applications
Microsoft Excel 16.0 Object Library

[Yoshikun_0945]

コメントありがとうございます。
参照設定を確認させていただきましたが、チェック入っていました。
別のパソコンで実行できたので、ノートパソコンにファイルを保存して、実行してみたところ、プロシージャの不正と言われてしまいました。
Excelのバージョン等で数式の条件付き書式を利用できないのであれば諦めます。

[DreamTheater]

当方はOffice365のExcelです。
ちなみに、
・[ツール]→[コンパイル]でも同様のエラーが出ますか？
・上記以外にVBAで記述されたコードはないですか？
　→例えば、Rangeという名前の変数を定義している等
※本日帰宅してしまうのでここまでです。