Excel VBA リストボックス

質問

Excelで管理している台帳にあるデータをユーザーフォームで呼び出して更新作業をしたいと考えています。完全に我流でやってきており、まわりくどい記述等あるかもしれませんが、ご了承ください。
また開示しにくい情報が多々あるため、記述のごく一部を抜粋しています。

添付の記述は、Excelのマスタシートにある会社名のマスタをリストボックスに取り込み、
一覧にあるデータを選択状態にしようとしています。

D_会社名にはtestという会社名が入力されており、y_会社名にもtestがセットされるはずなのに
何故か””になってしまいます。

これは何が原因なのでしょうか。

回答No.2

end-u

On Error Resume Next
この行をコメントアウトして確認してください。
エラーを無視してるわけですから
これを活かしたままだとデバッグできません。

確認の内容は、
MATUGYO、rw、D_会社名、syutoku、それぞれ順を追って
各変数に何が格納されているか確認する必要があります。
ステップ実行時にマウスカーソルをあてて確認しても良いし、
[ローカルウィンドウ]を表示させておいて確認しても良いし。
または、実行後にListBoxのどの行が選択されているかによって
推測できそうなものですが。

気になるのはrwですね。モジュールレベルの変数でしょうか。
D_会社名がEmptyで、ListBoxのデータに空白値があるなら
y_会社名.Value = "" もあり得るかもしれません。

ただ、目的からすると、単一項目選択のListBoxの場合は
y_会社名.Value = Range("C" & rw).Value
これで選択してくれます。
データがListにない場合も対応できるように
この直前にOn Error Resume Nextを入れれば良いです。

お礼

回答ありがとうございます。

各変数へは把握しているとおりに格納されていました。
D_会社名もしっかり格納されています。

rwはPublicで宣言してあります。

直接y_会社名.Value = Range("C" & rw).ValueでもOKとのことで、記述をそちらに切り替えましたが、やはり、y_会社名.Value = ""になってしまいます。

画像を添付したほうが見やすいのですが、やり方がわからないのでべた打ちしました。

Sub (1)会社名読み込み()
'On Error Resume Next
With Worksheets("マスタ")
MATUGYO = .Cells(65536, 2).End(xlUp).Row
For i = 4 To MATUGYO
y_会社名.AddItem .Cells(i, 2)
Next i

y_会社名.Value = Range("C" & rw).Value

MsgBox y_会社名

''*****呼び出した行の項目を選択状態にしておく
' '呼び出した行の項目を取得
' D_会社名 = Range("C" & rw).Value
' 'それがマスタの何行目か
' Set syutoku = .Range("B4:B65536").Find(what:=D_会社名)
' If y_会社名.ListCount > 0 Then
' 'マスタの開始行分を差し引いた行を選択状態にする
' y_会社名.ListIndex = syutoku.Row - 4
'
' kari = y_会社名.Value
' End If
End With
End Sub

y_会社名.Value = ""になっているのに
ユーザーフォームを見ると、きっちり選択状態にはなっており、
そのまま更新ボタンを押して、再度Excelに戻すと空白で上書きされてしまいます。
選択状態になっているリストをクリックしてから更新ボタンを押せば、ちゃんとtestがExcelに上書きされます。