ExcelシートからTextBoxに2つの名前を表示

Question

Excel 2013. TextBoxに2つの名前を表示するには、データはExcelシートからのものです。 従業員IDに基づいて1つの名前を表示できますが、2つの名前を表示したい場合は機能しません。 TextBox2で複数行を有効にします。

コードこれまで：範囲を通じて

Private Sub ComboBox1_Change() 

Dim mySheet As Worksheet 'declaring mySheet as the Worksheet... 
Dim x 
Dim i As Long 
Dim str As String 
Set mySheet = Sheets("Sheet1") 

x = mySheet.Range("A1").CurrentRegion.Value 

For i = 2 To UBound(x, 1) 
    If x(i, 2) = Val(ComboBox1.Value) Then 
     If str = "" Then 
      str = x(i, 1) 
     Else 
      str = str & vbNewLine & x(i, 1) 
     End If 
    End If 
Next i 

If str <> "" Then 
    TextBox3.Value = str 
Else 
    TextBox3.Value = "Match not found" 
End If 

End Sub 

Private Sub UserForm_Initialize() 

ComboBox1.Clear 

With ComboBox1 
    .AddItem "Mon" 
    .AddItem "Tue" 
    .AddItem "Wed" 
End With 

End Sub 

Answer 1

設定Multilie施設としてみてください以下のコード...

Private Sub TextBox1_Change() 

Dim mySheet As Worksheet 'declaring mySheet as the Worksheet... 
Dim x 
Dim i As Long 
Dim str As String 
Set mySheet = Sheets("Sheet1") 

x = mySheet.Range("A1").CurrentRegion.Value 

For i = 2 To UBound(x, 1) 
    If x(i, 2) = Val(TextBox1.Value) Then 
     If str = "" Then 
      str = x(i, 1) 
     Else 
      str = str & vbNewLine & x(i, 1) 
     End If 
    End If 
Next i 

If str <> "" Then 
    TextBox3.Value = str 
Else 
    TextBox3.Value = "Match not found" 
End If 

End Sub 

あなたがComboBox1の代わりにComboBox1のは、テキスト値を持っているのTextBox1を持っている場合、あなたはこのようにそれを試すことができます...

Private Sub ComboBox1_Change() 
Dim mySheet As Worksheet 'declaring mySheet as the Worksheet... 
Dim x 
Dim i As Long 
Dim str As String 
Set mySheet = Sheets("Sheet1") 

x = mySheet.Range("A1").CurrentRegion.Value 
If Application.CountIf(mySheet.Columns(2), ComboBox1.Value) > 0 Then 
    For i = 2 To UBound(x, 1) 
     If x(i, 2) = ComboBox1.Value Then 
      If str = "" Then 
       str = x(i, 1) 
      Else 
       str = str & vbNewLine & x(i, 1) 
      End If 
     End If 
    Next i 
    TextBox3.Value = str 
Else 
    TextBox3.Value = "Match not found" 
End If 
End Sub 

Answer 2

ループと、次のようにテキストボックスに値を連結：TrueにTextBox3ため

If Not myRange Is Nothing Then 
    For Each c In myRange.Cells 
     TextBox3.Value = TextBox3.Value & " " & c.Value 
    Next 
Else 
    TextBox3.Value = "Match not found" 
End If