اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

إظهار الرسم البياني بـ زر


الردود الموصى بها

السلام عليكم

لكن هل هناك طريقة تكون مخفية في البداية عند فتح الملف ؟؟

 

نعم ضع الكود التالي في حدث فتح الملف

Private Sub Workbook_Open()
On Error Resume Next
Sheets(1).Activate
    Application.ScreenUpdating = False
        For i = ActiveSheet.ChartObjects.Count To 1 Step -1
            ActiveSheet.ChartObjects(i).Activate
            ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet2"
            Sheets(1).Activate
        Next
    Application.ScreenUpdating = True
End Sub
رابط هذا التعليق
شارك

السلام عليكم

 

ياليت تفيدني بطريقة زيادة زر ويتم التطبيق عليه

وأن تشرح لي طريقة عمل الكود

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

ظهور الرسم البياني عند ظغط زر.rar

  • Like 1
رابط هذا التعليق
شارك

عزيزي طارق ..

 

الان أضفت الزر رقم 5 وحاولت أغير في الأكواد ولكن كيف أجعل التحديد للرقم 4 للجدول الأخير ويظهر الرسم ...

 

وين الخطأ في الكود ؟

 

وماهو شرح ال nn لو بشكل مبسّط ..

 

 

ظهور الرسم البياني عند ظغط زر.rar

رابط هذا التعليق
شارك

  • 4 weeks later...

السلام عليكم

أخي العزيز

أنت لم تقرأ الشرح في مشاركتي السابقة (بالورقة المسماة CODE بالملف السابق) 

قلت لك أن "هذه الأكواد الأربعة متماثلة  وكلها عبارة عن أمرين 
1- وضع رقم الزر  في الخلية q1 ثم
2- إستدعاء وتشغيل الكود nn"
==============
أي أن الكود "nn" هو محور العملية
فهو ببساطة ينقل جميع الشارتات بالورقة الأولي للورقة الثانية (فتختفي ظاهريا)
ثم يعيد نقل الشارت المطلوب حسب قيمة الزر المضغوط للورقة الأولي
============
ثم أنك لم توضح ماذا تريد عمله بالزر (5)
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information