احمدزمان قام بنشر يونيو 1, 2009 قام بنشر يونيو 1, 2009 بعد الصلاة و السلام على سيدنا رسول الله بناء على طلب اخي سمير في الموضوع على الرابط التاليhttp://www.officena.net/ib/index.php?s=&am...st&p=138343هذالكوود الموجود في الملف Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 2 Then GoTo 1 Q = Target.Cells.Row WW = Sheets("DATA").Cells(5555, 2).End(xlUp).Row If Cells(Q, 2) = "" Then GoTo 1 For W = 3 To WW If Sheets("DATA").Cells(W, 2) = Cells(Q, 2) Then For E = 3 To 6 Cells(Q, E) = Sheets("DATA").Cells(W, E) Next End If Next 1 End Sub و شرحة كالتالي Private Sub Worksheet_Change(ByVal Target As Range) هذا الكود تم وضعة في الحدث التلقائي لتغيير الورقة و هو يعمل بمجرد الكتابة في خلية الورقة ثم الإنتقال منها If Target.Column <> 2 Then GoTo 1 هنا تم تحديد منطقة عمل الكود في العمود رقم 2 وهو العمود B اذا كانت الخلية الهدف ليست في العمود 2 اذهب الى 1 وتم وضع 1 في نهاية الكود Q = Target.Cells.Row تم تعيين متغير اسمة Q وهذا المتغير يأخذ رقم السطر الموجود به الخلية التي تم التحرير بها WW = Sheets("DATA").Cells(5555, 2).End(xlUp).Row تم تعيين متغير وهو يساوي قيمة آخر سطر مكتوب في الرقة DATA للعمود B وهو العمود 2 - وهنا اعطيناه الأمر الذي يتم تنفيذه يدويا كالتالي اذهب الى الورقة DATA قف على الخلية B5555 اضغط Ctrl+سهم للأعلى المكان الذي سوف يقف به المؤشر خذ رقم السطر If Cells(Q, 2) = "" Then GoTo 1 وهنا اعطيناه شرط آخر اذا كانت الخلية الهدف في العمود 2 تساوي فراغ اذهب الى واحد بمعنى اذا قمنا بمسح محتويات الخلية او لم نكتب بها لايتخذ اي اجراء For W = 3 To WW ونحد مجال الأسطر التي سوف نعمل عليها او نبحث فيها عن القيمة في ورقة DATA وهي من السطر 3 الى آخر سطر تمة الكتابة به و الذي حددنا قيمته مسبقا ب الرمز WW If Sheets("DATA").Cells(W, 2) = Cells(Q, 2) Then وهذا شرط العملية اذا كانت قيمة الخلية في العمود 2 للسطر W في ورقة DATA تساوي قيمة الخلية للسطر Q العمود 2 للورقة الحالية اذا.... For E = 3 To 6 متغير آخر حيث ان اللأعمدة في الورقتين متشابهه بعنى اننا نريد ان ننقل الموجود في العمود C من ورقة الى العمود Cفي الورقة الأخرى عملنا متغير تكرار دائري من 3 الى 6 اي سوف يعمل على الأعمدة C - D - E - F - G بمعنى انه اذا وجد الشرط الأول تطابق القيمتين للورقتين في العمو او B سوف يبدأ هذه العملية للنقل بموجب رقم السطر W Cells(Q, E) = Sheets("DATA").Cells(W, E) الخلية التي بها ارقام المتغيرا ت للسطر Q و العمود E تكتب بها قيمة الخلية في ورقة DATAللسطر W و العمود E= = = = = = = الحمد لله رب العالمينهذا موجز شرح الكودو الملف مرفقفي الرابط اعلاه
أيسم إبراهيم قام بنشر يونيو 1, 2009 قام بنشر يونيو 1, 2009 السلام عليكم أستاذ أحمد بارك الله لك و فيك و عليك ولذويك شرح وافي يمكننا من ان نفهم أسرار عمل الأكواد جزاك الله كل الخير
ياسر خليل أبو البراء قام بنشر يونيو 1, 2009 قام بنشر يونيو 1, 2009 أستاذي الجليل أحمد بتاع الحبة الزرقا هو دا الشغل ولا بلاش ، ياريت تكتر من المواضيع الهامة اللي زي كدا عشان نفك طلاسم الأكواد اللي حيرت ناس كتير عاشق الإكسيل
احمدزمان قام بنشر يونيو 1, 2009 الكاتب قام بنشر يونيو 1, 2009 اخي ايسم شكرا لك و بارك الله فيك اخي ياسر شكرا لك المفروض طلاسم الأكواد لاتخفى على اهل اللغة الإنجليزية لأنه معظم كلمات الأكواد قريبة جدا من كلمات انجليزية ولكن في الغالب بدون مسافات او تفصل بينها رموز معينة على اي حال الله يعطيك الصحة و العافية ولا تحتاج ابدا للحبة الزرقاء
زياد علي قام بنشر يونيو 1, 2009 قام بنشر يونيو 1, 2009 ما شاء الله أخي أحمد الله يحفظك وليهنئك العلم تقوم بإستبدال وظائف دوال اكسل بالأكواد شوية شوية تعملنا برنامج ميكروسوفت اكسل جديد الله يعطيك الصحة ويزيدك من علمه ويجعل لنا قبس من هذا العلم
ahmedhafez قام بنشر يونيو 2, 2009 قام بنشر يونيو 2, 2009 شرح اكتر من ممتاز وهو المتوقع من استاذ فاضل مثلك جزاك الله كل خير اخى الكريم على هذا الشرح
سمير نجار قام بنشر يونيو 2, 2009 قام بنشر يونيو 2, 2009 السلام عليكم ورحمة الله وبركاته بارك الله فيك استاذي الكريم احمد يعقوب شرح جميل واكتر من رائع لو كل كود شرح على هذه الطريقة لتخطينا كثيرا" من العقبات كل الشكر لك استاذي وبانتظار شرح جديد لكود اخر السلام عليكم
خالد القدس قام بنشر يونيو 2, 2009 قام بنشر يونيو 2, 2009 فتح الله عليك أخي أحمد على والديك ورزقك من حيث لا تحتسب شرح جميل ووافي لو تعطينا كل أسبوع حصة واحدة ذى دى بعد سنة بإذن الله نكون تلاميذك النجباء جزاك الله كل خيرا
احمدزمان قام بنشر يونيو 3, 2009 الكاتب قام بنشر يونيو 3, 2009 السلام عليكم و رحمة الله اخي زياد شكرا لك و الله يحفظك اخي احمد حافظ شكرا لك و حمدا لله على سلامة الوصول اخير سمير samnaj00 شكرا لك و بارك الله فيك اخي خالد القدس شكرا لك وبارك الله فيك
يحيى حسين قام بنشر يونيو 3, 2009 قام بنشر يونيو 3, 2009 ما شاء الله عليك اخي احمد يعقوب يا ريت كل الاكواد نشرحها كده :)
roushdy قام بنشر يونيو 3, 2009 قام بنشر يونيو 3, 2009 انى ادعو الله من كل قلبى ان يشملكم الله ببركاته رائع
كلالي قام بنشر يونيو 29, 2009 قام بنشر يونيو 29, 2009 السلام عليكم وبارك الله في الجميع واقتبس من الاخوة "شرح اكتر من ممتاز وهو المتوقع من استاذ فاضل مثلك جزاك الله كل خير اخى الكريم على هذا الشرح " و من الاخ خالد القدس "فتح الله عليك أخي أحمد على والديك ورزقك من حيث لا تحتسب شرح جميل ووافي لو تعطينا كل أسبوع حصة واحدة ذى دى بعد سنة بإذن الله نكون تلاميذك النجباء جزاك الله كل خيرا " وماشاء الله على تواضع من قال "يا ريت كل الاكواد نشرحها كده" اكرر جزا الله الجميع كل الخير اللهم بارك في امة حبيبه المصطفى وصلى الله على سيدنا محمد وعلى آاله وصحبه اجمعين
يوسف عطا قام بنشر يونيو 30, 2009 قام بنشر يونيو 30, 2009 الف الف الف شكر لصاحب الموضوع وصاحب الدار دخلنا دارك وأخذنا واجب الضيافة ربنا يجعله عامر دايماً دى أول مرة أفهم طريقة عمل الكود وإنتاجه ربنا يعطيك الصحة والعافية ويبارك فيك وفى كل ماليك
أبو عادل قام بنشر يونيو 30, 2009 قام بنشر يونيو 30, 2009 بارك الله فيك اخي احمد على الشرح الرائع الذي يوضح على الأقل المقصود بحيثيات الكود فتح الله عليك أخي أحمد على والديك ورزقك من حيث لا تحتسب
احمدزمان قام بنشر يونيو 30, 2009 الكاتب قام بنشر يونيو 30, 2009 السلام عليكم و رحمة الله وبركاته اخي Justice شكرا لك على مرورك الكريم جزاك الله كل خير اخي روشدي جزاك الله كل خير و اسأل الله ان يشملك ببركاته اخي DVB Software شكرا لك وبارك الله فيك اخي كلالي جزاك الله خيرا وبارك فيك اخي يوسف عطا جزاك الله خيرا و الف الف الف شكر لك اخي mfawaz بارك الله فيك وفتح الله عليك و جزاك خير الجزاء مع تقديري و تحياتي للجميع
ahmedghareb قام بنشر يونيو 30, 2009 قام بنشر يونيو 30, 2009 السلام عليكم استاذي الجليل احمد يعقوب احبك في الله بارك الله فيك علي هذا العمل المفيد ومستنين المذيد
احمدزمان قام بنشر يوليو 2, 2009 الكاتب قام بنشر يوليو 2, 2009 اخي احمد بارك الله فيك - و جزاك الله كل خير = = = = = = = = = = انا عملي في الأكواد قليل جدا لذلك لم اجد كود آخر لأقوم بشرحة ولكن ان وجد فسوف اقوم بذلك جزاكم الله كل خير جميعا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.