VBA変数として複数列のコンボボックスから1つの列を使用

Question

クライアントとIDを示すユーザーフォームに複数列のコンボボックスを生成する次のコードがあります。私は両方の列をクライアントとして生成しなければならず、複数回リストされていましたが、IDは一意です。

が

MyAccount = UF_Format.CB_Account.Value 

コードは現在、次のとおりです。私は新しいシートにクライアントの詳細をコピーすることができるように選択したフィルタシートを値を使用していますし、変数として選択された値を使用していますが

i = 2 

For Each c In Range("D2", Range("D" & Rows.Count).End(xlUp)) 
    CB_Account.AddItem Cells(i, 4).Value & " : " & Cells(i, 3).Value 
    i = i + 1 

Next 

コンボボックスの値が2つの列を連結しているために転倒します。実際には、私のコードがフィルタリングできるように、IDである2番目の値だけを引き出す必要があります。

ご協力いただければ幸いです。

Answer 1

変数MyAccountを配列として宣言し、コロンを区切り文字としてコンボボックスの値を分割することができます。その後、配列の2番目の項目を操作できます。

Sub second_value() 
    Dim MyAccount() As String 

    MyAccount = Split(UF_Format.CB_Account.Value, " : ") 
    Debug.Print MyAccount(1) 
End Sub