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

السلام عليكم عندنا جدول من صفوف كثيرة بحيث لا تتسع لها صفحة واحدة كيف نقوم بطباعة كل عدد محدد من الصفوف (انت تختاره) مع جمع الارقام في كل ورقة طباعة في اسفلها و تكرار رأس الجدول في كل ورقة طباعة و اذا كانت قسمة عدد الصفوف على العدد الذي اخترته لا تساوي عدداً صحيحاً كيف يتصرف الاكسل كل ذلك في هذا الملف Smart_Printing.xlsm

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

أمامنا جدول مع بيانات مختلفة 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

نعم لائحة أسماء دون تكرار ومرتبة أبجدياً بدون ماكرو ولا فلتر فقط (معادلات) اللائحة تتجاهل الفراغات و الارقام (فقط نصوص) لرؤية المعادلات يكفي رفع الحماية عن الشيت/ بدون كلمة مرور ترتيب ابجدي.xlsx

السلام عليكم إذا أردنا ان يكون الحذف للمتكرر في أول ثلاث أعمدة كيف يكون الكود ..وشكرا تفضل المرفق به 2 أزرار يتم الحذف لكل الجدول المتشابه أو للتشابه باول 3 أعمدة وفي تلك الحالة يلغي باقي الجدول لعدم الالتباس الفرق بين الكودين تستطيع التعرف عليه هنا Sub Macro1() [C2:H2].Copy [J2] Range([C2], [C2].End(xlDown).End(xlToRight)).Select Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[J2:O2], Unique:=True [J2:O999].Copy [C2].PasteSpecial Paste:=xlPasteValues Columns("J:O").Delete Shift:=xlToLeft End Sub ' ======================================= Sub Macro2() [C2:E2].Copy [J2] Range([C2], [C2].End(xlDown).End(xlToRight)).Select Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[J2:L2], Unique:=True [J2:L999].Copy [C2].PasteSpecial Paste:=xlPasteValues Columns("F:L").Delete Shift:=xlToLeft End Sub حذف الصفوف المكررة2.xlsm

السلام عليكم اضع بين ايديكم برنامج خاص بالمعلمين والاجازات المرضية والعرضية واللجان حسب النظام المتبع في بلدنا الاردن اتمنى لكم الفائدة اجازات المعلمين.accdb

الكثيرون لحماية الخلايا يستعملون حماية الشيت (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

في محل للعصير يتم بيع بالجملة والمفرق (صناديق و قناني) المطلوب موضح في هذه الصورة تم انشاء UDF لهذه الحالة في هذا الملف عسى ان ينال الاعجاب case_butil_salim.xlsm

السلام عليكم @Khalf لقد وضعت هذا السؤال عندما كنت في أول الطريق لكني لم أجد إجابة شافية مما جعلني أجتهد و أنشئ موضوعا جديدا به المطلوب و أكثر ليستفيد منه إخوتي. نعم أخي kanory صدقت كلنا فخورين بالإنتماء لهذا الصرح الكبير

نعم اخي Shivan Rekany انا كنت حاولت فيها ولم اعرف اين المشكله ههههههههههه في النماذج فيها سر غامض

في الحقيقة لا اعرف وين كان المشكلة في النماذجك لكن انا عملت نماذج اخرى وعملت المطلوب عليها اتفضل مشكلة الجمع.rar

اتفضل اتمنى يكون طلبك 2 (3).rar 1 (3).rar

تفضل اخى الكريم اخفاء الاطار الخارجى للفورم.xlsm

هذا ما تمتاز به اوفيسينا .... 😁

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

السلام عليكم لانشاء البرنامج يجب عليك انشاء الجداول التالية 1- جدول العملاء : لتسجيل اسماء العملاء فيه 2- جدول المواد : ويحوي اسماء المواد المخصصة للبيع ومع الوحدات الخاصة بكل مادة 3- جدول مستودعات : يحوي المستودع الرئيسي والمناديب 4- جدول رأس الفوايتر لتسجيل بيانات الفواتير الثابتة 5- جدول بنود الفواتير لتسجيل بنود و اقلام الفواتير والكميات والاسعار ثم تحتاج الى نماذج ادخال الى الجداول السابقة 1- نموذج تعريف عميل 2- نموذج تعريف مادة 3- نموذج تعريف مستودع او مندوب 4- نموذج فاتورة شراء 5- نموذج فاتورة بيع 7- نموذج فاتورة ادخال وهذا استخدامه قليل ولكن ضروري وجوده 7- نموذج اخراج مواد وهذا ايضا استخدامه قليل ولكن ضروري وجوده 8- نموذج مناقلة بين المستودعات وهو ضروري جدا لعملك 9- نماذج الاستعراضات والكشوفات

تفضل A_B.rar

السلام عليكم طبيعي انك تحدد وتحذف وتنقل من جدول الى جدول ، ولكن العمليات هذه غير صحيحة في بيئة المبرمج المحترف ، في قواعد البيانات من الخطأ ان تحذف بيانات تم ادخالها بحجة نقلها الى موقع آخر . الحل : يأتي في البداية عند التصميم اطلعت على الجدولين فوجدتهما متشابهين تماما .. يعني جدولين مكررين .. فلماذا لا يكون العمل على جدول واحد ، فسجل المشتروات هو نفسه سجل المبيعات ولكن سنفرق بينهما عن طريق حقل يميز كل واحد عن الاخر ... تصور انه يكفيك لتحقيق فكرتك هذه ان تعمل تحديث لحقل قيمته صفر بحيث يصبح =1

اتفضل حسب طلبك كتابة المبلغ.accdb

Like "*" & fx() & "*"

اعمل استعلام الحاق هكذا نفترض ان لديك جدولين واحد اسمه Tbl1 و الاخر اسمه Tbl2 وفي جدول الاول Tbl1 عندك حقل وقت باسم MyTime1 وفي جدول الثاني عندك حقل باسم MyTime2 قم بعمل استعلام هذا INSERT INTO Tbl2 ( MyTime2 ) SELECT DateAdd("h",-2,[Tbl1]![MyTime1]) AS Expr1 FROM Tbl1 WHERE (((Tbl1.ID)=[Forms]![Frm1]![ID])); وهذا شرح للجملة اضافة الى جدول Tbl2 حقل MyTime2 INSERT INTO Tbl2 ( MyTime2 ) حدد : هنا قمنا باستخدام دالة DateAdd لكي ننقص ساعتين h هو رمز الساعة -2 لكي ينقص ساعتين احذفه من جدول Tbl1 حقل MyTime1 SELECT DateAdd("h",-2,[Tbl1]![MyTime1]) AS Expr1 من جدول Tbl1 FROM Tbl1 بشرط حقل ID في جدول Tbl1 بيكون يساوي مربع نصي باسم ID في جدول Frm1 WHERE (((Tbl1.ID)=[Forms]![Frm1]![ID])); وقم بتشغيل الاستعلام بواسطة زر DoCmd.SetWarnings False DoCmd.OpenQuery "Q1", acViewNormal DoCmd.SetWarnings True والسلام

برغم الموضوع مخالف وهو في شروط المنتدى ممنوع استخدام مساعدة ولكن بعد اذن المشرفين شوف المرفق كان لازم تضيف استعلام وتغير فيه اسم التقرير ProgAssit40.mdb

السلام عليكم اخي الكريم بما انه يهمك سماع رأينا فاليك بعض الملاحظات التالية لتصبح الفاتورة اكثر احترافية 1- يجب ان يكون عمود الاجمالي قابل للكتابه فيه بحيث لما اكتب فيه يقوم البرنامج بتعديل السعر ولما اكتب بالسعر يعدل البرنامج الاجمالي 2- يجب ان يكون في الاصناف الوحدات وهو امر ضروري جدا بحيث نستيطع تحديد اني اريد بيع قطعة او دستة او كرتونة من نفس الصنف 3- يجب ان تحتوي الفاتورة على تحديد عملات فمن الممكن ان نستخدم اكثر من عملة في الفواتير 4- يجب ان تحتوي الفاتورة على طريقة الدفع نقدي ام اجل او بشيك او بورقة تجارية 5-يجب ان تحتوي الفاتورة على مستودع توضع فيه البضاعة المشتراة او المباعة 6- يجب ان يكون في الفاتورة مربع نص يحوي اجمالي الفاتورة و صافي الفاتورة والحسم والاضافات 7- يجب ان يكون في الفاتورة دفعة نقدية اولى في حال كانت الفاتورة اجلة فقد يدفع الزبون مباشرة جزء من الفاتورة 8- يجب ان يحوي جسم الفاتورة على عمود ملاحظات لاقلام الفاتورة فقد يحتاج المستخدم ان يسجل ملاحظة عن كل صنف في الفاتورة 9- يجب ان تحوي الفاتورة على زر حذف للفاتورة كاملة وليس لاصناف الفاتورة مع رسالة تنبيه للحذف فقد يضطر المستخدم لحذف فاتورة ما 10 - مربع التحرير والسرد سيء جدا في البحث في حال وجود عدد كبير من الاصناف وعدد كبير من الزبائن فهو يبحث في الاحرف الاولى من الاسم اتمنى ألا اكون قد اثقلت عليك بملاحظاتي فانا محاسب ومتعامل مع الفواتير بشكل كبير فارجوا ان تكون ملاحظاتي لك حافزا على تحسين عملك وتقدم انجازاتك في المنتدى تحياتي لك

شكرا يابو ياسين على مجهوداتك .. كتب الله اجرك .. نسأل الله الكريم ان نرى اخونا حربي محترفا من الدرجة الاولى .. وينفع الله به Prog47.rar

تفضل اخى الكريم -حساب العمر بالسنة والشهر واليوم.xlsx