مطلوب تعديل الكود المرفق لتنفيذ رسم بياني بزر لعدة نطاقات {عنوان معدل}

[احمد عبد الفتاح]

الرجاء من الأساتذة الأفاضل بالمنتدى المساعدة فى تعديل الكود بالملف المرفق

 

بحيث يتم تمثيل بيانات العمود D فى الرسم البيانى مثلها مثل العمودين B,C  وذلك عند الضغط على زر command button  .

 

وأرجو أيضا معرفة طريقة تعديل الكود حتى أتمكن مستقبلا من اضافة بيانات أعمدة أخرى مثل العمود E والعمود F الى الرسم البيانى فبما بعد  .

 

ولكم خالص الشكر والتحية .

رسم بيانى بالضغط على الزر++.rar

[عبدالله المجرب]

السلام عليكم 

سيصبح الكود هكذا 

Private Sub CommandButton1_Click()
'   Changes the Chart's XValue and Value ranges to display the selected data
If TypeName(Selection) = "Range" Then
    If Selection.Columns.Count = 1 Then
        If Selection.Column = 2 Then
            'If Selection.Areas.Count = 1 Then
tt = Selection.Address
For k = 1 To Len(tt)
If Mid(tt, k, 1) = "B" Then
    If n = 1 Then
    Rng = Rng & "D"
    n = 0
    Else
    Rng = Rng & "a"
    n = n + 1
    End If
Else
Rng = Rng & Mid(tt, k, 1)
End If
Next
            
t = Range("A1:D1," & Rng).Address
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.SetSourceData Source:=Range(t)
            'Else
               ' MsgBox "Select a contiguous range of cells in column B.", vbInformation
           ' End If
        End If
    End If
End If
End Sub

تم تعديل هذا السطر من الكود 

 Rng = Rng & "D"

وهذا 

t = Range("A1:D1," & Rng).Address

[احمد عبد الفتاح]

 

السلام عليكم 

سيصبح الكود هكذا 

Private Sub CommandButton1_Click()
'   Changes the Chart's XValue and Value ranges to display the selected data
If TypeName(Selection) = "Range" Then
    If Selection.Columns.Count = 1 Then
        If Selection.Column = 2 Then
            'If Selection.Areas.Count = 1 Then
tt = Selection.Address
For k = 1 To Len(tt)
If Mid(tt, k, 1) = "B" Then
    If n = 1 Then
    Rng = Rng & "D"
    n = 0
    Else
    Rng = Rng & "a"
    n = n + 1
    End If
Else
Rng = Rng & Mid(tt, k, 1)
End If
Next
            
t = Range("A1:D1," & Rng).Address
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.SetSourceData Source:=Range(t)
            'Else
               ' MsgBox "Select a contiguous range of cells in column B.", vbInformation
           ' End If
        End If
    End If
End If
End Sub

تم تعديل هذا السطر من الكود 

 Rng = Rng & "D"

وهذا 

t = Range("A1:D1," & Rng).Address

بارك الله فيم أخى عبد الله

الف شكر على المساعدة فى تعديل الكود  وهذا هو المطلوب بالفعل

ثرى الله حياتك بكل خير ، و جعل عملك مقبولا في ميزان حسناتك

[حمادة عمر]

السلام عليكم

الاستاذ القدير / عبدالله المجرب

بارك الله فيك

وحشتنا اعمالك وطلتك علينا

نعلم مدي مشغولياتكم في هذه الفترة ... اعانكم الله

ولكن نحب ان نراك بيننا دائما

تقبل خالص تحياتي

[حمادة عمر]

السلام عليكم

الاخ الكريم / احمد عبد الفتاح

بارك الله فيك

برجاء مراعاة عناوين مواضيعك فيما بعد فهي مخالفة لقواعد المشاركة بالمنتدي .. ( حتي لا يتعرض موضوعك للحذف او الاغلاق )

واصبح لك الآن 3 مواضيع بخصوص الرسم البياني ... كان من الممكن ان يكفي موضوع واحد

وتحديد الطلبات طلب تلو الآخر ...

برجاء مراعاه ذلك فيما بعد ... لزيادة الافادة للجميع والالتزام بقواعد المشاركات

تقبل خالص تحياتي

 

قواعد المشاركة فى الموقعاضغط هنـــــــــامن فضلك لقراءة القواعد كاملة
و بصفة خاصة نؤكدعلى ما يلي
1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة
2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد.
3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال.
4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا.....
5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.
ومخالفة ذلك تعرض الموضوع للحذف

[احمد عبد الفتاح]

سؤال أخير للاخوة خبراء الاكسيل بالمنتدى

فــى الملف المـــرفق هنا :

 

1- مطلوب  عمل زر جديد لترتيب الرسم البيانى تصاعديا حسب الأرقام الموجودة      بالعمود B  .

 وعمل زر آخر لترتيب الرسم البيانى تنازليا حسب الأرقام الموجودة بالعمود B  .

 

2- ومطلوب معرفة الطريقة حتى أستطيع القيام فيما بعد بإضافة أزرار أخرى  

    لترتيب الرسم البيانى تصاعديا وتنازليا حسب الأرقام الموجودة

    فى الأعمدة C  او  D   .

مطلوب زر ترتيب تصاعدى للرسم البيانى.rar

[احمد عبد الفتاح]

للرفع