Excel VBA質問箱 IV

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

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


49498 / 76732 ←次へ | 前へ→

【32144】Re:アクティブでないシートに対してソート
回答  ちくたく WEB  - 05/12/7(水) 12:24 -

引用なし
パスワード
   こんにちは。
こんなもんすかねぇ。
Range(ws.cells(2,1))と、一回だけもダメだった気がする。

Sub test()

  Dim i As Integer
  Dim ws As Worksheet
  
  Set ws = Worksheets("階層図")
  
  For i = 1 To 73 Step 2
    ws.Range(ws.Cells(1, i), ws.Cells(65536, (i + 1))).Sort _
      Key1:=ws.Range(ws.Cells(2, 1), ws.Cells(2, 1)), Header:=xlYes
  Next i

End Sub
2 hits

【32142】アクティブでないシートに対してソート kj 05/12/7(水) 11:45 質問
【32143】Re:アクティブでないシートに対してソート inoue 05/12/7(水) 12:22 回答
【32148】Re:アクティブでないシートに対してソート kj 05/12/7(水) 12:50 お礼
【32144】Re:アクティブでないシートに対してソート ちくたく 05/12/7(水) 12:24 回答
【32149】Re:アクティブでないシートに対してソート kj 05/12/7(水) 12:55 お礼
【32145】Re:アクティブでないシートに対してソート やっちん 05/12/7(水) 12:32 発言
【32147】Re:アクティブでないシートに対してソート kj 05/12/7(水) 12:48 お礼

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