|
まず F1 の値を変数に入れます。
Dim MyNum As Long
With Range("F1")
If IsEmpty(.Value) Then Exit Sub
If Not IsNumeric(.Value) Then Exit Sub
MyNum = CLng(.Value)
End With
数式は基本的に文字列なので、変数と文字列を繋ぐ場合の規則にのっとって
.Formula = "=IF($A16=" & MyNum & ",1)"
というように書けば良いでしょう。あと、判定する数値を変更したい
ということから、それが頻繁に行われると推測されますが、それなら
処理に入る前に対象の行全体を表示させたほうが良いと思います。
従ってコードは
Sub A行を非表示()
Dim MyNum As Long
With Range("F1")
If IsEmpty(.Value) Then Exit Sub
If Not IsNumeric(.Value) Then Exit Sub
MyNum = CLng(.Value)
End With
On Error Resume Next
With Sheets("実行計画書").Range("IV16:IV149")
.EntireRow.Hidden = False
.Formula = "=IF($A16=" & MyNum & ",1)"
.SpecialCells(3, 1).EntireRow.Hidden = True
.ClearContents
End With
End Sub
|
|