| |
▼オートマチック さん：
>▼りん さん：
>おはようございます。
>コマンドボタン（このボタンを押すと、一連の処理を行うマクロが入っています。）を貼り付けたシートを丸ごとコピーすると、コマンドボタン付きでシートは、コピーされるのですが、コマンドボタンに入っているマクロもコピーされないので、コピー先で貼りついたコマンドボタンを押しても、コピー元で貼り付けた
>コマンドボタンを押した時のようなことが出来ないのです。
？
実験
シート名が、Sheet1
コマンドボタン名が、CommandButton1
であるとして。
Sheet1にコマンドボタンを１つ配置
そのコマンドボタンをクリックして、以下のイベントを記述
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を実行すると新しいブックの名前が表示されるはずですが。
|
|
りん
- 05/7/15(金) 11:12 -
