|
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") '←特定シートへの参照を付けること。
.Cells.EntireRow.Hidden = False
With .Range("A1", .Range("A28").End(xlUp)).Offset(, 255)
.Formula = "=IF($A1=" & Num & ",1)"
If WorksheetFunction.Count(.Cells) = 0 Then
MsgBox "該当する数字がありません", 48
Else
.SpecialCells(3, 1).EntireRow.Hidden = True
Cnt = WorksheetFunction.Count(.Cells)
If Cnt = 0 Then
MsgBox "該当する数字がありません", 48
Else
MsgBox Cnt & " 件の該当がありました", 64
.SpecialCells(3, 1).EntireRow.Hidden = True
End If
End If
.ClearContents
End With
End With
End Sub
|
|