Excel VBA質問箱 IV

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

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


46031 / 76732 ←次へ | 前へ→

【35682】Re:シート上に設置したボタンのマクロについて
発言  ichinose  - 06/3/10(金) 8:29 -

引用なし
パスワード
   ▼空牙 さん:
おはようございます。

>いつもお世話になります。
>Excelのプログラムにてひとつどうしても解決できない現象があり、
>質問をあげさせて頂きたいと思います。
>
>【環境】
>エクセルブック(サンプル.xlsとします)の
>シート("シート1"という名前とします)上にボタンを設置しており
>そのボタンが参照するマクロ(mcr出力というマクロとします)が
>"シート1のシートモジュール"内にあるとします。
このボタンはコマンドバー「フォーム」にあるボタンですね?


>
>この時、ボタンのマクロ名は"サンプル.xls!mcr出力"になっていて
>ボタンを押せばmcr出力が走る状況です。

シートモジュールにあるのに"サンプル.xls!mcr出力"となっているのですか???


>
>【動作】
>↓プログラム内で処理しています。
>シート1を新規ブック(コピー.xlsとします)にコピーしてセーブします。
>
>【現象】
>新規に作成されたブックのシート1のボタンのマクロ名が
>"コピー.xls!mcr出力"となってほしいのに
>"サンプル.xls!mcr出力"となったままで
>ボタンを押すとサンプル.xlsを起動してサンプル.xlsのmcr出力を実行します。
>
>ボタンのonActionプロパティに"コピー.xls!mcr出力"とセットして
>セーブをしても"サンプル.xls!mcr出力"に戻ってしまいます。
>
>この現象を回避する方法をご存知の方がいらっしゃいましたら
>ご教授お願い致します。
簡単な方法は、このコマンドボタンをコマンドバー「フォーム」のボタンから
「コントロールツールボックス」のボタンに代えると名前のことを
気にしなくてすみますよ!!




新規ブックのSheet1に「コントロールツールボックス」のコマンドボタン(Commandbutton1)を配置します。


Sheet1のモジュールに

'========================================================
Private Sub CommandButton1_Click()
  Me.Copy
  
End Sub

「コントロールツールボックス」の
デザインモードを終了させます(三角定規のアイコンをクリック)。


これでボタンクリックで新規作成されたシートにあるプロシジャーが実行されます。


試してみてください。
4 hits

【35673】シート上に設置したボタンのマクロについて 空牙 06/3/9(木) 21:48 質問
【35682】Re:シート上に設置したボタンのマクロにつ... ichinose 06/3/10(金) 8:29 発言
【35708】Re:シート上に設置したボタンのマクロにつ... 空牙 06/3/10(金) 18:00 質問
【35725】Re:シート上に設置したボタンのマクロにつ... ichinose 06/3/11(土) 8:22 発言
【35842】Re:シート上に設置したボタンのマクロにつ... 空牙 06/3/14(火) 16:29 お礼
【35860】Re:シート上に設置したボタンのマクロにつ... ichinose 06/3/14(火) 18:32 発言

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