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

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

[[20230216125444]]: #score: 5499; @digest: e8a9fef1a4d4052744db0bac5675d97f; @id: 93541; @mdate: 2023-02-16T09:57:26Z; @size: 3479; @type: text/plain; #keywords: checkboxgroup (82481), startnumber (22494), clickednumber (22494), checkbox6 (12919), checkbox10 (11604), クボ (11013), checkbox9 (10268), checkbox7 (9974), checkbox8 (8928), 準コ (8427), checkbox5 (7538), い22 (6922), checkbox4 (5981), checkbox1 (5784), checkbox3 (4869), チェ (4316), オボ (4178), ェッ (3909), checkbox2 (3797), 紐づ (3408), ボッ (3125), 222 (2955), ラジ (2919), 65038 (2892), ジオ (2881), ック (2627), クス (2509), い11 (2349), □ (2134), 111 (2095), click (1863), 9745 (1657); 『チェックボックスにチェックを入れると他のセルが無効になる方法』（初心者）
質問です。以下のようにセルに文字が入力されていたとして（□はチェックボックスです） 111、222それぞれ一つだけチェックボックスを入れたら他のチェックボックスにチェックは入れられないようにする方法が知りたいです。 111□ 111□ 111□ 111□ 222□ 222□ 222□ 222□ 222□ ↓ 111☑︎ 111□入力できない 111□入力できない 111□入力できない 222□入力できない 222☑︎ 222□入力できない 222□入力できない 222□入力できないわかりづらく申し訳ありませんが、ご教示いただけますと幸いです。＜使用 Excel:unknown、使用 OS:unknown ＞ ---- それはチェックボックスではなくオプションボタン（ラジオボタン）でやるべきことでは? （コナミ） 2023/02/16(木) 13:04:06 ---- チェックボックスは標準コントロールですよね? 作ったチェックボックスとセルの紐づけは? ＞チェックボックスにチェックを入れると他のセルが無効無効とは? 1つ目のチェックボックスにチェックを入れると A.2つ目以降の111に紐づけられたチェックボックスにチェックが入らないようになる B.2つ目以降の111に紐づけられたチェックボックスにチェックを入れると1つ目のチェックボックスのチェックが外れるどちらでしょう? 各チェックボックスごとに checkbox1_click()でイベントを拾えばできそうですねあと、気になった点として、標準コントロールのチェックボックスであればワークシートのどこにでも配置できますよね? 最初の疑問の「紐づけ」は チェックボックスの位置をずらされて 111のチェックボックスのつもりが222の位置にされたら見た目では判断しずらいですよ。（たつ） 2023/02/16(木) 13:29:54 ---- シート上にCheckBox1〜10という名前のActiveXコントロールのチェックボックスがあるとしてシートモジュールに以下のコードを貼り付けます。 CheckBox1〜5、CheckBox6〜10を一つのグループとしてその中の一つにチェックを入れると他のチェックボックスがクリックできなくなります。チェックの入ったボックスを再度クリックしてチェックを外すとグループ内のチェックボックスは再度チェックを入れることができるようになります。 Private Sub CheckBox1_Click() Call CheckboxGroup(1, (CheckBox1.Value) * -1) End Sub Private Sub CheckBox2_Click() Call CheckboxGroup(1, (CheckBox2.Value) * -2) End Sub Private Sub CheckBox3_Click() Call CheckboxGroup(1, (CheckBox3.Value) * -3) End Sub Private Sub CheckBox4_Click() Call CheckboxGroup(1, (CheckBox4.Value) * -4) End Sub Private Sub CheckBox5_Click() Call CheckboxGroup(1, (CheckBox5.Value) * -5) End Sub Private Sub CheckBox6_Click() Call CheckboxGroup(6, (CheckBox6.Value) * -6) End Sub Private Sub CheckBox7_Click() Call CheckboxGroup(6, (CheckBox7.Value) * -7) End Sub Private Sub CheckBox8_Click() Call CheckboxGroup(6, (CheckBox8.Value) * -8) End Sub Private Sub CheckBox9_Click() Call CheckboxGroup(6, (CheckBox9.Value) * -9) End Sub Private Sub CheckBox10_Click() Call CheckboxGroup(6, (CheckBox10.Value) * -10) End Sub Private Sub CheckboxGroup(ByVal StartNumber As Long, ByVal ClickedNumber As Long) Dim i As Long Dim buf As Boolean If ClickedNumber < 1 Then buf = True End If For i = StartNumber To StartNumber + 4 If i <> ClickedNumber Then With ActiveSheet.OLEObjects("CheckBox" & i) .Enabled = buf End With End If Next End Sub （ふなば） 2023/02/16(木) 14:34:10 ---- まあ、普通はこれかと＞それはチェックボックスではなくオプションボタン（ラジオボタン）（普通だよ） 2023/02/16(木) 18:57:26 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202302/20230216125444.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ