|
>B行を検索して
Private Sub CommandButton1_Click()
Dim Num As Long, Cnt As Long
With TextBox1
If .Value = "" Then Exit Sub
If Not IsNumeric(.Value) Then
MsgBox "テキストボックスに整数を入力して下さい", 48
.Value = "": .SetFocus: Exit Sub
End If
Num = CLng(.Value)
End With
With Worksheets("Sheet1") '←特定シートへの参照を付けること。
.Activate
.Cells.EntireRow.Hidden = False
With .Range("B1", .Range("B28").End(xlUp)).Offset(, 254)
.Formula = "=IF($B1=" & Num & ",1)"
Cnt = WorksheetFunction.Count(.Cells)
If Cnt = 0 Then
MsgBox "該当する数字がありません", 48
Else
MsgBox Cnt & " 件の該当がありました", 64
.SpecialCells(3, 1).EntireRow.Hidden = True
End If
.ClearContents
End With
End With
End Sub
と、変更します。
>コードの意味
所用があって席を外すので、説明は割愛させていただきます。
|
|