شرح لبعض اوامر الماكرو 2

[احمد حمور-ابوعبدالله]

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

هذا ملف به تكملة العمل الذي قمت به قبل ايام وقد عرضته عليكم بالمنتدى

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

ولتكرار السابق

مهم جدا قبل فتح الملف ان يتم عمل فولدر في درايف e وتسميته backup

وان كنت لا تريد فبعد تصفح الملف سيطلب منك عند الخروخ ان كنت ستريد عمل نسخه احتياطه ام لا

اختر لا

اما ان انشأت الفولدر اختر نعم

2شرح الماكرو.rar

[احمدزمان]

السلام عليكم

مجهود جميل و كبير

جزاك الله كل خير

[ابو القبطان]

جميل جدا يا احمد مثل السابق عرض وشرح ممتاز

اخوك

حسن علي

[احمد فضيله]

بارك الله فيك

[احمد حمور-ابوعبدالله]

الاخ احمد يعقوب

الاخ حسن علي

الاخ hancock

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

وصدقوني يا اخوان ما هذا الا رد بسيط جدا لما قدمه لنا هذا المنتدى الرائع من معلومات قيمه ومفيده

[galo]

جزاك الله خير

[خالد القدس]

السلام عليكم عمل متقن ورائع بارك الله فيك وزادك من فضله

[احمد حمور-ابوعبدالله]

الاخ خالد القدس

والاخ gola

بارك الله بكم جميعا

وشكرا لكم على ردودكم القيمه

[يحيى حسين]

جزاك الله كل خير

عمل جميل

[احمد حمور-ابوعبدالله]

الاخ يحيى حسين

شكرا لك

جزاك الله خيرا

[نايف - م]

السلام عليكم

شكرا أخي الكريم على هذه الأكواد الرائعة

أنها مطلوبة بشكل كبير ,

وجدت صعوبة في جعل كود التاريخ يتغير مع اليوم

الماكرو 18,يبقى ثابتا عند تاريخ 25/12/2009 ,لماذا لا يتم تحديثه كل يوم بيومه

الكود هو هذا

اسم الماكرو

UserForm3.caption = "ENTER THE DATE" عنوان الفورم

MsgBox "ENTER DATE" صندوق رسائل يبلغك بضرورة ادخال التاريخ

UserForm3.Show استدعاء الفورم

End Sub

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

Private Sub Calendar1_Click()

ActiveCell = Calendar1.Value طلبنا هنا ان تكون قيمة الخليه المحدده هي نفسها قيمة التاريخ المختار

ActiveCell.NumberFormat = "DD/MM/YYYY" وهذا خاص بفورمات التاريخ

UserForm3.Hide وهذا خاص باخفاء الفورم بعد تحديد التاريخ

End Sub

اما عن اضافة الرزنامه على الفورم

TOOLBOX

ADDITIONAL CONTROLS

CALENDAR CONTROL

OK

وبعدها قم بسحب ايقونة الرزنامه التي ظهرت معك في قائمة الادوات على الفورم

[احمد حمور-ابوعبدالله]

الاخ nyef

ضع الكود التالي في userform3

Private Sub UserForm_Activate()

Me.Calendar1.Value = Now()

End Sub

حياك الله

[salahadel]

جزاكم الله خيرا

وادام الله عليكم نعمة العلم وجعلكم منارا لنا

[خالد الشاعر]

استاذ احمد

تسلم ايدك مجهود كبير

جزاك الله خيراً

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

[احمد حمور-ابوعبدالله]

الاخوه صلاح و khhanna

بارك الله فيكما وجزاكم الله خيرا

[ابو العلاء]

حبيت احكيلك اخي ابو عبدالله كل عام وانت بخير وجميع اخواني بالمنتدى

[naderwatfa]

تسلم إيدك على العمل المتميز و المفيد حقاً

وكل سنة وانت بخير

[obad65]

عمل رائع

جزاك الله خيرا

[احمد حمور-ابوعبدالله]

اخي العزيز والحبيب onejan1977

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

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

=========================================================

اخي العزيز نادر

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

===========================================================

اخي obad65

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

[saad abed]

اخى ابوعبدالله

جزاك الله خيرا على هذا المجهود الرائع صرنا ننتظر شروحاتك وابداعاتك

شكرا لك

[احمد حمور-ابوعبدالله]

حياك الله اخي سعد

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

[d.dm65]

راااااااااااااااااااااااااااااااااااااااااااائع والف شكر

[احمد حمور-ابوعبدالله]

اخي الكريم

شكرا لك كثيرا على الرد

[MAHMOUD ALI YOUSSEF]

جزاكم الله كل خير وجعله في ميزان حسناتكم :fff: :clapping: :fff:

[ريان أحمد]

مجهود رائع من عضو أروع

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