Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

40460 / 76732

←次へ　｜　前へ→


	【41370】Re:シート上にあるコンボボックスの設定方法

初心者です。 - 06/8/7(月) 20:49 -


	引用なし

	パスワード

▼inoue さん：

アドバイスありがとうございます。

ご教示のように、以下のようにコードを
書きましたが、「オブジェクトが見つかりません。」
と表示されてしまいました。

どのようにしたら良いのでしょうか？

Private Sub Workbook_Open()
With 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に記述するものだと思います。

0 hits

▼

【41360】シート上にあるコンボボックスの設定方法 初心者です。 06/8/7(月) 14:32