|
IV列に判定用の数式を埋めて、処理するコードです。
TextBoxの値のチェックや、処理対象シートの特定などは
省略しない方が安全です。
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
End If
.ClearContents
End With
End With
End Sub
|
|