エクセル VBAについて

Question

一つのセルに、0900-1800.1200-1800等シフトの時間を表示されていますが、、、
15分前の朝礼があるため、0900を0845-1800などに、一斉に開始時間を15分前に置換するマクロを設定としているのですが、エラーになります。

シフト制のため、複数の開始時間を15分前に一斉に置換するvbaを教えてください

Comments

[退会済みユーザー]

すみません。

09-18等、二桁-二桁から、開始時間を15分前に設定をして、0845-1800の四桁-四桁に一括変換出来ないでしょうか。

じぶんでやってみたのですができなくて、、、

Answer 1

多分こんな感じ。

Sub Sample()

    Dim c As Range, h, m, arr

    For Each c In ActiveWindow.RangeSelection
        arr = Split(c.Value, "-")
        If Len(arr(0)) = 2 Then arr(0) = arr(0) & "00"
        If Len(arr(1)) = 2 Then arr(1) = arr(1) & "00"
        h = Mid(arr(0), 1, 2)
        m = Mid(arr(0), 3, 2)
        arr(0) = Format(TimeValue(h & ":" & m) - TimeValue("00:15"), "hhnn")
        c.Value = Join(arr, "-")
    Next

End Sub

Answer 2

すみません。

09-18等、二桁-二桁から、開始時間を15分前に設定をして、0845-1800の四桁-四桁に一括変換出来ないでしょうか。

じぶんでやってみたのですができなくて、、、

Answer 3

置換したい範囲を選択して、以下を実行してみてください。

Sub Sample()

    Dim c As Range, h, m, r
    
    For Each c In ActiveWindow.RangeSelection
        h = Mid(c.Value, 1, 2)
        m = Mid(c.Value, 3, 2)
        r = Mid(c.Value, 5)
        c.Value = Format(TimeValue(h & ":" & m) - TimeValue("00:15"), "hhnn") & r
    Next

End Sub