Excel VBA質問箱 IV

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

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


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

10914 / 76807

←次へ　｜　前へ→


	【71438】Re:時間を元にソートするには？

シンク - 12/3/2(金) 23:20 -


	引用なし

	パスワード

kanabun氏

返信遅くなり申し訳ありません。

下記を実施してみたところ、
最終行を取得の際

>　　　Else
>　　　v(i + 1, 1) = u

実行エラー9　インデックスが有効範囲にありません。

実際には下記のような形なのですが、
9:00　　　　メール受信。　　　　　
1212　　　　AAABBBCCCDDDEEE
1212　　　　FFFGGGHHHIIIJJJ　　　　

10:12　　　　メール受信。　　　　
1214　　　　AAABBBCCCDDDEEE
1214　　　　FFFGGGHHHIIIJJJ

数式では2012/2/3　09:00:00、2012/2/1 10:12:00になっています。
日付が入ってしまっていることが原因でしょうか。

お手数をかけて申し訳ありませんが、
よろしくお願いします。

▼kanabun さん：
>▼シンクさん：
>
>>以前記載していただいたソースでソートをした場合
>>日付を跨いだ際に時間が逆になってしまうことです。
>
>直前の Try3() 方式でトライしてみてください。
>
>Sub Try3b()
>　Dim s, u, v, i As Long
>　Dim r As Range
>　Const CLSID_DataObject = "1C3B4210-F441-11CE-B9EA-00AA006B1A69"
>　
>　Set r = Range("A1", Cells(Rows.Count, 1).End(xlUp).Offset(1))
>　v = r.Value2
>　r.Copy
>　With GetObject("new:" & CLSID_DataObject)
>　　　.GetFromClipboard
>　　　s = Split(.GetText(1), vbCrLf)
>　End With
>　Application.CutCopyMode = 0
>　
>　For i = 0 To UBound(s)
>　　　If InStr(s(i), ":") > 0 Then　' dataに「：」があるか？あれば date
>　　　　　u = v(i + 1, 1)
>　　　Else
>　　　　　v(i + 1, 1) = u
>　　　End If
>　Next
>　r.Offset(, 2).Value = v
>　Stop
>　r.Resize(, 3).Sort r.Columns(3), Header:=xlNo
>　Columns(3).Clear
>　
>End Sub

2 hits

▼

【71222】時間を元にソートするには？ シンク 12/2/11(土) 17:49