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