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

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

[[20221031173701]]: #score: 5499; @digest: dff43cea64fb846fb9370f6149257229; @id: 92675; @mdate: 2022-10-31T10:29:04Z; @size: 3252; @type: text/plain; #keywords: hideall (51665), 各ch (13266), rect1 (12255), checkbox (7930), ルek (7748), ek26 (7620), 時p (7323), 転fo (7323), 下時 (6475), 時fo (6058), bname (5230), controlformat (4706), クボ (4406), 回sh (3942), checkbox1 (3470), buttons (3300), visible (3167), 示/ (3035), oval (2690), 示中 (2129), 示状 (1997), shapes (1760), 押下 (1503), チェ (1392), shape (1391), 隠す (1324), ン押 (1282), ェッ (1260), 記コ (1235), activesheet (1206), ボッ (1190), 白茶 (1022); 『チェックボックス解除コード』（コンタ）
ご教授ください チェックボックスを使用して円状のオブジェクトをON/OFFする記述を行ないました。(下記コード） Sub 例1() Dim BName As String Dim cb As CheckBox 'クリックされたチェックボックスの名前を取得 BName = Application.Caller 'クリックしたチェックボックスが「CheckBox1」だったら If BName = "CheckBox1" Then 'セルEK26がTrueだったら If Range("EK26") = True Then With ActiveSheet.Shapes.AddShape(msoShapeOval, 27.5, 361.1, 14.3, 14.3) '図形に名前を付ける .Name = "rect1" End With Else '図形「rect1」を削除 On Error Resume Next ActiveSheet.Shapes("rect1").Delete On Error GoTo 0 上手く動作しているのですがチェックボックス複数の一括解除等を実行するコードを作成し実行しましたがチェックボックスのチェックを外すことは出来るのですがオブジェクトが消えてくれません。（上記コードでチェックボックスを実際にクリックする記述がある為と思われます。）上記コードを維持したまま複数のチェックボックスを一括で全数解除を出来るコードは出来ないでしょうか? ＜使用 Excel:unknown、使用 OS:unknown ＞ ---- すみません足りてませんでしたオブジェクトも同時に削除できるコドです。（コンタ） 2022/10/31(月) 17:55:25 ---- ON/OFFするって、結構頻繁に切り替える想定なんでしょうかね? 見える/見えない以外に毎回Shapeを削除したり追加したりしなきゃいけない理由がないのなら表示/非表示の切り替えでだけも良いのではないかと思うのですが... そうすれば「ShapeのVisibleを対応する各CheckBoxの値に合わせる」って書き方も出来るでしょうし、ホントに消したい時にだけ使うマクロも別途用意しておけますし。（白茶） 2022/10/31(月) 18:53:25 ---- ↑だけじゃちょっと意図が伝わらないかと思って追記。雑な例でスマセンですが、表示/非表示の切り替えでやってしまうなら Shape-----[Oval1][Oval2][Oval3][Oval4]... CheckBox--[CheckBox1][CheckBox2][CheckBox3][CheckBox4]... Button----[HideAll] って配置しておいて、各CheckBoxとButtonに↓のマクロを登録 Sub 例2() Dim n As String, p As Shape, c As Long n = Application.Caller If n = "HideAll" Then '[HideAll]ボタン押下時 For Each p In ActiveSheet.Shapes If p.Name Like "Oval*" Then p.Visible = False '○を隠す If p.Name Like "CheckBox*" Then p.ControlFormat.Value = 0 'チェックも外す Next ActiveSheet.Buttons("HideAll").Visible = False '[HideAll]ボタンも隠す Else Set p = ActiveSheet.Shapes(Replace$(n, "CheckBox", "Oval")) '[CheckBox]押下時 p.Visible = Not p.Visible '○の表示状態を反転 For Each p In ActiveSheet.Shapes If p.Name Like "Oval*" And p.Visible Then c = c + 1 Next ActiveSheet.Buttons("HideAll").Visible = (c > 0) '表示中の○があれば[HideAll]ボタンを表示 End If End Sub という感じの仕掛けでイケたりしないかなぁ... と思ったのでした。「いや、消さなきゃならないのです」という事なら無視して下さい。（白茶） 2022/10/31(月) 19:29:04 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202210/20221031173701.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ