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

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

[[20231221115947]]: #score: 5499; @digest: fce4a25ab7fd653b1bd554e198866b75; @id: 95854; @mdate: 2023-12-21T05:15:41Z; @size: 1916; @type: text/plain; #keywords: controlformat (32944), xlcheckbox (14010), formcontroltype (13442), チナ (12960), 助六 (7911), xloff (6953), クボ (3855), ブx (3276), linkedcell (3136), ス右 (2431), enabled (2347), ムコ (1904), sp (1550), チェ (1392), スキ (1384), 既出 (1347), る20 (1291), ェッ (1260), caller (1180), ボッ (1041), ナス (997), トロ (974), クメ (963), excel2021 (911), ック (875), クス (836), shape (695), （チ (692), 2023 (602), 木) (585), ロー (452), コン (451); 『チェックボックスを条件によってチェックできなくさせる方法』（チナスキー）
例えば、、 A1セルに「N」という文字が入力されていたら、 B1にあるチェックボックス（C1にTRUE/FALSEが入るようになっている）にチェックをできなくさせる方法を教えていただきたいです。どうやってチェックボックスに条件を持たせたらいいのか検索しても見つからずで、、既出でしたら申し訳ありません。＜使用 Excel:Excel2021、使用 OS:Windows10 ＞ ---- チェックボックスはフォームコントロールとアクティブXコントロールと2種類がありますが、どちらでしょう? （通りすがり助六） 2023/12/21(木) 13:05:37 ---- 通りすがり助六様ありがとうございます。フォームコントロールでチェックボックスを作りました。（チナスキー） 2023/12/21(木) 13:22:26 ---- 以下をチェックボックス右クリックメニューの「マクロの登録」に指定で、どうでしょう? Sub test() Dim sp As Shape Set sp = ActiveSheet.Shapes(Application.Caller) If sp.FormControlType = xlCheckBox Then If Range(sp.ControlFormat.LinkedCell).Offset(, -2) = "N" Then sp.ControlFormat.Value = IIf(sp.ControlFormat.Value = xlOff, xlOn, xlOff) End If End If End Sub （まる2021） 2023/12/21(木) 13:40:42 ---- まる2021様ご返答ありがとうございます。 チェックボックスにマクロを登録するというやり方があるのですね! ありがとうございます!やってみます! （チナスキー） 2023/12/21(木) 13:50:05 ---- まる2021さんのコードをお借りして・・ > チェックをできなくさせる方法とあるのでこういうことかと思いました。 Sub test2() Dim sp As Shape Set sp = ActiveSheet.Shapes(Application.Caller) If sp.FormControlType = xlCheckBox Then If Range(sp.ControlFormat.LinkedCell).Offset(, -2) = "N" Then sp.ControlFormat.Value = xlOff sp.ControlFormat.Enabled = False Else sp.ControlFormat.Enabled = True End If End If End Sub （通りすがり助六） 2023/12/21(木) 14:15:41 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202312/20231221115947.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ