| |
おかげ様でなんとか使えるようになりました。もう少し使い勝手を良くしたいと思っています。 もう一つだけお願い出来ますでしょうか？まだやった事もなく何冊かの書籍も目を通しましたが、ケースが見当たらずお願いしたいのですが・・度々ですみません。宜しくお願い致します。
同一ユーザーフォーム内にテキストボックス１つとコンボボックスが３つありテキストボックス（スピンボタン）を初期化しています。ここにコンボボックスのリストをセットしようとするとエラー（オブジェクトが必要です）がでてしまいます。残りの２つのコンボボックスにもリストをセットしたいのですが、どのようにしたら良いのかお願い致します。
Private Sub UserForm_Initialize()
With SpnDate
.Min = DateValue("1900/1/1")
.Max = DateValue("9999/12/31")
.Value = Date
End With
With ComboBox6Date
.Value = Worksheets("Sheet1").Cells(i + 2, 2).Value
End With
End Sub
With ComboBox6Date 以下でエラーになってしまいます。宜しくお願い致します。
|
|
かずお
- 07/7/4(水) 19:18 -
