مشكلة في اكسل

[UH'T]

السلام عليكم

اذا اردت ادخال بيانات وقت في خانات تم تنسيقها كـ "وقت" وبعد كتابة الارقام وضغط ادخال (enter)...يتحول ما كتبته الى 00:00:00 بصرف النظر عما كتبته

مثال:

اذا كتبت:"124033" مما يعني الساعة "الثانية عشرة واربعون دقيقة وثلاثة وثلاثون ثانية" بعد ان ان اضغط "Enter" يظهر في الخانة:"00:00:00"

حدث ذلك في اوفيس 2007 والآن استخدم أوفيس 2013 نفس المشكلة

أقوم بذلك لأنني اقوم بادخال بيانات كثير ولا أريد ان اقوم بكتابة ":" بين كل رقمين اكتبهم في حالة تركت التنسيق للخلية "عام"

فـــــهل اجد لدى الزملاء الافاضل تفسير وحل لذلك

مع جزيل الشكر والعرفان

عاطف

QC_NORTHEAST@YAHOO.COM

[ياسر خليل أبو البراء]

أخي الكريم عاطف

أهلا ومرحباً بك في المنتدى ونورت بين إخوانك

نتمنى لك قضاء أمتع الأوقات في التعلم والاستفادة والإفادة لك ولغيرك

جرب الكود التالي في حدث ورقة العمل (يمكنك تغيير النطاق في الكود)

النطاق الذي ستجربه هو النطاق A1:A20 ويمكنك تغييره

برجاء الاطلاع على رابط التوجيهات في الموضوعات المثبتة في المنتدى للضرورة (حتى يمكنك التعامل بكفاءة مع المنتدى)

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim str1 As String, str2 As String, str3 As String
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Not Intersect(Target, Range("A1:A20")) Is Nothing Then
        Application.EnableEvents = False
            str1 = Mid(Target, 1, 2)
            str2 = Mid(Target, 3, 2)
            str3 = Mid(Target, 5, 2)
            Target.Value = str1 & ":" & str2 & ":" & str3
        Application.EnableEvents = True
    End If
End Sub

تقبل ترحيبي وتحياتي

[سليم حاصبيا]

بارك الله فيك احي ياسر كنت محضر نفس الكود ولكن ظهرت مشكلة

ماذا لو كان عدد الدقائق  اصغر من عشرة ولا اريد كتابة 170325 بل (17325)

او 7:18:25 مثلاً

تم تعديل أكتوبر 21, 2015 بواسطه سليم حاصبيا

[ياسر خليل أبو البراء]

مشكور أخي سليم على المداخلة

جرب الكود بهذا التعديل

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim str As String
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Not Intersect(Target, Range("A1:A20")) Is Nothing Then
        Application.EnableEvents = False
            str = Format(Target.Value, "000000")
            Target.Value = Mid(str, 1, 2) & ":" & Mid(str, 3, 2) & ":" & Mid(str, 5, 2)
        Application.EnableEvents = True
    End If
End Sub

 

[UH'T]

السلام عليكم

بارك الله لكما وشكرا جزيلا اخي الكريم ياسر خليل أبو البراء واخي الفاضل سليم حاصبيا

على ردكما الكريم وسوف اجرب هذا الحل وافيدكم بالنتيجة ولكن احببت ان اقدم الشكر اولا

عاطف