Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


52129 / 76732 ←次へ | 前へ→

【29444】Re:非表示もある表のソート
回答  awu  - 05/10/5(水) 10:17 -

引用なし
パスワード
   ▼らいもん さん:
>非表示にしてある部分をそのまま非表示にしながらも、
>昇降順に並べ替えることを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
0 hits

【29438】非表示もある表のソート らいもん 05/10/4(火) 23:48 質問
【29442】Re:非表示もある表のソート Komo 05/10/5(水) 7:08 発言
【29474】Re:非表示もある表のソート らいもん 05/10/6(木) 0:11 お礼
【29444】Re:非表示もある表のソート awu 05/10/5(水) 10:17 回答
【29476】Re:非表示もある表のソート らいもん 05/10/6(木) 0:32 お礼
【29479】Re:非表示もある表のソート awu 05/10/6(木) 1:37 回答
【29531】Re:非表示もある表のソート らいもん 05/10/7(金) 0:09 お礼

52129 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free