| |
▼しょー さん：
おはようございます。
>Public Sub Worksheet_Change(ByVal Target As Range)
>というプロシージャをsheet2に作成しているのですが、
>フォームで作成したスピンボタンでセルの内容を変更しても
>このプロシージャが実行されないため、
現象、確認しました。リンクではイベントが発生しませんね！！
これは、コントロールツールボックスのスピンボタンでも同じでした。
まず、「フォームで作成したスピンボタン」に設定してある
リンクするセル（スピンボタン選択---右クリック---コントロールの書式設定にて）
の設定を削除してください。
次に Public Sub Worksheet_Change(ByVal Target As Range)
が記述してあるシートモジュールに
'=========================================================
Const trng = "a1" 'リンクセルと同じアドレス
Sub SpinButton_Change()
Range(trng).Value = Spinners("スピン 1").Value
' ↑スピンボックスを選択したときに
' 名前ボックスに表示される
End Sub
最後に
スピンボタン選択---右クリック---マクロの登録にて
上記のSpinButton_Changeを指定する
（例 Book1.xls!Sheet2.SpinButton_Change 等）
これでWorksheet_Changeイベントプロシジャーが
発生するはずですが・・・。
試してみてください。
|
|
ichinose
- 07/6/16(土) 7:58 -
