[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『列の非表示に変更したい』(きなこ)
こんにちは。
自分が処理したい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
できました。ありがとうございました。
(きなこ) 2017/02/23(木) 13:28
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.