| |
▼ｸﾘｼｭﾌｧｰ さん：
こんにちは
ちんさんからアドバイスがあるクラスモジュールでの対応が、本格的なものですが
１２個のスピンボタンということになると、クラス仕立てにするためのコード量と
通常のコード量とでは、むしろ後者が少ないかもしれません。
あくまでご自身で判断されたらよろしいかと思いますが、私のリコメンドは以下です。
１．スピンボタンへのMin,Max,SmallChangeのセット
これは、コードではなく、フォームのデザインで。
SpinButton1〜12までを全て選択した状態で、左側のプロパティウインドウの
これらプロパティに値を入れることにより、１２個すべてにセットされます。
２．イベントプロシジャ
１）以下を１つだけ記述
Private Sub SpinButton1_Change()
Call Spin2Txt(1)
End Sub
２）これをシートにコピーし、３行選択してフィルコピー。
自動的に SpinButton2〜12までのコードが生成されるので、それをコピーして
ユーザーフォームモジュールに貼付け。
３）ユーザーフォームモジュールに以下を１つだけ記述。
Private Sub Spin2Txt(id As Long)
Me.Controls("TextBox" & id + 10).Value = Me.Controls("SpinButton" & id).Value
End Sub
|
|
UO3
- 12/1/31(火) 10:55 -
