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

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

كل عام وانتم بخير رمضان كريم البحث عن الصور ( موظفين , منتجات ........الخ ) باستخدام الدالة index & match ارجو ان يفيدكم جميع ولاتنسونا بصالح دعاؤكم lookup pic.rar

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

استاذنا ياسر .. لا يوجد مايدعو للاعتذار .. بل من الافضل احيانا ان تكون اكثر من اجابة للمشاركة"لاثراء الموضوع" .. ملاحظة .. قمت بالاعجاب للمشاركتك الاخيرة وهي الاعجاب رقم 6000 لحضرتك "نقاط السمعة"

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

أخي الكريم أبو سلمان يمكن ببساطة كتابة إجراء فرعي (ماكرو) جديد يتم من خلاله استدعاء بقية الإجراءات المطلوب تنفيذها تباعاً لنفترض أن لديك ماكرو باسم Test1 وآخر باسم Test2 وآخر باسم Test3 يمكن استدعاء كل إجراء باستخدام كلمة Call أو كتابة اسم الإجراء الفرعي بشكل مباشر ليصبح الماكرو الجديد بهذا الشكل Sub ExecuteAll() Call Test1 Call Test2 Call Test3 End Sub أخي الحبيب عبد السلام أعتذر إليك .. لم أرى مشاركتك إلا الآن لأنني لم أحدث الصفحة منذ وقت ليس بالقليل تقبل وافر تقديري واحترامي

الكود الاخير ينفد الاكواد السابقة بالترتيب Sub Code1() MsgBox 1 End Sub Sub Code2() MsgBox 2 End Sub Sub Code3() MsgBox 3 End Sub Sub Code4() MsgBox 4 End Sub Sub MainCode() Code1 Code2 Code3 Code4 End Sub جرب تنفد الكود الاخير وسوف تحصل علي مسجات متتالية

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

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

..... شاهدوا المرفق أخوكم عماد الحسامي

السلام عليكم ورحمة الله وبركاته هدفيه للعاملين بالكنترولات المدرسيه ...... _ سجلات اعمال الكنترول كامله ... _ توزيع الملاحظين اليا على اللجان .... مع تحياتى ....

جرب الملف التالى abo_abary_استخراج الأوائل المواد.rar

الأخ العزيز asdhamdey الأخ العزيزالأستاذ / محمد الدسوقى عذرا بارفاقى الملف الخطأ وارجو ان يفى الملف التالى بالغرض abo_abary_استخراج الأوائل المواد.rar

كيف تغرف ارقام الاعمدة من A الى ما تريد(حسب تحديد العدد) انظر الى المرفق column_number.rar

select case qproduced case > text482 msgbox("القيمة التي تم ادخالها أعلى من قيمة الحقل (" & [text482] & ")" DoCmd.CancelEvent end select

وجزيت خيراً بمثل ما دعوت لنا أبا سلمان وكل عام وأنت بخير

تفضل انظر المرفق هل يناسبك ام لا اما بخصوص الطباعة اكتب مقاسات الكارت لضبط حجم الفورم عليه Yasser.rar

Sub Code1() ' your code End Sub Sub Code2() ' your code End Sub Sub Code3() ' your code End Sub Sub Code4() ' your code End Sub Sub MainCode() Code1 Code2 Code3 Code4 End Sub

شكرا استاذي صالح الحمادي

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

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

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

جزاكم الله خيراً أخي الحبيب جلال الجمال وجعل أعمالك في ميزان حسناتك يوم القيامة تقبل تحياتي وكل عام وأنت بخير

السلام عليكم ورحمة الله وبركاته إخواني أحبابي في الله وفقنا الله عزوجل إلى فكرة جديدة بدأناها من أسبوعين ، وهي أن يخصص كل أسبوع موضوع للبحث ، يشارك فيه جميع الأعضاء بالبحث وتقديم الحلول المختلفة حول موضوع معين .. ليكون الموضوع فيما بعد مرجع للباحث ، حيث أن الموضوع سيستغرق أسبوع وهي فترة ليست بالقصيرة ، والكل يشارك فيه بكل معلومة ولو بسيطة لإثراء الموضوع .. ويتم مناقشة الحلول المقدمة ومعرفة جوانب القوة والضعف في كل حل لنصل في النهاية إلى حلول متنوعة تثري الموضوع وتجعل الباحث يجد مبتغاه فيما يبحث بشأنه أرجو من الجميع المشاركة وعدم التكاسل ... لا أريد مجرد ردود وفقط .. أريد من الجميع تقديم ولو معلومة بسيطة تثري الموضوع ، فلربما وجد الأخوة الحلول من مجرد فكرة بسيطة موضوع الأسبوع هو كيفية عكس القيم في عمود .. لنفترض أن لدينا القيم التالية في النطاق A1:A6 Yasser 15 Khalil Hello Nader Bye المطلوب أن تكون القيم في العمود المجاور له العمود B بالشكل التالي Bye Nader Hello Khalil 15 Yasser وتقبلوا جميعاً وافر تقديري واحترامي

الاخ al.djaballah الاخ ابو عبدالبارى الاخ حسن محمدسليم عبدالحميد انطرا المرفقات ربما يكون هذا هو المطلوب Omar_1.rar

هذه مجرد رسالة تنبيه لعدم وجود الصورة قمت بازالتها حتى لا تعيقك اثناء الكتابة تفضل المرفق ضع ملف الاكسيل مكان الموجود عندك Yasser.rar

بارك الله فيك استاذ ياسر ولكن كيفيه اختيار موظف معين لطباعه بطاقته فمثلا اذا اردت بطاقه 24129

انظر المرفقات Omar_2.rar

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

اخى ياسر استخدم2016 ويندز7 64بت ظهرت الاداة فى الادوات ولكن الفورم لا يعطى اخطاء ولكن لاتظهر مع الفورم حتى داخل vba هل هناك حل

بيظهر عندي الرسالة دي دائما

كما يمكن عمل ذلك بالضغط على الزر MinimizeUserform.rar

لما لا تجعل زر التصغير في الفورم نفسه كما في المرفق MinimizeUserform.rar

طاب يومكم أيها الكرام هذا الكود راق لي و قد يكون لديكم معروفا و لكن لا مانع من عرضه ليستفيد منه من يحب شاهدوا المرفق F.rar

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

عندما يغيب القمر تظلم الارض والاخ : ياسر أبو البراء هو قمر المنتدى واكثر تفاعل يرجع بالسلامة

لعله خيرا بإذن الله

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

الحل فى استعلام إلحاق و فيه شرط رقم الموظف مثلا يساوى حقل رقم الموظف فى النموذج و انتقل الحقل التالى ثم العودة لتنشيط النموذج

اخى عبدالسلام الف الف مبروووووووووووووووووك الى الامام وفقكم الله

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته،،، تحياتى الى الجميع هذه دعوة عامة للجميع لمن يمتلك ملف او مثال غريب وعجيب او نادر التداول او فكرة جديدة او امكانية من امكانيات الاكسل غير المطروقة ان يشترك معنا فى هذة المشاركة تحت اسم : غرائب وعجائب الاكسل وابدأ هذة المشاركة بملف اعجبى كثير يوضح بعض الامكانيات الغير شائعه بكثرة فى مجتمنا العربى فهو مثال عن الصوت والصورة او الرسوم المتحركة لنرى معا الملف . ارجو الدعاء لى . والسلام عليكم ورحمة الله وبركاته omar.rar

اخى شوقى ربيع كلمة روعة كلمة صغيرة يا كبيييييييييييييييير روعههههههههههههههههههههههههه ككل ابداعاتك وكتاباتك الله بارك الله فيك

لدي شجرة حسابات في برنامج المحاسبة اريد عمل ميزان مراجعة يضع الرصيد النهائي لكل حساب وبنفس الوقت يجمع هذه الارصدة في حسابات الاباء ارجوكم ضروري جدا

السلام عليكم ورحمة الله وبركاته وهذه محاولة للتحكم في ناحية الطباعة بالمعادلات حيث تتغير بداية ونهاية الاعمدة والصفوف في ناحية الطباعة حسب الخلايا المعباة وبصرف النظر عن وجود خلايا فارغة الخالدي.rar

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

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

السلام عليكم =========== اخى الحبيب يجيى بارك الله فيك على الكود الصغير جدا "كبير جدا فى المقام" اخى اللحبيب عماد "ابداع" الحبيب الغالى ابو عبدالله " تعبتنا معاك يا عم الحاج" مافيش اروع من كده اخى goda509129 --------------- ولاثراء الموضوع هذا الكود الذى يتميز بعدة مميزات 1) يمكن طباعة الورقة طوليا او عرضيا بتغير هذا الجملة فى الكود CenterVertically = True Orientation = xlPortrait الى CenterHorizontally = True Orientation = xlLandscape كما يمكنك تحديد "هد" للصفحة يتكرر مع كل صفحة ويمكنك تغيرة فى الجملة PrintTitleRows = "$1:$1" كما يمكنك تظبيط الصفحة اتوماتيكيا من الجملة FitToPagesWide = 1 FitToPagesTall = 1 الميزة الثالثة والاخيرة يخيرك بين عدة طباعات اذا كان لديك اكثر من طباعة تحياتى Copy of كود طباعة مدى متغير.rar

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

السلام عليكم اخي الحبيب يحيى كود جميل جداً ولائراء الموضوع هذا مرفق يتم فيه تحديد مدى الطباعة بناءاً على الاسطر المدخلة ويتغير اتوماتيكياً Book222.rar