Excelで自動的に時間形式として数値を作成するために数値の間にコロンを挿入するにはどうすればよいですか？

ワークシートのセルに時間形式を挿入するときに、毎回コロンを入力することに悩まされたことはありませんか？ この記事では、数値を入力するときにコロンを挿入して、Excelで自動的に時刻形式にする方法について説明します。

数値の間にコロンを挿入して、数式を使用した時間形式として数値を作成します

VBAコードで数値を入力すると、数値が時間形式に自動作成されます

数値の間にコロンを挿入して、数式を使用した時間形式として数値を作成します

コロンを挿入して時間形式として作成するための数値のリストがあるとすると、次の数式を使用すると便利です。

数字が常に3桁または4桁の場合は、次の式を使用できます。

=TIME(LEFT(A1,LEN(A1)-2),RIGHT(A1,2),0)、次に、この数式を含めるセルまで塗りつぶしハンドルをドラッグすると、必要に応じて次の結果が得られます。

数字が5桁または6桁の場合は、次の式を適用してください。

=(INT(A1/10000)&":"&INT(MOD(A1,10000)/100)&":"&MOD(A1,100))+0、およびこの数式を含めるセルまで塗りつぶしハンドルをドラッグすると、次のスクリーンショットのような番号シーケンスが表示されます。

次に、をクリックして数値を時間形式としてフォーマットする必要があります Time 下のドロップダウンリスト ホーム タブ、スクリーンショットを参照してください：

VBAコードで数値を入力すると、数値が時間形式に自動作成されます

次のVBAコードは、数値を入力するときに数値を時間形式に自動変換するのにも役立ちます。次のようにしてください。

1。 コロンを数値に自動的に挿入するワークシートに移動します。

2。 シートタブを右クリックして、 コードを表示 コンテキストメニューから、ポップアウトで アプリケーション向け Microsoft Visual Basic ウィンドウの場合は、次のコードをコピーして空白に貼り付けてください モジュール ウィンドウ、スクリーンショットを参照してください：

VBAコード：数値を時間形式に自動作成します：

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updateby Extendoffice 20160606
    Dim xStr As String
    Dim xVal As String
    On Error GoTo EndMacro
    If Application.Intersect(Target, Range("A1:A20")) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    With Target
        If Not .HasFormula Then
            xVal = .Value
            Select Case Len(xVal)
                Case 1 ' e.g., 1 = 00:01 AM
                    xStr = "00:0" & xVal
                Case 2 ' e.g., 12 = 00:12 AM
                    xStr = "00:" & xVal
                Case 3 ' e.g., 735 = 7:35 AM
                    xStr = Left(xVal, 1) & ":" & Right(xVal, 2)
                Case 4 ' e.g., 1234 = 12:34
                    xStr = Left(xVal, 2) & ":" & Right(xVal, 2)
                Case 5 ' e.g., 12345 = 1:23:45 NOT 12:03:45
                    xStr = Left(xVal, 1) & ":" & Mid(xVal, 2, 2) & ":" & Right(xVal, 2)
                Case 6 ' e.g., 123456 = 12:34:56
                    xStr = Left(xVal, 2) & ":" & Mid(xVal, 3, 2) & ":" & Right(xVal, 2)
                Case Else
                    Err.Raise 0
            End Select
            .Value = TimeValue(xStr)
        End If
    End With
    Application.EnableEvents = True
    Exit Sub
EndMacro:
    MsgBox "You did not enter a valid time"
    Application.EnableEvents = True
End Sub

ご注意： 上記のコードでは、 A1：A20 は後で挿入するセルであり、必要に応じてセル参照を変更できます。

3。 そして今、セル範囲A102319：A1に20などの数字を入力し、を押すと 入力します キーを押すと、数値は必要に応じて自動的に午前10時23分19秒の時刻形式としてフォーマットされます。