VBAリストボックスの項目を選択しますが、値は「無」のままです

Question

Excel VBAのユーザーフォームに苦労しています。

クイック説明、私は手動でラベル

iはテンプレートをコピーするマクロを使用する場合、リストボックスが意図したとおりに選択されるが、の値から生成されたテンプレートから充填またはコピーするか、5 userform.listboxを有しますバックグラウンドは5つのボックスのうちの2つに残っています....そして必ずしも同じではありません。私は値を生成するために、強調表示された項目を手動でクリックする必要があります。

DD_は私のリストボックス、

EX_ある5つの作品、

2のうち3値、常に同じではないとするとき、私は入れを読み込むことはありませんので、必ず私のラベル

Dim ValueNewShrink As String 
Dim ValueGroup As String 
Dim ValueType As String 
Dim ValuePayType As String 
Dim ValueGroupType As String 

ValueNewShrink = Validation.EX_NewShrink.Caption 
Validation.DD_NewShrink.Value = ValueNewShrink 

ValueGroup = Validation.EX_Group.Caption 
Validation.DD_Group.Value = ValueGroup 

ValueType = Validation.EX_Type.Caption 
Validation.DD_Type.Value = ValueType 

ValuePayType = Validation.EX_PayType.Caption 
Validation.DD_PayType.Value = ValuePayType 

ValueGroupType = Validation.EX_GroupType.Caption 
Validation.DD_GroupType.Value = ValueGroupType 

ですブレークポイントを追加して分析する時計を追加すると、EX_ .captionにはテキストが関連付けられていますが、DD_ .value = ""、もう一方の3つは同じキャプション、変数、値があり、奇妙なものは右のリストボックスが選択されています私の形で.....

助けてください！

Answer 1

私は理由を特定できなかったので、空白であれば検索しています。

If NewCodeFound.DD_NewShrink.Text <> "" Then 
Worksheets("Email new code").Range("C10").Value = NewCodeFound.DD_NewShrink.Text 
Else 
Worksheets("Email new code").Range("C10").Value = NewCodeFound.EX_NewShrink.Caption 
End If 


If NewCodeFound.DD_Group.Text <> "" Then 
Worksheets("Email new code").Range("D10").Value = NewCodeFound.DD_Group.Text 
Else 
Worksheets("Email new code").Range("D10").Value = NewCodeFound.EX_Group.Caption 
End If 

If NewCodeFound.DD_Type.Text <> "" Then 
Worksheets("Email new code").Range("E10").Value = NewCodeFound.DD_Type.Text 
Else 
Worksheets("Email new code").Range("E10").Value = NewCodeFound.EX_Type.Caption 
End If 

If NewCodeFound.DD_PayType.Text <> "" Then 
Worksheets("Email new code").Range("F10").Value = NewCodeFound.DD_PayType.Text 
Else 
Worksheets("Email new code").Range("F10").Value = NewCodeFound.EX_PayType.Caption 
End If 

If NewCodeFound.DD_GroupType.Text <> "" Then 
Worksheets("Email new code").Range("G10").Value = NewCodeFound.DD_GroupType.Text 
Else 
Worksheets("Email new code").Range("G10").Value = NewCodeFound.EX_GroupType.Caption 
End If