|
▼ふうか さん:
こんにちは!
ちょっとした別案なのですが。
ComboBoxと同じ文字をシート内の使わない列(セル)に入れてみて
処理を行ってはどうでしょう?
例
A B C D ・・・・・・・・・ Z(←参照列)
1
2 あ い う ・・・・・・・・・ ma
3 え お か ・・・・・・・・・ mb
4 さ し す ・・・・・・・・・ mc
・
・
・
・
私の例ですとZ列に入れましたが、Z列が不都合とかでしたら
使わない他の列に変えて使用してみてください。
悪魔で別案ですが。
Private Sub CommandButton1_Click()
Dim p_name As String
Dim Rn As Range
p_name = Me.ComboBox1.Text
Set Rn = Columns("Z:Z").Find(p_name) '対象列で検索(この場合はZ列)
If Not Rn Is Nothing Then 'Z列で文字が見つかったら
Me.TextBox2.Text = Cells(Rn.Row, 2).Text
Me.TextBox3.Text = Cells(Rn.Row, 3).Text
Me.TextBox4.Text = Cells(Rn.Row, 4).Text
End If
End Sub
|
|