|
つまり、アクティブシートが変化しても対応できるようにしたい
ということですか ? ならば Sheet1 と Sheet2 で分岐するとして
Private Sub TextBox1_Change()
Dim Code As Long
Dim FSt As String
Dim Ck As Variant
If TextBox1.Value = "" Then Exit Sub
Select Case ActiveSheet.Name
Case "Sheet1"
If Not IsNumeric(TextBox1.Value) Then Exit Sub
Code = CLng(TextBox1.Value)
Ck = Application.Match(Code, Range("A:A"), 0)
Case "Sheet2"
If IsNumeric(TextBox1.Value) Then Exit Sub
FSt = TextBox1.Text
Ck = Application.Match(FSt, Range("A:A"), 0)
End Select
If IsError(Ck) Then
Label5.Value = "該当なし"
Else
Label5.Value = Cells(Ck, 3).Value
End If
End Sub
他のシートにも対応させたいなら、Case節に条件を追加するだけです。
|
|