リストボックスで選択した項目に該当するデーターをラベルに表示する

質問

よろしくお願いします

ユーザーフォームにリストボックスが2つ
ラベルが1つ
配置しています。

リストボックス1で選択した項目に該当するリストを
リストボックス2に表示する。
次に
リストボックス2で選択した項目に該当するデーターを
ワークシートのセル（E5：E300）から選んで
ラベル1に表示する。
このようにしたいのですがエラーが出ます。

Dim LastRow As Long
Dim DstRow As Long
Const FstRow As Long = 5
Dim MctRow As Long

　　－　　－　　－

Private Sub UserForm_Initialize()
With Me.ListBox1
.RowSource = Worksheets("入力").Range("A5:A300").Address(External:=True)
End With
End Sub

　　－　　－　　－

Private Sub ListBox1_Click()
Dim j As Integer
Dim RowCnt As Long
With Worksheets("入力")
LastRow = .Range("E300").End(xlUp).Row
ListBox2.Clear
For RowCnt = 5 To LastRow
If ListBox1.List(ListBox1.ListIndex) = .Cells(RowCnt, 3).Value Then
ListBox2.AddItem
For j = 0 To 1
ListBox2.List(ListBox2.ListCount - 1, j) = .Cells(RowCnt,5 + j).Value
Next j
End If
Next RowCnt
End With
End Sub

　　－　　－　　－

Private Sub ListBox2_Click()
Dim SrcCode As Long
SrcCode = ListBox2.List(ListBox2.ListIndex, 0)
　　　　↑　　　　↑　　　　↑

ここでエラーになります。
実行時エラー
型が一致しません　と表示されます

With Worksheets("入力")
LastRow = .Range("E300").End(xlUp).Row
MctRow = Application.WorksheetFunction.Match(SrcCode, .Range("E5:E" & LastRow), 0) + 5
Label1 = Format(.Cells(MctRow, 5))
End With
End Sub

回答No.4

hige_082

取り敢えず、今出てるエラーを回避するなら
＞Private Sub ListBox2_Click()
＞Dim SrcCode As Long
を
Private Sub ListBox2_Click()
Dim SrcCode
と、すれば良いと思うけど

後はlistboxにどんなデータが設定されているか
分らんので、回答のしようが無い

回答No.3

うぃず（@Wizard_Zero）

#1#2 Wizard_Zeroです。

数値ではないのなら、CLngは出来ませんね。
しかし、ListBox2の内容が計算に使用するものであるのなら、なんらかの数値情報が含まれていると判断します。
例えば、「ABC-123-XXX」というラベルで「123」だけ使いたい、など。
そういった場合は、Mid関数やInStr関数などの文字列処理系関数で必要な部分だけを抜き出す必要があります。

> このような場合の、記述はどうしたら良いのでしょうか。
と言われましても、実際にどのような文字列がListBox2にあり、そのうちどの部分を計算に使うのか、が解らないと回答のしようがありません。
実データが公開不可であれば同形式のダミーデータでもかまいません。
ご提示をお願いいたします。

回答No.2

うぃず（@Wizard_Zero）

#1 Wizard_Zeroです。

例えば「ABC」や「あいう」などはCLngで変換できません。
コントロールから数値データを受け取る時は、まずそれが数値に変換できるかどうかを調べないとエラーの嵐になります。

・実際にListBox2がどのような一覧になっているのか
・SrcCodeをLongで取得する必要性は？（あとで計算に使うとか…）
この２点が気になります。

補足

#1 Wizard_Zeroさん　ありがとうございます。
・ListBox2は数値ではありません。
・SrcCodeは、計算に使います。
このような場合の、記述はどうしたら良いのでしょうか。
何もかもお願いしてすみません。
よろしくお願いします。

回答No.1

うぃず（@Wizard_Zero）

Listプロパティの型がLong型ではないからです。
仮にリスト項目へLong型を設定しても、内部でString型に変換されるのでLong型で受け取ることは出来ません。

SrcCode = CLng(ListBox2.List(ListBox2.ListIndex, 0))

とすればLong型に変換できますが、Long型に変換できないようなデータがあればエラーになります。

補足

Wizard_Zeroさん　早速の回答ありがとうございます。
SrcCode = CLng(ListBox2.List(ListBox2.ListIndex, 0))
としたのですが、エラーになります。
Long型に変換できないデーターとは、どのようなデーターなのでしょうか
お教えください。
お願いします。