[[20170223113513]] 『列の非表示に変更したい』(きなこ) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『列の非表示に変更したい』(きなこ)

こんにちは。

自分が処理したいVBAを見つけたのですが、
どこを修正したらよいか分かりません。

変更箇所:
削除ではなく、非表示に

よろしくお願いします。

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Sub test()

 Dim j As Long
 Dim sh As Worksheet

Application.ScreenUpdating = False

For Each sh In Sheets(Array(2, 3))

    sh.Select

    For j = Cells(1, Columns.Count).End(xlToLeft).Column To 1 Step -1

        Select Case Cells(1, j).Value '各列の1行目の値

        Case "あ", "い", "う", "え", "お" '残したい値
'何もしない
        Case Else '上記以外

        Cells(1, j).EntireColumn.Delete

        End Select

    Next j

Next sh

Application.ScreenUpdating = True

MsgBox "削除完了"

End Sub

< 使用 Excel:Excel2010、使用 OS:Windows7 >


>変更箇所:
>削除ではなく、非表示に
>よろしくお願いします。

まず、マクロの記録をして、
削除の時はどう書くかを調べる。
次に非表示の時はどう書くか調べる。
そうして、
記録されたものと今のマクロと見比べたら、
どこをどういう風に変えたらいいかわかりませんかね?

(まっつわん) 2017/02/23(木) 11:44


 適当にマクロの記録をしました。

 Sub Macro1()

    Rows("3:3").Select
    ' 削除
    Selection.Delete Shift:=xlUp
    Rows("6:6").Select
    ' 非表示
    Selection.EntireRow.Hidden = True

 End Sub

 上の記述を見て、何を直せばいいか分かりませんか???
(nazo) 2017/02/23(木) 12:00

まっつわん様
nazo様

できました。ありがとうございました。
(きなこ) 2017/02/23(木) 13:28


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.