Excel VBA質問箱 IV

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

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


5450 / 76732 ←次へ | 前へ→

【76895】Sort文について
質問  亜矢  - 15/4/5(日) 5:04 -

引用なし
パスワード
   お世話になります。マクロの記録を改良して下記のソート文を利用しております
Application.ScreenUpdating = False
   PL = Range("B50000").End(xlUp).Row
  
   Range(Cells(6, 1), Cells(PL, 68)).Select
   ActiveWorkbook.Worksheets("Sheet4").Sort.SortFields.Clear
   ActiveWorkbook.Worksheets("Sheet4").Sort.SortFields.Add Key:=Range(Cells(6, 18), Cells(PL, 18)) _
    , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
  
  With ActiveWorkbook.Worksheets("Sheet4").Sort
    .SetRange Range(Cells(6, 1), Cells(PL, 68))
    .Header = xlGuess
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
  End With
上の文の中でWithとEnd withの間の文は何を意味しているか教えてください。
また削除して問題が無いかも教えて頂きたいと思います。
202 hits

【76895】Sort文について 亜矢 15/4/5(日) 5:04 質問[未読]
【76896】Re:Sort文について γ 15/4/5(日) 5:25 発言[未読]
【76897】Re:Sort文について β 15/4/5(日) 9:24 発言[未読]
【76898】Re:Sort文について 亜矢 15/4/5(日) 9:38 お礼[未読]
【76899】Re:Sort文について γ 15/4/5(日) 12:50 発言[未読]

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