فرز الوقت

[Ahmedbon]

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

احتاج المساعدة في عملية فرز الوقت بين الصبح و المساء am و pm 

بمعنى ان اقوم بفصل الصباح و ترتيهم حسب اليوم عن المساء مع الترتيب ايضا 

Book (1).xlsx

[Ali Mohamed Ali]

وعليكم السلام - يمكنك ذلك بهذه المعادلة

=IF(RIGHT($A2,2)=C$1,TRIM(MID(SUBSTITUTE(C$1&$A2,C$1,REPT(" ",50)),COLUMN(A1)*50,50)),"")

Book1.xlsx

[Ahmedbon]

جزاك الله كل الخير استاذ علي 

[Ahmedbon]

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

لقد طرحت طلب في المرة السابقة و تم حله بشكل جميل شكرا لمجهودكم و ها هو رابطه : 

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

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

Book1.xlsx

[Ahmedbon]

 Text تم حل المشكلة باستخدام دالة

بقي الجزء الاخر المرتبط بشرط اللون 

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

صديقي

المعادلات لا تقوم بتغيير  Format الحلية ( اللون ولون الخط  او حجمه الخ...) ولا حتى تنظر الى هذا الـــ Format

انها فقط نفوم بحساب محتوباتها

لتغيير  Format الحلية لا بد من التنسيق الشرطي او الــ VBA

Option Explicit

Sub Colorize_Font()
Dim ro%, i%
With Sheets("Sheet1")
    ro = .Cells(Rows.Count, 1).End(3).Row
     i = 2
     Do While i <= ro
        If .Cells(i, 1) <> "" Then
            .Cells(i, 2).Font.Color = _
           IIf(.Cells(i, 2) <> "", .Cells(i, 1).Font.Color, 0)
            .Cells(i, 3).Font.Color = _
           IIf(.Cells(i, 3) <> "", .Cells(i, 1).Font.Color, 0)
         End If
        i = i + 1
     Loop
 End With
End Sub

مرفق ملف بمعادلات اقصر

Ahmedbon.xlsm

[Ahmedbon]

شكرا لك و لحلك المثالي بالنسبة لفرز الوقت فهو حل مختصر و بسيط 

بالنسبة لما اقصده بشرط اللون مثلا لدي خانتين خانة رقم و خانة ملاحظة اذا كان الرقم لونه اخضر في خلية الملاحظات يعطي قيمة نصية مثلا اضافة اما اذا كان احمر يعطي مثلا خصم 

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

جرب هذا الكود

Sub add_comment()
Dim ro%, i%, Txt$
With Sheets("Sheet1")
    ro = .Cells(Rows.Count, 1).End(3).Row
    .Cells(2, "D").Resize(ro - 1).ClearContents
     i = 2
     Do While i <= ro
        If .Cells(i, 1) <> "" Then
          Select Case .Cells(i, 1).Font.ColorIndex
            Case 3: Txt = "Discount"
            Case 14: Txt = "Adding"
            Case Else: Txt = ""
           End Select
           .Cells(i, 4) = Txt

         End If
        i = i + 1
     Loop
 End With
End Sub

Ahmedbon_1.xlsm

[Ahmedbon]

السلام عليكم 

اعذرني ربما لم استطع ان اوضع ما اريد ان اتعلمه بالشكل السليم 

 ربما هذا المثال سيوضح اكثر

باختصار لدي خانة ادخال و خانة ملاحظات اذا ادخلت الرقم 150 و كان لونه اخضر تكون النتيجة في خانة الملاحظات اضافي اما اذا كان لون الخط احمر يعطيني خصم اي بمعنى يتغير محتوى خلية الملاحظات بتغير لون الخط بخلية الادخال

Untitled spreadsheet.xlsx