تنسيق مخصص للوقت

[ماجدجلال]

السلام عليكم ورحمة الله وبركاتة ,,,

قبل ان اطرح السؤال حاولات مررا وتكررا ولكن دون جدوي لذا ارجو منكم المساعدة ,

ارغب في عمل تنسيق مخصص لعرض الوقت كمايلي

45 12

12 هي الدقائق و45 هي الثواني وفي حالة ادخل المستخدم الدقائق فقط تظهر الثواني اصفار مثل

00 12 والصعوبة تكمن في كون الدقائق رقم بخانة واحدة مثل

00 02 اي ان الوقت هو دقيقتين فقط ,

اي ان المستخدم يدخل الرقم 2 علي اساس انة دقيقتين فيظهر الوقت هاكذا 00 02

واذا ادخل الرقم 2 علي اساس انة دقيقتين والرقم 1 علي اساس انة ثانية واحدة فيظهر الرقم هاكذا 01 02

ارجو منكم المساعدة وانا ان شاء الله احاول واذا توصلت الي نتيجة اعلمكم بها

وشكرا لكم ,,,

[محمد حجازي]

السلام عليكم ...

إذا كان قصدك جعل التاريخ يظهر كالأرقام العشرية ، فيمكنك ذلك عن طريق تغيير إعدادات الويندوز ، فقط اتبع الخطوات التالية :

Control Panel > Regional and Language Options

في علامة التبويب Regional Options اضغط على الزر Customize ليظهر لك فورم جديد :

تحت لسان التبويب Time :

- في المربع Time format ضع التنسيق التالي :

h:m:s tt

- في المربع Time separator ضع الرمز الذي تريد استخدامه للفصل بين الساعات و الدقائق و الثواني .

الكلام السابق كان تحت نظام الويندوز XP.

بالتوفيق

[ماجدجلال]

شكرا لك استاذ محمد ,,

ما ارغب فية هو اختصار عملية ادخال الارقام التي تعرض علي شكل وقت ,,

فمثلا .. اذا ادخل المستخدم الرقم التالي 210 يظهر بالشكل التالي 10 02

اي دقيقتين وعشر ثواني . وهذا بدلا من ادخل وكتابة الاصفر

واذا ادخل المستخدم الرقم التالي 308 يظهر بالشكل التالي 08 03

اي ثلاثة دقائق وثماني ثواني

الخلاصة : يقوم الاكسيل بتعبئة الفرغة بالصفار في حالة عدم ادخال المستخدم رقما لتلك الخانة , اي جعل الخلية التي تعرض الوقت تتكون من اربعة خانات ,,

[محمد حجازي]

السلام عليكم ...

أخي ، يمكن عمل ذلك ، ولكن أخبرني أولاً :

هل ستقوم بإدخال الساعات أيضا؟ ، أم أن عملية الإدخال مقتصرة على الثواني و الدقائق.

[ماجدجلال]

شكرا لك استاذي محمد

العملية مقتصرة علي الدقائق والثواني فقط ,,,

واشكرك علي متابعتك للموضوع

[محمد حجازي]

السلام عليكم ...

جرب الكود المبدئي التالي :

Dim m As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
  If m = True Then
    m = False
    Exit Sub
  End If
  m = True
  Select Case Len(Trim(Target.Text))
    Case Is >= 4
      Target.Value = Mid(Trim(Target.Text), Len(Trim(Target.Text)) - 3, 2) & ":" & Right(Trim(Target.Text), 2)
    Case Is > 2
      Target.Value = "0" & Left(Trim(Target.Text), 1) & ":" & Right(Trim(Target.Text), 2)
    Case Else
      Target.Value = "00:" & Trim(Target.Text)
    End Select
End Sub

و أخبرني في حال كان هذا طلبك حتى نتابع فيه.

[ماجدجلال]

استاذ محمد ,

اذا اردت حصر هذا الكود في عمود واحد او اثنين فماذا فهل يمكن تعديل الكود السابق ,,,

لانة يقوم بتغير الارقام في كل الصفحة ,, والمطلوب هو التغير فقط في العمود الذي يحتوي التوقيت ,,,

فكيف جعل الكود يعمل في اعمدة معينة فقط ,

وشكرا لك ,,,

[محمد حجازي]

السلام عليكم ...

اقرأ الشرح الموجود في الرابط التالي:

http://www.officena.net/ib/index.php?showtopic=6215

و أسئلني عن أي مشكلة تواجهك.

[ماجدجلال]

السلام عليكم

قرات الموضوع في الرابط السابق . وحاولت ادراج التعليمة Range , ولكن لم انجح

وصدقوني مهاراتي في الفيجوال معدومة جدا , لذا ارجو منكم المساعدة ,

وشكرا ,,,

[محمد حجازي]

السلام عليكم ...

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

[ماجدجلال]

شكرا لك استاذ محمد

اريد تطبيق الكود فقط علي العمود E

و الف شكرا لك ,,

[محمد حجازي]

السلام عليكم ...

تفضل الكود :

Dim m As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 5 Then
    If m = True Then
      m = False
      Exit Sub
    End If
    m = True
    Select Case Len(Trim(Target.Text))
      Case Is >= 4
        Target.Value = Mid(Trim(Target.Text), Len(Trim(Target.Text)) - 3, 2) & ":" & Right(Trim(Target.Text), 2)
      Case Is > 2
        Target.Value = "0" & Left(Trim(Target.Text), 1) & ":" & Right(Trim(Target.Text), 2)
      Case Else
        Target.Value = "00:" & Trim(Target.Text)
    End Select
  End If
End Sub

[ماجدجلال]

شكرا استاذ محمد ,

سوف اجرب وانا متاكد انه سوف ينجح ان شاء الله ,

الله يعطيك الف عافية ,