احمد عبد الفتاح قام بنشر أبريل 26, 2014 مشاركة قام بنشر أبريل 26, 2014 الرجاء من الأساتذة الأفاضل بالمنتدى المساعدة فى تعديل الكود بالملف المرفق بحيث يتم تمثيل بيانات العمود D فى الرسم البيانى مثلها مثل العمودين B,C وذلك عند الضغط على زر command button . وأرجو أيضا معرفة طريقة تعديل الكود حتى أتمكن مستقبلا من اضافة بيانات أعمدة أخرى مثل العمود E والعمود F الى الرسم البيانى فبما بعد . ولكم خالص الشكر والتحية . رسم بيانى بالضغط على الزر++.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أبريل 26, 2014 مشاركة قام بنشر أبريل 26, 2014 السلام عليكم سيصبح الكود هكذا 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 1 رابط هذا التعليق شارك More sharing options...
احمد عبد الفتاح قام بنشر أبريل 26, 2014 الكاتب مشاركة قام بنشر أبريل 26, 2014 السلام عليكم سيصبح الكود هكذا 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 بارك الله فيم أخى عبد الله الف شكر على المساعدة فى تعديل الكود وهذا هو المطلوب بالفعل ثرى الله حياتك بكل خير ، و جعل عملك مقبولا في ميزان حسناتك رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر أبريل 26, 2014 مشاركة قام بنشر أبريل 26, 2014 السلام عليكم الاستاذ القدير / عبدالله المجرب بارك الله فيك وحشتنا اعمالك وطلتك علينا نعلم مدي مشغولياتكم في هذه الفترة ... اعانكم الله ولكن نحب ان نراك بيننا دائما تقبل خالص تحياتي 1 رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر أبريل 26, 2014 مشاركة قام بنشر أبريل 26, 2014 السلام عليكم الاخ الكريم / احمد عبد الفتاح بارك الله فيك برجاء مراعاة عناوين مواضيعك فيما بعد فهي مخالفة لقواعد المشاركة بالمنتدي .. ( حتي لا يتعرض موضوعك للحذف او الاغلاق ) واصبح لك الآن 3 مواضيع بخصوص الرسم البياني ... كان من الممكن ان يكفي موضوع واحد وتحديد الطلبات طلب تلو الآخر ... برجاء مراعاه ذلك فيما بعد ... لزيادة الافادة للجميع والالتزام بقواعد المشاركات تقبل خالص تحياتي قواعد المشاركة فى الموقعاضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال.4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.ومخالفة ذلك تعرض الموضوع للحذف 1 رابط هذا التعليق شارك More sharing options...
احمد عبد الفتاح قام بنشر أبريل 26, 2014 الكاتب مشاركة قام بنشر أبريل 26, 2014 سؤال أخير للاخوة خبراء الاكسيل بالمنتدى فــى الملف المـــرفق هنا : 1- مطلوب عمل زر جديد لترتيب الرسم البيانى تصاعديا حسب الأرقام الموجودة بالعمود B . وعمل زر آخر لترتيب الرسم البيانى تنازليا حسب الأرقام الموجودة بالعمود B . 2- ومطلوب معرفة الطريقة حتى أستطيع القيام فيما بعد بإضافة أزرار أخرى لترتيب الرسم البيانى تصاعديا وتنازليا حسب الأرقام الموجودة فى الأعمدة C او D . مطلوب زر ترتيب تصاعدى للرسم البيانى.rar رابط هذا التعليق شارك More sharing options...
احمد عبد الفتاح قام بنشر أبريل 27, 2014 الكاتب مشاركة قام بنشر أبريل 27, 2014 للرفع رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.