كيف اشير في الكود الى تسمية اوراق تم تغيير اسمها

[خالد القدس]

السلام عليكم أساتذتي الأفاضل كيف يمكن ان اشير في الكود الى اسماء أوراق التى قمت بغيير اسمها الخارجي بالعربي واسمها داخل محرر الأكواد ايضا غيرته بالانجليزى أنظر الصورة حيث أريد تطبيق هذا الكود Private Sub CommandButton1_Click() Unload Me Sheets("khalid_1").Select [khalid_1!B5] = (ComboBox1) Sheets("khalid_1").Select Activewindow.SelectedSheets.PrintPreview End Sub وهو يقوم بالخطوات الآتية بالترتيب الدخول للورقة khalid_1 نقل محتويات الـ ComboBox1 إلى الخلية B5 في نفس الورقة ثم عمل معاينة قبل الطباعة

[أبوعبد الله]

أخي العزيز / خالد

استبدل في الكود إسم الورقة برقمها فمثلاً ورقة1 ستكون بدل ("ورقة1")Sheets تكتب (Sheets(1 وبذلك حتى لو غيرت إسم الورقة فلن يؤثر على الكود . أرجو أن تكون الفكرة واضحة .

تحياتي

أبو عبدالله

[ابو اسامة العينبوسي]

السلام عليكم

ارفق ملف اخى خالد

[خالد القدس]

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

M5.rar

تم تعديل ديسمبر 29, 2009 بواسطه خالد القدس

[ابو اسامة العينبوسي]

Unload Me

Sheets("ÇáÓÌá ÇáãÇáí").Select

Sheets("ÇáÓÌá ÇáãÇáí").Cells(6, "b") = (ComboBox1)

Sheets("ÇáÓÌá ÇáãÇáí").Select

ActiveWindow.SelectedSheets.PrintPreview

[أبوعبد الله]

أخي العزيز خالد

إضافة إلى تعديل أخي العزيز أبو أسامة فربما أكون قد سلكت طريق آخر وكل الطرق تؤدي إن شاء الله للخير - تم تغيير إسم الورقة في ال vbe إلى Sheet4 وتم تعديل الكود على أساس إسم الورقة الجديد وهو يعمل جيداً كما ستلاحظ في المرفق .

تحياتي

أبو عبدالله

M5.rar

[خالد القدس]

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