| |
こんにちは。かみちゃん です。
>フォーム内で、顧客IDを入力した後、「検索」ボタンを押すと、予め
>作成しておいたリストがあるシートでそのIDを検索し、一致したもの
>のすぐ右のセルに入力してある顧客氏名をフォーム内の顧客氏名
>のテキストボックスに抽出する
以下のような感じでできます。
Private Sub CommandButton1_Click()
Dim strID As String
Dim c As Range
strID = Me.TextBox1.Value 'TextBox1の値をIDとする。
With Sheets("Sheet1").Columns("A")
'IDをSheet1のA列から検索する。
Set c = .Find(strID, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
'見つかったセルの1列右隣のセルの値をTextBox2の値とする。
Me.TextBox2.Value = c.Offset(, 1).Value
Else
MsgBox "その値はありません"
End If
End With
End Sub
検索結果をTextBoxに表示するということですが、表示されたものが書き換える
ことができるのですが、いいのでしょうか？
TextBoxが書き換えられないようにロックするか、TextBoxではなく、Labelに
するほうがいいのではないでしょうか？
|
|
かみちゃん
- 06/6/13(火) 6:29 -
