استخراج الوقت الصباحي والمسائي من عمود الوقت

[مستخدم الاوفس]

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

لدي جدول يحتوي على عمود فيه وقت ولكن الوقت هو بصيعة TEXT وهو عبارة عن تقرير لجهاز البصمة الالكترونية

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

في حالة وجود وقت صباحاً تقوم باعادة الوقت الصباحي لاول وقت وقت مسجل

في حالة وجود وقت مسائي تقوم باعادة الوقت المسائي اخر وقت مسجل 

التفاصيل موضحة في المثال ولكم فائق الشكر والتقدير

المثال.xls

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

ربما كان المطلوب

 

BASMA.xls

[بن علية حاجي]

السلام عليكم

أو ربما كان هذا المطلوب لكن باستعمال أعمدة مساعدة (فصل أوقات البصمات في خلايا منفصلة)...

بن علية حاجي

المثال.xls

[Ali Mohamed Ali]

وعليكم السلام بارك الله فيكم جميعا

[وجيه شرف الدين]

جزاكم الله خير

[مستخدم الاوفس]

جزاكم الله خير الحل مثلما طلبت

[مستخدم الاوفس]

السلام عليكم اخواني الاعزاء ممكن نعمل كود بدل الداله بحيث يعطين نفس النتيجه لكن بدون اعمده اضافيه علماً ان المرفق في المشاركة الاولى

ولكم جزيل الشكر

[مستخدم الاوفس]

للرفع

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

تم العمل بواسط الماكرو

انظر الى الصفحة salim من هذا الملف

الكود

Option Explicit
Sub find_FirstAndLast_Time()
If ActiveSheet.Name <> "salim" Then Exit Sub
    Dim objReg      As Object
    Dim Match
    Dim objMatches As Object
    Dim a, i, y%: y = 1
    Dim arr()
    Dim m%: m = 2
    Range("D2:e5000").ClearContents
Set objReg = CreateObject("vbscript.regexp")
    With objReg
    .IgnoreCase = False
    .Global = True
    .Pattern = "(\d{2}:\d{2})"
    End With

  Do Until Range("c" & m) = vbNullString
  '============================================
      Set objMatches = objReg.Execute(Range("c" & m))
       If objMatches.Count = 0 Then GoTo Next_m
      For Each Match In objMatches
          a = Match.Submatches.Count
            For i = 0 To a - 1
             ReDim Preserve arr(1 To y)
              arr(y) = Match.Submatches.Item(i)
              y = y + 1
            Next
      Next
      Range("D" & m) = arr(1): Range("E" & m) = arr(y - 1)
       Erase arr: y = 1
Next_m:
      m = m + 1
  '============================================
   Loop
Set objReg = Nothing
End Sub

الملف مرفق

 

BASMA.xlsm

[وجيه شرف الدين]

ان لله عباد اختصهم لقضاء حوائج الناس وادعو الله ياستاذ سليم ان تكون منهم

[مستخدم الاوفس]

وفقك الله لكل خير

[مستخدم الاوفس]

في ٢٦‏/٤‏/٢٠١٩ at 09:15, سليم حاصبيا said:

م العمل بواسط الماكرو

انظر الى الصفحة salim من هذا الملف

الكود

 

المثال.xls

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

9 دقائق مضت, مستخدم الاوفس said:

 

المثال.xls 20.5 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 0 downloads

 يا اخي اكتب الأوقات التي تريدها

يمكن ان يخرج الموظف من عمله قبل انتهاء الدوام  مثلا دخول الساعة  (08:00) خروج الساعة (10:00)

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

[مستخدم الاوفس]

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

يوجد لدي بيانات في العمود c تحوي على وقت او قد لا تحتوي 

انا بحاجة الى كود يقوم بفحص محتويات الخلية في حالة يوجد بها اكثر من وقت يقوم بالتاكد اذا كان وقت صباحي فيقوم بعرض اول وقت صباحي في عمود الوقت الصباحي d 

و يعرض البصمة المسائية اخر بصمة مسائية في العمود e 

اما في حالة وجود فقط وقت صباحي فيعرض الوقت الصباحي في عمود الوقت الصباحي

اما في حالة وجود وقت مسائي فقط فيعرض الوقت المسائي في عمود الوقت المسائي

اما في حالة عدم وجود اي وقت فلا يعرض اي شي 

البيانات في المثال المرفق 

وفقكم الله لكل خير

 

المثال.rar

[بن علية حاجي]

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

محاولة في الملف المرفق...

بن علية حاجي

المثال.xls

[Ali Mohamed Ali]

وعليكم السلام -اخى الكريم فقد تم الرد على هذا الموضوع من قبل اساتذتنا الكرام ,الأستاذ سليم حاصبيا و الأستاذ بن علية حاجى  من فترة فعليك من فضلك الا تكرر

نفس المشاركات

المشاركة كانت على هذا الرابط

https://www.officena.net/ib/topic/90650-استخراج-الوقت-الصباحي-والمسائي-من-عمود-الوقت/

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

 

المثال.xls

[مستخدم الاوفس]

وفقكم الله لكل خير 

فعلاً انا اعتذر اذا خالفت قوانين المنتدى