|
▼初心者です。 さん:
こんばんわ
コンボボックスがあるシートと、開いた時に表示されるシートが違うのでは?
>▼inoue さん:
>
>アドバイスありがとうございます。
>
>ご教示のように、以下のようにコードを
>書きましたが、「オブジェクトが見つかりません。」
>と表示されてしまいました。
>
>どのようにしたら良いのでしょうか?
>
>Private Sub Workbook_Open()
>With ComboBox1
With Worksheets("Sheet1").ComboBox1
> .AddItem "テスト1"
> .AddItem "テスト2"
> .AddItem "テスト3"
> .AddItem "テスト4"
> .AddItem "テスト5"
>
> End With
>
>
>End Sub
>
>>>※ 実現したいこと
>>>1.上記のように増やさずリストを5つのまま固定したい
>>> のです。
>>リストの内容に変動がないなら、
>>ThisWorkbookのWorkbook_Openイベントなどでセットするように
>>変更してみてはいかがでしょう。
>>
>>>2.リストから一つ選択すると下方にあるセル(例えばD5)
>>> の計算式を変えたい。
>>> ・テスト1なら テスト1の値×0.05
>>> ・テスト2なら テスト1の値×0.07
>>これこそComboBox1_Changeに記述するものだと思います。
|
|