| |
▼アイアム さん：
>ボタンは[ツール]-[ユーザー設定]-[ツールバー]で「フォーム」にチェックを入れたときに出てくるツールバーにあるボタンを使用しました。
>
>＜シート名＞
>サンプル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
と、ボタン１，２，３のコードを書いて、
各々のシートのボタンに対応するコードを登録したらええと思います。
こんな説明でわかられたでしょうか？
|
|
つん
- 05/8/3(水) 15:08 -
