اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
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
قام بنشر

أستاذ / طارق ..

 

شكراً لتجاوبك معي 

 

توجد مشكلة بعد وضع كود الاخفاء وهي عند اختيار الزر رقم 1

 

يمكن التأكد من ذلك في الملف الذي أرفقته 

 

لك كل التقدير

قام بنشر

عزيزي طارق ..

 

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

 

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

 

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

 

 

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

  • 4 weeks later...
قام بنشر

السلام عليكم

أخي العزيز

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information