|
▼すず さん:
おはようございます。
>コンボボックスに
>Private Sub コンボ_Change()
> Dim i As Integer, k As Integer
>
コンボ.clear
'とすれば、取り合えず回避はできますが・・・。
> For i = 1 To 12
> For k = 1 To 5
> コンボ.AddItem i & "月/" & k
> Next
> Next
>
>End Sub
このイベントでコンボボックスのメンバー登録することが間違っていると思いますよ。
このコンボボックスがシートに貼り付けたものなのか
ユーザーフォームのそれなのかが不明です。
それによって、コードを記述するモジュールやプロシジャーが違ってきます。
シートに貼り付けたものならば、
ブックを開いた時に、(Thisworkbookのモジュールのworkbook_open())
ユーザーフォームならば、
ユーザーフォームをロードした時に
(ユーザーフォームのモジュールのUserForm_Initialize())
実行されるイベントプロシジャーにコンボボックスのメンバを登録するコードを
記述します。
|
|