Excel VBA質問箱 IV

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

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


2715 / 13645 ツリー ←次へ | 前へ→

【66429】並び替えがうまくできません。ご教示ください。 じゅんたろう 10/9/3(金) 23:02 質問[未読]
【66434】Re:並び替えがうまくできません。ご教示く... 残暑見舞い 10/9/4(土) 10:14 発言[未読]

【66429】並び替えがうまくできません。ご教示くだ...
質問  じゅんたろう  - 10/9/3(金) 23:02 -

引用なし
パスワード
   Sub Macro1()
'
  Dim C As Integer

   Cells.Select
   Application.CutCopyMode = False
   ActiveWorkbook.Worksheets("work1").Sort.SortFields.Clear
   ActiveWorkbook.Worksheets("work1").Sort.SortFields.Add Key:=Range(Cells(1, 2), Cells(C, 1)) _
     , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
     
     With ActiveWorkbook.Worksheets("work1").Sort
     .SetRange Range(Cells(1, 1), Cells(C, 78))
     .Header = xlYes
     .MatchCase = False
     .Orientation = xlTopToBottom
     .SortMethod = xlPinYin
     .Apply
   End With

   For i = 2 To cc
     If Cells(i, 1) = 1 Then
       Exit For
     End If
   Next
  
   i = i - 1
   Range(Cells(1, 1), Cells(i, 75)).Select
   Selection.Copy
   Sheets("output").Select
   Range("a1").Select
   ActiveSheet.Paste

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

【66434】Re:並び替えがうまくできません。ご教示...
発言  残暑見舞い  - 10/9/4(土) 10:14 -

引用なし
パスワード
   ▼じゅんたろう さん:
>Sub Macro1()
>  Dim C As Integer
>   ActiveWorkbook.Worksheets("work1").Sort.SortFields.Add Key:=Range(Cells(1, 2), Cells(C, 1)) _
>     , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

変数Cをゼロのまま使っているからじゃないでしょうか。

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