Excel VBA質問箱 IV

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

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


54278 / 76732 ←次へ | 前へ→

【27250】Re:コードをひとまとめにすることはできますか?
回答  つん E-MAIL  - 05/8/3(水) 15:08 -

引用なし
パスワード
   ▼アイアム さん:
>ボタンは[ツール]-[ユーザー設定]-[ツールバー]で「フォーム」にチェックを入れたときに出てくるツールバーにあるボタンを使用しました。
>
><シート名>
>サンプル1
>
>[ボタン1][ボタン2][ボタン3]
>
><シート名>
>サンプル2
>
>[ボタン1][ボタン2][ボタン3]
>
><シート名>
>サンプル3
>
>[ボタン1][ボタン2][ボタン3]
>
>といったブックがあります。
>
>Visual Basic Editorを起動し、
>Microsoft Excel Objectsの
> Sheet1 (サンプル1)
> Sheet2 (サンプル2)
> Sheet3 (サンプル3)
>にそれぞれ、
> Sub btn1()
> End Sub
>--------------
> Sub btn2()
> End Sub
>--------------
> Sub btn3()
> End Sub
>
>を記述しています。
>
>シート名:サンプル1
> [ボタン1]にマクロの登録で「Sheet1.btn1」
> [ボタン2]にマクロの登録で「Sheet1.btn2」
> [ボタン3]にマクロの登録で「Sheet1.btn3」
>
>シート名:サンプル2
> [ボタン1]にマクロの登録で「Sheet2.btn1」
> [ボタン2]にマクロの登録で「Sheet2.btn2」
> [ボタン3]にマクロの登録で「Sheet2.btn3」
>
>シート名:サンプル3
> [ボタン1]にマクロの登録で「Sheet3.btn1」
> [ボタン2]にマクロの登録で「Sheet3.btn2」
> [ボタン3]にマクロの登録で「Sheet3.btn3」
>
>というように登録しています。
>
>ボタン1〜3のコードをひとまとめに記述した上で、
>各シートのボタンをクリックしたときに、そのシート内でコードが適応されるようにしたいのです。

あー、だいたいわかったような気がします(気がするだけやったりして・・

「Sheet1.btn1」と「Sheet2.btn1」と「「Sheet3.btn1」
の中味はまるまる同じなわけですね?
でしたら、

「標準モジュール」内(メニューの「挿入」の中にあります)に

Sub btn1()
 '処理処理
End Sub

Sub btn2()
 '処理処理
End Sub

Sub btn3()
 '処理処理
End Sub

と、ボタン1,2,3のコードを書いて、
各々のシートのボタンに対応するコードを登録したらええと思います。
こんな説明でわかられたでしょうか?
0 hits

【27245】コードをひとまとめにすることはできますか? アイアム 05/8/3(水) 14:04 質問
【27246】Re:コードをひとまとめにすることはできま... つん 05/8/3(水) 14:13 回答
【27249】Re:コードをひとまとめにすることはできま... アイアム 05/8/3(水) 14:48 質問
【27250】Re:コードをひとまとめにすることはできま... つん 05/8/3(水) 15:08 回答
【27254】解決です。ありがとうございました。 アイアム 05/8/3(水) 15:46 お礼

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