السلام عليكم
الاخ الفاضل / صفوت -------------حفظه الله
وصلت رسالتك وشكرا جزيلا لمحتواها
وبالنسبة لايميلي موجود في توقيعي نهاية كل مشاركة
بامكانك مراسلتي في اي وقت تريد ولاي شي تريد
تقبل تحياتي وشكري.
============
الاخ الاستاذ الفاضل/ amhateb-------------حفظه الله
شكرا جزيلا لمحتوى مشاركتك من كلام طيب واسئلة في محلها
بالنسبة للزر
اولاً : بامكانك الاستغناء عنه وعن الكود المربوط به
واضف زرين آخرين واربط واحد بكود الاضافة والآخر بكود الحذف
ثانيا:
Set XX = ورقة3.Shapes("الدائرة")
اي ورقة في الاكسل يكون لها اسم خاص بالموديل خاصتها
وهو المسمى (codename) وهو غير الاسم الذي امامنا في اسفل الورقة
في النسخة العربية :ورقة1,ورقة2,ورقة3
في النسخة الانجليزية:Sheet1,Sheet2,Sheet3
هذه التسمية لا تتغير الا اذا قمت انت بتغييرها من كود الورقة نفسه
انظر الى الصورة التالية:
انا استخدم دائما في الاكواد codename
حتى يعطينا حرية تغيير اسم الورقة الذي يظهر اسفل الاطار
بدون ان غير اي شي في الكود .
لما تنقل الكود لورقة معينة في ملف انظر الى كود النيم خاصتها واستبدله بدلا من ورقة3
ولنقل مثلا : ورقة26
Set XX = ورقة26.Shapes("الدائرة")
وبامكانك ايضا استخدام التعبير التالي الذي يغنيك عن ما ذكر اعلاه
Set XX = ActiveSheet.Shapes("الدائرة")
ثالثا: اي زر موجود على الورقة له اسم معين
يظهر لك في مربع الاسم عندما تاشر على هذا الزر
انظر الى الصورة :
و بامكانك تغيير هذا الاسم
انا سميت هذا الزر (الدائرة)
بامكانك اختيار الطريقة التي تريدها من الطرق ادناه:
1-لما تربط اي زر بكود الاضافة و الحذف سمي هذا الزر (الدائرة)
2-غير الاسم الموجود في الكود باسم الزر الجديد
3- نسخ الزر المسمى الدائرة الى الملف الجديد
ارجوا ان اكون وفقت في توصيل هذه المعلومة
ودمتم في حفظ الله ورعايته