سليم حاصبيا

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

تم التعديل تنسيق شرطى salim1.rar

ضعها في اي مكان حارج الجدول و اضغط Enter

بعد اذن اخي ابو عيد جرب هذا الملف تنسيق شرطى salim.rar

eomonth هي عبارة عن اختصار End Of Month هذه الدالة تعطينا تاريخ اخر يوم في الشهر لاي تاريخ اذا كان المعامل الثاني لها صفر و اذا كان المعامل لها 1- تعطينا تاريخ اخر يوم في الشهر السابق من التاريخ المذكور و اذا كان المعامل لها 1 تعطينا تاريخ اخر يوم في الشهر القادم من التاريخ المذكور وهكذا.....

عليك بهذه المعادلة =SUMPRODUCT(--($D$1:$D$20=""))

الكود المطلوب Private Sub Worksheet_Activate() 'اكتب الكود هنا End Sub

جرب هذا الماكرو يعمل فقط في العامود 5 والخلايا ابتداء من الخلية الرابعة (E$4 $ Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 5 And Target.Row >= 4 _ And Target.Offset(0, -1) <> "" And Target.Count = 1 Then Application.EnableEvents = False Select Case Target.Offset(0, -1) Case "كيلو" Target.NumberFormat = "0.000" Case Else Target.NumberFormat = "general" End Select End If Application.EnableEvents = True End Sub )

انسخ المعادلة على الورقات الثلاث

تفضل اجازة.rar

جرب هذا الملف اقساط salim.rar

ربما يكون المطلوب التكرار في اكثر من مشيتsalim.rar

ربما يكون هذا المطلوب eomonth.rar

بعد اذن اخي عبد الباري هذه المعادلة التي لا تتقيد بعدد الصفوف في الجدول =SUMPRODUCT(--(A:A=$C$2)*$C$2)

جرب المرفق Book1 salim.rar

بالنسبة للموضوع الاول جرب هذا الملف (بعد اذن اخي عبدالله) date & Price.rar بالنسبة للموضوع الثاني هل تقصد ان التاريخ من 1 حتى 15 من الشهر يكون اول الشهر و من 16 حتى اخر الشهر يكون بداية الشهر الثاني حيث انه لا يمكن العمل على التخمين املأ جدولاً ببعض القيم المتوقعة

للاسف لا يوجد عندي 2016 شاهد هذا الفيديو

ربما يكون المطلوب في هذا الملف New book salim.rar

لتنفيذ هذا العمل يلزمك واحدة من الحاجتين 1-اما ان يكون لديك Excel 2016 ,و تستعمل الدالة Textjoin 2-او بواسطة الكود (VBa) انطر الى الورقة Salim واضغط على الزر Run ترتيب_الاسم salim Macro.rar

ربما يكون المطلوب انظر الى الورقة Salim ترتيب_الاسم salim.rar

بعد اذن اخي ياسر أظن انني فهمت المطلوب المطلوب salim.rar

اثراء للموضوع هذا الملف يمكن للمستخدم اختيار عدد الصفوف المطلوب اخفاءها مع كل كبسة Hide choosen rows.rar

اذا كنت مصراً على استعمال الدالة Vlookup انظر الى الصف الاصفر من هذا الملف vlookup salim1.rar

تم معالجة الامر الدالة Vlookup لا تعمل الا اذا كان الهدف في العامود الاول من الجدول و الشيء الاخر ان هذه الدالة لا تعمل الا باتجاه واحد حسب اتجاه الصفحة (من اليمين الى اليسار في هذه الحالة) vlookup salim.rar

تم معالجة الامر بالنسبة للسؤال الاول بالنسبة للسؤال الثاني اعتقد انه معادلة عادية يمكن ادراجها (()=Sum) Sub copy_data() m = 0 With Sheets("sheet2") lr2 = .Cells(Rows.Count, 4).End(3).Row: If lr2 < 8 Then lr2 = 8 lr1 = Sheets("sheet1").Cells(Rows.Count, 2).End(3).Row: If lr1 < 8 Then lr1 = 8 Sheets("sheet1").Range("b8:o" & lr1).ClearContents Set my_rg = Sheets("sheet2").Range("d8:d" & lr2). _ SpecialCells(xlCellTypeConstants, 1).Offset(0, -2) For i = 1 To my_rg.Areas.Count my_rg.Areas(i).Resize(my_rg.Areas(i).Rows.Count, 14).Copy Sheets("sheet1").Cells(m + 8, 2) m = m + my_rg.Areas(i).Rows.Count Next End With End Sub تعديل كود Salim1.rar