| |
▼魚 さん：
おはようございます。
>並べ替えについて学んでいます。
>教えてください。
>こちらでのコードを引用して記述しました。
>並べ替えのkey1は日付＋時間です。
>応用で、下記★の部分を削除したところ、
>
>『実行エラー'1004'
>並べ替えの参照が正しくありません。並べ替えるデータ内にあることと、［最優先されるキー］ボックスが空白でないことを確認してください。』
>のエラーがでました。
>
>どうしてでしょうか？教えてください。
まず、どんなデータに対して下記のコードを実行したかを
必ず、記述してください。
だって、下記コードの入力データが何なのか分からなければ
見ている方が下のプログラムを実行しても再現できませんよね！！
1. プログラムの機能説明
2. 入力データの説明（入力データ例を含む）
3. 出力データの説明（出力データ例を含む）
上記の情報は、必須記述項目だというくらいに思っていただいて
構わない と思いますよ！！
>>'=================================================
>>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, 1), Order1:=xlAscending, Header:=xlNo, _
>> OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
>> :=xlPinYin
>> End With
>> 'rng.Offset(0, col).Value = "" ・・・★
>>End Sub
で試してみてください。
|
|
ichinose
- 06/11/13(月) 7:29 -
