Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

49493 / 76732

←次へ　｜　前へ→


	【32149】Re:アクティブでないシートに対してソート

kj - 05/12/7(水) 12:55 -


	引用なし

	パスワード

▼ちくたくさん：
>こんにちは。
>こんなもんすかねぇ。
>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

回答ありがとうございます。
たしかにRowとColumを書いても上手くいきました。

0 hits

▼

【32142】アクティブでないシートに対してソート kj 05/12/7(水) 11:45