- ベストアンサー
選択したセル範囲に入っているチェックボックスを全てOFFにしたい
- みんなの回答 (4)
- 専門家の回答
質問者が選んだベストアンサー
こんな感じで如何でしょうか。 セル範囲を選択し、このマクロを実行すると、範囲内にあるチェックボックスの チェックを外します。 Sub HaniChkOff() Dim N As Integer Dim HaniUp As Single Dim HaniDown As Single Dim HaniLeft As Single Dim HaniRight As Single With Selection HaniUp = .Top HaniDown = .Offset(.Rows.Count).Top HaniLeft = .Left HaniRight = .Offset(, .Columns.Count).Left End With With ActiveSheet For N = 1 To .CheckBoxes.Count With .CheckBoxes(N) If .Top >= HaniUp And .Top < HaniDown And _ .Left >= HaniLeft And .Left < HaniRight Then .Value = False End If End With Next N End With End Sub
その他の回答 (3)
- papayuka
- ベストアンサー率45% (1388/3066)
#3です。 > マクロでセル範囲を選択(C26:R48)して この部分を読んでなかったです。 範囲固定ならこんな感じで良いかと思います。 Sub CheckOff2() Dim cb As CheckBox With ActiveSheet For Each cb In .CheckBoxes If Not Application.Intersect(cb.TopLeftCell, _ .Range("C26:R48")) Is Nothing Then cb.Value = False Next cb End With End Sub
お礼
ご回答どうもありがとうございます。 教えていただきましたマクロで上手く動きました! 範囲固定のものまで書いていただきまして、とても勉強になりました。どこから手をつけたら良いのか全くわからなかったものですから…。 またわからないことがありましたらよろしくお願いいたします。
- papayuka
- ベストアンサー率45% (1388/3066)
これで良いと思います。 Sub CheckOff() Dim cb As CheckBox If TypeName(Selection) <> "Range" Then Exit Sub For Each cb In ActiveSheet.CheckBoxes If Not Application.Intersect(cb.TopLeftCell, _ Selection) Is Nothing Then cb.Value = False Next cb End Sub
- comv
- ベストアンサー率52% (322/612)
リンク先セルの TRUE を FALSEもしくは空白 にすれば? (それぞれのリンク先をチェックボックスの配置してるセル位置にしてる場合)
お礼
早速のご回答ありがとうございます。 説明が足りなかったようですみません…。 チェックボックスはリンク先セルを設定していません。 そのチェックボックスは、チェックを入れると、同じ行にある複数のセルに○印を入れ、 チェックを消したら○印も消える、というマクロを作ってあります。 今作成していますのは、コマンドボタンをクリックすると、チェックボックスを含んだ行を増やす(既存の行をコピーして下の行に貼り付ける)マクロなのですが、 もしコピー元の行にチェック済みのチェックボックスがあった場合、貼りつけた先のチェックボックスにもチェックが入っているのでそれを全て自動で外したいということなのです(コピー元のチェックは外さないようにしたいです)。 何か良い方法がありましたら教えていただけませんでしょうか? よろしくお願いします。
関連するQ&A
- Wordの「レ」チェックボックス、セキュリティに依存しない方法
Wordでチェックボックスを作っています。 フォームで作成したら×ではわかりにくいらしく、「レ」のチェックで表示するようにと言われ、 コントロールツールボックスのチェックボックスに変更しました。 ところが、会社にあるパソコンの多くが、マクロのセキュリティレベルが「高」になっており、そのままでは使うことが出来ません。 また、説明してもわかってもらうこともできません。 Excelのフォームのチェックボックスのようにマクロのセキュリティレベルに関係ない「レ」のチェックができる、チェックボックスの設定がしたいのですが、可能でしょうか? 可能ならばやり方を教えてください。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
- ExcelVBA セルの範囲を選択
現在、ユーザーフォーム上のコマンドボタン押下にてインプットボックス(Type:=8)を表示し、シート上のセル範囲を選択するマクロを使用しています インプットボックスを介さず、コマンドボタン押下からセルの範囲選択が出来る、ということはできるでしょうか?
- ベストアンサー
- オフィス系ソフト
- Excelのチェックボックスについて教えてください
Excel2003使用者です。 今顧客リストを作成しているのですが、 A列にフォームでチェックボックスを入れていて、簡単にはこんな感じになっています。 A B C D ・・・ 1 チェックボックス 顧客名 部署 住所 ・・・ 営業が訪問した先のチェックボックスにチェックを入れるようになっています。 これをオートフィルタ機能で、チェックをつけたところとつけてないところでフィルタをかけたいのですが、 全て「空白セル」としてフィルタがかかりません。 またオートフィルタをかけるとチェックボックスが寄ってしまいます。 フォームではダメなのかと思って、コントロールツールボックスでチェックボックスを作成したのですが、 それもダメでした。 どなたか解決方法を教えていただけないでしょうか。 オートフィルタでチェックボックスにチェックしたものだけを表示させることはできないのでしょうか。 もしマクロを組まないといけないのでしたら、マクロ初心者なため、 出来ればコードも教えていただきたく、 また、オートフィルタをかけた際にチェックボックスが移動してしまうことも解決したいので、 その点についても教えていただけると幸いです。 お手数ですが、宜しくお願い致します。
- ベストアンサー
- その他MS Office製品
- 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%強制終了が起こることしかわかりませんでした。 何卒よろしくお願いいたします。
- 締切済み
- オフィス系ソフト
- コントロールツールボックスを表示させた状態でセルの選択位置をマウスで移動させたい。
MS-Excel2000のマクロにおいて、 UserForm1.Showでコントロールツールボックスを表示させた状態で セルの選択位置をマウスで移動させたいと思っておりますが、 コントロールツールボックスがあるとセルを選択位置移動ができません。 (もちろん、コントロールツールボックスを消せば セルの選択位置移動はできます。) どのような指示にすればできますでしょうか? よろしくご教授願います。 やりたい事は、 はんこ(スタンプ)みたいにコントロールツールボックスの コマンドボタンを押したら文字がアクティブセルに表示するようにしたい。 ただし、コントロールツールボックスを表示したままで アクティブセルはマウスで任意の位置を選択できるようにする。 ってことです。
- ベストアンサー
- オフィス系ソフト
- チェックボックスについて
Excelでフォームにチェックボックスを使用してアンケートを作成しています。 ある質問に対してチェックボックスが3つある場合、どれか1つしか選択できないようにするには、どうすればいいのでしょうか? これはオプションボタンでしかできないのでしょうか?
- 締切済み
- オフィス系ソフト
- <EXCEL> セルが非表示になったらチェックボックスも非表示にする方法
VBAマクロなどで、ある条件のとき特定のセルを非表示にします。その際、セル上に貼り付けてあるチェックボックスも一緒に非表示にしたいと思ってます。 現状ではセルだけを非表示(高さを0にする)処理をしているのでチェックボックスはそのまま残ってしまい、表示になった箇所でチェックボックスが折り重なるように表示されて見苦しいのです。 自分で考えた場合、対策としてはVBAマクロでセルを非表示にする際にするしかない気がするのですが、他に良い方法はあるでしょうか? また、VBAマクロで以外にあるセルが非表示になった場合にそのセル上に貼り付けたチェックボックスなどの部品を非表示にする方法はあるでしょうか? 部品はコントロールを使ってます。(フォームではありません) ご教示願います。
- ベストアンサー
- オフィス系ソフト
- エクセルのフォームのチェックボックスについて
エクセルのフォームのチェックボックスについて あるセルにフォームのチェックボックスを付け、 そのセルに、true・falseの条件設定をしました。 その設定を利用して、条件式書式の設定で、 trueの時にとなりのセルを赤にするようにしました。 以上のような行が1500行あります。 1つ1つ設定するのが困難のため、 マクロが使えるフォームのチェックボックスを使用しようと試みております。 しかし、マクロ内のVBAの記述方法が解りません。(1行だけなら解ります) ご存知の方がおられましたら教えてください。 よろしくお願いいたします。
- 締切済み
- Visual Basic
- セルの内容をテキストボックスに移動したい
前任者がある資料を作成するためにExcelでセルに文字を書き込んでいたのですが、 資料はExcelである必要もなく、 今後もっと融通性のあるレイアウトが必要となり、 Excel内のテキストボックスに変えていこうと思うのですが 何しろ量が多く、ショートカットやマクロを利用したいと思います。 ひとつのセルを選択した後 (1)内容をすべて選択し、 (2)コピー(切り取り)し(Ctr-C,X)、 (3)新しいテキストボックスを作成し、 (4)貼り付ける(Ctr-V) といった一連の作業を、効率よく行うために(1)や(3)のショートカットを行いたい または、全てか一部をマクロにしたいと思います。 マクロに関しては、一から組む気はなく、マクロの記録でできる範囲で、と考えています。 効率的な方法を教えてください。
- ベストアンサー
- オフィス系ソフト
- エクセルチェックボックス
エクセルのコントロールボックスでチェックボックスを使用したいんですがうまく使えません ユーザーフォームは使用せず、セルに直接貼り付けを考えてます このチェックボックスは複数使用したいと思っています 具体的な例としてチェックを入れたらセルにリンクして数字を動かしたい チェックしたら1 はずしたら2を入れる IF関数との連結を考えています 当方の使用環境はWindows Vista , エクセル2007を使用しています よろしくお願いします
- ベストアンサー
- オフィス系ソフト
お礼
ご回答どうもありがとうございます。 教えていただきましたマクロで上手くいきました! 丸ごと書いてもらってしまい、どうもすみません…でもとても勉強になりました。 またわからないことがありましたらよろしくお願いいたします。