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

في الحقيقة لا اعرف وين كان المشكلة في النماذجك لكن انا عملت نماذج اخرى وعملت المطلوب عليها اتفضل مشكلة الجمع.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

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

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

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

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

بارك الله فيك واعطاك الصحه والعافيه ممتاز شكر اليك حبيبنا ابو ياسين

العفو اخي ابو زاهر نعم بيكون اقل من الرصيد

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

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

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

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

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

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

هل هذا هو المطلوب SearchRpt.rar

اذا كنت تريد تغير الطباعة عند الطابعه هذا عند الطباعه يغير الطابعه الافتراضيه 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

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

Option Explicit Sub TARHIL() Dim Sh As String Dim i As Integer Dim AA As Integer '====================================================== Application.ScreenUpdating = False Sheets("جنح").Range("A2:O1000").ClearContents Sheets("مدنى").Range("A2:O1000").ClearContents 'يمكنك فى هذا الجزء اضافة اى شيت اخر جديد على نفس هذه الطريقة الموجودة '====================================================== For i = 2 To Cells(10000, "A").End(xlUp).Row Sh = Cells(i, "D").Value AA = Sheets(Sh).Cells(10000, 1).End(xlUp).Row + 1 If AA < 2 Then AA = 2 On Error Resume Next Range(Cells(i, "A"), Cells(i, "O")).Copy Sheets(Sh).Range("A" & AA).PasteSpecial xlPasteValues Application.CutCopyMode = False Sheets(Sh).Cells(AA, "A").Value = Sheets(Sh).Cells(AA, "A").Row - 1 Next i Application.ScreenUpdating = True MsgBox "تم الترحيل بنجاح" End Sub

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

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

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

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

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

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

السلام عليكم الاجابة تطول وتتشعب ، للمزيد من التفاصيل والشروحات ابحث في Google عن جملة : "المكتبات البرمجية" أو "ما هي المكتبات البرمجية"

أعتذر خطأ صغير جدا فى المعادلة تفضل 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

يمكن الاستفادة من المثال في ذلك SelectPrinterAndPaperSizes1.mdb

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

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

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

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

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

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

بسم الله الرحمن الرحيم اخواني في الله نظرا لان منتدى اوفيسنا من افضل المنتديات وهو يعتبر كنزا لرواد العلم .. حفظ الله اهله وصاحب هذا المنتدى .. يارب فقد آثرت ان اجمع درر الاعمال واضعها هنا لعل ذلك ينفع احدا ... فنشارك في الاجر والثواب من الله كيفية عمل فلترة ديناميكية بواسطة TEXTBOX ..للاستاذ الكبير ماجد ماهر وهذا هو باب الكنز https://www.youtube.com/channel/UCm_KFnYAIq_WAsfVl_5qUnQ/videos?view_as=subscriber وعلى الله قصد السبيل

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

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

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

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