كيفية إدراج النقطتين بين الأرقام لجعلها تنسيق الوقت تلقائيًا في 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. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة ، وحدد عرض الرمز من قائمة السياق ، في النافذة المنبثقة ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، يرجى نسخ ولصق الكود التالي في الفراغ وحدة نافذة ، انظر لقطة الشاشة:
رمز فبا: جعل الأرقام تلقائيًا لتنسيق الوقت:
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. والآن ، عند إدخال الأرقام مثل 102319 في نطاق الخلايا A1: A20 ، ثم الضغط على أدخل المفتاح ، سيتم تنسيق الرقم بتنسيق الوقت 10:23:19 صباحًا تلقائيًا حسب حاجتك.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!