مساعدة فى تصحيح ماكرو

[Ebadelhady]

الاخوة الأفاضل

كتبت ماكرو لتغيير الرسم البيانى وهو رقم 5 ولكن لا يعمل

فما هو الخطأ فى الكتابة وكيف التصحيح

[Ebadelhady]

الاخوة الأفاضل

كتبت ماكرو لتغيير الرسم البيانى وهو رقم 5 ولكن لا يعمل

فما هو الخطأ فى الكتابة وكيف التصحيح

Sales.rar

[الحسامي]

السلام عليكم ورحمة الله وبركاته

اخي العزيز الكود سليم نوعا ما لكن :

هذا الكود عبارة عن سطر واحد فقط ويمكن كتابته على سطرين لكن يجب فصلهما باشارة "_" أي :

الكود الذي لديك مكتوب بهذه الطريقة وهي خاطئة ويبدو من الوهلة الاولى انه مكون من سطرين

ويعتبره الفيجول على اساس انه سطرين مستقليين فلا يتم التعرف عليه

Private Sub OptionButton1_Click()

ChartObjects("Chart 5").Chart.SetSourceData

Source:=Sheets("Sheet1").Range("B4:B16,c4:c16")

End Sub

والصحيح يمكن كتابته اما بسطر واحد هكذا

Private Sub OptionButton1_Click()

ChartObjects("Chart 5").Chart.SetSourceData Source:=Sheets("Sheet1").Range("B4:B16,c4:c16")

End Sub

او يمكنك كتابته على سطريين ولن بفصلهما باشارة " _ " هكذا :

Private Sub OptionButton1_Click()

ChartObjects("Chart 5").Chart.SetSourceData _

Source:=Sheets("Sheet1").Range("B4:B16,c4:c16")

End Sub

[Ebadelhady]

الأخ الفاضل الحسامى

السلام عليكم ورحمة الله وبركاته

جزاكم الله خيرا وجعله فى ميزانك فعلا ضبط معى عندما جعلته سطر واحد كما نصحت

ولكن بالمناسبة عندما أكتب ( :=) أو ، فى الكود لايقبلها وتأتينى بخط أحمر حتى أنى

أحيانا أتحايل لكتابة الفاصلة بأن أفتح وورد واكتب الفاصلة باستخدام مفتاح Alt + 0145

من لوحة Num وبعدين أنسخها وطبعا أكيد أنا غلط وهناك حل عند أهل العلم وأنت منهم