Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


54787 / 76732 ←次へ | 前へ→

【26731】Re:ActiveXについて
発言  りん E-MAIL  - 05/7/15(金) 11:12 -

引用なし
パスワード
   ▼オートマチック さん:
>▼りん さん:
>おはようございます。
>コマンドボタン(このボタンを押すと、一連の処理を行うマクロが入っています。)を貼り付けたシートを丸ごとコピーすると、コマンドボタン付きでシートは、コピーされるのですが、コマンドボタンに入っているマクロもコピーされないので、コピー先で貼りついたコマンドボタンを押しても、コピー元で貼り付けた
>コマンドボタンを押した時のようなことが出来ないのです。


実験
シート名が、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を実行すると新しいブックの名前が表示されるはずですが。

0 hits

【26727】ActiveXについて オートマチック 05/7/15(金) 10:01 質問
【26729】Re:ActiveXについて りん 05/7/15(金) 10:34 発言
【26730】Re:ActiveXについて オートマチック 05/7/15(金) 10:57 質問
【26731】Re:ActiveXについて りん 05/7/15(金) 11:12 発言
【26734】Re:ActiveXについて オートマチック 05/7/15(金) 14:15 質問
【26735】Re:ActiveXについて Jaka 05/7/15(金) 14:53 回答
【26738】Re:ActiveXについて りん 05/7/15(金) 16:32 発言
【26745】Re:ActiveXについて オートマチック 05/7/15(金) 18:03 質問
【26746】Re:ActiveXについて りん 05/7/15(金) 18:41 発言
【26747】Re:ActiveXについて オートマチック 05/7/15(金) 19:03 お礼
【26736】Re:ActiveXについて Kein 05/7/15(金) 16:24 発言

54787 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free