ماجدجلال

السلام عليكم ورحمة الله شكرا لك استاذ عبدالله نجح الامر وتم حل المشكلة كان الخطاء انني اعلان عن المتغير في الوحدة النمطية للنموذج شكرا جزيلا لك

السلام عليكم ورحمة الله وبركاتة ارجو منكم ان تسعدوني في كيفية الاعلان عن متغير عام يتم استخدام في كل النماذج وكل المكروات بحيث يؤخذ قيمتة من احد النماذج ويعرضها في الاخر ويستخدم في ماكروا اخري وداخل البرنامج المرفق في مزيد من الشرح وشكرا جزيلا لكم 260.zip

نعم استاذ ابو حنين هذا هو المطلوب شكرا جزيلا لك شكرا

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

السلام عليكم ورحمة الله وبركاتة ماهو الكود الذي من خلالة يتم اظهار موقع خانة الاختيار وذلك من خلال معرفة رقم الصف و العمود الذين توجد بهما خانة الاختيار فمثلا عند النقر علي خانة الاختيار يظهر msgbox بة رقم الصف و العمود الذان يوجد بهما خانة الاختيار 600.zip

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

للرفع

السلام عليكم ورحمة الله استاذ عباد ممكن طلب قمت باضافة شريط تمرير يعمل اثناء النسخ واللصق الشريط يعمل ولكن المشكلة انني لم استطع حساب عدد الاعمدة وطول الشريط , فمن المفترض ان يبدا من صفر وينتهي 100% , كما يحصل في اغلب برامج setup ... المرفق به الكود الذي قمت حضرتك بتصميمة مع شريط التمرير ارجو منك المساعدة وشكرا لك 510.zip

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

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

السلام عليكم استاذ عباد ليلة امس حاولت اضافة شي الي الكود يقوم بتحديد عدد الاعمدة التي يقوم الكود بلصق البيانات فيها وكانت الاضافة هاكذا For AA = 2 To [G4] حيث يتم وضع عدد الاعمدة المراد لصق البيانات في الخلية G4, ولكن واجهتني مشكلة وهي الفرق بين الاعداد الزوجية والفردية , علي اساس انه يتم لصق البيانات في عمود وعمود لا ,,, ارجوك اذا كان هناك طريقة افضل ارجو المساعدة ,,,, طبعا عملية تحديد عدد الاعمدة مفيدة في حالة اذا قام مستخدم باضافة صيدلي جديد فانة لابد من ان يشملة الكود او العكس اذا تم حذف عمود قديم ارجو المساعدة وشكرا جزيلا لك

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

شكرا لك استاذ عباد لدي ملاحظتان : الاول الكود يعمل بشكل صحيح فقط في العمود f الثاني قمت بتميز اخر خلية غير فارغة في العمدة فوجدت انة لا يقوم باللصق ارجو منك ان تجرب الملف المرفق واشكرك جزيل الشكر علي سرعة ردك وتعاونك 500.zip

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

شكرا ياساتاذ طارق الف شكر

السلام عليكم ورحمة الله Cells(4, ActiveCell.Column) = ActiveCell.Row Cells(4, ActiveCell.Column).Range("B1") = ActiveCell.Row هل من الممكن اختصار السطران السابقان في سطر واحد هذا الكود يقوم بكتابة رقم الصف النشط في الخلية الرابعة من نفس العمود النشط وكذلك الخلية التي تجاورها من جهة اليسار

ماشاء الله تبارك الله شكرا جزيلا استاذ طارق

السلام عليكم ورحمة الله في الملف المرفق كود مكون من سطران يقوم بالكتابة في نطاق من الخلايا ابتدا من الخلية النشطة , ارغب في اختصار الكود الي سطر واحد وخصوصا انني اريد ان يتم الكتابة في النطاق دون تحديد هذا النطاق اي الاستغناء عن الكلمة select طبع اقصد بالنطاق هو الخلايا ابتدا من الخلية النشط وحتي 8 خلايا اسفل منها مباشرا ارجو منكم المساعدة وشكرا لكم 400.zip

السلام عليكم تعديل بسيط في النموذج رغبت في انشاء متغيران عامان يمكن استخدمهما في البرنامج , اعلنت عنهما علي اساس متغير DATE ومرة متغير STRING ولكن الامر لم ينجح , التعديل ان المستخدم يقوم بتسجيل تاريخ هجري في مربع نص يقوم البرنامج بتاكد ان التاريخ المسجل ليس اكبر من اكبر تاريخ موجود او اصغر من اصغر تاريخ موجود وتظهر رسالة بذلك 350.zip

السلام عليكم ورحمة الله شكرا جزيلا لكم

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

لسلام عليكم ورحمة الله وبركاتة اخواني الاعزاء بعد تعب ومحاولات بات بالفشل ارجو المساعدة في انشاء دالة خاصة Function لتعرض اكبر تاريخ واصغر تاريخ موجود في عمود , ليتم عرض في نموذج USERFORM طبعا يكون التاريخ بالهجري وفي حالة كان العمود فارغ يكو قيمة ( اصغر تاريخ هو 1420/01/01) ويكون قيمة ( اكبر تاريخ هو 1450/01/01 ) في الملف المرفق شرح اكثر ارجو المساعدة ولكم جزيل الشكر والامتنان 300.rar

السلام عليكم ورحمة الله وبركاتة اخواني الاعزاء بعد تعب ومحاولات بات بالفشل ارجو المساعدة في انشاء دالة خاصة Function لتعرض اكبر تاريخ واصغر تاريخ موجود في عمود , ليتم عرض في نموذج USERFORM طبعا يكون التاريخ بالهجري وفي حالة كان العمود فارغ يكو قيمة ( اصغر تاريخ هو 1420/01/01) ويكون قيمة ( اكبر تاريخ هو 1450/01/01 ) في الملف المرفق شرح اكثر ارجو المساعدة ولكم جزيل الشكر والامتنان 300.rar

ماشاء الله تبارك الله شكرا لك استاذ رجب شكرا جزيلا

السلام عليكم ورحمة الله وبركاتة اود ان اشكر الجميع علي التفاعل الكبير في السؤال السابق وادعوا الله تعالي ان يبارك لكم في صحتكم ,,, وكما تعودت منكم دوما اجد عندكم الفائدة و الاجابة و المساعدة فان اجركم كبير و كم من دعوات لكم بظهر الغيب . هذة المرة اتمني الرد السريع بكود كبير وعظيم بعظمه هذا المنتدي الكبير العامر ان شاء الله في الملف المرفق ملف بة شرح توضيح في الشيت 2 لما يجب علي الكود القيام بة في الشيت 1 ارجو منكم المساعدة ولكم جزيل الشكر و الامتنان 11.rar