エクセルの学校：全文検索：Hyper Estraier：チェックボックス

Results of 1 - 1 of about 978 for チェックボックス (0.008 sec.)

[[20140609162235]]: #score: 5499; @digest: fe64b906beeba855d650bbc18fd7d25e; @id: 65341; @mdate: 2014-06-13T03:11:39Z; @size: 3889; @type: text/plain; #keywords: checkbox3 (14607), ク漏 (10401), checkbox2 (9493), ナゴ (8928), 理pr (7655), 方同 (6514), ル終 (6221), checkbox1 (5784), ミコ (3938), caption (3547), チェ (2784), クボ (2753), ェッ (2521), ョナ (2509), beforeclose (2188), ゴー (2151), ムコ (1904), ック (1362), worksheets (1332), ichinose (1239), 了時 (1076), にチ (1070), トロ (974), □ (853), クが (827), cancel (754), sheet1 (753), ボッ (744), thisworkbook (639), イベ (618), 同時 (610), クス (597); 『チェックボックスの入力チェック』（ミコ）
シート1のA列にチェックボックスが2つ、C列にチェックボックスが4つあります。 A B C D 1 □いちご □あまおう 2 □とちおとめ 3 4 □りんご □ふじ 5 □ジョナゴールド 6 A列のいちごにチェックが入っている時には、C列のあまおうとちおとめのどちらかにチェックが入っていなければいけない。 A列のりんごにチェックが入っている時には、C列のふじとジョナゴールドのどちらかにチェックが入っていなければいけない。（いちごにもりんごにもチェックが入っていない時はスルー）以上の条件のチェックをブックを閉じる時に行い、チェック漏れがあったら「あまおうか、とちおとめのどちらかにチェックを入れてください」などのメッセージを出すようにして、チェック漏れが解決できるまでブックが閉じられないような仕様にしたいのですが、どのようなマクロになりますか? ＜使用 Excel:Excel2010、使用 OS:WindowsXP ＞ ---- sheet1にCheckBox1〜CheckBox3のオブジェクトを用意し、下記イベントをthisworkbookに記述する。 sheet1のオブジェクト CheckBox1のcaptionに「イチゴ」 CheckBox2のcaptionに「あまおう」 CheckBox3のcaptionに「とちおとめ」と入力しておきます。 'エクセルファイル終了時イベント処理 Private Sub Workbook_BeforeClose(Cancel As Boolean) If Worksheets("Sheet1").CheckBox1.Value = True Then If Worksheets("Sheet1").CheckBox2.Value = False And Worksheets("Sheet1").CheckBox3.Value = False Then MsgBox Worksheets("Sheet1").CheckBox2.Caption & "又は" & Worksheets("Sheet1").CheckBox3.Caption & "にチェックを入れてください。" cansel = False Else ThisWorkbook.Close End If Else MsgBox "入力がありません。" End If End Sub 分岐がわかるようにメッセージを入れておきました。不要な動作は削除してください。以上（K） 2014/06/09(月) 17:18 ---- 'エクセルファイル終了時の処理 Private Sub Workbook_BeforeClose(Cancel As Boolean) If Worksheets("Sheet1").CheckBox1.Value = True Then If Worksheets("Sheet1").CheckBox2.Value = False And Worksheets("Sheet1").CheckBox3.Value = False Then MsgBox Worksheets("Sheet1").CheckBox2.Caption & "又は" & Worksheets("Sheet1").CheckBox3.Caption & "にチェックを入れてください。" Cancel = True Else ThisWorkbook.Close End If Else MsgBox "入力がありません。" End If End Sub ※動作確認が不十分でした。申し訳ない。スペルミス等を修正しました。（K） 2014/06/09(月) 17:24 ---- シートに貼り付けるチェックボックスコントロールは、開発タブの挿入をクリックすればわかると思いますが、「フォームコントロール」と「ActiveXControl」の2種類があります。種類によって、コードの書き方が違ってきます。その辺りをはっきり記述してください。又、 > A列のいちごにチェックが入っている時には、C列のあまおうとちおとめのどちらかに >チェックが入っていなければいけない。これは、どちらか一つだけ選択できるという意味ですか? それとも両方同時の選択も可能という事ですか? これもはっきり記述してください。それによって、チェックも違ってきますから・・・。（ichinose） 2014/06/10(火) 09:19 ---- ミコです。お返事が遅くなってしまい申し訳ありません。 ichinoseさんの仰るとおり、フォームコントロールのチェックボックスでした… Kさんのコードの”CheckBox1”の部分を、リンクするセルに置き換えてみたら問題なく動作しましたので、これで使わせていただきたいと思います。選択できる数については、両方同時の選択も可能というつもりでしたのでこのままで大丈夫そうです。次に質問する際には、その辺りのことも考慮して質問したいと思います。 Kさん、ichinoseさん、ありがとうございました。（ミコ） 2014/06/13(金) 12:11 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201406/20140609162235.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ