atob قام بنشر نوفمبر 12, 2006 مشاركة قام بنشر نوفمبر 12, 2006 السلام عليكم ورحمه الله وبركاته عندي هذه الورقه وفيها جدول به بيانات في صفوف ......طبعا كل بيانات موجوده في صف يقابلها اسم وايضا يوجد بها رسم بياني طلبي هو كيف اصنع كود يقوم( عندما اؤشر علي خليه الاسم) بأستخدام البيانات التي تقابلها في الرسم البياني والمرفق يوضح طلبي .........مع شكري للجميع ___________.zip رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر نوفمبر 13, 2006 مشاركة قام بنشر نوفمبر 13, 2006 الاخ atob شاهد المرفق ___________.rar رابط هذا التعليق شارك More sharing options...
atob قام بنشر نوفمبر 13, 2006 الكاتب مشاركة قام بنشر نوفمبر 13, 2006 اخوي تامر اشكرك جزيل الشكر على مساعدتي ........والله يكتب لك الاجر والخير رابط هذا التعليق شارك More sharing options...
atob قام بنشر نوفمبر 13, 2006 الكاتب مشاركة قام بنشر نوفمبر 13, 2006 (معدل) اخوي تامر ولو اشغلتك لكن اسمحني اريدك تشرح لي الكود بالمختصر او توضح لي ماذا تقصد في الارقام For x = 27 To 39 والشئ الثاني انني عندما اعمل حمايه للصفحه حتى وان وضعت الجدول بأكمله غير مؤمن فأن الكود لا يعمل واشكرك على جهودك تم تعديل نوفمبر 13, 2006 بواسطه atob رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر نوفمبر 13, 2006 مشاركة قام بنشر نوفمبر 13, 2006 (معدل) اخى atob بالنسبة للحماية يوجد بيانات فى الجزء (AA1:AM2) الغى عنه تأمين الخلايا فيعمل الكود عند حماية الورقة والكود يعمل على تحديد رقم الصف والعمود للاسم المؤشر عليه ويقوم بنقل بيانات الاسم فقط الى الجزء المشار اليه اما (For x = 27 To 39) عباره عن حلقة تقوم بنسخ بيانات الاسم الذى تؤشر عليه الى (AA1:AM2) لان الرسم البيانى لا يتعامل مع الجدول مباشر بل مع بيانات الاسم المنقول المشار الية فى المنطقة (AA1:AM2) فقط والارقام (For x = 27 To 39) هى ارقام اعمدة هذا الجزء . تحياتى تم تعديل نوفمبر 13, 2006 بواسطه tameromar رابط هذا التعليق شارك More sharing options...
atob قام بنشر نوفمبر 14, 2006 الكاتب مشاركة قام بنشر نوفمبر 14, 2006 بقيه الكود فهمته والجزء الذي كان عندي فيه اشكال وضحته لي .....فالله ينور لك في الدنيا والاخره رابط هذا التعليق شارك More sharing options...
atob قام بنشر نوفمبر 16, 2006 الكاتب مشاركة قام بنشر نوفمبر 16, 2006 اخوي تامر نورتني الله ينور عليك ولي طلب اخير اذا ما عندك مانع وهو انني اريد ان اؤشر على الاسم في الصفحه الاولى ولكن بياناته في جدول في الصفحه 3 فأريد الكود ينسخ البيانات من الجدول الذي في الصفحه 3 والمرفق يوضح ذلك واشكرك على تفاعلك معي ومع الاخوان رابط هذا التعليق شارك More sharing options...
atob قام بنشر نوفمبر 17, 2006 الكاتب مشاركة قام بنشر نوفمبر 17, 2006 اخوي تامر مسأك الله بالخير هذا الكود الذي اعطيتني عجزني وما عرفت اركبه في ملف اخر وهل هو يركب في موديل جديد ام ما هي الطريقه وثانيا لم اعرف اجعله ينسخ من صفحه ثانيه لنفس الصفحه التي انا عليها .........ساعدني الله يكتب لك الاجر رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر نوفمبر 19, 2006 مشاركة قام بنشر نوفمبر 19, 2006 شاهد المرفق اخى ___________.rar رابط هذا التعليق شارك More sharing options...
atob قام بنشر نوفمبر 19, 2006 الكاتب مشاركة قام بنشر نوفمبر 19, 2006 روح يا شيخ الله يفرج عليك كما افرجت على اخوانك رابط هذا التعليق شارك More sharing options...
atob قام بنشر نوفمبر 23, 2006 الكاتب مشاركة قام بنشر نوفمبر 23, 2006 اخوي تامر من يوم حملت الملف الاخير الذي ساعدتني فيه الله يوفقك وانا منحاس في جملتين في الكود Cells(4, x) = Sheets("æÑÞÉ3").Cells(MyRow + 7, x) Cells(4, x) = .Cells(MyRow - 7, x) رقم 7 وضعته كيف وماذا تعني my row واسف لا اكون ثقلت عليك لان الرد ليس واجبا عليكم ولكن تطوعتوا للرد علينا فالله يكتب لكم الاجر رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر نوفمبر 24, 2006 مشاركة قام بنشر نوفمبر 24, 2006 اخى 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 رابط هذا التعليق شارك More sharing options...
atob قام بنشر نوفمبر 24, 2006 الكاتب مشاركة قام بنشر نوفمبر 24, 2006 اشكرك على توضيحك الرائع والله يحقق لك امنياتك في هذا اليوم الفضيل رابط هذا التعليق شارك 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.