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

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

السلام عليكم إذا أردنا ان يكون الحذف للمتكرر في أول ثلاث أعمدة كيف يكون الكود ..وشكرا تفضل المرفق به 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

@ابو زاهر اشكرك اخي وضاح . بارك الله فيك ... كلنا نتعلم من بعض في هذا المنتدى الرائع

بارك الله فيك استاذ كناري وزاداك الله علما لقد استفدت من الكود شكر اليك يالغالي

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

حبيبي المحترم وأستاذى الذي دائما أتعلم منه ( ياسر خليل أبو البراء ) دمت بخير وشكرا جزيلا فقد أرسل لي الرد بمنتدى آخر وله جزيل الشكر الكود الجديد Sub Grab_Class_List() Dim ws As Worksheet, sh As Worksheet, s1 As String, s2 As String Dim i As Long, j As Long, p As Long, n As Long, arr, temp Set ws = ThisWorkbook.Worksheets(1) Set sh = ThisWorkbook.Worksheets(2) sh.Range("B6:I35").ClearContents s1 = sh.Range("K1").Value: s2 = sh.Range("K2").Value arr = ws.Range("B10:G" & ws.Range("B" & Rows.Count).End(xlUp).Row).Value ReDim temp(1 To UBound(arr, 1), 1 To UBound(arr, 2) + 1) For i = 1 To UBound(arr, 1) If arr(i, 3) = s1 And arr(i, 6) = s2 Then p = p + 1 For j = 1 To UBound(arr, 2) temp(p, j) = arr(i, j) Next j temp(p, j) = p End If Next i On Error Resume Next n = WorksheetFunction.Round(p / 2, 0) sh.Range("B6").Resize(n, 4).Value = Application.Index(temp, Evaluate("ROW(1:" & n & ")"), Array(j, 1, 5, 6)) sh.Range("F6").Resize(n, 4).Value = Application.Index(temp, Evaluate("ROW(" & n + 1 & ":" & p + 1 & ")"), Array(j, 1, 5, 6)) On Error GoTo 0 End Sub روعة مستر / ياسر

اتفضل اتمنى يكون كما طلبت Print.accdb

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

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

بالتوفيق اخي ابو زاهر

انا الان في الجوال ادخل على تصميم التقرير ثم البينات واعمل تحت اسم الصنف forms!اسم النموذج!اسم الحقل اللي فيه الصنف او انتظرني 20 دقيقه وبدخل من الاب توب

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

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

وعليك السلام اخي الكريم لم استطع ارسال الرسالة ليست لدي صلاحيات مازلت عضو جديد تم تعديل على الكود يمكن استخدامه في اي برنامج وسيتم وضعه في هدا المنتدى ليستفيد منه كل من يبحث عن اضافة اختيار طابعة معينة لتكون الافتراضية Print.rar

انا اخطات بتحميل الملف حمله مرة اخرى هذا الناتج اللي طلع عندي

هذا تواضع منكم . جزاك الله خير . ⚘

حسب فهمي لسوال شوف المرفق الجرد (2).rar

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

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

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

وعليكم السلام ورحمة الله وبركاته نعم و هذا مختصر العمل اعمل 2 كومبوبوكس او مربع النص احد منها لكي نبحث عنه و الاخر لاستبدال واعمل مربع نصي اخر لكي يظهر لك عدد الكلمات الموجودة وسيتم استبدالها بواسطة دالة ديكوانت\

اتفضل اقساط.accdb

اخي الكريم حاول تعمل الصور في الجدول ثم تستدعيها هكذا او ارفق ملف مصغر Me.اسم الحقل = DLookup(" [اسم الصورة] ", "اسم الجدول")

اذا كنت تريد تغير الطباعة عند الطابعه هذا عند الطباعه يغير الطابعه الافتراضيه Set Application.Printer = Application.Printers(DLookup("[printerName]", "pirent", "[Number]=5")) SetDefaultPrinter (DLookup("[printerName]", "pirent", "[Number]=5")) انا ما ارسلته الا بعد تجربه

مرحباً لطالما تبادر إلى ذهني هذا السؤال و خاصة مع قراءتي عن لغات البرمجة و الحديث الذي دار عن أفضلية بعض لغات البرمجة بسبب تعدد مكتباتها ، و هنا يبدأ السؤال إذا كانت للغة البرمجة مكتبات و في نظام التشغيل مكتبات . فما هو الفرق إن وجد و هل مكتبات أكسس هي عبارة عن ملفات DLL ؟ ما حدا بي إلى هذا السؤال و جدده في ذهني هو مشاركات الأستاذ @ابوخليل باننظار الإجابة أو الإحالة إلى رابط و اضح ... فلم يزد البحث الأمر عندي إلا غموضاً

بعيداً عن الروابط و التعريفات الجاهزة لمعنى " المكتبات البرمجية " " programming libraries " و قبل أن أطرح السؤال لا بد من وضع السؤال في سياقه حتى تمكن إزالة الإشكال يمكن القول أن المكتبات البرمجية هي مجموعة من البرامج الصغيرة التي تنفذ أوامر محددة . سواء في برنامج رئيسي أو في لغات البرمجة. تدعى ضمن نظام تشغيل الويندوز DLL Dynamic Link Library مكتبة الروابط الديناميكية و هي بعدة لواحق و بعضها تتضمن بيانات فقط . و تنقسم إلى نوعين ملفات خاصة بنظام التشغيل و ملفات تتم إضافتها إلى نظام التشغيل من قبل التطبيقات . أما فيما يتعلق بالمكتبات البرمجية الخاصة بلغة البرمجة فهي الأوامر الجاهزة التي يستخدمها المبرمج مباشرة دون الحاجة إلى إنشائها ( هل هذه المعلومة صحيحة ؟) السؤال الأول الذي توقفت عنده : المكتبات التي نجدها في محرر الفيجوال في أوفيس هل هي ملفات تضاف إلى نظام التشغيل أم هي مكتبات للأوامر ؟ و إذا كانت مكتبات للأوامر لمٓ لا تكون معرّفة جميعها بصورة افتراضية ؟ و بحال لم تكن موجودة كيف يمكن الحصول عليها جميعاً و تحميلها في محرر الفيجوال ؟

'واذا اردت الترحيل من العمود K : L فقط 'عليك بتغيير هذا الصف فى الكود Range(Cells(i, "A"), Cells(i, "O")).Copy 'وجعله هكذا Range(Cells(i, "K"), Cells(i, "L")).Copy

ممكن جزء من البرنامج والروابط بها

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

استخدم هذا الكود قبل تشغيل الاستعلام DoCmd.RunCommand acCmdSaveRecord

آآآآآآآآه تريد الذي في التقرير يطابق المعروض في النموذج الفرعي ..... حاضر .. ان شاء الله اتمكن منه .. فقط املك الوقت

تفضل اخى الكريم أجندة محامى (Autosaved).xlsm

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

اخوي الخطأ عندك من الاندثار المتراكم والاندثار المتراكم موجوجود في جدول 2 يعني البيانات ثابتة وليس خلل في المعادلات ... اتصور ان فيه خلط بيانات في الجدول .. او ان الفكرة غير مفهومة عندي اصلا

شوف وجرب الآن Prog51.rar

جزاك الله خيرا ونفع بك استاذ علي

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

أعتذر خطأ صغير جدا فى المعادلة تفضل 2الانشطة.xlsx

تفضل لا تقوم بالكتابة والإدخال اليدوى الا فى عمود ID/Iqama بالنسبة للجداول فى صفحات الشهور الانشطة.xlsx

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

When can I edit data in a query? You can always edit the data in a query when the query is based on either only one table or on two tables that bear a one-to-one relationship to each other. يمكن إدخال البيانات في استعلام اذا كان مبنياً على جدول واحد او جدولين فقط بعلاقة رأس لرأس https://support.office.com/en-us/article/edit-data-in-a-query-6ca3edfc-6d66-4d90-8219-c2b258d5bed7

اذا كان اسم الطابعة معروفه مسبقا ضع هذا الكود قبل امر الطباعة SetDefaultPrinter (HP laserjet 1510)

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

السلام عليكم ورحمة الله ومحاولة أخرى بمعادلة بسيطة... بن علية حاجي monney_1.xlsx

تم التعديل كما تشاء أين الاعجاب (هل من الصعب الضغط على اشارة القلب ❤️ اسفل كل مشاركة) (الخانات الفارغة في اسفل الصفحة لا تظهر عند الطباعة) جرب ان تعمل Print Preview و سوف ترى نطاق الطباعة قائمة التلاميذ salim1.xlsm

شكرا أستاذي على هذا المجهود ولكن في خانة القسم اريد ان يبقى إسم القسم كامل كما هو، يعني انني عندما اغير في القائمة المنسدلة تعطي إسم القسم مختصر وفي تفس الوقت يظهر إسم القسم مفصل في خانة القسم مثلا 3تق1 تعني ثالثة تسيير وإقتصاد1 مع إخفاء الخانات الفارغة في الأسفل قائمة التلاميذ.xlsx

ريما كان المطلوب الفلترة فيتم الفصل بين كل فئة Salim.xls

السلام عليكم ورحمة الله الأخ سليم حاصبيا بارك الله فيكم هو المطلوب الله يوفقك

تحياتى مرفق معادلتين للتسلسل التلقائى و بفرض مطلوب عمل تسلسل تلقائى فى العمود A بشرط التسجيل فى العمود B تكون المعادله الاولى بسيطه لا تتغير عند فلترة البيانات =IF(B2="";"";MAX(A$1:A1)+1) و الثانيه متغيره فعند فلترة البيانات تتغير حسب البيانات المفلتره =+IF(B2="";"";SUBTOTAL(3;B2:B2)) و لا تنسونا من صالح الدعاء تحياتى معادلتين تسلسل تلقائى بسيطه و اخرى تعمل مع الفلتره.rar

نتابع .... أثناء عملي بالتطبيق ، ورغم محاولاتي الحثيثة من التخلص من هاجس " ماذا لو" الذي يستفزني دائماً لتطوير وتعقيد التطبيقات والاضافة عليها ، لم أتمكن من التخلص منه ، ودفعني نحو : ماذا لو أردنا التحكم بخيارات الطباعة بعد تحديد الطابعة لتقريرنا ؟؟ وهنا ننتقل لمنظومة أخرى " مرتبطة " بفكرتنا ، تمكننا من السيطرة على خيارات الطباعة من خلال الطابعة التي إخترناها لتقريرنا. وهذه نرى فيها رأينا ، فإما أن نستمر بها في موضوعنا هذا أو ننتقل بها لموضوع جديد. هذا التطبيق يمكن الإستفادة منه في أي تطبيق ، كل ما عليك هو إستيراد النموذج frmSetPrinter والله من وراء القصد ... وهو حسبي ........... NA_ReportPrenter.rar