كيف طريقة وضع الكود في ورقة أكسل

[احمد 505]

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

 

أحبابي الاعزاء

 

أحد الاخوان في هذا المنتدى العزيز

ساعدني في سؤالي مشكوراً

 

ولكن كانت إجابته بوضع ( كود ) في ورقة أكسل

 

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

 

أنا استخدم اوفس عربي 2007

 

 

 

 

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 2 Or Target.Column = 3 Then
If CStr(Cells(Target.Row, 3)) = CStr(Cells(Target.Row, 15)) Then
Exit Sub
Else
Application.DisplayAlerts = False
Range(Cells(Target.Row, 2), Cells(Target.Row, 9)).Copy Cells(Target.Row, 4)
Range(Cells(Target.Row, 12), Cells(Target.Row, 15)).ClearContents
End If
End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Or Target.Column = 3 Then
Cells(Target.Row, 14).Value = Cells(Target.Row, 2).Value
Cells(Target.Row, 15).Value = Cells(Target.Row, 3).Value
End If
End Sub
 

تم تعديل مارس 7, 2014 بواسطه ahmd2505

[أبوعيد]

السلام عليكم

تفصل أخي العزير ما أردت

وضع الكود.rar

[أم عبد الله]

الأستاذ / ahmd2505

 

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

 

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

Book1111.rar

[أم عبد الله]

الأستاذ / أبو عيد

 

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

 

 

عذراً لم أرى مشاركة حضرتك إلا بعد رفع مشاركتي لأن النت ضعيف جداً عندي. جزاك الله خيراً.

[احمد 505]

الأخ أبوعيد

 

بارك الله فيك

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

ولكن لا أعلم كيف اتعامل مع المرفق

[احمد 505]

الأخت / أم عبدالله

 

وأستاذتي الصبورة

والله إني اتفائل عندما اجد لك رداً على اسئلتي

 

نعم بارك الله فيك

الكود من الاخ العزيز الاستاذ أبو حنين

 

ولكن لم أعرف كيف اتعامل مع الكود

 

أستاذتي

أعطيك لمحة سريعة

 

أنا لا بد من حفظ اخر 5 ( درجات ةتاريخها لكل شخص )

وبذلك استخدم 10 اعمده

وهذه الطريقة المعتادة والتقليدية

 

المطلوب

 

فقط استخدام عمودين   ( عمود الدرجة  +  عمود التاريخ )

- اكتب الدرجة والتاريخ الحديثة على القديمة في نفس العمودين

- والقديمة تحفظ لي بطريقة ما

- اذا اردت ان اعرف الدرجات السابقة استطيع ان احصل عليها من  مكان ما

 

هذا المختصر

 

واشكر لك ردك

ولكن للأمانه ما فهمت كيف اتعامل معة

[أم عبد الله]

الأستاذ / ahmd2505

 

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

 

كما شرحت لحضرتك من قبل إن كنت تستخدم اوفيس 2007 فأعلى  عند  فتح الملف اضغط على خيارات ومنها اختار تمكين هذا المحتوى ثم تعامل مع الملف عادي جداً غير الدرجة والتاريخ التي تريد تغييرها فقط أما إذا كنت تستخدم اوفيس 2003 فتتعامل مع الدرجة والتاريخ مباشرة.

[احمد 505]

الاستاذة / أم عبدالله

بارك الله فيك

 

الان اذا اردت اعدل

يكون التتعديل على اي عمود

هل أعدل في ( O + N )

 

أم أنا مخطي

 

هل المقصود أني الغي الاعمدة كلها

واحتفظ بالعمودين  ( O + N )

 

وانا فعلاً اريد فقط عمودين للادخال فقط ( درجة و تاريخها )

 

طيب

 

اذا عدلت الدرجة والتاريخ الجديدة تبقى واضحة امام العين ( هذا واضح )

 

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

 

ارجوا تفهميني هذه النقطة أستاذتي

وارجوا صبرك عليه كما عودتيني

 

بارك الله فيك

Book1111.rar

تم تعديل مارس 9, 2014 بواسطه ahmd2505

[احمد 505]

أساتذتي الكرام

 

فعلتم مجهوداً طيباً

وفعلاً تشكرون عليه

 

ولكن يبدوا ان لدي خلل

إما في جهازي اللاب تب

أو في طريقتي التي استخدم بها الورقة

 

فأنا أعتذر من الجميع

 

وأعترف لأستاذتي الفاضلة / أم عبدالله

أنني توقفت محتاراً من هذا المرفق

ولم أعرف كيف أتعامل معه

 

وأنا أعتبر الاعتراف شجاعة

 

أرجوا النظر في حالتي

 

أشكركم

[احمد 505]

الاستاذة

أم عبدالله

 

لا زلت انتظر إجابة

بالنسبة لطريقة الادخال لتحديث الدرجة و تاريخها

 

 

أرجوا الرد

[احمد 505]

لا يمكن أن استوعب

 

عدم الرد

 

في هذا المنتدى المتميز

[أم عبد الله]

الأستاذ / ahmd2505

 

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

 

عذراً أنا لم أرى مشاركة حضرتك إلا قريباً الملف جاهز للعمل وكود رائع جداً لأستاذنا الكبير العبقري / أبو حنين جزاه الله كل خير وجعله الله في ميزان حسناته. يتم تفعيل الكود وبعد ذلك يظهر في الصفحة الثانية عندما تضعظ على الدرجة المراد تغييرها في العمود B في الورقة الثانية  فتظهر مباشرة هذه الدرجة وتاريخها امام الاسم في العمود O , N ومرفق ملفين بهما تطبيق مختلف الول اختارت درجتين فقط  والآخر اخترت جميع الدرجات. ويمكن لحضرتك اخفاء الورقة الأولى حتى لا تظهر .أرجو ان اكون وضحت العمل مع الكود .

A1.rar

A2.rar

[احمد 505]

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

 

لقد انتظرت طويلاً

وانا انتظر الاجابة

 

وقد ايقنت بأنه لا اجابة

 

وفجئة اجد الاخت والاستاذة

أستاذتي / أم عبدالله

 

وكعادتها تبهرني بالاجابات الدقيقية

والتي تشرح الصدر والخاطر

وتأدي الغرض المرجوا

 

 

فشكراً كل الشكر لك أستاذتي الفاضلة      

تم تعديل مارس 24, 2014 بواسطه ahmd2505