<ul id="coko8"></ul><ul id="coko8"></ul>

如何在數字之間插入冒號以使其在Excel中自動成為時間格式？

網友投稿 872 2024-01-03

如何在數字之間插入冒號以使其在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，然后將填充手柄向下拖動到要包含此公式的單元格，您將獲得數字序列，如以下屏幕截圖所示：

然后，應通過單擊將數字格式化為時間格式時間來自總下的下拉列表首頁標簽，請參見屏幕截圖：

使用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

Copy

請注意： 在上面的代碼中， A1：A20 是您想在以后插入時間的單元格，您可以根據需要更改單元格引用。

3。現在，當您在單元格區域A102319：A1中輸入諸如20之類的數字時，然后按輸入鍵，數字將根據需要自動格式化為10:23:19 AM時間格式。

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？利用的力量 Kutools for Excel - 您終極的節省時間的工具。簡化復雜的任務并像專業人士一樣瀏覽數據。以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel

??? 超過 300 項強大功能: Kutools 包含 300 多項高級功能，可簡化您在 1500 多種場景中的工作。