コンボボックスにデータを表示するときに、３つの項目を横に表示したいと思っています。
（→　"部品番号"　"部品名称"　"メーカー"　　のように。）
そして、データを選択したら、部品番号のみをコンボに表示させる。
ドロップダウンリスト上は複数項目で、選択後は１つの項目を表示するということです。
このようなことは可能でしょうか？

どなたかレスお願いします。ヘンな質問だったらすみません。なにせ初心者なもので・・・

> コンボボックスにデータを表示するときに、３つの項目を横に表示したいと思っています。
> （→　"部品番号"　"部品名称"　"メーカー"　　のように。）
> そして、データを選択したら、部品番号のみをコンボに表示させる。
> ドロップダウンリスト上は複数項目で、選択後は１つの項目を表示するということです。
> このようなことは可能でしょうか？

「可能」ですね。

NEC001 PC-9801  NEC

とかの様に各項目を空白で区切り並べたらどうでしょうか？　桁あわせをして。
選択・指定されたら　Left 関数を使ってでも NEC001 は抜き出せます。


例えば簡単には下記みたいではどうですか？

Option Explicit

Private Sub Form_Load()

Combo1.AddItem "NEC001  PC-9801   NEC"
Combo1.AddItem "IBM001  Aptiva770 IBM"
Combo1.AddItem "DEL001  8200      DEL"

Combo1.Text = Combo1.List(0)

End Sub

Private Sub Combo1_Click()

Label1.Caption = Left(Combo1.List(Combo1.ListIndex), 6)

End Sub

　

> > コンボボックスにデータを表示するときに、３つの項目を横に表示したいと思っています。
> > （→　"部品番号"　"部品名称"　"メーカー"　　のように。）
> > そして、データを選択したら、部品番号のみをコンボに表示させる。
> > ドロップダウンリスト上は複数項目で、選択後は１つの項目を表示するということです。
> > このようなことは可能でしょうか？
>
> 「可能」ですね。
>
> NEC001 PC-9801  NEC
>
> とかの様に各項目を空白で区切り並べたらどうでしょうか？　桁あわせをして。
> 選択・指定されたら　Left 関数を使ってでも NEC001 は抜き出せます。
>
>
> 例えば簡単には下記みたいではどうですか？
>
> Option Explicit
>
> Private Sub Form_Load()
>
> Combo1.AddItem "NEC001  PC-9801   NEC"
> Combo1.AddItem "IBM001  Aptiva770 IBM"
> Combo1.AddItem "DEL001  8200      DEL"
>
> Combo1.Text = Combo1.List(0)
>
> End Sub
>
> Private Sub Combo1_Click()
>
> Label1.Caption = Left(Combo1.List(Combo1.ListIndex), 6)
>
> End Sub
>
> 　

レスありがとうございます。
上記の方法でやってみたところうまくいきました。

しかし、選択後一つの項目がコンボに表示されるのはいいのですが、
それ以降、ドロップダウンリストの表示も一つになってしまいます。

選択すると一つの項目が表示され、再度選択するときの”ドロップダウンリストの表示は
３項目”というふうにはできないでしょうか？

まず、不要な引用はしないで適切に削除して下さい。
私の提示した説明、サンプルコードを全て引用する必要はないでしょう。

> 上記の方法でやってみたところうまくいきました。
> しかし、選択後一つの項目がコンボに表示されるのはいいのですが、
> それ以降、ドロップダウンリストの表示も一つになってしまいます。

選択後、再度　Combo1　の右側の下向きの黒い三角をクリックすれば
こちらでは、全項目が表示されますが．．．．。（今回は NEC から DEL まで）

ListBox は縦幅を大きくすれば一度の複数表示しますが
Combo1　は普通は１ケ表示では無いのでしょうか？　（私が知っている範囲では）
プロパティ・ウインドウで Style で変更出来ますが．．．．。

> 選択すると一つの項目が表示され、再度選択するときの”ドロップダウンリストの表示は
> ３項目”というふうにはできないでしょうか？

こう言う事はまずはＨＥＬＰで調べましょう。

プロパティ・ウインドウで Style で
０　から２まである、１なら複数表示されるようです。

予想ですが・・・
Label1.Caption = Left(Combo1.List(Combo1.ListIndex), 6)
を
Combo1.Text = Left(Combo1.List(Combo1.ListIndex), 6)
としてやってるんじゃないかな？

それと、意図はCombBoxで選択時のみCombBoxに３項目表示で、選択後はCombBoxに
先頭項目だけ表示なのだと思うので、下の様にしてみたら？

Option Explicit

Private Sub Combo1_KeyPress(KeyAscii As Integer)

KeyAscii% = 0

End Sub

Private Sub Form_Load()

Combo1.AddItem "NEC001  PC-9801   NEC"
Combo1.AddItem "IBM001  Aptiva770 IBM"
Combo1.AddItem "DEL001  8200      DEL"

Combo1.Text = Left(Combo1.List(0), 6)

End Sub

Private Sub Combo1_Click()

Combo1.Text = Left(Combo1.List(Combo1.ListIndex), 6)

End Sub

なるほど、納得です。
「ドロップダウンリスト上は複数項目で、選択後は１つの項目を表示する」を
良く理解していませんでした。 Label1 は無いのですね。

> なるほど、納得です。
> 「ドロップダウンリスト上は複数項目で、選択後は１つの項目を表示する」を
> 良く理解していませんでした。 Label1 は無いのですね。

ありがとうございます。
その方法使わせてもらってやってみます。

またお願いします。