[[20130311171215]]　『チェックされたら』（かなみ）　ページの最後に飛ぶ

『チェックされたら』（かなみ）
チェックが入ったら実行するマクロありませんか？
これを学校検索で見つけましたがどうにつかうのですか？

 >このコードに問題はないでしょうか？
 問題はないですねえ
 >チェックボックスを使ってマクロ実行のコードの書き方は他にないですか？
 方法は、いくつかあると思います。

 ＶＢＡコードで処理するなら、情報をセルに出さずにチェックボックスから
 取得する方法

 新規ブックにて

 標準モジュール(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()というマクロを実行すると
チェックの入ったチェックボックスに応じたマクロが実行される、という
サンプルですね。
　
ストレートにやりたいことを質問してみては？
（みやほりん）

コメント返信：

[ 一覧(最新更新順) ]

[[20130311171215]] 『チェックされたら』（かなみ） ページの最後に飛ぶ

[[20130311171215]]　『チェックされたら』（かなみ）　ページの最後に飛ぶ