Excel VBA質問箱 IV

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

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


37589 / 76736 ←次へ | 前へ→

【44311】Re:並び替えについて
質問    - 06/11/12(日) 22:42 -

引用なし
パスワード
   並べ替えについて学んでいます。
教えてください。
こちらでのコードを引用して記述しました。
並べ替えのkey1は日付+時間です。
応用で、下記★の部分を削除したところ、

『実行エラー'1004'
並べ替えの参照が正しくありません。並べ替えるデータ内にあることと、[最優先されるキー]ボックスが空白でないことを確認してください。』
のエラーがでました。

どうしてでしょうか?教えてください。


>'=================================================
>Sub test2()
>  Dim col As Long 'データが入力されている最右列番号
>  col = Cells(2, Columns.Count).End(xlToLeft).Column
>  'Set rng = Range("a2", Cells(Rows.Count, 1).End(xlUp)) ・・・★
>  'With rng.Offset(0, col) ・・・★
>  '  .Formula = "=a2&""""" ・・・★
>  'End With ・・・★
>  With Range("A2").CurrentRegion
>    .Sort Key1:=Cells(2, col + 1), Order1:=xlAscending, Header:=xlNo, _
>    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
>    :=xlPinYin
>  End With
>  'rng.Offset(0, col).Value = "" ・・・★
>End Sub

1 hits

【33289】並び替えについて 06/1/7(土) 15:02 質問
【33295】Re:並び替えについて かみちゃん 06/1/7(土) 18:03 発言
【33296】Re:並び替えについて ichinose 06/1/7(土) 18:32 発言
【33373】Re:並び替えについて Hirok 06/1/9(月) 21:36 質問
【33374】Re:並び替えについて かみちゃん 06/1/9(月) 21:50 発言
【33375】Re:並び替えについて ichinose 06/1/9(月) 22:16 発言
【33377】Re:並び替えについて Hirok 06/1/10(火) 10:29 お礼
【33400】Re:並び替えについて ichinose 06/1/10(火) 19:00 発言
【33403】Re:並び替えについて Hirok 06/1/10(火) 21:37 お礼
【33378】Re:並び替えについて 06/1/10(火) 11:26 お礼
【44311】Re:並び替えについて 06/11/12(日) 22:42 質問
【44312】Re:並び替えについて ichinose 06/11/13(月) 7:29 発言
【44314】Re:並び替えについて 06/11/13(月) 9:41 質問
【44349】Re:並び替えについて ichinose 06/11/13(月) 18:23 発言
【44353】Re:並び替えについて 06/11/13(月) 20:23 お礼

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