ワークシートのsheet1に表を作成します。

図６：


ワークシートのsheet2に費目コード表を作成します。

枠線は必要ありません。費目コード表が出来たら表全体を選択し、左上の行番号と下のシート名（ sheet2 ）を「費目」に書き換えます。

VBEに戻り、ComboBox1のRowSourceプロパティに「費目」と記述します。

F5キーを押して実行し、コンボボックスの三角記号をクリックして費目コード表が表示されれば成功です。
図７：


図８：


 テキストボックスの脇にスピンボタンを配置しましたが、まだ別々のものですから、関連つけなければなりません。

コードウィンドウのオブジェクトボックスから「txtMonth」を選択して「txtMonth_Change」プロシージャを作成します。


01:Private Sub txtMonth_Change()
02:   spnMonth.Value=txtMonth.Value
03:End Sub
コードウィンドウのオブジェクトボックスから「spnMonth」を選択して「spnMonth_Change」プロシージャを作成します。


01:Private Sub txtMonth_Change()
02:   txtMonth.Value=spnMonth.Value
03:End Sub
同様の手順で「txtDay_Change」プロシージャ、「spnDay_Change」プロシージャを作成します。


01:Private Sub txtDay_Change()
02:   spnDay.Value=txtDay.Value
03:End Sub


01:Private Sub spnDay_Change()
02:   txtDay.Value=spnDay.Value
03:End Sub


© AstroHeart. All Rights Reserved.