كيف اعمل كود يسحب البيانات للرسم البياني

[atob]

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

عندي هذه الورقه وفيها جدول به بيانات في صفوف ......طبعا كل بيانات موجوده في صف يقابلها اسم

وايضا يوجد بها رسم بياني

طلبي هو كيف اصنع كود يقوم( عندما اؤشر علي خليه الاسم) بأستخدام البيانات التي تقابلها في الرسم البياني

والمرفق يوضح طلبي .........مع شكري للجميع

___________.zip

[omar elhosseini]

الاخ atob

شاهد المرفق

___________.rar

[atob]

اخوي تامر اشكرك جزيل الشكر على مساعدتي ........والله يكتب لك الاجر والخير

[atob]

اخوي تامر ولو اشغلتك لكن اسمحني

اريدك تشرح لي الكود بالمختصر او توضح لي ماذا تقصد في الارقام For x = 27 To 39

والشئ الثاني انني عندما اعمل حمايه للصفحه حتى وان وضعت الجدول بأكمله غير مؤمن فأن الكود لا يعمل

واشكرك على جهودك

تم تعديل نوفمبر 13, 2006 بواسطه atob

[omar elhosseini]

اخى atob

بالنسبة للحماية يوجد بيانات فى الجزء (AA1:AM2) الغى عنه تأمين الخلايا

فيعمل الكود عند حماية الورقة

والكود يعمل على تحديد رقم الصف والعمود للاسم المؤشر عليه ويقوم بنقل بيانات الاسم فقط الى الجزء المشار اليه

اما (For x = 27 To 39)

عباره عن حلقة تقوم بنسخ بيانات الاسم الذى تؤشر عليه الى (AA1:AM2)

لان الرسم البيانى لا يتعامل مع الجدول مباشر بل مع بيانات الاسم المنقول المشار الية فى المنطقة (AA1:AM2) فقط

والارقام (For x = 27 To 39) هى ارقام اعمدة هذا الجزء .

تحياتى

تم تعديل نوفمبر 13, 2006 بواسطه tameromar

[atob]

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

[atob]

اخوي تامر نورتني الله ينور عليك

ولي طلب اخير اذا ما عندك مانع وهو انني اريد ان اؤشر على الاسم في الصفحه الاولى ولكن بياناته في جدول في الصفحه 3 فأريد الكود ينسخ البيانات من الجدول الذي في الصفحه 3 والمرفق يوضح ذلك

واشكرك على تفاعلك معي ومع الاخوان

[atob]

اخوي تامر مسأك الله بالخير

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

[omar elhosseini]

شاهد المرفق اخى

___________.rar

[atob]

روح يا شيخ الله يفرج عليك كما افرجت على اخوانك

[atob]

اخوي تامر من يوم حملت الملف الاخير الذي ساعدتني فيه الله يوفقك وانا منحاس في جملتين في الكود

Cells(4, x) = Sheets("æÑÞÉ3").Cells(MyRow + 7, x)

Cells(4, x) = .Cells(MyRow - 7, x)

رقم 7 وضعته كيف وماذا تعني my row

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

[omar elhosseini]

اخى atob

تحياتى لك

لابأس من استفسارك فنحن فى الخدمة

الكود كان به بعض الاسطر الزائدة تم ازالتها حتى يسهل الامر عليك

شاهد الكود

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


MyCol = ActiveCell.Column
' متغير نضع فيه رقم العمود الذى نقف فيه اى الذى تم التأشير عليه

MyRow = ActiveCell.Row
' متغير نضع فيه رقم الصف الذى نقف فيه اى الذى تم التأشير عليه

If MyCol = 2 And MyRow >= 11 And MyRow <= 15 Then
' يقوم بالتفيذ فى الحالات الاتيه :
' اذا كان رقم العمود الذى نقف عليه هو العمود 2   أى العمود الذى به الاسماء التى سنوشر عليها
' اذا كان رقم الصف الذى نقف عليه هو من 11 الى 15  أى الصفوف التى بها الاسماء التى سنوشر عليها

     With Sheets("ورقة3")
' بأستخدام  البيانات من الورقة الثالثة
      
        For x = 2 To 14
' هى دورة تقوم بنقل بيانات الاسم الذى تم تحديده الى السطر الموجود فى الورقة الاولى من العمود 2 الى العمود 15
            
            Cells(4, x) = .Cells(MyRow - 7, x)
' يقوم بالننسخ خلية خلية من الورقة 3  الى الورقة 1  
'  والرقم 7  هو الفرق بين رقم  صف احمد فى الورقة 1  ورقم صف احمد فى الورقة 3
        Next x
    End With
End If
End Sub
End Sub

اخى حمل الملف بعد ازالة الاسطر الزائدة

تحياتى

___________.rar

[atob]

اشكرك على توضيحك الرائع والله يحقق لك امنياتك في هذا اليوم الفضيل