• ベストアンサー

エクセルのチェックボックスをクリアする方法

エクセル2007(win)を使っています。 シートのB列のセル一つずつにチャックボックス(フォームコントロール)を付けました。全部で32個になります(B5~B36)。チャックを付けることで、D列に入力された文字列に取消線を付けるよう設定しました。 最後の仕上げに、シート上のボタンをクリックすることで、全てのチャックボックスをクリアしたいのですが、そのやり方がわかりません。 Checkbox5 = False Checkbox6 = False 以下略 のようにしても出来ませんでした。 よろしくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • myRange
  • ベストアンサー率71% (339/472)
回答No.2

フォームツールバーのチェックボックスを全てクリアーなら  ActiveSheet.CheckBoxes.Value = False この1行でできます。  

r-inarin
質問者

お礼

ありがとうございます。 できました。

その他の回答 (1)

  • MKT_
  • ベストアンサー率56% (9/16)
回答No.1

こんちは. Checkbox5.Value = False Checkbox6.Value = False でどうでしょ?

r-inarin
質問者

補足

オブジェクトが必要ですと表示されます。

関連するQ&A

  • エクセル VBA チェックボックスについて

    よろしくお願い致します。 OS:XP エクセル2003 VBAのことは、まったくの初心者です。 質問なのですが、下記のようなチェックボックス7にチェックが入れば、チェックボックス8~11に自由にチェックが入れれるようになり、逆にチャックボックス7にチェックが入ってない場合は、チェックボックス8~11のチェックはクリアされ、チェックできないものを作りました。 ここから、チェックボックス7にチェック入れたあとは、必ずチェックボックス9~11のどれかにチェックが入っている状態(ラジオボタンのような)で、チェックボックス7にチェックが入ってなかったら、8~11のチェックがクリアで尚且つ、チェックができなくなるようにするにはどうすればよいでしょうか? よろしくお願い致します。 Private Sub CheckBox7_Click() If CheckBox7.Value = True Then CheckBox8.Enabled = True CheckBox9.Enabled = True CheckBox10.Enabled = True CheckBox11.Enabled = True Else CheckBox8.Value = False CheckBox9.Value = False CheckBox10.Value = False CheckBox11.Value = False CheckBox8.Enabled = False CheckBox9.Enabled = False CheckBox10.Enabled = False CheckBox11.Enabled = False End If End Sub

  • エクセル チェックボックスのチェックの判定の書き方

    エクセル内にチェックボックス(CheckBox1)を追加したのですが、セルの式にそのチェックが入っているかどうかをifを使って書きたいのですが、どのように書いたらよいのでしょうか。(コントロールツールボックスの書き方)ちなみに式を書くセルのシートとチェックボックスがあるシート(シート名:設定)は別になります。 現在チェックボックスのプログラムにセル内容を変えるように書いているのですが、保護するとだめなのでお願いします。

  • Excelで、チェックボックスを使用したセルへの出力をしたいのですが、

    Excelで、チェックボックスを使用したセルへの出力をしたいのですが、助けていただけないでしょうか。 [コントロールツールボックス]-[コントロールの選択]-[MSForms 2.0 Frame]を選択し、 作成したフレーム上の[フレームオブジェクト]でチェックボックスを作成し使用しています。 [フォーム]で作成できるチェックボックスではサイズ変更ができないため、こちらを使用しています。 チェックボックスの[プロパティ]-[ControlSource]でセルを設定すれば、 指定先のセルへ"TRUE""FALSE"を出力するすることができるのですが、こちらを設定していると、 エクセル内の小窓でシートを閉じる時に、「問題が発生~エラーを送信しますか?」と100%表示されてしまいます。ですので、こちらの機能は使えません。 フレーム上で右クリック[コードの表示]で、以下のコードを書いてみましたが、 「実行時エラー"424" オブジェクトが必要です」と表示されてしまいます。 Private Sub CheckBox1_Click() If CheckBox1.Value Then Range("V18").Value = Range("V18").Value + 5 Else Range("V18").Value = Range("V18").Value - 5 End If End Sub 何分、マクロに関して素人なものですから問題点がわかりません。 "TRUSE""FALSE"を表示させるだけでいいので、何か良い方法がありましたらご指導いただけないでしょうか。 強制終了の不具合は、フレームから作り直してみたり、シートごと作り直してみましたが、 [ControlSource]にセルを設定していると100%強制終了が起こることしかわかりませんでした。 何卒よろしくお願いいたします。

  • エクセルでチェックボックスを使った関数。。。

    どなたかお助け下さい。。。 エクセルでチェックボックスを使った関数を作っています。 http://106.g-serve.net/kojin/555566666.gif 【2の行】のどれか一つにチェックを入れると【A2】に1の行の項目が反映されるようにしたいのですが、 例えば、【C2】にチェックを入れると【A2】に「交際費」と表示 各チェックボックスには「コントロールの書式設定」でリンクするセルは指定済みです。 とりあえず、A2には =IF(B2=FALSE,"",B1) まで書いたのですが。。。 手詰まりです@@; 各列のチェックボックスにはどれか1つチェックが入ります。 どうぞよろしくお願いいたします!

  • (EXCEL)チェックボックス,TRUE⇔スピンボタン,MAX+色変化

    お世話になります。質問させていただきます。 表題件ですが、先ず説明しやすくするために、 シート1のA列複数行にチェックボックス、B列複数行にMAX100(%)のスピンボタンが縦に並んでいると仮定させていただきます。 例えば、 (1)A4のチェックボックスにチェックを入れるとB4のスピンボタンが連動して自動的にMAX値100(%)となり、さらにA4とB4のセルの色が赤くなる。 また (2)B4のスピンボタンをMAX値100(%)とすると、連動して自動的にA4のチェックボックスにチェックが入り、さらにA4とB4のセルの色が赤くなる。 上記のようにするにはいかがするのでしょうか? 以下にイメージを記載します。 (コンマは、セル区切りを意味します。) A,B, checkbox(未check),70% →色変化なし checkbox(check入れた),100%(に自動変化) →A2B2が赤く  checkbox(自動的にcheck),100%(に設定) →A3B3が赤く  関数やVBAにお詳しい方がおられましたら、何卒アドバイスを頂戴したく存じます。 *なお、スピンボタンはフォーム、コントロールツールボックス、 どちらが適しているのか、恥ずかしながら、存じませんので、 そちらもアドバイスいただけましたら、大変に光栄に存じます。 よろしくお願い申し上げます。

  • エクセル チェックボックスの解除について(VBA)

    YES/NOを入力させる為の下記のVBAにおいて、チェックボックス1をチェックすると、アの部分でチェックボックス2の解除を行う関係で?、シート上でチェックボックス2を操作していないのにもかかわらず、勝手にCheckBox2_Click()に入り、命令文イを実行してしまいます。 ただ単にSub CheckBox1_Click()のルーチンの最後までの処理で終わりたいのですが、どうしたらよいのでしょうか。 Private Sub CheckBox1_Click() If CheckBox1 = True Then Sheets("sheet1").Range("A1") = 1 Sheets("sheet1").Range("A2") = 0 CheckBox2 = False・・・ア Else Sheets("sheet1").Range("A1") = "" End If End Sub Private Sub CheckBox2_Click() If CheckBox2 = True Then Sheets("sheet1").Range("A1") = 0 Sheets("sheet1").Range("A2") = 1 CheckBox1 = False Else Sheets("sheet1").Range("A2") = ""・・・イ End If End Sub

  • EXCELのシート上に埋め込んだチェックボックスの一括処理方法について

    EXCEL VBAのコード記載方法について教えていただきたいことがあります。 Sheets("Test")上にコントロールツールボックスのチェックボックスを 100個とコマンドボタンを1個配置する。 コマンドボタンをクリックすると、CheckBox1~100を全てTrueにする。 これを、 Private Sub CommandButton1_Click() Sheets("Test").CheckBox1 = True Sheets("Test").CheckBox2 = True ・ ・ ・ End Sub と100回書くのではなく、配列化して記載することは可能なのでしょうか。 ユーザーフォームのチェックボックスであれば Dim i As Integer For i = 1 To 100 UserForm1.Controls("CheckBox" & i) = True Next i で出来ると思うのですが、シート上に埋め込むチェックボックスですと、どうにも上手く動いてくれません。 丁寧に全部書いていけばいいのですが、行が沢山増えてしまい見にくいのと、数字の書き間違いが出たりして作業が煩瑣なので、 可能であればまとめて処理してしまいたいと考えています。 どうぞよろしくお願いいたします。

  • Excel チェックボックスについて

    Excelでチェックボックスをセルとリンクさせると、TrueかFalseがセル上に記録されると思います。 この情報は他セルで計算式で使用したいです。 しかし印刷するとTrue、Falseが印刷されてしまうと思います。 文字列の色を背景色と同じにしてしまえば印刷されていないように見えますが、こういった方法ではなく、印刷させないようにするにはどのような方法がありますか? チェックボックスとリンクするセルを非表示にしてしまう方法は考えました。 この方法が現実的な気がしていますが、それ以外に有効な方法があればお願いいたします。 環境はExcel2003です。

  • エクセルのチェックボックスについて

    エクセルのチェックボックスについて教えて下さい。 シート名が「東京」「名古屋」「大阪」とあります。 各シートのフォームは同じで、チェックボックスが同じセルで各々10個あります。 ここで、「東京」シートの一つのチェックボックスにチェックを入れると、「名古屋」「大阪」の一つのチェックボックスにチェックマークを 入るようにしたいのですが、可能でしょうか? 「名古屋」「大阪」シートに入る位置は「東京」と同じです。

  • チェックボックスについて

    お世話になっております。 フォーム上にあるチェックボックスの数だけDBへフィールドを用意し、チェックされたものをvalueに記載のある内容をDBへ登録しようと考えております。 そこで、他の入力フォームに入力の不備があった場合は、同じ画面に戻り、入力を催促する設定を描いているのですが、チェックをしたチェックボックスがクリアにならない様にするには、どのようにしたら宜しいのでしょうか?色々と調べて居るのですが、どれもチャックした内容を表示する場合だったりで、初心者の私として的を得たものが見つかりません。ご教授いただければと思い投函させて頂きました。 宜しくお願い致します。 <input type="checkbox" name="renraku_mail" value="メールを希望" checked> &nbsp;メール &nbsp;&nbsp;&nbsp; <input type="checkbox" name="renraku_tel" value="電話を希望"> &nbsp;電話 &nbsp;&nbsp;&nbsp; <input type="checkbox" name="renraku_fax" value="FAXを希望"> &nbsp;FAX

    • ベストアンサー
    • PHP

専門家に質問してみよう