|
▼らいもん さん:
>非表示にしてある部分をそのまま非表示にしながらも、
>昇降順に並べ替えることをVBAで指定する方法ってありますか?
たぶん、「非表示の行も並べ替えの対象にする」ということだと思いますが、
VBAで処理するのであれば、作業列を意識せず使用出来ますので、
例えば、仮に右端列を使うとして、こんな感じでは如何でしょうか。
Sub 非表示行含め並べ替え()
Dim Rw As Long
Dim N As Long
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
Rw = .Cells(.Rows.Count, 1).Row
End With
Columns("IV").Delete
For N = 1 To Rw
If Rows(N).Hidden Then Range("IV" & N).Value = "H"
Next N
Rows("1:" & Rw).Hidden = False
'----ここへ並べ替えのコードを記述 ( ↓は例 ) ----------------------
Cells.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'---------------------------------------------------------------------
For N = 1 To Rw
If Range("IV" & N).Value = "H" Then Rows(N).Hidden = True
Next N
Columns("IV").Delete
Application.ScreenUpdating = True
End Sub
|
|