خالد القدس قام بنشر ديسمبر 29, 2009 قام بنشر ديسمبر 29, 2009 السلام عليكم أساتذتي الأفاضل كيف يمكن ان اشير في الكود الى اسماء أوراق التى قمت بغيير اسمها الخارجي بالعربي واسمها داخل محرر الأكواد ايضا غيرته بالانجليزى أنظر الصورة حيث أريد تطبيق هذا الكود 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 في نفس الورقة ثم عمل معاينة قبل الطباعة
أبوعبد الله قام بنشر ديسمبر 29, 2009 قام بنشر ديسمبر 29, 2009 أخي العزيز / خالد استبدل في الكود إسم الورقة برقمها فمثلاً ورقة1 ستكون بدل ("ورقة1")Sheets تكتب (Sheets(1 وبذلك حتى لو غيرت إسم الورقة فلن يؤثر على الكود . أرجو أن تكون الفكرة واضحة . تحياتي أبو عبدالله
خالد القدس قام بنشر ديسمبر 29, 2009 الكاتب قام بنشر ديسمبر 29, 2009 (معدل) السلام عليكم أستاذي الفاضل اكسيلجي الفكرة واضحة لكن التنفيذ لم يظبط أرجو شاكرا كتابة الكود بالصورة الصحيحة (( وما أجمل النسخ واللصق إذا اجتمعا )) أستاذي الكبير ابو اسامة ألف شكر وتحية ها هو الملف مرفق المطلوب عند الضغط على تجهيز في فورم السجل المالي يقوم البرنامج بكتابة محتوى الكموبوكس في الخلية B6 ويعمل معاينة قبل الطباعة لنفس الصفحة ولكم شكري الجزيل M5.rar تم تعديل ديسمبر 29, 2009 بواسطه خالد القدس
ابو اسامة العينبوسي قام بنشر ديسمبر 29, 2009 قام بنشر ديسمبر 29, 2009 Unload Me Sheets("ÇáÓÌá ÇáãÇáí").Select Sheets("ÇáÓÌá ÇáãÇáí").Cells(6, "b") = (ComboBox1) Sheets("ÇáÓÌá ÇáãÇáí").Select ActiveWindow.SelectedSheets.PrintPreview
أبوعبد الله قام بنشر ديسمبر 29, 2009 قام بنشر ديسمبر 29, 2009 أخي العزيز خالد إضافة إلى تعديل أخي العزيز أبو أسامة فربما أكون قد سلكت طريق آخر وكل الطرق تؤدي إن شاء الله للخير - تم تغيير إسم الورقة في ال vbe إلى Sheet4 وتم تعديل الكود على أساس إسم الورقة الجديد وهو يعمل جيداً كما ستلاحظ في المرفق . تحياتي أبو عبدالله M5.rar
خالد القدس قام بنشر ديسمبر 29, 2009 الكاتب قام بنشر ديسمبر 29, 2009 السلام عليكم استاذي الأكرم أبو اسامة كواد تمام ومختلف عما أعرفه ألف شكر يعمل تمام التمام أستاذي اكسيجلي ايضا كود تمام ويعمل ذى مائة المائة لكم شكري وتقدير وكذلك لي طلب آخر بسيط كما ترون في الملف كود يقوم باخفاء اشرطة الأدوات والقوائم ولكن لهذا الملف فقط أي اذا كان هناك ملف آخر مفتوح كما عادي اريد اضافة كود بنفس الطريقة يقوم باخفاء اسماء الاوراق ما عدا الورقة الرئيسية وكذلك فقط في هذا الملف وتقبلوا شكري الجزيل وجزاكم الله ألف خير وزادكم من فضله الذي لا ينفد
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.