|
▼Tomi さん:
お試しください。
CommandButton1 …△
CommandButton2 …▽
CommandButton3 …指定NO
TextBox1.Value …NO
TextBox2.Value …項目1
TextBox3.Value …項目2
UserForm1に、以上6つのパーツを貼り付ける
■標準モジュールには、
Sub 表示の表示()
UserForm1.Show
End Sub
■「UserForm1」には、
'-------------------------------
Option Explicit 'グローバル変数の宣言
Dim 指定行 As Integer
Dim 指定NO As Integer
'-------------------------------
Private Sub UserForm_initialize() ''''''初期設定…先頭データの表示
指定行 = 2
Call 表示
End Sub
'-------------------------------
Private Sub CommandButton1_Click() ''''''△
指定行 = 指定行 - 1
Call 表示
End Sub
'-------------------------------
Private Sub CommandButton2_Click() ''''''▽
指定行 = 指定行 + 1
Call 表示
End Sub
'-------------------------------
Private Sub CommandButton3_Click() ''''''指定NO
指定NO = TextBox1.Value
On Error GoTo ES
指定行 = Application.WorksheetFunction.Match(指定NO, Range("A1:A6"), 0)
Call 表示
Exit Sub
ES:
MsgBox "該当NOなし"
Exit Sub
End Sub
'-------------------------------
Private Sub 表示()
With Worksheets("Sheet1")
TextBox1.Value = .Cells(指定行, 1).Value 'NO
TextBox2.Value = .Cells(指定行, 2).Value '項目1
TextBox3.Value = .Cells(指定行, 3).Value '項目2
End With
End Sub
┘┘┘┘┘┘┘┘┘┘┘┘┘
「TextBox1.Value」に指定NOを入力して、「CommandButton3」をクリックすると、ご希望の表示がされます。
(^^)
|
|