『チェックボックスのマクロか、関数処理か・・』（モー）

チェックボックスを下にコピーして、マクロを組み入れないと、チェックしても全部チェックがついてしまうので、下記の記述をしてみました。
でも、うまく動作しません。


Subチェック39_chick
Wiht ActiveSheet.Shapes(Application,Caller).Topleftcall.
offset(0, 1)
.Value=Not .value
End With
End sub

または、チェックボックスを使わず、１or０で区別して１は支払、０は未払で
関数を組み入れて、下記の様にした方が簡単かも・・とも考えていて、試行錯誤してるのですが、うまくいきません。

　　A　　　　B　　　　　C　　　　D　　　
1　予算　支払予定額　　処理　　残債
2　100　　　50　　　　　〇　　　 50
3　150　　　75　　　　　×　　　150










＜ 使用 Excel：Excel2019、使用 OS：Windows10 ＞
----
＞チェックボックスを下にコピーして

これが原因では？
設定とか全て同じですよね？
（みすぼらしさ） 2022/03/17(木) 15:32
----
そうです。
かなりの行があるので、それぞれ行別に独立させたいので、下にコピーしてマクロを組んだのですが、
やり方が違っていますか？

（モー） 2022/03/17(木) 15:38
----
 チェックボックスにマクロを組み込むのではなく
 マクロでチェックボックスを設置してみては

 例 D2:D20 にチェックボックスを設置、リンクセルはE列に
 Sub Test()
    Dim cbx As CheckBox
    Dim c As Range
    
    For Each c In Range("D2:D20")
        Set cbx = ActiveSheet.CheckBoxes.Add( _
            Top:=c.Top, _
            Left:=c.Left, _
            Width:=c.Height, _
            Height:=c.Height)
        With cbx
            .Text = ""
            .Value = xlOff
            .LinkedCell = c.Offset(, 1).Address(0, 0)
        End With
    Next
 End Sub

（ピンク） 2022/03/17(木) 15:47
----
[[20220310170351]] 『チェックボックスのコピーの仕...』（モー）
[[20220309160856]] 『チェックボタンにチェックが入った数値を集計する方...』（モー）
[[20220310135901]] 『チェックボックスに✅が入った条件下の計算抽出』（モー）
も覗いて見てください。
それにしてもその都度表が変更になっていますけど表が決まらないのですか。
（nm） 2022/03/17(木) 16:09
----
素晴らしい！！！
マクロでうまくいきました！！！
もう試行錯誤して頭がこんがらがってしまって・・。
有難うございます!
めちゃくちゃ助かりました〜。
（モー） 2022/03/17(木) 17:03