سليم حاصبيا

جرب هذا الملف ACC SALIM.rar جرب هذا الملف

يمكن اضافة هذه المعادلة =IF(MONTH(DATE(YEAR(A1),2,29))=2,"Kabissa","non") حيث A1 هو اي تاريخ

يمكنك استعمال هذا المعادلة في الخلية D3 و السجب نزولاً =C3/SUM($C$3:$C$13)*$D$1

كود رائغ اخي ياسر و لكنه لا يراعي التغيرات في البيانات (في حال قام المستخدم بزيادة او تعديل غلى العامو د A )

ربما كان المطلوب Hide_false_columns.rar

شرح المعادلة Explication d'une fromule.rar

تم معالجة الامر معادلة البحث 02 SALIM.rar

انسخ هذه المغادلة الى الخلية H3 و اسحب نزولاً =IF($C3<>"",INDEX(DATA!B$3:B$7,MATCH($C3,DATA!$A$3:$A$7,0))&"_"&$F3,"")

انسخ هذه المعادلة الى الخلية C2 واسحب نزولاً =if($B2<>"",COUNTIF(Data!C:C,$B2),"")

جرب هذا الملف برنامج معمل بسيطsalim.rar

تم تنزيل الماكرو على المرفق تعدد الاسطر في الخليه salim.rar

بعد اذن اخي الحبيب ياسر هذا الملف (ارجو ان ينال الاعجاب) Split-Cells.rar

الف شكر اخي الحبيب عماد على خذا العمل الرائع لكن عندي ملاحظة بسيطة لعدم تكرار الضفحات في كل مرة اقترح ان يبدأ الكود كما يلي: Sub insert_sheet() If Sheets(2).Name = "New_Sheet" Then Application.DisplayAlerts = False Sheets(2).Delete Application.DisplayAlerts = True End If Sheets.Add , Sheets("sheet1") ActiveSheet.Name = "New_Sheet" 'ثم نتابع كتابة الكود مثلما ورد في الفيديو End Sub

جرب هذا النموذج الذي يمكنك التعديل عليه جسب ما تريد writ_In_One Sheet.rar

الملف ما زال مفلقا! لكن يمكنك استعمال هذه المعادلة =VLOOKUP(Bulletin!$M$39,{6,"نتائج ضعيفة جداً";8,"نتائج غير مرضية";10,"نتائج غير كافية";11,"عمل حسن";13,"عمل متوسط";14,"نتائج جيدة";16,"نتائج جيدة جداً";17,"نتائج ممتازة";20,"نتائج ممتازة جداً"},2,2)

كبف تريد ان يعمل على ملف محمي بكلمة سر

لم افهم شبئاً اين الملف

استبدل الكود بهذا Sub ta7wil_ila_sec() Application.ScreenUpdating = False lrj = Cells(Rows.Count, "j").End(3).Row If lrj < 6 Then lrj = 6 For i = 6 To lrj If Cells(i, "j") <> "" Then x = CDate(Range("j" & i)) h = Hour(x): m = Minute(x): s = Second(x) Cells(i, "j").Offset(0, 1) = h * 60 + m Cells(i, "j").Offset(0, 2) = h * 3600 + m * 60 + s Cells(i, "j").Offset(0, 1).Resize(1, 2).NumberFormat = "general" End If Next Application.ScreenUpdating = True End Sub

انسخ هذه المعادلة الى j2 واسحب نزولاً =IF(ISNA(MATCH($J2,$E$2:$E$669,0)),"",F2)

جرب هذا الملف ta7weel.rar

جرب هذا الملف Show_Hide_Rows.rar

تم معالجة الامر بواسطة المعادلات (انظر الى الصفحة Sheet4) عملية البحث تتم من خلال الورقة sheet2 recheche.rar

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

يمكن استعمال هذه المعادلة =VLOOKUP(D1,{1,"يناير";2,"فبراير";3,"مارس";4,"ابريل";5,"مايو";6,"يونيو";7,"يوليو";8,"اغسطس"},2,0) او هذه =INDEX({"يناير";"فبراير";"مارس";"ابريل";"مايو";"يونيو";"يوليو";"اغسطس"},MATCH(D1,{1;2;3;4;5;6;7;8},0)) او هذه (صفيف) =INDEX({"يناير";"فبراير";"مارس";"ابريل";"مايو";"يونيو";"يوليو";"اغسطس"},MATCH(D1,ROW($A$1:$A$8),0)) اخيراً و ليس اخراً هذه =CHOOSE(D1,"يناير","فبراير","مارس","ابريل","مايو","يونيو","يوليو","اغسطس")

بعد ان اخي ياسر نفس الشيء لكن بالمعادلات فرز اسماء salim.rar