|
▼オートマチック さん:
>▼りん さん:
>おはようございます。
>コマンドボタン(このボタンを押すと、一連の処理を行うマクロが入っています。)を貼り付けたシートを丸ごとコピーすると、コマンドボタン付きでシートは、コピーされるのですが、コマンドボタンに入っているマクロもコピーされないので、コピー先で貼りついたコマンドボタンを押しても、コピー元で貼り付けた
>コマンドボタンを押した時のようなことが出来ないのです。
?
実験
シート名が、Sheet1
コマンドボタン名が、CommandButton1
であるとして。
Sheet1にコマンドボタンを1つ配置
そのコマンドボタンをクリックして、以下のイベントを記述
Private Sub CommandButton1_Click()
MsgBox ActiveSheet.Parent.Name, vbInformation, "ブック名"
End Sub
標準モジュールを追加して、
Sub test()
'シートをコピーして新しいブックを作る
ThisWorkbook.Worksheets("Sheet1").Copy
'Clickイベントを起こす
ActiveSheet.OLEObjects("CommandButton1").Object.Value = True
End Sub
このTestを実行すると新しいブックの名前が表示されるはずですが。
|
|