سليم حاصبيا

الاخوة الاعزاء في المنتدى الموقر محمد طاهر ياسر خليل أبو البراء زيزو العجوز ابو يحيى1 احمد بن ابراهيم عمر الحسيني جلال الجمال_ابو ادهم ابو عبدالبارى حسين22 قلم-الاكسل(عبدالعزيز) احمد21 الخ.... (و كل من يظهره التحقيق) الف شكر على التهنئة وان شاء الله سوية الى أبعد من الواجب الشكر ايضاً الى كل من الاخوة والأصدقاء عبد العزيز البسكري محمود عبدالله أبو حنف جلال ابو ادهم سعد عابد محي الدين

بعد تحويل النصوص الى تاريخ حسب المغادلة المذكورة في مشاركة سابقة =--(MID(TRIM(G2),(FIND("/",TRIM(G2),4)+1),4)&"/"&LEFT(TRIM(G2),2)&"/"&MID(TRIM(G2),FIND("/",TRIM(G2))+1,2)&" "&MID(TRIM(G2),(FIND(":",TRIM(G2))-2),2)&":"&RIGHT(TRIM(G2),2)) استعمل المعادلات المذكورة في العامودين D & E in sheet1 (النطاق الاصفر و ستفرج ان شاء الله) و حتى نهاية النطاقين calculation-SALIM.rar

شغلة بسيطة تبديل اول حرفين.rar او ربما هذه المعادلة هي الانسب =IF($A1="","",MID($A1,2,LEN($A1)-1)&MID($A1,1,1))

الاخوة الاعزاء في المنتدى الموقر محمد طاهر ياسر خليل أبو البراء زيزو العجوز ابو يحيى1 احمد بن ابراهيم عمر الحسيني جلال الجمال_ابو ادهم ابو عبدالبارى حسين22 قلم-الاكسل(عبدالعزيز) احمد21 الخ.... (و كل من يظهره التحقيق) الف شكر على التهنئة وان شاء الله سوية الى أبعد من الواجب

(ومكان الصحيح على يمين الأرقام .. ) , و يسار الفاصلة العشرية

جرب هذا الشيء انا شخصياً استعملت هذا التنسيق [=0]"";General

لحسن سير العمل يجب وضع وقت البداية و وقت لنهاية في نفس الصف انظر للملف المرفق worked_time.rar

تم عمل المطلوب بالمعادلات AKSSAT.rar

جرب هذا الشيء salim.rar

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

كيف يمكن يمكن القيام بهذا التنسيق الشرطي zebra-lines with Cond_Format.rar

ربما هذا المطلوب (عودة للتخمين) bb22 salim.rar

القيم عي العامود G ليست تواريخ بل هي نصوص لذذلك لا يتعمل معها الاكسل يجب تحويلها الى تاريخ يمكنك استعمال هذه المعادلة في الخلية J2 مثلاً والسحب نزولاً ثم نسخ النتيجة الى G2 =--(MID(TRIM(G2),(FIND("/",TRIM(G2),4)+1),4)&"/"&LEFT(TRIM(G2),2)&"/"&MID(TRIM(G2),FIND("/",TRIM(G2))+1,2)&" "&MID(TRIM(G2),(FIND(":",TRIM(G2))-2),2)&":"&RIGHT(TRIM(G2),2)) و من ثم اضافة زمن الانتهاء من العمل لاحتساب الوقت اين وقت الخروج يا اخي حتى الان لم اشاهده

القيم عي العامود G ليست تواريخ بل هي نصوص لذذلك لا يتعمل معها الاكسل يجب تحويلها الى تاريخ يمكنك استعمال هذه المعادلة في الخلية J2 مثلاً والسحب نزولاً ثم نسخ النتيجة الى G2 =--(MID(TRIM(G2),(FIND("/",TRIM(G2),4)+1),4)&"/"&LEFT(TRIM(G2),2)&"/"&MID(TRIM(G2),FIND("/",TRIM(G2))+1,2)&" "&MID(TRIM(G2),(FIND(":",TRIM(G2))-2),2)&":"&RIGHT(TRIM(G2),2)) و من ثم اضافة زمن الانتهاء من العمل لاحتساب الوقت اني اتساءل لماذا هذا الكم الهائل من الييانات (يكفي 40 او 50)كنموذج

جرب هذا الملف(الورقة salim) النطاق الاصفر في هذه الحالة الدالة Sum تتجاهل النصوص فقط اكنب =SUM($D3:$G3)

جرب هذا الملف(الورقة salim) النطاق الاصفر المصنف salim1.rar

فقط استبدل في المعادلة حرفي D & J بالحرفين I & T ولا تنس Ctrl+Shift +Enter

انسخ المعادلة و اضغط على Ctrl+Shift +Enter ,وليس Enter وحدها

بعد اذن اخي ابو حنين نفس العمل لكن بالمعادلات ضع هذه المعادلة في الخلية D2 واسحب نزولاً =IF(MAX($D$1:D1)+1>$A$1,"",IF(MOD((ROWS($A$1:A1)-1),3)<>0,"",MAX($D$1:D1)+1)) للتوضيح المرفق في الحالة العامة (المرفق ) يجب وضع هذه المعادلة في الخلية D2 عندها يمكن تغيير القيمتين في A1 & F1 =IF(MAX($D$1:D1)+1>$A$1,"",IF(MOD((ROWS($A$1:A1)-1),$F$1+1)<>0,"",MAX($D$1:D1)+1)) تسلسل الى salim.rar

ربما كان هذا المطلوب test2 salim.rar

يمكنك تجربة هذ الملف المصنف salim.rar

يا اخي حاول ان تضع بضعة بيانات في الجدول (اقلهم 5) و أوضح ماذا تريد بالضبط اسم واحد لا يعطي اساس للعمل ولا اريد ان اعمل على التخمين ثم قبل ان تحكم على الماكرو جربه على صفحة مستقلة تحتوي على ما تريد من اسماء و وظائف شرط ان تبدأ من الخلية A2 (نفس التنسيق للجدول صفين مشغولين صف فارغ صف للبيانات صف فارغ) مرفق نموذج (اضغط على الزر) و ترى التيجة test.rar

جرب هذا الماكرو Sub conctenate() m = 2 Do Until Cells(m, 1) = "" Cells(m + 3, 2) = Cells(m, 2) & " " & Cells(m, 1) & " " & Cells(m + 1, 2) & " " & Cells(m + 1, 1) m = m + 6 Loop End Sub

جرب المرفق مجموع كل يوم salim.rar

جرب هذا الماكرو Sub insert_word() Dim Sh As Worksheet Dim Th As Worksheet Dim My_rg As Range Set Sh = Sheets("الفهرس"): Set Th = Sheets("1000") Set My_rg = Th.Range("i7") For i = 8 To 100 My_rg.Activate my_word = Sh.Range("a" & i).Offset(0, 1) ActiveCell.Value = my_word Set My_rg = ActiveCell.Offset(44, 0) Next End Sub