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

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

أرجو المساعدة فى تعديل الكود

 

الملف المرفق يوضح المطلوب

 

*** الملف المرفق يحتوى على رسم بيانى Chart  للبيانات الموجودة فى العمودين A,B  ،  

       وبه زر Command Button نقوم بالضغط عليه بعد قيامنا أولا بتحديد الخلايا من

      العمود B المطلوب تمثيلها بالرسم البيانى  .

****   المطلوب  :

1- تعديل الاكواد أو تعديل خواص الرسم البيانى بحيث انه فى كل مرة عند تحديد الخلايا من العمود B  والضغط على زر Command Button  فانه يظهر بالرسم البيانى قيم الخلايا التى قمنا بتحديدها فى العمود B بالاضافة الى القيم المناظرة لها فى العمودين A , C    . 

كما بالصورة المرفقة : الأعمدة باللون الأصفر هى بيانات الخلايا التى تم تحديدها بالعمود B ،

                           والأعمدة باللون الأحمر هى القيم الموجودة بالعمود C وبشرط تكون فى

                         كل مرة هى فقط القيم المناظرة للخلايا التى تم تحديدها فى العمود B  .   

     

     

2- مطلوب ايضا طريقة تحريك زر Command Button  ونقله الى أى مكان فى الصفحة نظرا لانه ثابت فى

   مكانه و لا يقبل التحريك أبدا  .

 

                ولكم جزيل الشكر والتقدير  ،،،،

الرسم البيانى Chart Series.rar

[azakarea]

السلام عليكم 

صراحة لم اعبث بالأكواد لعدم المامي الكامل بها 

غيرت فقط في حصائص الرسم البياني و اعتقد انها اتت نفعها 

http://www.up-00.com/?vSGKمركز تحميل الصور

 

تحياتي

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

السلام عليكم 

صراحة لم اعبث بالأكواد لعدم المامي الكامل بها 

غيرت فقط في حصائص الرسم البياني و اعتقد انها اتت نفعها 

http://www.up-00.com/?vSGKمركز تحميل الصور

 

تحياتي

أشكرك أخى على اهتمامك ، ولكن انا لا أقصد ذلك

أنا أريد أن يكون الفلتر للخلايا التى يتم تحديدها بالعمودين B,C هى فقط التى تظهر فى الرسم البيانى فى كل مرة يتم التحديد فيها لخلايا مختلفة

أرجو من الاخوة أن يكونوا فهموا قصدى بالتحديد 

أعتقد ان بالمنتدى عباقرة فى الاكسيل قادرين على حل تلك المشكلة الصغيرة

ولكم خالص التحية

[احمد عبد الناصر]

السلام عليكم

 

جرب هذه

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
t = Range("A1:C1,A" & Selection.Cells(1).Row & ":C" & Selection.Cells(Selection.Rows.Count).Row & "").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

تحياتي

[حمادة عمر]

السلام عليكم

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

بارك الله فيك

اظن ان كود الاخ الحبيب /  احمد عبد الناصر ... ( الغائب الحاضر ) ... جزاه الله خيرا

قد اوفي بالمطلوب علي حسب فهمي لطلبك

 

وبخصوص جزئية تحريك الزر ...

قم بالضغط دبل كليك في اي خلية في الشيت لتجد ان الزر يسير خلفك .. ويتحرك

ثم قم بتحديد المجال الذي تقصده واضغط الزر وشاهد النتيجة

 

شاهد المرفق

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

 

 

الرسم البيانى -ss.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
t = Range("A1:C1,A" & Selection.Cells(1).Row & ":C" & Selection.Cells(Selection.Rows.Count).Row & "").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

تحياتي

الف شكر وتسلم ايديك

هو ده بالظبط طلبى

بارك الله فيك 

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

السلام عليكم

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

بارك الله فيك

اظن ان كود الاخ الحبيب /  احمد عبد الناصر ... ( الغائب الحاضر ) ... جزاه الله خيرا

قد اوفي بالمطلوب علي حسب فهمي لطلبك

 

وبخصوص جزئية تحريك الزر ...

قم بالضغط دبل كليك في اي خلية في الشيت لتجد ان الزر يسير خلفك .. ويتحرك

ثم قم بتحديد المجال الذي تقصده واضغط الزر وشاهد النتيجة

 

شاهد المرفق

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

 

 

الرسم البيانى -ss.rar

أشكرك على اهتمامك جزاك الله خيرا"

بارك الله فى حضرتك

ولكن لى سؤال بعد اذنك :

أريد أن أتعلم منك ماذا فعلت حتـى يتم تحريك الزر بهذه الطريقة عند الضغط دبل كليك

أرجو الافادة حتى أقوم بنفسى بعمل ذلك فى الملفات الأخرى الموجودة عندى 

ولكم جزيل الشكر والتقدير

[ا بو سليمان]

 

السلام عليكم

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

بارك الله فيك

اظن ان كود الاخ الحبيب /  احمد عبد الناصر ... ( الغائب الحاضر ) ... جزاه الله خيرا

قد اوفي بالمطلوب علي حسب فهمي لطلبك

 

وبخصوص جزئية تحريك الزر ...

قم بالضغط دبل كليك في اي خلية في الشيت لتجد ان الزر يسير خلفك .. ويتحرك

ثم قم بتحديد المجال الذي تقصده واضغط الزر وشاهد النتيجة

 

شاهد المرفق

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

 

 

الرسم البيانى -ss.rar

أشكرك على اهتمامك جزاك الله خيرا"

بارك الله فى حضرتك

ولكن لى سؤال بعد اذنك :

أريد أن أتعلم منك ماذا فعلت حتـى يتم تحريك الزر بهذه الطريقة عند الضغط دبل كليك

أرجو الافادة حتى أقوم بنفسى بعمل ذلك فى الملفات الأخرى الموجودة عندى 

ولكم جزيل الشكر والتقدير

 

ررررررررررررررررررررررررررائع

[حمادة عمر]

السلام عليكم

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

بارك الله فيك

 

قم اخي الكريم بتصميم الزر في الشيت الذي تريده ... وايضا قم بوضع الامر الذي تريده فيه

هذا بخصوص الزر ... وتنفيذه للأمر المطلوب منه ... كما كان في ملفك الاول

 

وبخصوص التحريك قم بوضع الكود التالي في حدث الشيت المحدد الذي تريد تنفيذ تحريك الزر فيه

والكود كالتالي

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'السطر السابق خاص بوضع الامر المطلوب تنفيذه في الشيت في وضعية او عند تنفيذ 
' الدبل كليك BeforeDoubleClick .. اي بعد الضغط دبل كليك في اي مكان في الشيت 
Cancel = True
' السطر السابق يقوم بالغاء الامر دبل كليك المعتاد والذي اذا قمت بتنفيذه في الوضع العادي
'سيقوم الاكسيل بتحديد واظهار المؤشر في الخلية المحددة للتجهيز للكتابة او ما شابه ..
Me.CommandButton1.Visible = False
'السطر السابق يعني جعل الزر الذي قمت بتصميمه وهو هنا الزر رقم 1 CommandButton1
' وبالطبع يجب تغيير اسم الزر كما هو لديك تماما في الشيت .. وهو يعني جعل هذا الزر 
'مخفيا ليتم استعداؤه بعد ذلك
Me.CommandButton1.Top = ActiveCell.Top
'السطر السابق يقول بان موقع الزر رقم 1 وهنا هو الاعلي Top الخاص به .. يكون اعلي الخلية 
'النشطة والتي تم تنشيطها بعد الضغط دبل كليك
Me.CommandButton1.Left = ActiveCell.Left
'السطر السابق يقول بان موقع الزر رقم 1 وهنا هو الايسر Left الخاص به .. يكون ايسر الخلية
'النشطة والتي تم تنشيطها بعد الضغط دبل كليك
Me.CommandButton1.Visible = True
'هو سطر عكس السطر السابق في بداية الكود Me.CommandButton1.Visible = False  وذلك لجعل
'الزر رقم 1 ظاهرا وجعل خاصية الاخفاء لا تعمل Visible = True
End Sub
'السطر السابق يعني انهاء المهمة بالكامل

ارجو ان اكون وفقت في شرح الكود كما ينبغي

وان لم يمكنك التنفيذ ابلغني

وسوف اعد لك ان شاء الله شرح فيديو  يوضح ذلك

 

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

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

السلام عليكم

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

بارك الله فيك

 

قم اخي الكريم بتصميم الزر في الشيت الذي تريده ... وايضا قم بوضع الامر الذي تريده فيه

هذا بخصوص الزر ... وتنفيذه للأمر المطلوب منه ... كما كان في ملفك الاول

 

وبخصوص التحريك قم بوضع الكود التالي في حدث الشيت المحدد الذي تريد تنفيذ تحريك الزر فيه

والكود كالتالي

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'السطر السابق خاص بوضع الامر المطلوب تنفيذه في الشيت في وضعية او عند تنفيذ 
' الدبل كليك BeforeDoubleClick .. اي بعد الضغط دبل كليك في اي مكان في الشيت 
Cancel = True
' السطر السابق يقوم بالغاء الامر دبل كليك المعتاد والذي اذا قمت بتنفيذه في الوضع العادي
'سيقوم الاكسيل بتحديد واظهار المؤشر في الخلية المحددة للتجهيز للكتابة او ما شابه ..
Me.CommandButton1.Visible = False
'السطر السابق يعني جعل الزر الذي قمت بتصميمه وهو هنا الزر رقم 1 CommandButton1
' وبالطبع يجب تغيير اسم الزر كما هو لديك تماما في الشيت .. وهو يعني جعل هذا الزر 
'مخفيا ليتم استعداؤه بعد ذلك
Me.CommandButton1.Top = ActiveCell.Top
'السطر السابق يقول بان موقع الزر رقم 1 وهنا هو الاعلي Top الخاص به .. يكون اعلي الخلية 
'النشطة والتي تم تنشيطها بعد الضغط دبل كليك
Me.CommandButton1.Left = ActiveCell.Left
'السطر السابق يقول بان موقع الزر رقم 1 وهنا هو الايسر Left الخاص به .. يكون ايسر الخلية
'النشطة والتي تم تنشيطها بعد الضغط دبل كليك
Me.CommandButton1.Visible = True
'هو سطر عكس السطر السابق في بداية الكود Me.CommandButton1.Visible = False  وذلك لجعل
'الزر رقم 1 ظاهرا وجعل خاصية الاخفاء لا تعمل Visible = True
End Sub
'السطر السابق يعني انهاء المهمة بالكامل

ارجو ان اكون وفقت في شرح الكود كما ينبغي

وان لم يمكنك التنفيذ ابلغني

وسوف اعد لك ان شاء الله شرح فيديو  يوضح ذلك

 

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

 

السلام عليكم

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

بارك الله فيك

 

قم اخي الكريم بتصميم الزر في الشيت الذي تريده ... وايضا قم بوضع الامر الذي تريده فيه

هذا بخصوص الزر ... وتنفيذه للأمر المطلوب منه ... كما كان في ملفك الاول

 

وبخصوص التحريك قم بوضع الكود التالي في حدث الشيت المحدد الذي تريد تنفيذ تحريك الزر فيه

والكود كالتالي

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'السطر السابق خاص بوضع الامر المطلوب تنفيذه في الشيت في وضعية او عند تنفيذ 
' الدبل كليك BeforeDoubleClick .. اي بعد الضغط دبل كليك في اي مكان في الشيت 
Cancel = True
' السطر السابق يقوم بالغاء الامر دبل كليك المعتاد والذي اذا قمت بتنفيذه في الوضع العادي
'سيقوم الاكسيل بتحديد واظهار المؤشر في الخلية المحددة للتجهيز للكتابة او ما شابه ..
Me.CommandButton1.Visible = False
'السطر السابق يعني جعل الزر الذي قمت بتصميمه وهو هنا الزر رقم 1 CommandButton1
' وبالطبع يجب تغيير اسم الزر كما هو لديك تماما في الشيت .. وهو يعني جعل هذا الزر 
'مخفيا ليتم استعداؤه بعد ذلك
Me.CommandButton1.Top = ActiveCell.Top
'السطر السابق يقول بان موقع الزر رقم 1 وهنا هو الاعلي Top الخاص به .. يكون اعلي الخلية 
'النشطة والتي تم تنشيطها بعد الضغط دبل كليك
Me.CommandButton1.Left = ActiveCell.Left
'السطر السابق يقول بان موقع الزر رقم 1 وهنا هو الايسر Left الخاص به .. يكون ايسر الخلية
'النشطة والتي تم تنشيطها بعد الضغط دبل كليك
Me.CommandButton1.Visible = True
'هو سطر عكس السطر السابق في بداية الكود Me.CommandButton1.Visible = False  وذلك لجعل
'الزر رقم 1 ظاهرا وجعل خاصية الاخفاء لا تعمل Visible = True
End Sub
'السطر السابق يعني انهاء المهمة بالكامل

ارجو ان اكون وفقت في شرح الكود كما ينبغي

وان لم يمكنك التنفيذ ابلغني

وسوف اعد لك ان شاء الله شرح فيديو  يوضح ذلك

 

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

 

السلام عليكم

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

بارك الله فيك

 

قم اخي الكريم بتصميم الزر في الشيت الذي تريده ... وايضا قم بوضع الامر الذي تريده فيه

هذا بخصوص الزر ... وتنفيذه للأمر المطلوب منه ... كما كان في ملفك الاول

 

وبخصوص التحريك قم بوضع الكود التالي في حدث الشيت المحدد الذي تريد تنفيذ تحريك الزر فيه

والكود كالتالي

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'السطر السابق خاص بوضع الامر المطلوب تنفيذه في الشيت في وضعية او عند تنفيذ 
' الدبل كليك BeforeDoubleClick .. اي بعد الضغط دبل كليك في اي مكان في الشيت 
Cancel = True
' السطر السابق يقوم بالغاء الامر دبل كليك المعتاد والذي اذا قمت بتنفيذه في الوضع العادي
'سيقوم الاكسيل بتحديد واظهار المؤشر في الخلية المحددة للتجهيز للكتابة او ما شابه ..
Me.CommandButton1.Visible = False
'السطر السابق يعني جعل الزر الذي قمت بتصميمه وهو هنا الزر رقم 1 CommandButton1
' وبالطبع يجب تغيير اسم الزر كما هو لديك تماما في الشيت .. وهو يعني جعل هذا الزر 
'مخفيا ليتم استعداؤه بعد ذلك
Me.CommandButton1.Top = ActiveCell.Top
'السطر السابق يقول بان موقع الزر رقم 1 وهنا هو الاعلي Top الخاص به .. يكون اعلي الخلية 
'النشطة والتي تم تنشيطها بعد الضغط دبل كليك
Me.CommandButton1.Left = ActiveCell.Left
'السطر السابق يقول بان موقع الزر رقم 1 وهنا هو الايسر Left الخاص به .. يكون ايسر الخلية
'النشطة والتي تم تنشيطها بعد الضغط دبل كليك
Me.CommandButton1.Visible = True
'هو سطر عكس السطر السابق في بداية الكود Me.CommandButton1.Visible = False  وذلك لجعل
'الزر رقم 1 ظاهرا وجعل خاصية الاخفاء لا تعمل Visible = True
End Sub
'السطر السابق يعني انهاء المهمة بالكامل

ارجو ان اكون وفقت في شرح الكود كما ينبغي

وان لم يمكنك التنفيذ ابلغني

وسوف اعد لك ان شاء الله شرح فيديو  يوضح ذلك

 

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

الأخ الفاضل / حماده عمر

الف شكربارك الله فيك

أرجو ان لا أكون قد أثقلت على حضرتك فى طلباتى

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

ولو أمكن يكون هذا الشرح من بداية عمل الزر ذات نفسه وتخصيص الأمر الخاص به ،

ولماذا لا يمكن تحديد الزر نفسه بالكليك يمين ثم نقوم بتحريكه بالاسهم من لوحة المفاتيح فى الاتجاه الذى نريده  ؟؟؟

لماذا موضوع تحريك الزر معقد هكذا ويحتاج للأكواد ؟؟؟

أنا أقوم بتصميم برامج على الأكسيس وأستخدم تلك الأزرار فى تنفيذ العديد من الأوامر ، وتحريك تلك الأزرار فى الأكسيس يتم بسهولة عن طريق تحديد الزر نفسه ثم تحريكه بالاسهم أو بالماوس فى أى اتجاه نريده  .

لذا أرجو من حضرتك التوضيح مع الشرح بالفديو ان أمكن لحضرتك 

ولكم خالص الشكر والتقدير

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

الأخ الفاضل / حماده عمر

الف شكر بارك الله فيك

أرجو ان لا أكون قد أثقلت على حضرتك فى طلباتى

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

ولو أمكن يكون هذا الشرح من بداية عمل الزر ذات نفسه وتخصيص الأمر الخاص به ،

ولماذا لا يمكن تحديد الزر نفسه بالكليك يمين ثم نقوم بتحريكه بالاسهم من لوحة المفاتيح فى الاتجاه الذى نريده  ؟؟؟

لماذا موضوع تحريك الزر معقد هكذا ويحتاج للأكواد ؟؟؟

أنا أقوم بتصميم برامج على الأكسيس وأستخدم تلك الأزرار فى تنفيذ العديد من الأوامر ، وتحريك تلك الأزرار فى الأكسيس يتم بسهولة عن طريق تحديد الزر نفسه ثم تحريكه بالاسهم أو بالماوس فى أى اتجاه نريده  .

لذا أرجو من حضرتك التوضيح مع الشرح بالفديو ان أمكن لحضرتك 

ولكم خالص الشكر والتقدير

[احمد عبد الناصر]

السلام عليكم

 

بعد التحية ,

 

بالنسبة لتحريك الزر انا اختار design mode من  تاب develeopler في اكسيل 2010 ثم احرك الزر او اعدل خصائصه لكن ليس لدي فكرة اين  design mode في 2003

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

السلام عليكم

 

بعد التحية ,

 

بالنسبة لتحريك الزر انا اختار design mode من  تاب develeopler في اكسيل 2010 ثم احرك الزر او اعدل خصائصه لكن ليس لدي فكرة اين  design mode في 2003

بارك الله فيك أخى / أحمد عبد الناصر

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

 

السلام عليكم

 

بعد التحية ,

 

بالنسبة لتحريك الزر انا اختار design mode من  تاب develeopler في اكسيل 2010 ثم احرك الزر او اعدل خصائصه لكن ليس لدي فكرة اين  design mode في 2003

بارك الله فيك أخى / أحمد عبد الناصر

 

بالنسبة لتحريك الزر فى أوفيس 2003 نختار design mode  من شريط أدوات Visual Basic