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

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

[[20130311171215]]: #score: 5499; @digest: c6c421e3d3faa422f29a6771d46ff7f4; @id: 61730; @mdate: 2013-03-12T01:14:22Z; @size: 2367; @type: text/plain; #keywords: chktest (14761), クボ (4406), checkboxes (3509), ス自 (2644), チェ (2227), ェッ (2017), ト的 (2004), 個作 (1626), ック (1216), ボッ (1190), はte (1033), クス (955), module1 (850), test3 (785), 実行 (773), test1 (547), 準モ (509), ロ実 (501), 、チ (498), す" (466), 規ブ (448), 再現 (438), test2 (426), ichinose (413), コー (407), ル( (400), モジ (379), クさ (375), ジュ (362), activesheet (344), 標準 (339), を実 (334); 『チェックされたら』（かなみ）
チェックが入ったら実行するマクロありませんか? これを学校検索で見つけましたがどうにつかうのですか? >このコードに問題はないでしょうか? 問題はないですねえ >チェックボックスを使ってマクロ実行のコードの書き方は他にないですか? 方法は、いくつかあると思います。 VBAコードで処理するなら、情報をセルに出さずにチェックボックスから取得する方法新規ブックにて標準モジュール(Module1）に Sub ready() Dim g0 As Long Dim r As Range With ActiveSheet For g0 = 1 To 3 Set r = Cells(g0, 1) With .CheckBoxes.Add(r.Left, r.Top, r.Width, r.Height) .Name = "chktest" & g0 .Caption = "チェック" & g0 End With Next End With End Sub 上記Readyを実行してください。アクティブシートにチェックボックスが3個作成されます。別の標準モジュールに Sub test1() MsgBox "これはtest1です" End Sub Sub test2() MsgBox "これはtest2です" End Sub Sub test3() MsgBox "これはtest3です" End Sub Sub test() Dim g0 As Integer With ActiveSheet For g0 = 1 To 3 With .CheckBoxes("chktest" & g0) If .Value = xlOn Then Application.Run Replace(.Name, "chk", "") End If End With Next End With End Sub チェックボックスにチェックを入れたり、はずしたりして、testを実行してください。これは、チェックボックス自体が持つチェックされたか否かのプロパティを参照し、 チェックボックスのオブジェクト名と実行するプロシジャー名を関連付けた例です。どれを使うかは、仕様にもよりますので・・・。試しましたがうまくいきません教えてください。 ---- >試しましたがうまくいきません教えてください。これでは、どのように試して、どのような結果になったのかわかりません。このようにコードを実行したら、このようになると思っていたが、実際には、このようになったと同じことが再現できる記述をしてください。 ichinose ---- ご提示のコードそのものはテスト的なもので何かが出来るわけでもありませんし、「チェックを入れたら自動的に何かをする」というコードでもありません。 チェックボックスのチェックを判定するtest()というマクロを実行するとチェックの入ったチェックボックスに応じたマクロが実行される、というサンプルですね。ストレートにやりたいことを質問してみては? （みやほりん） ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201303/20130311171215.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ