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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته اخوتي / اخواتي لي الشرف ان انظم الى هذا الصرح العلمي ، سائلاً المولى جل وعلا ان يوفقني لما فيه الخير للجميع 🙂 في اول مشاركة لي ، اضع بين يديكم برنامج مسقط التقارير (مسمى صانع التقارير متداول كثيرا ، لذا احببت ان اسمي برنامجي بإسم مميز ، إسم مسقطنا الحبيبة 🙂 ). البرنامج في نسخته الاولى ، لذا ، فلا تتوقعوا الكثير منه 🙂 في احد المشاريع التي عملت عليها قريبا ، كان العمل لسجلات شؤون الموظفين ، ولم يكن بالامكان عمل تقرير محدد ، حيث كانت التقارير المطلوبة من الادارة بشتى انواع البيانات ، طولا وعرضا. لذا اضطررت العمل على صانع للتقارير (في الواقع مسقط التقارير يعتبر برنامجا بحد ذاته ، فالعمل كان ، برنامج في برنامج 🙂 ). مع ان البرنامج بسيط في طريقة عمله (وطبعا عندي الكثير من الاشياء الاخرى التي اود ان اضيفها ، لكن في وقتها ان شاء الله ، وبما ان البرنامج مفتوح المصدر ، فانا ارحب بمن يضيف عليه خصائص جديدة 🙂 ) ، فمع بساطة البرنامج ، إلا ان نتائجه مرضية 🙂 العمل على البرنامج ابسط بكثير من شرحه 🙂 يمكنك نقل هذه الكائنات السته الى برنامجك الخاص ، ومسقط التقارير سيعمل بدون الحاجة الى اي تغيير او كود: مسقط التقارير يعمل على الجداول والاستعلامات فقط ، واليكم طريقة العمل: جدول او استعلام: اختر من ايهم تريد ان تعمل تقريرك ، جدول او استعلام ، الاسم: على اساس الاختيار السابق ، ستظهر لك قائمة بجداولك او استعلاماتك ، وعندما تختار اسم جدول او استعلام ، فان النموذج الفرعي الذي اسفل الاسم سوف يمتلئ باسماء الحقول من الجدول او الاستعلام ، وكلها عليها اشارة اخفي (اي كلها ستكون مخفية من الظهور في النموذج الفرعي الذي بالاسفل) ، احذف اشارة الاخفاء عن الحقول/الخانات التي تريدها ، وستظهر لك في النموذج الفرعي الذي في اسفل النموذج. هذا النموذج هو شكل مبسط من التقرير ، فكما ترى الحقول وعرضها ، وعدد السجلات ، ستراها في التقرير. هناك خطان فوق النموذج الفرعي ، باللون الاصفر والاخضر ، اذا كانت بياناتك اقل من الخط الاصفر ، سيكون التقرير بالطول ، وإلا فانه سيكون بالعرض ، وهناك خطان صفر ، فالمسافة بينهم ستكون للترقيم التلقائي للتقرير (لاحظ ان التقرير لبيانات النموذج ادناه سيكون بالعرض ، لأننا تخطينا الخط الاصفر 🙂 يمكننا ان نمسك الحقول/الخانات بالزر الايسر من الفأرة ونغير ترتيبها يمينا ويسارا ، كما ان البرنامج يحترم عرض الحقل الذي تقوم بتعديله ، (لاحظ ان التقرير لبيانات النموذج سيكون بالطول ، لأننا في حدود الخط الاصفر 🙂 وهذا هو التقرير لبيانات النموذج السابق ، ولاحظ ان البرنامج يقوم بتغيير ارتفاع الصف تلقائيا ، حتى يمكن مشاهدة جميع بيانات الحقل. اذا قررت ان تتعدى الخط الاصفر ، فنفس شروط الخط الاصفر تنطبق على الخط الاخضر ، وهنا نرى باننا اضفنا عنوان لراس صفحة التقرير ، واضفنا معلومات عن موضوع التقرير ، بالاضافة الى معلومات في ذيل التقرير: وهذا هو تقرير لبيانات النموذج السابق ، ولاحظ ان البرنامج يوسع عمود الترقيم التلقائي ليسد المسافة: بعد اختيار الحقول التي نريدها في التقرير ، نستطيع ان نفرز الحقول بالطريقة التي نريد: وكذلك تصفية البيانات حسب الحاجة: وهذا هو تقرير لبيانات النموذج السابق ، لاحظ عدد السجلات قد تغير ، لأني طلبت ان ارى السجلات التي مبالغها اكبر من 500: البرنامج لا يحفظ التقارير (نعم ، عمل طريقة لحفظ اسم لكل تقرير ، على قمة قائمة التحديثات ان شاء الله 🙂 ) ارجوا ان تتقبلوا مني هذا العمل المتواضع 🙂 اسئلة/اقتراحات ، سأحاول الرد على قدر استطاعتي ان شاء الله 🙂 جعفر ملاحظة1: عمود المجموع لا يعمل ، وكان يجب ان اخفيه 😞 ملاحظة2: في الاساس كان عندي كمية كبيرة من صور الشرح ، إلا ان المنتدى لا يسمح بأكثر من 10 مرفقات ، فاختزلت الموضوع 🙂 ملاحظة3: ادراج فيديو لطريقة عمل التقرير: Muscat_Reports.zip

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

السلام عليكم احببت ان اشارك ولو بجزء صغير مشاريع مميزة تم اعدادها بواسطة برنامج الأكسس اطرحه بين ايديكم وللأمانة هذه المشاريع ليست من عملي.. إنما تجميعي وقمت برفعها وتجديد روابطها ______________ تمت تجديد روابط الملفات تحت طلب الإخوة وقمت برفعها شرح طريقة التحميل للروابط الجديدة 1 المشروع الأول مشروع الجمعية الخيرية للتحميل الجمعيه الخيريه.zip - 118.1 Kb . . . المشروع الثاني برنامج تحضير الدروس للتحميل برنامج تحضير الدروس . . . المشروع الثالث مشروع العيادات والمستشفيات يوجد مشروعين بداخل الملف للتحميل برنامج العيادات والمستشفيات . . . المشروع الرابع مشروع ادارة الجوازات للتحميل الجوازات . . . المشروع الخامس برنامج ادارة اجازات الموظفين اجازات . . . المشروع السادس مشروع البوم الصور للتحميل ألبوم الصور . . . المشروع السابع مشروع برنامج التقسيط للتحميل برنامج التقسيط . . . المشروع الثامن برنامج روضة الطفل السعيد للتحميل روضة الطفل السعيد . . . المشروع التاسع مشروع المستودع للتحميل مشروع المستودع . . . المشروع العاشر مشروع برنامج قاعدة للتحميل برنامج قاعدة . . . المشروع الحادي عشر مشروع الطبيب للتحميل مشروع الطبيب . . . المشروع الثاني عشر مشروع البيان للمحاسبة للتحميل البيان للمحاسبة . . . المشروع الثالث عشر مشروع برنامج اطباء الاسنان للتحميل برنامج أطباء الأسنان . . . المشروع الرابع عشر مشروع برنامج المبيعات التجارية للتحميل المبيعات التجارية . . . المشروع الخامس عشر مشروع برنامج لمكاتب الحج والعمرهـ للتحميل برنامج لمكاتب الحج والعمرهـ . . . المشروع السادس عشر مشروع برنامج مغسلة ملابس للتحميل برنامج مغسلة ملابس . . . المشروع السابع عشر مشروع صيانة السيارات للتحميل مشروع صيانة السيارات . . . المشروع الثامن عشر مشروع الرواتب للتحميل مشروع الرواتب . . . المشروع التاسع عشر مجموعة مشاريع اكسس للعقار و الشقق المفروشه و الفنادق في ملف واحد للتحميل مجموعة مشاريع اكسس للعقار و الشقق المفروشه و الفنادق . . . المشروع عشرين مشروع برنامج المحاسبة مصنف تصنيف جميل للتحميل مشروع برنامج المحاسبة . . . المشروع الحادي والعشرين مشروع لمتابعة درجات طالبات الكليه نبذه عن البرنامج : يتميز بالأتي :- أولاً: المدخلات 1- شاشة إدخال الكليات 2- شاشة إدخال رئيسات الأقسام 3- شاشة إدخال أسماء المعلمات 4- شاشة إدخال المواد التابعة لكل قسم 5- شاشة إدخال الطالبات 6- شاشة إدخال الدرجات لكل قسم على حدة ثانياً: المخرجات (التقارير) 1- تقرير بأسماء جميع أقسام الكليات 2- تقرير بأسماء المواد التابعة لقسم معين 3- تقرير بأسماء طالبات قسم معين 4- تقرير بدرجات طالبة في قسم معين لجميع المواد 5- تقرير بدرجات طالبات قسم معين في مادة معينة

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

السلام عليكم ورحمة الله وبركاته أقدم لكم دالة معرفة UDF تقوم بدمج وجمع النصوص كما تفعل الدالة CONCATENATE ، ولكن مع اختلاف في النتائج ، حيث تتميز الدالة المعرفة بالحفاظ على تنسيق الخلايا التي يتم دمجها معاً. وقد وضحت بالأمثلة في الملف المرفق معظم الحالات للدالة المعرفة ، وكيف أن النتائج تكون مختلفة عن الدالة CONCATENATE ، وأترككم مع الملف المرفق ومع الأمثلة التي توضح الفرق بينهما. للمزيد حول الموضوع يرجى زيارة الرابط التالي رابط الموضوع من هنا

السلام عليكم نبارك الأخوة الذين تمت ترقيتهم للتو بناء على مجهودهم الرائع في المنتدى و هم رمهان - الى خبير s s m الى عضو محترف أسير الشروق الى عضو مميز و بانتظار تفعيل ترقية الأخ "آخر الأرض" أيضا و التي تأخرت لأسباب فنية فقط و الشكر موصول لأخينا الأستاذ أبو خليل حفظه الله الذي شاركنا في عملية الاختيار للترقية مشكورا نأمل أن تكون هذه الترقيات حافزا للمذكورين أعلا لبذل مزيد من العطاء و حافزا لغيرهم ايضا للدخول في سلم الترقيات

السلام عليكم درس بالفيديو يشرح طريقة عمل فاتورة وطباعتها في 30 دقيقة اترككم مع الفيديو وان شاء الله يعم بالفائدة https://www.youtube.com/watch?v=NdmrpnDmj_c

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

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

الف مبروك للجميع وبالتوفيق ديما

الف الف مبروك للجميع هذه الترقية المستحقة .. و الشكر و التقدير لإدارة المنتدى و القائمين عليها لتقديرهم لمن يبذلون جهوداً بمنتدانا الغالي

تفضل اخي الكريم =IF(A1="";"";IF(A1="غ";"غائب";IF(AND(A1>=0;A1<50);"راسب";IF(AND(A1>=50;A1<61);"مقبول";IF(AND(A1>=61;A1<71);"متوسط";IF(AND(A1>=71;A1<81);"جيد";IF(AND(A1>=81;A1<91);"جيد جداً";IF(AND(A1>=91;A1<=100);"ممتاز";IF(OR(A1>100;A1<0);"خارج نطاق الدرجة";""))))))))) التقديرات.rar

شغل تمام ونظيف جعفر

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

مجهود طيب ومشاركة ممتازة شامله وجامعه كل الشكر والتقدير جزاكم الله خيرا

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

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

انظر أخى الملف المرفق يا ريت يكون طلبك البحث عن عدد تكرار تاريخ.zip

شكرا اخي الكريم كفيت و وفيت

تفضل اخى الكريم الملف المرفق البحث عن عدد تكرار تاريخ.zip

بارك الله فيك أخي الحبيب محمد الريفي بالنسبة للدالة التي ذكرتها قمت بتغيير اسمها لتوؤدي نفس الغرض الدالة تعمل .. المشكلة في العمود الأول A لديك في الملف بقالي ساعة جنب الملف بتاعك لما عيني طلعت عشان أعرف الغلطة فين والله عندي دالة شبيهة بدالتك تؤدي نفس الغرض .. ولكن تركيبة الدالة مختلفة بعض الشيء دالتي أسهل من دالتك ههههههههه عموما قمت بإرفاق ملفك بعد التعديل قليلا عليه قمت بتنسيق العمود الأول A كنص (Text) ثم دبل كليك في كل خلية من الخلايا التي بها قيم في النطاق A2:A11 المهم جرب الملف التالي وشوف النتيجة .. واختار الدالة اللي تعجبك أو اكتفي بالمعادلة التي تفضل بها الأخ الغالي محمد الريفي لأنها تؤدي الغرض GetData GetRC UDF Functions.rar

السلام عليكم اخى الكريم جرب هذه المعادله ستؤدى الغرض ان شاء الله =INDEX($A$3:$F$13;MATCH($C$16;$A$3:$A$13;0);MATCH($C$15;$A$2:$F$2;0)) تحياتى نقلات الشركة.rar

الأخ أبو ايمان بارك الله فيك هل السائل طلب عدد الصفحات أي عدد النسخ ؟؟!! أم بداية الطباعة ونهايتها .. صراحة أحب دائما أن تكون الأمور واضحة وضوح الشمس في شهر يونيو !!! عموما ننتظر طالب المساعدة ورده

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

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

اخى الفاضل جرب الخطوات التالية من زر الاوفيس اختر خيارات Excel Options >>>> مركز التوثيق Trust Center >>>> إعدادات مركز التوثيق Trust Center Setting >>>>> خيارات الخصوصية Privacy Options >>>>> ثم قم بإزالة علامة الصح الموجودة بجانب Remove personal information from file properties on save او ازالة المعلومات الشخصية من خصائص الملف عند الحفظ تحياتي

اخى الفاضل شاهد هذا الفيديو ... وتم تطبيق الكود بالملف الخاص بك وارفاق الملف بالموضوع تحياتي 2015..rar

تعرفنا معا في الدروس السابقة علي عدد من ادوات الفورم الشائعة ودرسنا اليوم سوف نتعـرف علي UserForm Controls - CheckBox, OptionButton and ToggleButton UserForm Controls - ScrollBar and SpinButton الدرس الخامس أولا: ScrollBar Control عنصر تحكم شريط التمرير(ScrollBar ) تمكن من تغيير (زيادة أو إنقاص) القيمة المعروضة من قبل عناصر التحكم UserForm الأخرى أو قيمة في نطاق ورقة العمل. انها لفائف من خلال مجموعة من القيم عندما يقوم المستخدم: زيارة لأسهم التمرير، (الثاني) تستمر مربع التمرير، أو (الثالث) النقرات في منطقة بين سهم التمرير ومربع التمرير. ضوابط شريط التمرير وSpinButton - الفرق بين الاثنين هو أن مربع التمرير يمكن سحب لتغيير قيمة عنصر التحكم على زيادات أكبر (مع الحفاظ على مقدار منخفض مقابل النقرات) التي مزايا شريط تمرير لجعل الاختيار من عبر عدد كبير من القيم وتغطي مجموعة واسعة جدا. يحدد SmallChange التغيير التدريجي، كقيمة عدد صحيح (متغير طويل)، الذي يحدث عندما يقوم المستخدم بالنقر فوق سهم التمرير. يحدد LargeChange وتغيير تدريجي عندما ينقر المستخدم بين سهم التمرير ومربع التمرير. القيمة الافتراضية هي 1 لكل من الخصائص. مثال نرغب في حساب الدفعة لقرض معين يتم إدخال قيمة القرض ومعدل الفائدة الثانوي وفترة السداد السنوي عن طريق استخدام السكرول بار اولا : قبل تنفيذ الفورم نفكر ماهو الغرض الذي سوف ننفذ من اجله الفورم وطريقة تنفيذه ونخطط لذلك ونحس به (روح الاكسيل ) كل منا له طابع خاص في عرض وتشكيل الفورم الخاص به سوف نستخدم في الفورم مجموعة من المعطيات كالتالي 1- شريط تمرير لادخال مبلغ القرض مع مربع نص لاظهار القيمة 2- شريط تمرير لادخال معدل الفائدة الثانوي مع مربع نص لاظهار القيمة 3- شريط تمرير لادخال فترة السداد السنوي مع مربع نص لاظهار القيمة 4- سوف احتاج لزر امر لادخال الكود البرمجي لعملية الحساب 5- وسوف احتاج مربع عنوان لاظهار قيمة الدفعة الشهرية معا ايضا سوف نتعلم كيفية اضافة العناوين عن طريق الفورم باستخدام الخاصية ( CAPTION) التنفيذ بعدما خططنا لما نريد تنفيذه بالضبط سوف نقوم بتنفيذ الفورم كالتالي (( التطبيق بالمرفقات )) وسوف باختيار الاكواد الخاصة بالفورم في حدث انطلاق الفورم سوف نقوم بتحديد العنواين الخاصة باستخدام CAPTION وتحديد خصائص كل من اشرطة التمرير الثلاثة وتنسيقاتهم المستخدمة والشرح مع الكود Private Sub UserForm_Initialize() 'ÇáÝÑÖ Label1.Caption = "ãÈáÛ ÇáÞÑÖ :" ScrollBar1.Min = 0 ScrollBar1.Max = 10000 ScrollBar1.Orientation = fmOrientationHorizontal ScrollBar1.SmallChange = 5 ScrollBar1.LargeChange = 100 ScrollBar1.Value = 0 'ãÚÏá ÇáÝÇÆÏÉ ÇáÓäæí ' æÖÚäÇ ÚäæÇä áãÑÈÚ ÇáÚäæÇä 2 Label2.Caption = "ãÚÏá ÇáÝÇÆÏÉ ÇáÓäæí (%) :" ScrollBar2.Min = 0 ScrollBar2.Max = 1000 ScrollBar2.Orientation = fmOrientationHorizontal ScrollBar2.SmallChange = 1 ScrollBar2.LargeChange = 10 ScrollBar2.Value = 0 'set properties for controls in re of Loan Tenure: Label3.Caption = "ÝÊÑÉ ÇáÓÏÇÏ (ÈÇáÓäÉ)" ScrollBar3.Min = 0 ScrollBar3.Max = 50 ScrollBar3.Orientation = fmOrientationHorizontal ScrollBar3.SmallChange = 1 ScrollBar3.LargeChange = 4 ScrollBar3.Value = 0 'set properties for Label which displays Monthly Instalment: Label4.Caption = "ÇáÏÝÚÉ ÇáÔåÑíÉ" Me.Caption = "ScrollBar Control" End Sub نحدد ان قيمة كل نص (تكست بوكس ) = لقيمة شريط التمرير كالتالي Private Sub ScrollBar1_Change() ' TextBox1.Value = ScrollBar1.Value * 1000 TextBox1.Value = Format(TextBox1.Value, "#,##0") End Sub Private Sub ScrollBar2_Change() ' TextBox2.Value = ScrollBar2.Value / 10 End Sub Private Sub ScrollBar3_Change() TextBox3.Value = ScrollBar3.Value / 2 End Sub وفي النهاية الكود المستخدم لحساب الدفعة الشهرية وقما له بتخصيص زر امر Private Sub CommandButton1_Click() 'áÍÓÇÈ ÇáÏÝÚÉ ÇáÔåÑíÉ Dim mi As Currency If Not TextBox1.Value > 0 Then MsgBox "ãä ÝÖáß ÃÏÎá ãÈáÛ ÇáÞÑÖ !" Exit Sub ElseIf Not TextBox2.Value > 0 Then MsgBox "ÇáÑÌÇÁ ÇÏÎÇá ãÚÏá ÇáÝÇÆÏÉ ÇáÓäæí !" Exit Sub ElseIf Not TextBox3.Value > 0 Then MsgBox "ÇáÑÌÇÁ ÇÏÎÇá ãÏÉ ÇáÞÑÖ !" Exit Sub Else mi = Pmt((TextBox2.Value / 100) / 12, TextBox3.Value * 12, TextBox1.Value) ' Label4.Caption = " ÇáÏÝÚÉ ÇáÔåÑíÉ " & Round(mi, 2) * -1 End If End Sub شرح الاكواد والتطبيق بالمرفقات ثانيا: SpinButton Control يتم استخدام عنصر تحكم SpinButton، مماثلة إلى عنصر تحكم شريط التمريرScrollBar ، إلى زيادة أو إنقاص قيمة (ماعدا التاريخ، الوقت) المعروضة من قبل عناصر التحكم UserForm الأخرى (مربع نص، تسمية، ...) أو القيمة في نطاق ورقة العمل. عنصر تحكم SpinButton (ويشار إلى عنصر تحكم سبينر أيضا) وظائف مثل عنصر تحكم شريط التمريرScrollBar ، مع خصائص مشابهة (. SmallChange، أدني، أعلي، والتوجه، ...). يحدد SmallChange التغيير التدريجي، كقيمة عدد صحيح (متغير طويل)، الذي يحدث عندما يقوم المستخدم بالنقر فوق سهم التمرير. لا يملك عنصر تحكم SpinButton خاصية LargeChange، مثل في شريط التمرير. في شريط التمرير العمودي النقر فوق سهم التمرير يقلل من قيمة في حين النقر فوق سهم التمرير على سبينر عمودي يزيد من قيمة. ضوابط شريط التمرير وSpinButton - الفرق بين الاثنين هو أن مربع التمرير يمكن سحب لتغيير قيمة عنصر التحكم على زيادات أكبر (مع الحفاظ على مقدار منخفض مقابل النقرات) التي مزايا شريط تمرير لجعل الاختيار من عبر عدد كبير من القيم وتغطي مجموعة واسعة جدا. مثال: استخدام عنصر تحكم SpinButton لتغيير البيانات في مربع نص، ضمن نطاق (A2:A10) سوف نقوم بتصميم الفورم بالشكل التالي لاضافة العناصر الي الليست بوكس Private Sub loadListBox() 'ÇÖÇÝÉ ÇáÚäÇÕÑ Çáí ÇááíÓÊ ÈæßÓ ãä æÑÞÉ ÇáÚãá Dim n As Integer Dim cell As Range Dim rng As Range ' ãÕÏÑ ÇáÈíÇäÇÊ Set rng = sheet1.Range("A2:A10") For n = 1 To ListBox1.ListCount ListBox1.RemoveItem ListBox1.ListCount - 1 Next n For Each cell In rng.Cells Me.ListBox1.AddItem cell.Value Next cell End Sub Private Sub UserForm_Initialize() 'ÇÖÇÝÉ ÇáÚäÇÕÑ Çáí ÇááíÓÊ ÈæßÓ loadListBox Me.Caption = "SpinButton Control" End Sub الكود مع الشرح بالمرفقات ثالثا: RefEdit control عنصر التحكم RefEdit لا تتوفر إلا في UserForm VBA، ويسمح للمستخدم لتحديد نطاق ورقة عمل من مربع، أو أن اكتب في نطاق فيه. يعرض عنصر التحكم RefEdit عنوان الخلية أو نطاق (يمكن أن تكون خلية واحدة أو نطاق من الخلايا المتجاورة أو غير المتجاورة) الذي يختار المستخدم أو يدخل عن طريق كتابة فيها للحصول على خلية أو نطاق عناوين التي يتم تخزينها في التحكم RefEdit . رابعا:CheckBox الخاصية قيمة خانة اختيار تشير إلى ما إذا كانت محددة أم لا. تشير قيمة True إلى تحديد خانة الاختيار، خطأ يشير إلى أن يتم مسح عليه، ويدل على قيمة خالية التي لا تحديده ولا تطهيرها، وسوف تظهر مظللة خانة الاختيار في هذه الحالة. يجب تعيين قيمة الخاصية TripleState (يمكن وضعها إما في إطار خصائص أو باستخدام ماكرو أو التعليمات البرمجية ل VBA) إلى True لخانة الاختيار ليكون لها قيمة خالية. خامسا:OptionButton يستخدم OptionButton لجعل اختيار واحد من خيارات متعددة. ويشار أيضا إلى أنه على زر الراديو، الذي يختار خيار واحد من مجموعة من الخيارات الخاصة التبادلية. إذا لم يتم تجميع OptionButtons، واختيار واحد OptionButton في UserForm سوف ازالة اختيار كل OptionButtons الأخرى في النموذج. جميع OptionsButtons ضمن مجموعة معينة تصبح يستبعد بعضها بعضا ومكتفية ذاتيا ضمن تلك المجموعة ولا تؤثر على اختيار OptionButtons خارج تلك المجموعة. سوف اختيار مثال التطبيقات والشرح والاكواد مشروحة سطر سطر مع التنفيذ لكل أداة بالمرفقات التالية وللموضوع بقية في شرح UserForm Controls - Frame, MultiPage and TabStrip ScrollBar.rar

الملف المرفق به تنسيق تفقيط الارقام بالعربي وتوضع في مسار Addins و لا تنسي تفعيل الخيار على حسب الاوفيس الذي بحوزتك مثلا اوفيس 2007 خيارات الوظائف الاضافية ثم ضع علامة صح امام كلمة وورد بعد أن تذهب الى مستخدمون على محرك الاقراص واختيار المستخدم ثم Appdata ثم Roaming ثم microsoft ثم AddIns والصق الملف هناك . ولا تنس اظها الملفات المخفية من خيارات المجلد حتي يظهر لك مسار الملف المذكور . بعد ذلك افتح ملف اوفيس وكل ما هناك تكتب كلمة word ثم بين قوسين عنوان الخلية التي بها الرقم مثلا a1 او B6 واستمتع ...:) word.rar

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

إذا كان من الممكن أن أدرج كود في العنصر ThisWorkbook وسيتم تنفيذه على اى شيت في ملف الإكسل نعم ممكن وميزة ذلك أن يتم التنفيذ مع أحد أحداث المصنف ككل و ليس الشيت مثال الكود التالى يؤدى مهمتين الأولى تجميد الشاشةفى شيت الرئيسة و هو أحد شيتات المصنف الثانية يبدأ فتح الملف على شيت الرئيسة دون غيره Private Sub Workbook_Open() Sheets("الرئيسة").ScrollArea = "a1:c10" 'If ActiveSheet.CodeName <> "الرئيسة" Then Sheets("الرئيسة").Select 'End If End Sub هنا المطلوب التحكم فى شيت و مواصفاته فالسبيل إلى ذلك هو أبو الشيت أقصد الأعلى منه فى المستوى و هو المصنف هذا مثال أما الكود فى المودويلات فمكانه عام أنت تخصص له مكانا كزر أمر أو غيره و يستدعى عند الحاجة مثلا كود لفتح نافذة عن طريق زر أمر لا يناسب وضعه فى المصنف لأن استدعاء هذه النافذة له وقته فى البرنامج مثلا الكود السابق يمكن وضعه فى مودويل لكن يتم استدعاؤه من نفس المكان وهو فتح المصنف لأن الأكواد التى فى المودويلات لا يتم فتحها مباشرة لكن يتم استدعاؤها من الكائنات المرتبطة بها و الله أعلم

السلام عليكم =========== اخى العزيز اعذرنى انا لست متابعا لهذه المواضيع ولكن ارسلت لك ملف لعله يساعدك فينا تريد SendMail(Attachment)Testers.zip

الأخ الفاضل / محمد صالح كل كلمات التقدير و الإحترام تعجز عن شكر العظماء لقد نجح التطبيق و لا املك الا انا اقول : حياك الباري ,و زوجك الحواري ,و حفظك مسلم و البخاري ,و فتح الباري.و جمعنا الله و اياك في الفردوس الأعلى مع الصديقين و الشهداء و النبيين و حسن اولئك رفيقا و بالمناسبة لقد أطلقت مبادرة في موضوع جديد في المنتدى لفك حماية كلمة السر من الخارج لملف اكسل ارجو ان تقرأها و ان تهتم بالموضوع كونك من عظماء المنتدى و شكرا