Excel VBAにより、Microsoft Outlook予定表よりCSVへデータ取り込み後、
時刻を24h表記に修正するプログラムをVBAで作成しています。
(最終成果物は業務日報です)
下記csv取り込みデータ中、
時刻表記の「AM」/「PM」表記を除いた後、PMの12時間表記 --> 24時間表記へ変更したいのですが、
変更することができません。
コードをご確認頂きたく何卒よろしくお願いします。
※ 下記セル抜粋は、既にAM/PM表記を削除した後です。デフォルトのOutlookには「(文字列の時刻)AMorPM」の形で12時間表記されています。
◆csv --> エクセル取り込み済みセルの抜粋
日時 | 開始時刻 | 業務内容・結果 |
---|---|---|
7月8日 | 4:00 | 議事録フォロー |
7月8日 | 12:00 | 支店帰社 |
7月8日 | 2:30 | 日報作成 |
◆「開始時刻セル」書式の抜粋
コード
Sub 時刻修正() Dim i As Long Dim itime As Variant Dim hr As Variant ActiveSheet.UsedRange.Select With Selection .Replace What:="AM", Replacement:="" .Replace What:="PM", Replacement:="" End With For i = 1 To AtEndOfStream = False itime = Range("B:B").Select If itime > CDate("1900/1/0 1:00:00") And itime < CDate("1900/1/0 7:00:00") Then hr = DateAdd("h", 12, itime) Debug.Print (hr) End If Next End Sub
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2019/07/09 04:48
2019/07/09 05:05
2019/07/09 05:13