Note: The other languages of the website are Google-translated. Back to English

كيفية إدراج النقطتين بين الأرقام لجعلها تنسيق الوقت تلقائيًا في Excel؟

عندما تقوم بإدراج تنسيق الوقت في خلايا ورقة العمل ، هل سبق لك أن أزعجت من كتابة النقطتين في كل مرة؟ في هذه المقالة ، سأتحدث عن كيفية إدراج النقطتين عند إدخال الأرقام لجعلها بتنسيق الوقت تلقائيًا في Excel.

أدخل النقطتين بين الأرقام لجعلها كتنسيق زمني مع الصيغ

قم تلقائيًا بعمل الأرقام بتنسيق الوقت عند إدخالها برمز VBA


السهم الأزرق الحق فقاعة أدخل النقطتين بين الأرقام لجعلها كتنسيق زمني مع الصيغ

لنفترض أن لديك قائمة بالأرقام ، لإدخال النقطتين وجعلها بتنسيق الوقت ، يمكن للصيغ التالية أن تفيدك.

إذا كانت الأرقام دائمًا 3 أو 4 أرقام ، يمكنك استخدام هذه الصيغة:

=TIME(LEFT(A1,LEN(A1)-2),RIGHT(A1,2),0)، ثم اسحب مقبض التعبئة لأسفل إلى الخلايا التي تريد أن تحتوي على هذه الصيغة ، وستحصل على النتيجة التالية حسب حاجتك:

doc أدخل النقطتين إلى الأرقام 1

إذا كانت الأرقام من 5 أو 6 أرقام ، يرجى تطبيق هذه الصيغة:

=(INT(A1/10000)&":"&INT(MOD(A1,10000)/100)&":"&MOD(A1,100))+0، واسحب مقبض التعبئة لأسفل إلى الخلايا التي تريد أن تحتوي على هذه الصيغة ، وستحصل على تسلسل رقمي كما هو موضح في لقطة الشاشة التالية:

doc أدخل النقطتين إلى الأرقام 2

ثم يجب عليك تنسيق الأرقام بتنسيق الوقت بالنقر فوق الوقت: من فكرة عامة القائمة المنسدلة تحت الرئيسية علامة التبويب ، انظر لقطة الشاشة:

doc أدخل النقطتين إلى الأرقام 3


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

doc أدخل النقطتين إلى الأرقام 4

ملاحظة: في التعليمات البرمجية أعلاه، A1: A20 هي الخلايا التي تريد إدراجها لاحقًا ، ويمكنك تغيير مرجع الخلية حسب حاجتك.

3. والآن ، عند إدخال الأرقام مثل 102319 في نطاق الخلايا A1: A20 ، ثم الضغط على أدخل المفتاح ، سيتم تنسيق الرقم بتنسيق الوقت 10:23:19 صباحًا تلقائيًا حسب حاجتك.

doc أدخل النقطتين إلى الأرقام 5


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

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

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

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (6)
تقييم شنومك من شنومكس · تصنيفات 1
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا لك. مصورة جيدا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
只要 時 跟 分 以及 24 制 , 請問 可以 怎麼 改؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا كيرا ،
你 可以 嘗試 使用 下面 的 فبا 來 實現: (只 顯示 時 和 分)

تغيير ورقة العمل الفرعية الخاصة (ByVal Target As Excel.Range)
خافت xStr كسلسلة
خافت xVal كسلسلة
عند الخطأ ، انتقل إلى EndMacro
إذا كان Application.Intersect (الهدف ، النطاق ("A1: A20")) لا شيء ، فاخرج من Sub
إذا كان Target.Count> 1 ، فاخرج من Sub
If Target.Value = "" ثم اخرج من Sub
Application.EnableEvents = خطأ
مع الهدف
إذا لم يكن كذلك
xVal = .Value
حدد حالة Len (xVal)
الحالة 1 'على سبيل المثال ، 1 = 00:01 صباحًا
xStr = "00: 0" & xVal
الحالة 2 'على سبيل المثال ، 12 = 00:12 صباحًا
xStr = "00:" & xVal
الحالة 3 'على سبيل المثال ، 735 = 7:35 صباحًا
xStr = يسار (xVal، 1) & ":" & يمين (xVal، 2)
الحالة 4 'على سبيل المثال ، 1234 = 12:34
xStr = يسار (xVal، 2) & ":" & يمين (xVal، 2)
الحالة 5 'على سبيل المثال ، 12345 = 1:23:45 وليس 12:03:45
xStr = يسار (xVal، 1) & ":" & Mid (xVal، 2، 2) & ":" & Right (xVal، 2)
الحالة 6 'على سبيل المثال ، 123456 = 12:34:56
xStr = يسار (xVal، 2) & ":" & Mid (xVal، 3، 2) & ":" & Right (xVal، 2)
حالة أخرى
Err.Raise 0
إنهاء اختر
.Value = التنسيق (TimeValue (xStr) ، "وقت قصير")
إنهاء حالة
انتهت ب
Application.EnableEvents = صحيح
خروج الفرعية
EndMacro:
MsgBox "لم تدخل وقتًا صالحًا"
Application.EnableEvents = صحيح
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
في إصدار سابق من windows ، كنت قادرًا على تغيير محدد وقت النقطتين إلى حرف آخر (عادةً ما تكون علامة النجمة) لتسهيل إدخال بيانات الوقت بشكل أسهل وأسرع. هل ما زالت هناك طريقة للقيام بذلك أم أنها "جديدة ومُحسَّنة" إلى طي النسيان؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يعرف أحد كيف يجعل هذا الماكرو يعمل على أوراق جوجل من فضلك؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
DZIEKUJE ZA WYJAŚNIENIE ، CZY KTOŚ MOŻE PODPOWIEDZIEC CZY DA SIE TO PRZEROBIC TAK ŻEBY DZIŁAŁO NA 2 LUB WIECEJ KOLUMNACH؟ تشودزي أو وابرووادزيني ستارتو براسي دبليو كولومني كاليفورنيا زاكونكزينيا دبليو كولومني دي ، وينيك ويسويتلي سي وي كولومني إي
تقييم شنومك من شنومكس
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL