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

إخواني وأحبابي في الله بارك الله فيكم جميعاً وجزيتم خيراً على مشاعركم الطيبة وكلماتكم الرقيقة وأنا إن غبت عن المنتدى بجسدي فروحي تسكن فيه تقبل الله منا ومنكم صالح الأعمال ، وجعل أعمالنا صالحة ولوجهه خالصة تقبلوا وافر تقديري واحترامي

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

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

جرب هذا الملف list_by_letters.rar

شكرا للاستاذ صالح وشكرا للاستاذ كرار سبب تعديل الاستاذ العزيز كرار ان الكود يقوم بتعديل 11 سجل ثم يقف ، فهو قام بجلب عدد السجلات الفعلية الموجودة في الجدول1 ، ولكن يلاحظ ان الترقيم يتم بواسطة حقل داخل النموذج فيجب ان يكون الجدول1 هو مصدر بيانات النموذج هذا تعديل بسيط للمرور على جميع السجلات داخل النموذج DoCmd.GoToRecord , , acFirst Dim i As Integer For i = 1 To Me.Recordset.RecordCount On Error Resume Next Dim x, y As Integer x = 1 If IsNull(x) Then y = i Else y = y + 1 End If Me![num] = Format(y, "0000") On Error Resume Next DoCmd.GoToRecord , , acNext Next i

تفضل هذا المثال لعله ينفعك CARDS.rar

منور الاستاذ الكبير ياسر خليل صراحة هو ملح المنتدى بغيير وجودة المنتدى بدون طعم عوداً حميدا نورت

السلام عليكم ورحمة الله وبركاته إخواني الكرام ..أحبابي في الله أقدم لكم اليوم كودين ، تعتمد الفكرة فيهما على تجميع القيم التي يتم إدخالها ، مع كل إدخال جديد في المرفق ستجد ملفين .. الملف الأول باسم Single Cell Accumulator أي التجميع للقيم في خلية واحدة فقط ويظهر الناتج في نفس الخلية .. قم بإدخال أي قيمة في الخلية A1 وليكن 5 ثم سهم لأسفل واكتب القيمة 4 ستجد أن ناتج الخلية أصبح 9 ، اكتب 3 ثم سهم لأسفل ستجد الناتج أصبح 12 وهكذا .. أعتقد أن فكرة الكود قد وصلتكم الآن .. لإعادة ضبط عملية التجميع قم بمسح محتويات الخلية A1 أو وضع نص بها .. الكود في الملف الأول بهذا الشكل (في حدث ورقة العمل) Private Sub Worksheet_Change(ByVal Target As Excel.Range) Static dAccumulator As Double With Target If .Address(False, False) = "A1" Then If Not IsEmpty(.Value) And IsNumeric(.Value) Then dAccumulator = dAccumulator + .Value Else dAccumulator = 0 End If Application.EnableEvents = False .Value = dAccumulator .Select Application.EnableEvents = True End If End With End Sub الملف الثاني باسم Two Cell Accumulator وفي هذا الملف تتم عملية الإدخال في الخلية A1 بينما تظهر النتائج في الخلية B1 ، ففي كل إدخال رقمي يتم تجميع القيمة إلى القيمة الموجودة في الخلية A1 ، وهنا إذا تم مسح محتويات الخلية A1 أو كتابة نص بها ، فإن الناتج في الخلية B1 يظل كما هو ، ولإعادة ضبط عملية التجميع من جديد قم بمسح محتويات الخلية B1 والكود في الملف الثاني يظهر بهذا الشكل (في حدث ورقة العمل) Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Address(False, False) = "A1" Then If IsNumeric(.Value) Then Application.EnableEvents = False Range("B1").Value = Range("B1").Value + .Value Application.EnableEvents = True .Select End If End If End With End Sub أرجو من الله أن يجعل أعمالنا صالحة ، ولوجهه خالصة .. دمتم في رعاية الله حمل الملف من هنا

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة برنامج ايصالات استلام وصرف النقدية تم ارفاق كود الحل من الفاضل / حمادة عمر PASS _ magdy 12345 و لا تنسونا من صالح الدعاء تحياتى برنامج فواتير و ايصالات حماده عمر.rar

السلام عليكم و رحمة الله و بركاته تقبل الله منا و منكم الصيام و القيام. أخوتي الأعزاء في هذا المنتدى الأكثر من رائع أقدم لكم كود إعادة ترقيم جميع سجلات حقل و ذلك بالضغط مرة واحدة على الزر الذي وضعة عليه الكود. بدون إطالة أقدم لكم هذا الكود. DoCmd.GoToRecord , , acFirst Dim i As Integer For i = 1 To 11 On Error Resume Next Dim x, y As Integer x = 1 If IsNull(x) Then y = i Else y = y + 1 End If Me![num] = Format(y, "0000") On Error Resume Next DoCmd.GoToRecord , , acNext Next i و هذا الملف يوضح ذلك. لا تنسونا من خالص دعائكم في هذا الشهر العظيم إعادة ترقيم عمود في جدول.rar

السلام عليكم ورحمة الله وبركاته اخواني أحببت أن أقدم لمنتدانا الغالي شيء بمناسبة شهر رمضان وهي عبارة عن مكتبة مليئة بالأكواد 300 كود فهي ليست من عملي وإنما قمت بجمعها من المنتدى في ملف واحد حتى يسهل البحث فيها وكذلك الملف الذي يحوي الأكواد قمت بتحميله من المنتدى وهذا من باب الإعتراف بالفضل لأصحابه . Codes Library.rar

بسم الله الرحمان الرحيم السلام عليكم اعلم اعلم ان غيابي طال عنكم احبتي في الله هي الظروف ومشاغل الحياة التي تمنعني عنكم لاكن دائما و ابدا لن اعود بعد غيابي و انا فارغ اليدين لا اطيل عليكم اقدم لكم اليوم نموذج فاتورة بسيط مصمم على الاكسل ؟؟؟؟ ماذا يوجد الكثير من النماذج في المنتدى نعم يوجد لا كن هذا النموذج مختلف جدا عما الفتوموه من الاخر فكرة النموذج هي انشاء ليست برمجيا تسهل علينا ادخال الاصناف بالاضافة الا الشكل الجمالي لها ماذا ستستفيد من هذا البرنامج غير استعماله ؟؟ وانا اقصد الذين يريدون تطوير مهاراتهم في برمجة VBA اولا ستتعلم كيفية استخدام المصفوفات ثانيا ستتعلم شيئ اسمه الوراثة في البرمجة ثالث كيفية الاستفادة من الكلاس موديل و استخدامه مع الوراثة ملاحظة لم اعمل الجزء المتعلق باضافة و تعديل الاصناف وايضا الجزء المتعلق بالعملاء امرهم بسيط يمكن لاي عضو اضافة العملية من نفسه لا اطيل عليكم واترككم لتجربة البرنامج وانا طوع اي احد يريد الاستفسار حول اكواد البرنامج تحياتي للجميع FcteurRabie.rar

جرب هذا . بعد التعديل علي كود اخونا عمر Omar_2.rar

لم افهم طلبك الملف في حالة كون الخلية K15 خالية تحتوى نتيجة البحث على كل القيم التى تقع بين التاريخين فى كل أوراق العمل اما اذا كنت تقصد الخطأ الذي يحدث عندما تكون احد اوراق البحث لا تحتوي علي بيانات فقد تم علاج ذلك اما اذا كان طلبك خلاف ذلك ارجو التوضيح انظر المرفقات SOP GIZA INDEX.rar

جزاك الله كل خيراً

السلام عليكم جزاكم الله خيراً ...عمل متقن...بارك الله بكم.

الله عليكم رائع بس لو تخصصون نصف ساعة من وقتكم الثمين لتعليم المبتدئين من مثلي دروس vba (سلسلة تشرح كل يوم كود ) كود لا دوال الأكسس لأنها موجودة خاصة تراكيب الكود و بعض الرموز التي تأتي معه & " ' "'" ";" و شوف كم يضاعف الأجر للأسف نحن لم نجد معاهد تكوين متخصصة تمكننا من ذلك كل ما تعلمناه هو من الأنترنت لكن تبقى ناقصة و الكتب كلها إنجليزي فاياريت تبسط لنا الأمور حتى نتحكم فيها و يزول الغموض و الله أنا بغير منكم و في قلب حسرة أني لم أستطيع التقدم في هذا المجال و الله أنتم طوبى لكم و شكرا

روعة بارك الله فيك

تفضل هذا المثال قد كنت انهيته قبل ان تضع مشاركتك هذه باذن الله نكمل طلبك تقبل تحياتي CARDS.rar

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

و عليكم السلام و رحمة الله و بركاته ... تقبل الله منا و منكم صالح الاعمال ... تعديل بسيط ... DoCmd.GoToRecord , , acFirst Dim i, d As Integer d = DCount("*", "جدول1") For i = 1 To d On Error Resume Next Dim x, y As Integer x = 1 If IsNull(x) Then y = i Else y = y + 1 End If Me![num] = Format(y, "0000") On Error Resume Next DoCmd.GoToRecord , , acNext Next i

جرب هذا الملف تم التعديل غلى بنية الملف للحصول غلى النتائج كاملة اوفيسنا SALIM.rar

غير الكود السابق بهذا الكود Sub Maint_click() Sheets("Maint").Range("B5:H16").Copy Sheets("Report").Range("B69").PasteSpecial (xlPasteValues) End Sub

استاذ عبدالسلام اشكرك من كل اعماق قلبي على تفاعلك ولكن للاسف لم يعمل الكود في الاوراق الباقية

اخى الكريم asdhamdey مشكور لكلماتك الجميلة وبارك الله لنا فيك فى كل الأخوة فى هذا الصرح الشامخ

اخى الكريم فايز فراج شكرا لكلماتك الرقيقة وبارك الله لنا فيك

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

عودٌ أحمدٌ الحمد لله على السلامة استاذ ابو البراء رمضان كريم اعاده الله عليكم بالخير والبركات تقبل الله منا و منكم صالح الأعمال

مرحبا في الكود الذي يبدأ بالسطر : Private Sub kh_AddNewRecord() أكتب في آخر الكود الأسطر التالية With Me.Controls("Textdt" & 7) .Value = Format(Date, "dd-mm-yyyy") .Enabled = False End With

السلام عليكم في آخر كود SAMA_1 ضف هذا السطر : If Not WARED.Cells(Mh, 13) = "" Then CheckBox2.Value = True Else CheckBox2.Value = False

بعد اذن الاستاذ علي اجعل الكود في حدث الحالي للنموذج بكذا اي تغيير او حركة في النموذج يحدث نفسه

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

الحمد لله على السلامة .. أخي ياسر .. أتمنى أن تكون بخير .. ورمضان كريم وكل عام وانت بخير

الاخ الفاضل / ياسر كل عام وانتم بخير حمدا لله على عودتك .. يااخى العزيز

الله يعطيك العافية استاذ ياسر خليل وشكراً جزيلا لك

ياسر خليل أبو البراء اخونا الفاضل ملناش دعوه بالثانويه العامه احنا خلصنا المدرسه و الجامعه و عيالنا دخلوا المدارس و قعدينلك فمتحرمناش من بوستاتك و ليكاتك و الشير تحياتى و كل عام و انتم بخير

السلام عليكم الحمد لله على السلامة استاذ ابو البراء رمضان كريم اعاده الله عليكم بالخير والبركات تقبل الله منا و منكم صالح الأعمال

السّلام عليكم و رحمة الله و بركاته مرحبا بالحبيب الغالي .. حبيب الكل .. " ياسر خليل أبو البراء " رمضان كريم كل سنة و أنت إلى الله أقرب عودة ميمونة بإذن الله خالص محبّتي و تحياتي

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

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

اخى ياسر كل عام وانتم بخير

أخي الحبيب ومعلمي الكبير أبو تامر بارك الله فيك وجزيت خيراً .. والمنتدى نور بوجودك فيما بيننا فقد أرجعتنا لأيام زمان ، ونرجو تواجدك الدائم فيما بيننا وكل عام وأنت بخير وجميع الأخوة والأحباب بالمنتدى تقبل وافر تقديري واحترامي

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة ملف Excel مفيد جداُ و للاستفاده من اكواده و لا تنسونا من صالح الدعاء تحياتى Macro_Excel_Stocks_warehouses_unlocked (1).rar

جزاكم الله كل خير

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة طريقة استدعاء بيانات خلال فترة من.... الى تم ارفاق كود الحل من الافاضل/بن علية حاجي بالمعادلات _ أبو حنــــين _ بالكود و لا تنسونا من صالح الدعاء تحياتى بالمعادلات استخراج كشف بيانات بين تاريخين.rar بالكود استخراج كشف بيانات بين تاريخين.rar

استاذ : ياسر غيابك مؤثر .. وانشغلنا عليك اعمالك ابداع

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق الشرح بالفلاش من المبدع / على السحيب و لا تنسونا من صالح الدعاء تحياتى كيفية عمل قائمه منسدله_فلاش.rar

[DBOld] = "c:\z1.mdb" 'اختيار مسار القاعدة البديلة هذا السطر تستطيع من خلالة تحديد اي قاعدة بيانات تريد اخذ نسخة منها

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

كما قال اخى محمود الحماية لها اشكال كثيرة ولكن جرب هذا الكود لاظهار الملفات المخفيه اخيك جمال الفار كود لاظهار الصفحات المخفيه.rar