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

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

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

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

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

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

السلام عليكم ورحمة الله وبركاته ****************** نويت بإذن الله تعالى - والله الموفق - أن أقوم بالبدء في هذا المشروع الكبير الذي أطلقت عليه اسم (مكتبة الصرح .. زاخرة بالشرح) بحثت عن ملف الأستاذ الكبير عبد الله باقشير (محفظة الأكواد) للعمل عليه .. ** رجاء من الأخ عبد الله .. إضافة للفورم في هذا الملف أن تكون عملية البحث غير مقتصرة على عناوين الأكواد فقط ، بل تشمل عمليه البحث الـ ListBox الذي يحوي الأكواد نفسها ، وكذلك صفحة التعليمات ، حتى يسهل فيما بعد على الباحث أن يصل لمراده بسهولة .. الأمر مختلف قليلاً عما قدم من قبل ، إذ أن الأكواد ستكون مصحوبة بالشرح (على قدر استطاعتي ) ولمن أراد أن يزيد على الشرح فليفعل ولا يتردد.. من هنا بإذن الله ستكون الإنطلاقة الكبرى نحو المشروع الكبير .. وسأحاول جاهداً أن أبدأ عملية بناء المكتبة بشكل منظم يسهل على الباحث فيما بعد الوصول للكود الذي يرغبه ، ويعرف كيف يقوم بتطبيق الكود بنفسه دون الحاجة لغيره .. يعني مبدأ الاعتماد على النفس في تطبيق الأكواد.. وإليكم الملف المرفق به 5 أكواد فقط مدعومة بالشرح منها 3 اكواد بسيطة ، وكود صعب قليلا ، ودالة معرفة UDF كنقطة بداية .. ملحوظة الأكواد مدعومة بالشرح في صفحة التعليمات . أرجو أن ينال رضاكم ... ولا تنسوا التصحيح والتنقيح إخواني أولاً بأول ، حتى يخرج العمل في النهاية بشكل لائق يليق بمنتدانا .. يليق بالصرح العملاق ولذا أسميت المشروع (مكتبة الصرح والصرح المقصود به منتدانا الغالي .. وإن شاء الله تكون المكتبة زاخرة وممتلئة بالشرح بعون الله وتوفيقه ثم بجهودكم ومساندتكم للمشروع) Codes Library.rar

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

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

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

ربنا يخليك احي ياسر و الحمدلله غالسلامة وحشتنا أوي يا راجل فينك انت بقى (يمكن تكون امتحانات الثانوية العامة زي ما انا كنت مشغول فيها) اضافة بسيطة على الملف column_number 1.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

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

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

أخي الكريم مستر أبو مرمر إليك الكود التالي عله يفي بالغرض Sub Insert_Pictures_Resize_All() Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape Dim xColIndex As Integer Dim xRowIndex As Integer Dim lLoop As Integer On Error Resume Next PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True) xColIndex = Application.ActiveCell.Column If IsArray(PicList) Then xRowIndex = Application.ActiveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Set Rng = Cells(xRowIndex, xColIndex) Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next lLoop End If End Sub قم بضبط ارتفاع الصفوف وعرض العمود كما تريد .. حدد أول خلية في العمود المطلوب إدراج الصور فيه واضبط عرض العمود كما تريد ثم نفذ الكود ، سيظهر لك نافذة تختار منها المجلد الذي يحتوي الصور ثم حدد الصور المطلوب إدراجها تقبل تحياتي

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

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

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

استاذ عمر استخدم اوفيس216 القوائم عربية والصفحات من اليمن الى اليسار الاداة تظهر معى فى الادوات لكنها لا تظهر فى الفورم

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

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

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

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

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

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

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

شرح معادله INDIRECT وكذا شرح داله offest للمبدع ياسر خليل ملفات مرفقة شرح المعادله INDIRECT.rar 8.5 كيلو 10 عدد مرات التحميل شرح داله اوفيست للاستاذ ياسر خليل. rar 11.58 كيلو 9 عدد مرات التحميل Index Function.rar 31.48 كيلو 9 عدد مرات التحميل شهادة السحيب الجميلة.rar 20.38كيلو 7 عدد مرات التحميل

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

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

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

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

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