エクセルのチェックボックスで計算

こんにちは。 ＞そうか、シートごとに書けたんですね・ シートモジュールは、特殊ですけれど、マクロを知らない方に教える場合、場所は簡単なのです。 ＞「作る方」はだめだったんです。 その場合は、デバッグで、ステップインモード(F8)を使ってみてください。どこで、問題が出ているか分ると思います。 たぶん、範囲の選択がなされていないからだと思います。 For Each c In Selection.Cells　'マウスで選択 　　　↓ For Each c In Range("B2:G10") と、予め範囲を決めうちして、行ってみてください。

こんにちは。 ＞ありがとうございます。やってみたところ、エラーになり、デバックを押すと　With CheckBoxes.Add(.Left, .Top, .Width, .Height) エラーの原因は、登録するモジュールの場所違いです。できれば、シートモジュールに貼り付けし直してほしいのです。（といっても、分らないかもしれませんね）今回、私は、わざと省略型にしましたので、とりあえず、以下のように直して試してください。 　With CheckBoxes.Add(.Left, .Top, .Width, .Height) 　　↓ 　With ActiveSheet.CheckBoxes.Add(.Left, .Top, .Width, .Height) と直してください。 以下も同じです。 Sub ClearCheckboxes() 　'失敗の時に消すマクロ 　ActiveSheet.CheckBoxes.Delete End Sub

>エクセルのセルに綺麗にチェックボックスを敷き詰める方法はありますか 「きれいに」「敷き詰める」とは？ Ｃａｐｔｉｏｎ（文字の部分）も含めてですか。 チェックボックスの四角の部分を大きくすることはできないと思います（過去に質問がありました）。１つのセルに貼り付け、他のセルを指定して、そこに複写する方法はどうですか。 ＶＢＡならできそうです。関数でチェックボックスを貼り付けたり、そのプロパティを左右することは絶対できません。 ＞チェックされたボタンを100円・・・ まずＶＢＡでならできます。 それを使わない場合 ＬｉｎｋｅｄＣｅｌｌという「プロパティ」の指定ができるので、そのセルの「値」（ＴＲＵＥ，ＦＡＬＳＥ）を対象にして、ＣＯＵＮＴＩＦ関数などでできる。 Ａ１：Ｄ１のチェックボックスのＬｉｎｋｅｄＣｅｌｌをＡ３，Ｂ３，Ｃ３，Ｄ３に指定して Ａ３：Ｄ３で TRUE FALSE TRUE TRUE 3 Ｃ４に =COUNTIF(A3:D3,TRUE)でやって見ると、うまくいきました。