エクセルで特定の値を含む列のみVBAで非表示にしたい

過去に似たような質問があってそれらを参考にいろいろ試してみたのですが、なにぶん初心者ゆえうまくいきませんでしたのでこちらに直接質問させていただきました。

まず、FからXの各列の14行目にVLOOKUPで0〜5の数字 (コード) を返すよう設定しています。
そこでフォームボタンをクリックすると14行目に5以外の数字が表示されているものはすべて非表示にしたいのですが、この場合はどのようにするのが最善策でしょうか？ 当方Office 2010を使用しております。
わかりにくい質問で恐縮ですが、どうぞご教示くださいませ。

No.2 回答者： tom04 回答日時： 2015/05/04 08:59

こんにちは！

色々やり方はあると思いますが、一例です。

Sub Sample1()
Dim c As Range, myRng As Range, myArea As Range
Set myArea = Range("F14:X14")
For Each c In myArea
If c <> 5 Then
Set myRng = c
Exit For
End If
Next c
If Not myRng Is Nothing Then
For Each c In myArea
If c <> 5 Then
Set myRng = Union(myRng, c)
End If
Next c
myRng.EntireColumn.Hidden = True
End If
End Sub

こんな感じではどうでしょうか？m(_ _)m

この回答へのお礼

早々にご回答いただき、ありがとうございます。おかげさまでうまくいきました。

お礼日時：2015/05/05 13:39

No.1 回答者： soixante 回答日時： 2015/05/04 08:29

以下でどうでしょうか。

-----------------------------------------
Sub aaaa()
Dim c As Integer
Range(Columns(6), Columns(24)).Hidden = False

For c = 24 To 6 Step -1
　　　 If Cells(14, c).Value <> 5 Then
　　　　　　 Columns(c).Hidden = True
　　　End If
Next c
End Sub
-----------------------------------------

この回答へのお礼

早々にご回答いただき、ありがとうございます。おかげさまでうまくいきました。

お礼日時：2015/05/05 13:38