1:ボタンをエクセルのシート状に配置する
2:ボタンのキャプションには何も書いていない状態にする
3:ボタンを押したら、キャプションに"check"と入るようする
としたいのですが、どのようにしたらいいでしょうか。
1:ボタンをエクセルのシート状に配置して、2:ボタンのキャプションには何も書いていない状態にするために以下のようにしました。
Sub Sample_Button1() Dim c As Range Set c = ActiveCell Debug.Print (c.Value) Application.ScreenUpdating = False With ActiveSheet.Buttons.Add(c.Left + 3, c.Top + 3, c.Width - 6, c.Height - 6) .OnAction = "checkRecord" .Caption = "" End With Application.ScreenUpdating = True End Sub
3:押されたときにcheckRecordが呼ばれます。ここが上手く出来ません。
Sub checkRecord() Debug.Print ("おされた") '以下の書き方だとうまくいかない' Application.Caller.Caption = "check" End Sub
よろしくお願いいたします。
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2018/04/19 02:09