| 
    
     |  | ▼すず さん: おはようございます。
 
 >コンボボックスに
 >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())
 
 実行されるイベントプロシジャーにコンボボックスのメンバを登録するコードを
 記述します。
 
 
 |  |