كيفية إدراج النقطتين بين الأرقام لجعلها تنسيق الوقت تلقائيًا في 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 صباحًا تلقائيًا حسب حاجتك.

---

أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

• إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
• سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
• دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
• حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
• نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
• استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
• سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
• اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
• أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء... 

---

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

• تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
• فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
• يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...