マクロの記録がうまくいきません。マクロの記録→セルを押してWEBクエリ

マクロの記録がうまくいきません。マクロの記録→セルを押してWEBクエリを選択→データを取り込み→シートに表示されそれを日付順にセルの並び替えを選択→並び替えを確認→マクロの記録の停止の順でやっているのですが、マクロを実行するとデータは記録できているけど日付順の並び替えのみができていません。なぜでしょうか？何回記録しなおしても日付だけ並び替えされて記録されていません。ご教授お願いします。Windows 7 でExcel２００７を使用しています。

No.2 ベストアンサー 回答者： web2525 回答日時： 2010/06/07 13:13

確かに提示されたコードではうまく動作していないようですね

日付での並び替えの部分のみマクロの記録で作成しました

Sub Macro1()
Range("B4:F54").Select
Selection.Sort Key1:=Range("B5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
End Sub

並び替えの部分だけ上記コードに置き換えてみてください

この回答へのお礼

ご教授ありがとうございました。マクロを組み合わせるということですね。解決したと同時に次に起こったとしても応用できると自信がつきました。ありがとうございました。

お礼日時：2010/06/07 14:32

No.1 回答者： KURUMITO 回答日時： 2010/06/07 11:27

マクロの操作の前に取り込んだデータが日付手並び替えができるのでしょうか？　それを確認することが必要でしょう。

セルの中に日付の数値として取り込まれているのでしょうか？

この回答への補足

ご教授ありがとうございます。やっぱりうまくできません。ちなみにコードは以下です。
Sub データ()

Range("B4").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://table.yahoo.co.jp/t?s=998407.o&g=d", Destination:=Range("$B$4"))
.Name = "t?s=998407.o&g=d_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "10"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Range("B4:F54").Select
ActiveWorkbook.Worksheets("Sheet4").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet4").Sort.SortFields.Add Key:=Range("B5:B54") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet4").Sort
.SetRange Range("B4:F54")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
何か間違っているところ、抜けている所もしくわ何か設定を変えないといけないところなどご指摘ありますでしょうか？

補足日時：2010/06/07 12:29

この回答へのお礼

ありがとうございます。解決しました。

お礼日時：2010/06/07 14:34