نجوم المشاركات

الكثيرون لحماية الخلايا يستعملون حماية الشيت (Protect Sheet) لكن في نطاق معين (تختاره بواسطة الكود) كيف يمكن ان نستعمل الخلية مرة واحدة فقط بحيث لا يمكن مسحها ولا التعديل عليها فيما بعد الا اذا تم توقيف الكود عن العمل كل ذلك بدون ( Protect Sheet) الكود Option Explicit Dim Old_value Dim New_value Private Sub Worksheet_SelectionChange(ByVal Target As Range) Old_value = Target.Cells(1, 1).Value End Sub '============================================== Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False On Error GoTo Final_Step If Intersect(Target, Range("A1:F12")) Is Nothing Then GoTo Final_Step New_value = Target.Value If Old_value = "" And Target.Cells.Count > 1 Then Application.Undo GoTo Final_Step End If If Old_value = "" Then Target.Value = New_value Else Application.Undo End If Final_Step: Application.EnableEvents = True End Sub الملف تحت التصّرف Protect_without Protect.xlsm

السلام عليكم (المواد التي في كودها رقم المئات =1 هي للسنة الأولى والرقم2 هي للسنة الثانية) وما هي المواد التي في كودها رقم المئات =3 مثل : 302 ، 312 ، 305 ، 301

هل هذا هو المطلوب ..... ناتج استعلام في نموذج (2).rar

أهلا بك محمد لطفي.. هل تريد عمل شئ آخر غير إظهار الصفحة؟ كهربا (1).mdb

لكم الحسنى....... محتاج برنامج مبيعات يتكون: 1-الأصناف:يظم جدول معلومات الصنف للمشتريات+المبيعات . 2- فاتورة بيع :محتاج معها نسبة خصم وكذلك الربحية بين الشراء والبيع0 ولكم الشكر الجزيل.......

وهذه طريقة أخرى ........ ناتج استعلام في نموذج.rar

السلام عليكم ورحمة الله أخواني الكرام وعلمائنا وأساتذتنا العباقرة في هذا الصرح العملاق والأكثر من رائع بعد إنتهاء ولله الحمد من برمجة برنامج شؤون الموظفين والمرتبات ونشره في الموقع منذ فترة وجيزة على هذا الرابط برنامج شؤون وإدارة الموظفين بحلته وشكله الجديد أحببت اليوم بعد طلبات من الاصدقاء أن أقوم برفع البرنامج مفتوح المصدر لكي تتم الفائدة منه في كافة النواحي العلمية والعملية وذلك من (خلال الكودات وطريقة التصميم) ماعليكم سوا فك الضغط عن الملف المرفق وتنصيب البرنامج بكل سهولة وفي الاخير تفعيل الماكرو يعمل البرنامج على كافة أنظمة ويندوز وكافة نسخ أوفيس من 2007 ومافوق لاتنسونا من الدعاء بظهر الغيب في هذه الايام المباركة الملف بامتداد zip هو الملف كاملا Office Soft.Employ & Salary-Source.zip Office Soft.Employ _ Salary-Source.rar

أمامنا جدول مع بيانات مختلفة 1- انقر على اي خلية من الجدول (ما عدا رأس الجدول) لتحصل على فلتر بقيمة هذه الخلية 2-انقر على اي خلية ( من رأس الجدول) لتحصل على كل البيانات 3-لإضافة بيانات على الجدول انقر على اول صف فارغ وأملأ الصف كما تشاء (لا يعمل الماكرو الا اذا كان الصف كاملاً ببياناته 4 قيم) ملاحظة: لا يعمل الماكرو Reset ولا الماكرو Make_On_Top كل بمفرده الا من خلال الماكرو الرئيسي SelectionChange الماكرو Option Explicit Dim Lr%, Rng As Range '========================== Sub Make_On_Top() On Error GoTo Exit_Sub Rng.Rows(1).Interior.ColorIndex = 6 With ActiveSheet .Range("z1") = Cells(3, ActiveCell.Column) .Range("z2") = ActiveCell.Value .Range("a3").CurrentRegion.AdvancedFilter 1, Range("z1:z2") .Cells(3, ActiveCell.Column).Interior.ColorIndex = 8 End With Exit_Sub: End Sub '================================== Sub Reset() On Error GoTo Exit_Sub Rng.Rows(1).Interior.ColorIndex = 6 On Error Resume Next ActiveSheet.ShowAllData On Error GoTo 0 Exit_Sub: End Sub '=========================== Private Sub Worksheet_SelectionChange(ByVal Target As Range) Lr = Cells(Rows.Count, 1).End(3).Row Set Rng = Range("A3:D" & Lr) If Not Intersect(Target, Rng) Is Nothing And _ Application.CountA(Range(Cells(Target.Row, 1), _ Cells(Target.Row, 4))) = 4 _ And Target.Cells.Count = 1 Then If Target.Row = 3 Then Reset Else Make_On_Top End If End If Range("z1:z2").Clear End Sub الملف مرفق Super Adv_Filter.xlsm

اخلص شغلي وابشر

اخي صمم الاستعلام ثم التقرير واجعل مصدرة الاستعلام ثم في المعاير عند اسم الصنف اعمل [مباني] وهكذا لبقيه المعاير تحياتي

كيف نعرف كم يوم سبت أو أحد أو الخ.... بين تاريخين (دون ماكرو) هذا الملف يوضح كل شيء (الباسوورد فيما بعد لمعرفة كل الاقتراحات) how many_days.xlsx

ممتاز استاذنا لكن لو وضعت زر لتصفير الخلايا يكون أفضل ... فقد نحتاج إلى تصفير الشيت بعد انتهاء مرحلة معينة وإعادته لطبيعته للعمل به من جديد فهل ذلك ممكن وأشكرك على مجهودك الطيب جعله الله في ميزان حسناتك

نعم تلقيته بارك الله فيك استاذ تامر والحمد لله الذى بنعمته تتم الصالحات

السلام عليكم تفضل بالكود نتائج.xlsm

أ/ ali mohamed ali الف شكر لمجهودك بعت لحضرتك علي الخاص

أحسنت استاذ سليم بارك الله فيك وجعل الله هذا العمل فى ميزان حسناتك وجعلك دائما زخرا لنا وافاض الله عليك من كرمه وزادك من علمه وادامك الله لنا دائما عونا فى هذا المنتدى الكريم ولا تحرمنا دائما من كرمك وطلاتك علينا جزاك الله كل خير

جزاك الله كل خير نشاط ملحوظ استاذى الكريم وعوداً حميدا

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

تابع الشرح في الفيديو ...... شرح صنع فاتورة بالاكسس

تفضل لك ما طلبت قوة الشركة2 - Copy.xlsx

السلام عليكم إذا لم تكن تجيد العمل مع الجداول فلو ألغيت الجدول لما تعرضت لهذا عموما تفضل المرفق VIDE.xlsx أعد نفس الخطوات بلا جدول ، فقط علي خلايا الورقة بالإكسل

شكرا جزيلا ،، نعم ضبطت معي ،، جزاك الله خيرا.

جعلت تنسيق الخلية كما ترى فى الصور

السلام عليكم تفضل المرفق لم افهم مالسنة الأولى و السنة الثانية نتائج.xlsm

تفضل اخى الكريم البصمة_الجمع.xlsm

اذا كنت انا فهمت السؤال صح يكون طلبك كالمرفقناتج استعلام في نموذج.rar

تفضل سجل المدرسة2018-2019.xlsx

وعليكم السلام تفضل ارجوا ان يكون هذا طلبك حذف سجل.rar

واضح جداً من اللائحة ان هناك بعض الاسماء التي تسيقها مسافات زائدة مثلا سامر في اول السطر بينما كريم قبله مسافة او ربما مسافتين ابظر بعد ازالة هذه المسافات With_2 ابجدي.xlsx

الملف مع Sheet2 With_2ترتيب ابجدي.xlsx

لعنوان يدل على الموضوع مثلا: 250 جنيه ممكن يكونوا: 1- 5 أوراق من فئة 50 جنيه 2- 25 ورقة من فئة 10 جنيه ..... الخ أقل عدد من الاوراق 3 2 من فئة 100 و واحدة من فئة 50 لنرى كيف اكسل يحل هذه المسألة ملاحظة :جاري العمل على نفس الموضوع لكن بواسطة المعادلات دعواتكم بالتوفيق أهم شيء الملف مرفق monney.xlsm

بعد اذن الاستاذ بن علية كما وعدتكم نفس الملف (بالمعادلات) و في نطاق مطاط (اكثر من صف) Money_translater.xlsx

السلام عليكم ورحمة الله هذه محاولة مني بالمعادلات... بن علية حاجي monney_2.xlsx

تعددت الاسباب والربط واحد جميل جدا جدا ماتفضلت به استاذنا الكبير أبو خليل انا عن نفسي فاني استخدم هذه الطريقة المطولة بعض الشيء .. link_database.zip

اخوانى الكرام استاذى / محمد الريفى لقد حصلت على هذا الكود من احدى المواقع وهو يعمل بشكل ممتاز على طريقة الوارد اولا صادر اولا وايضا على طريقة الوارد اولا صادر اخيرا وللعلم انا لاأعرف فى الاكواد شيئا انما استطعت ان اطوعه فى العمل الوارد اولا صادر اولا &الوارد اولا صادر اخيرا.rar