| |
▼ichinose さん：
はい、ワークシートに直接貼り付けております。
ただし、1枚のシートに何個もコンボボックスがあるのですが、
それは気にせず、
Private Sub Worksheet_Open()
Dim i As Integer, k As Integer
For i = 1 To 12
For k = 1 To 5
コンボ.AddItem i & "月/" & k
Next
Next
コンボ.Clear
End Sub
としてのですが、動きませんでした。
というか、相変わらずイッパイありました。
何が異なっておるのでしょうか？
>▼すず さん：
>おはようございます。
>
>>コンボボックスに
>>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()）
>
>実行されるイベントプロシジャーにコンボボックスのメンバを登録するコードを
>記述します。
|
|
すず
- 07/9/13(木) 11:32 -
