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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

'واذا اردت الترحيل من العمود 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 يعني البيانات ثابتة وليس خلل في المعادلات ... اتصور ان فيه خلط بيانات في الجدول .. او ان الفكرة غير مفهومة عندي اصلا

شوف وجرب الآن 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 وعلى الله قصد السبيل

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

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

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