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

بعيداً عن تعقيدات الكود.. سطر واحد يقوم بالمهام.. إليكم المرفق hide-unhide.rar

بعد اذن اخي شريف هذا الكود بنسخ لك الصف في اي خلية تم تحديدها (ليس من الضروري الاولى) ولا تتم عملية النسخ الا اذا كان الصف مكتملاً (من اجل اكمال تعبئة الجدول) Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.EnableEvents = False Dim Final_Row%, r% Dim my_rg As Range Dim Rg_to As Range: Set Rg_to = Range("i2:k2") Final_Row = Cells(Rows.Count, 1).End(3).Row Set my_rg = Range("a" & 2, "c" & Final_Row) If Not Intersect(Target, my_rg) Is Nothing _ And Target.Count = 1 Then r = Target.Row If Application.CountA(Cells(r, 1).Resize(1, 3)) = 3 Then Rg_to.ClearContents Rg_to.Value = Cells(r, 1).Resize(1, 3).Value End If End If Application.EnableEvents = True End Sub الملف مرفق نقل محتويات salim.xlsm

تفضلى أختى الكريمة احتساب المدة على اساس الرقم والاسم.xlsx

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي Windows.rar

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي System Information.rar

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي Strings.rar

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي Printing.rar

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي Multimedia.rar

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي Miscellaneous.rar

بسم الله الرحمان الرحيم السلام عليكم اصدقائي اعضاء منتدى اوفيسنا تم الانتهاء بحمد لله من قاعدة البيانات تم الاعتماد على الاكسيس كقاعدة البيانات لذى لن يكون هناك اي ثقل او ضغط على الاكسيل فواتير الشراء و فواتير البيع اضافة فاتورة بحث وتعديل او طباعة البحث عن الاصناف باستعمال خاصية النص التنبئي اتبعنا السعر الوسط للاصناف في حال توفر كميات مختلفة باسعار مختلفة في المخزون الاصناف الجديدة تدخل اوتوماتيكيا الى المخزن مباشرة من فاتورة الشراء و كذالك يتم تكويدها اوتوماتيكيا امكانية اضافة القيمة المضافة للفواتير حسب ارادة المستخدم اضهار ان كانت الفاتورة مسددة ام لا و ايضا اضهار ان كان مسدد جزء من الفاتورة و المبلغ المتبقي الموردين و العملاء اضافة بحث وتعديل او حذف اضهار كل الفواتير المتعلقة بالعميل او المود اضهار الفواتير الغير مسددة او الغير مدفوعة للعميل او المورد كشف حساب تفصيلي لكل عميل او مورد طباعة كشف الحساب اضهار عدد الفواتير المتعلقة بكل عميل او مورد و اضهار مجموع المبالغ المدفوعة او المسددة و مجموع المبالغ المستحقة المخزون قائمة كل الاصناف مع امكانية التعديل على اسم الصنف اضهار قائمة بالاصناف القريبة النفاذ وذلك على حسب كمية يحددها المستخدم اضهار قائمة الاصناف التي نفذت من المخزون قائمة بكل عمليات الشراء الخاصة بكل صنف قائمة بكل عمليات البيع الخاصة بكل صنف صافي ربح الصنف امكانية استراد قائمة اصناف من ملف اكسل خارجي جاري العمل عللى مكانية استراد الاصناف من صيغ اخرى كالاكسيس او الملفات النصية سندات الصرف و سندات القبض اضافة بحث وتعديل او حذف + طباعة السندات بحث بواسطة رقم السند او رقم الفاتورة او اسم العميل او المورد او بين فترة زمنية معينة اثناء اضافو السندات سواء قبض او صرف لا تضهر الى الفواتير الغير مسددة عند اختيار الفاتورة يضهر مبلغها اوتوماتيكيا امكانية اختيار طريقة الدفع نقدا او شيك مضهر البرنامج امكانية تغير ثيم البرنامج امكانية تغير لغة البرنامج (عربية انجليزة و فرنسية) يعتمد البرنامج على واجهة الاكسل الرئيسة و اليوزرفورم معا معلومات اخرى امكانية رفع قاعدة بيانات البرنامج على سيرفر محلي او عام (لاخوف على قاعدة البيانات في حال سقوط الونداوز) امكانية العمل على البرنامج من طرف اكثر من مستخدم في وقت واحد هذه بعض الصور المسربة للبرنامج هذا ماتم انجازه بفضل الله الى حد الساعة لذى احتاج من كل الاعضاء ابداء اقتراحاتهم حول الامور المنجزة و ايضا اعطائنا اي اضافات تودون ان اضيفها للبرنامج لانه لم يعد يتوفر في جعبتي اي افكار لذي ارجو من لهم خبرة في التعامل مع هذا النوع من البرامج ان يبدو اقتراحاتهم او يرةني بعض البرامج التي يمكن ان استمد منها افكار اخرى تحياتي للجميع اخوكم في الله شوقي ربيع

اولا / الشكر لله ثم لهذا الموقع الذي اعطانا ما يفيد ونفيد به ثانيا / اشكر الاخوة الذين ساهموا معي وشاركوني وتحملوا كثرة استفساراتي لاخراج هذا البرنامج وهم الاساتذة والمشرفين(جعفر ,عبدالرحمن هاشم,ابوعارف ,ابو خليل ,رمهان ) شكرا لكم على هذا العمل ونطمع فالمزيد منكم برنامج العطاء للعقارات العقارات اسم البرنامج : برنامج العطاء للعقارات نسخة البرنامج : النسخة 1 متطلبات البرنامج : برنامج اوفيس اكسس 2003 صلاحية البرنامج : برنامج مجاني مفتوح يتم تسجيل بيانات ملاك العقارات اولا ثم تسجيل عقود المستاجرين وتاريخ بداية الايجار وعمل توزيع لها ظهور الايجارات المستحقة في تقرير حسب تاريخ استحقاق الايجار - تقرير للمستاجر لبيان عدد مرات الايجار وغيرها - تقرير يظهر الشقق الغير مؤجرة - تقرير يظهر شقق وعقارات باسم الحي - تقرير يظهر شقق المالك والباقي تقدر تكتشفة بالبرنامج البرنامج يتم استعمالة في الايجارات للشقق والاراضي وغيرها لمن يعملون في مكاتب العقار نريد ارائكم واقترحتكم ومشاركاتكم بعد تجربة البرنامج في هذه الصفحة نرجو ممن يقوم بتجربتة يفيد الموقع بذلك وكذلك في حالة وجود مشاكل يمكنة طرحها هنا لحلها وتلافيها ولن يبخل اي من الاعضاء او المشرفين في حل مشكلتك . تنبية : يلزم فتح موضوع جديد حتى يتم النظر في المشكلة من شروط الموقع رابط البرنامج هـــنــا

بسم الله الرحمان الرحيم اقدم لكم اليوم طريقة تحويل تحويل ملف الاكسل الى exe ثم تغيير الايقونة ثم Setup نبدأ بالتحويل الى ملف تنفيذي تساعد هته العملية في حماية تشفيير الملف ويسعب بعدها اختراقه والعبث فيه لنقوم بهته العملية نحتاج الى برنامج يدعى XLtoEXE وهذا رابط تحميلة http://cpap.com.br/orlando/download2/XLtoEXE.zip البرنامج لا يحتاج لى تثبيت نقوم مباشرتا بفك الضغط عن الملف وفتح البرنامج اولا نختار الملف المراد تحويله كما في الصورة ثانيا الاعدادات الازمة في البرنامج ثم بعدها سيطلب منك مكان الحفظ اختر المكان ثم موافق ستلاحظ ان الملف حول الى ملف تنفيذي ولتتأكد من ذالك اعمل كليك يمين ثم خصائص وشاهد نوع الملف بعد فتحكم للملف اجري اي تغيرات و وافق على الحفط عند الخروج ستلاحظ ان الملف قد انشأ Backup اي انه صنع نسخة احتاطية لنفسه لاتقم بحذفها ملاحظة : يجب ان تكون تسمية الملف بالانجليزية لان التحويل لن ينجح اذا كانت بالعربية الأن نأتي الى تغيير ايقونت الملف الذي حولناه للقيام بذلك نحتاج الى برنامج Exe Icon Changer وهذا رابط تحميله http://www.mediafire...con_Changer.rar ملاحظة بخصوص برنامج تغيير الايقونات عليك بالغاء الحماية عند تثبيته بعد التثبيت اذهب الى التسجيل وادخل السريال المرفق مع الملف الذي حملته وهذا فيديو يشرح طريقة استعمال البرنامج http://www.youtube.c...h?v=NtZfTFVmGWc نأتي الى المرحلة الاخيرة وهي تحويل الملف الى برنامج Setup الفائدة من هذا البرنامج هي جمع جميع الاضافات التي تريدها مع الاكسل كالصور مثلا في ملف واحد وكذالك حماية الملف من الحذف حيث انه سيصبح لدينا راكورس للملف وهذا يحدث بعد التثبيت طبعا هذا رابط البرنامج http://www.jrsoftware.org/isdl.php بعد تثبيتك الى البرنامج نأتي الان الى طريقة العمل به وللقيام بذالك تابع الصور بالتوالي بعد الانتهاء ستجد عملك داخل الملف الذي اخترته على شكل Setup كأي برنامج عادي ولتشاهد ملف اجريت عليه كل ماسبق شاهد موضوعي برنامج خاص لاصحاب محلات بيع الموبيلات (شوقي ربيع) أكون الان قد انتهيت من شرحي المتواضع هذا ارجومن الله ان اكون قد وفقت فيه وأن تكون فائدته عامة على الجميع مع تحيات أخوكم شوقي ربيع

السلام عليكم بعد غيبة طويلة عن هذا المنتدى للسكنى فى البيت المجاور بيت الأكسيس أقدم لكم هذا الرابط المفيد جدا بارك الله فيكم https://excelchamps.com/blog/useful-macro-codes-for-vba-newcomers/

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

على اعتبار ان اسم حقل تاريخ الميلاد txtdate فيما لواحتجت التغيير بين سنة 2000 و 1900 في حدث بعد التحديث اكتب السطر التالي : Private Sub txtdate_AfterUpdate() txtdate = Left(Format(Date, "yyyy"), 2) - 1 & txtdate End Sub او هذا الاختصار يقوم بالمهمة Private Sub txtdate_AfterUpdate() txtdate = "19" & txtdate End Sub واكتب في قناع الادخال في النموذج صفرين حتى لاتمكن من ادخال اكثر من رقمين

ممكن تجرب هذا معادلة جمع.xlsx

بعد إذن الأستاذ على قم بسنخ الكود ثم اذهب إلى المطور ثم اختر فيجوال بيسك أو اضغط alt+f11 ثم اختر insert تظهر قائمة اختر module Book1.xlsm

يمكنك تجربة هذا الملف عله يفيدك ملف بحث بفورم ممتاز - 2.xlsm

If Me.x = 50 then me x = 1950 elseif me.x=51 then Me.x 1951 وهكذا اخي العزيز ارفق مثال ليتم عليه التعديل ومساعدتك

نقل محتويات.xlsm

السلام عليكم ورحمة الله وبركاته أخي الحبيب الزباري جزاكم الله خيراً ..رائع وبسيط ما قمت به ...تفعيل أو إلغاء تفعيل الإطار بكل محتوياته ... تقبل تحياتي العطرة.

هل المقصود عدم تكرار المدينة فقط رغم تغير فترة الاستحقاق ؟ لاني ارى في الصورة الرياض مكررة مرتين بتاريخ مختلف ؟

السلام عليكم تم العمل على حسب فهمي للموضوع ملاحظة لا تغيرة تسمية الاوراق لكي لا تتأثر الاكواد ولا تغير اي شئ في الورقمة المسمات temp ارجو ان يكون المطلوب تحياتي Advanced_Filter.xlsm

الشكر لله نفعنا الله واياكم

السادة خبراء المنتدي ارجو المساعدة في المطلوب هل انا مش قادر اوصل المطلوب ولا المطلوب صعب بس انا استبعد ان المطلوب صعب لان خبراء المنتدي لا يستصعب عليهم امرا ان شاءالله

الاخ شريف / انا شاكر ليك جدا وجزاك الله خير وجعله فى ميزان حسناتك

تنسيق مسبق.xlsx

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

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي Math.rar

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي Internet.rar

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي Graphic.rar

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي Forms.rar

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي Database.rar

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي Components.rar

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي ActiveX.rar

........السلام عليكم و رحمة الله وبركاته أما بعد لقد اشتقت اليكم و اليوم هناك بعض الدروس المتكاملة حول الدالفي و هي بالفرنسية لأننا نعمل عليها فرنسي و هي لا تحتاج عربي كثير الا في الشرح فقط أما البرمجة فلا TSالتخصص : قاعدة بيانات وجدة نمطية : دالفي محطة واحدة الجزء النظري I.1) تعريف الحدث: الأحداث عبارة عن إجراءات يقوم بها المستخدم ، أو البيئة التي يعمل فيها التطبيق أو التطبيق نفسه (وفقًا لنتيجة تنفيذ تعليمات من التطبيق) والتي ينبغي للبرنامج الاستجابة. أمثلة على الأحداث Evénements Explications OnActivate Quand l’élément est activé. OnDesactivate Quand l’élément va être désactivé. OnCreate Quand l’élément est créé. OnClose A la fermeture de l’élément. OnDestroy A la destruction de l’élément. OnHide Au moment où l’élément deviendra caché. OnShow A l’affichage de l’élément. OnResize Au redimensionnement de l’élément. OnKeyPress A la frappe d’une touche de clavier. OnKeyDown Au moment où la touche du clavier est pressée. OnKeyUp Au moment où la touche du clavier est relâchée. OnEnter Au moment ou le curseur focalisera sur l’élément. OnExit Au moment ou le curseur focalisera sur un autre élément. OnChange A chaque fois que le contenu change. OnClick Au moment où on click sur le bouton gauche de la souris. OnDblClick Au moment où on double click sur le bouton gauche de la souris. OnMouseMove Au moment où le pointeur de la souris touche l’élément. OnMouseLeave Au moment où le pointeur de la souris quitte l’élément. OnMouseDown Au moment où la touche de la souris est enfoncée. OnMouseUp Au moment où la touche de la souris est relâchée.

للرفع

اخي الكريم ببساطة لن تحصل على مساعدة بهذه الطريقة .. فلا احد يعرف عن ماذا تتحدث .. لذلك ارفق قاعدة بياناتك واشرح فيها المطلوب

أخي الكريم نايف إليك الكود التالي عله يكون المطلوب Sub Test() 'تعريف المتغيرات Dim Ws As Worksheet, Sh As Worksheet, Cel As Range, LR As Integer 'تعيين قيمة للمتغير ليساوي ورقة العمل المراد الترحيل منها Set Ws = Sheets("mm") 'تعيين قيمة للمتغير ليساوي ورقة العمل المراد الترحيل إليها Set Sh = Sheets("nn") 'تعيين الخلية التي سيتم ترحيل قيمتها Set Cel = Ws.Range("A1") 'تحديد أول خلية فارغة في العمود الأول في الورقة المراد الترحيل إليها LR = Sh.Cells(Rows.Count, 1).End(xlUp).Row + 1 'شرط لاختبار تكرار القيمة باستخدام دالة العد بشرط 'فإذا كان ناتج العد أكبر من أو يساوي 1 ، فذلك يعني أن القيمة موجودة If Application.WorksheetFunction.CountIf(Sh.Columns(1), Cel.Value) >= 1 Then 'طالما أن القيمة موجودة تظهر رسالة تفيد بأن القيمة مكررة MsgBox "القيمة مكررة في العمود", 64 Else 'إذا لم تكن القيمة موجودة من قبل في الورقة المراد الترحيل إليها 'يتم وضع القيمة في أول خلية فارغة في العمود الأول بعد آخر خلية بها بيانات Sh.Range("A" & LR).Value = Cel.Value End If End Sub تقبل تحياتي

الى ان يتدخل احد الاساتذة خبراء الاكواد هذا حل بسيط يمكن العمل عليه الان تحياتي تعديل.xlsm