Excel VBA質問箱 IV

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

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


5118 / 13646 ツリー ←次へ | 前へ→

【52536】コンボボックスで・・・ tokimura 07/11/17(土) 22:53 質問[未読]
【52537】Re:コンボボックスで・・・ かみちゃん 07/11/17(土) 23:01 発言[未読]
【52539】Re:コンボボックスで・・・ tokimura 07/11/17(土) 23:09 発言[未読]
【52543】Re:コンボボックスで・・・ りん 07/11/18(日) 16:32 発言[未読]
【52549】Re:コンボボックスで・・・ tokimura 07/11/18(日) 22:54 発言[未読]

【52536】コンボボックスで・・・
質問  tokimura  - 07/11/17(土) 22:53 -

引用なし
パスワード
   コンボボックス1つ、ボタン1つ、ラベル1つ、イメージ1つをフォーム上に作成しています。
コンボボックスから1つ項目を選ぶとラベルには選んだ物の説明を表示し、イメージにその画像を表示するようにしています。

ご教授をお願いしたいのは、上記の状態でボタンを押すと、コンボボックスから選んだものでラベルが次の説明を表示して、イメージで違う画像を表示させたいのですがいまいち表記方法がわかりません。


ヒントなどご教授お願いいたします。VBAは初心者ですがネットなどでいろいろ調べてやってきましたがこの部分で困ってしまったのでお願いいたします。

【52537】Re:コンボボックスで・・・
発言  かみちゃん  - 07/11/17(土) 23:01 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>コンボボックス1つ、ボタン1つ、ラベル1つ、イメージ1つをフォーム上に作成しています。
>コンボボックスから1つ項目を選ぶとラベルには選んだ物の説明を表示し、イメージにその画像を表示するようにしています。

ご自身でできているコードはないのでしょうか?
あれば、提示しませんか?

【52539】Re:コンボボックスで・・・
発言  tokimura  - 07/11/17(土) 23:09 -

引用なし
パスワード
   ▼かみちゃん さん

すみません。今できている部分のプログラムを出します。

Private Sub コンボ_Change()
    ラベル.Value = Cells(3 + コンボ.ListIndex, 2)
    imgEntry
End Sub

Sub imgEntry()   
イメージ.Picture = LoadPicture(Cells(10 + コンボ.ListIndex, 1))   
End Sub

Private Sub UserForm_Initialize()
  コンボ.ListIndex = 0
End Sub

一応、シートから読み込むようにしています。画像のファイルパスもシートの中に書いていてそれを読み込んでいます。

【52543】Re:コンボボックスで・・・
発言  りん E-MAIL  - 07/11/18(日) 16:32 -

引用なし
パスワード
   tokimura さん、こんにちわ。

>一応、シートから読み込むようにしています。画像のファイルパスもシートの中に書いていてそれを読み込んでいます。

リストからイメージ
htt p://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=29484;id=excel

再描画(画面更新)
htt p://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=39813;id=excel

このあたりが参考になりませんかね。

【52549】Re:コンボボックスで・・・
発言  tokimura  - 07/11/18(日) 22:54 -

引用なし
パスワード
   ▼りん さん:
はじめまして。

提示していただいた質問を参考にしてやってみます。
ヒントありがとうございます。

5118 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free