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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

بعيداً عن الروابط و التعريفات الجاهزة لمعنى " المكتبات البرمجية " " 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

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

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

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

اخوي الخطأ عندك من الاندثار المتراكم والاندثار المتراكم موجوجود في جدول 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

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