Excel VBA質問箱 IV

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

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


7606 / 76732 ←次へ | 前へ→

【74712】Re:sortのループ処理
発言  kanabun  - 13/9/2(月) 10:28 -

引用なし
パスワード
   マクロで 並び替えリストを書き込む(ユーザー設定リストに追加する)
部分を加えてみました。

Sub Sort1b()
  Dim i As Long
  Dim n As Long
  Dim L As Long
  
  '並び替えのリストにユーザー設定リストを追加
  With Application
    .AddCustomList _
    ListArray:=Split("松山市,高松市,高知市,徳島市", ",")
    L = .CustomListCount
  End With
  
  '3列づつ並び替え
  With ActiveSheet.UsedRange
    n = .Columns.Count
    For i = 1 To n Step 3
      .Columns(i).Resize(, 3).Sort _
        Key1:=.Columns(i + 1), _
        Order1:=xlAscending, _
        OrderCustom:=L + 1, _
        Header:=xlYes
    Next
  End With
  
  '最後に追加したユーザー設定リストを削除
  With Application
    .DeleteCustomList .CustomListCount
  End With
  
End Sub

6 hits

【74688】sortのループ処理 ねこ 13/8/30(金) 0:38 質問
【74692】Re:sortのループ処理 kanabun 13/8/30(金) 21:02 発言
【74712】Re:sortのループ処理 kanabun 13/9/2(月) 10:28 発言

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