【ExcelマクロVBA】抽出したデータをリストボックスで表示させるマクロ

質問

Excelであるセルに入力したデータを別シートから抽出して、別セルにリストボックスで表示させる方法が分らなくて悩んでいます。
例えば、下のような価格表があって
　　<A列>　<B列>　<C列>
1　りんご　A店 　100円
2　りんご　B店 　 90円
3　すいか　A店　 950円
4　すいか　C店 800円
5　みかん　D店　 100円
　・　　・　　　・
　・　　・　　　・
入力シートが別シートにあり、
　　<A列>　<B列>　<C列>
1
2
3
セルA1へ例えば「すいか」を入力（リストボックスから選択できるようにしてあります）した場合、B1は「A店」か「C店」のみが、C1は「950円」か「800円」のみを選択できるようなマクロを作りたいと思っています。この価格表は流動的で毎日更新されています。A列の品名は絶えず更新し、C列の価格も変動しているのでLookupなどの関数では無理ではと思っていますがマクロだと可能でしょうか？
なお、この入力シートを別シートへ転記させて活用するつもりで
入力ミスや空欄をチェックさせて転記を中断（MsgBox等）させたいのですが、セル指定で判断させるのではなく（A列を全て埋める必要はありません）、例えばA1に品名が入力した場合、1行目の該当セル（記入必須項目）の空欄が無いこと・入力が正しいかをチェックする様な条件分岐のマクロ記述方法を教えてください。
説明が拙いかと存じますが、宜しくお願いします。

回答No.1

imogasi

これはプチ課題の丸投げですね。
（１）質問の文章は長いが、入力シート（Sheet1と仮定して）に数件入力した時の後の姿が書かれていないので判りにくい。このほうが自然だろうと推定でやった。
（２）リストボックスはコンボでやった。
クリックする前は、大きさが１行で済むのでこの方が良かろうかと思った。（オブジェクトをリストボックスを貼り付けにして、下記コードでCombox1をlistBox1に置き換えると動くと思う。）
ーー
全般に簡単そうに見えるが、質問者のレベルでは、荷が重いのでは。
色々な課題が諸所に散らばっていると思うが、相当時間をかけないと
（まねすれば早いが）独力では、使えないもののようにおもう。
ーー
例データ
Sheet2　A2:C10
りんご A店 100
りんご B店 90
すいか A店 950
すいか C店&nbsp;&nbsp; 800
みかん D店 100
すいか E店 800
バナナ F店 200
すいか G店 750
みかん G店 200
Sheet1
コンボボックスを１つ張り付け。高さは１セル分。幅は２列データが
出せるぐらい。D列あたりに配置。
ーー
コード
標準モジュールに
Public tg As Range
　　－－
Sheet1のイベント・プロシに
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Set tg = Target
Dim sh1 As Worksheet
Dim sh2 As Worksheet
'--
Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")
' --
d = sh2.Range("A65536").End(xlUp).Row
ComboBox1.Clear
ComboBox1.Top = tg.Offset(0, 2).Top
'---
For i = 2 To d
If Target = sh2.Cells(i, "A") Then
s = sh2.Cells(i, "B")
ComboBox1.AddItem s & Space(10 - Len(s)) & sh2.Cells(i, "C")
End If
Next i
End If
End Sub
および
Private Sub ComboBox1_Click()
tg.Offset(0, 1) = Left(ComboBox1.Text, 10)
tg.Offset(0, 2) = Mid(ComboBox1.Text, 10, 10)
ComboBox1.Clear
tg.Offset(1, 0).Activate
ComboBox1.Top = tg.Offset(0, 3).Top
End Sub
ーー
操作
Sheet1のA列で
例えば「すいか」と入れて、Enter。
コンボの▼をクリック。Sheet2のすいか該当分がでる。
どれか１つ選択。
入力した行の、B、C列にコンボで選択した行の、店と値段がセットされる。
直下行に行くから、商品名の入力繰り返し。
Sheet1の途中結果
りんご A店 100
バナナ F店 200
すいか E店 800
ーー
＞しているのでLookupなどの関数では無理ではと思っていますがマクロだと可能でしょうか？
まとはずれ。複数該当分は取れない。
ーー
キャンセルやDELETEなどをすると、上記では手当てがしてないのでエラーになる。イベント・プロシはそういう限界のあるものです。