|
前回の質問でかみちゃんさんも言ってますが、
Sheet1がどのようなレイアウトになっているかわからないので、
たとえば、
A B C D E
1 ID番号 氏名 年齢 住所
2 1 あ 23 東京
3 2 い 43 大阪
4 3 う 65 愛知
5 4 え 34 島根
6 5 お 23 福岡
7 6 か 34 山口
8 7 き 24 東京
9 8 く 52 大阪
10 9 け 43 愛知
11 10 こ 54 島根
12 11 さ 52 福岡
13 12 し 75 山口
14
と、なっているとして
ユーザーフォームに
TextBoxを4つ と CommandButtonを2つ貼り付けて
TextBox1は、ID入力用
TextBox2は、氏名表示用
TextBox3は、年齢表示用
TextBox4は、住所表示用
CommandButton1は、検索用
CommandButton2は、終了用
フォームモジュールに
Option Explicit
Private Sub CommandButton1_Click()
Dim FR As Variant
If Me.TextBox1.Value = "" Or Not IsNumeric(Me.TextBox1.Value) Then
Me.TextBox1.Value = ""
MsgBox "ID番号を入力してください"
Exit Sub
Else
With Sheets("Sheet1")
FR = Application.Match(Val(Me.TextBox1.Value), .Range("A:A"), 0)
If IsError(FR) Then
MsgBox "入力されたIDは一致するものはありません"
Exit Sub
Else
Me.TextBox2.Value = .Cells(FR, 2).Value
Me.TextBox3.Value = .Cells(FR, 3).Value
Me.TextBox4.Value = .Cells(FR, 4).Value
End If
End With
End If
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
と こんな感じになりますが・・・
|
|