Excel VBA質問箱 IV

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

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


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

41832 / 76732

←次へ　｜　前へ→


	【39976】Re:時間の丸めについて

ichinose - 06/7/4(火) 20:08 -


	引用なし

	パスワード

こんばんは。
>範囲指定された場所（セル番地B2～B10)に入力された
>　　 b
>1　 6:15
>2　 8:20
>3　10:15
>4　 9:55
>5　
>6　 6:45
>7　10:05
>8　 6:45
>9
>10　6:20

アクティブシートのＢ列に上記のようなデータがあったとします。
（時刻は、シリアル値）

標準モジュールに
'=========================================
Sub test()
　　Dim tmarray As Variant
　　Dim rng As Range
　　Dim crng As Range
　　Dim ans As Variant
　　tmarray = Array([TimeValue("10:30")], [TimeValue("9:00")], [TimeValue("8:30")], [TimeValue("7:00")])
　　Set rng = Range("b1", Cells(Rows.Count, "b").End(xlUp))
　　For Each crng In rng
　　　 With crng
　　　　　If .Value <> "" Then
　　　　　　 ans = Application.Match(.Value, tmarray, -1)
　　　　　　 If Not IsError(ans) Then
　　　　　　　　.Value = tmarray(ans - 1)
　　　　　　　　End If
　　　　　　 End If
　　　　　End With
　　　 Next
　　Erase tmarray
End Sub

でtestを実行して試してみて下さい。
上記は、10：30以降は、変化しません。

0 hits

▼

【39955】時間の丸めについて ｋａｏｒｕ 06/7/4(火) 16:21