ادراج التاريخ في الخلية من خلال ظهور شاشة تقويم

[salamn]

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

احبابي

هل يوجد طريقة لادراج التاريخ في الخلية من خلال ظهور شاشة التقويم

بحيث عند تحديد خلية في عمود ادراج التاريخ مثلاً يظهر لنا شاشة التقويم ومن ثم نختار التاريخ المطلوب ادراجه ويتم ادراجه في الخلية المطلوبة.

....

[أيسم إبراهيم]

السلام عليكم

الأخ الكريم

تفضل المرفق به ما طلبت إن شاء الله

لا تنسانا من صالح الدعاء

دمت بخير

أيسم إبراهيم

calender.rar

[جوده]

من كل قلبىراسلني اقولك بارك اللة فيك يااخ ايسم

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

تم تعديل فبراير 20, 2010 بواسطه goda509129

[الجزيرة]

ممتاز اخي ايسم

بارك الله فيك

[بن علية حاجي]

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

أستسمح أخي الكريم أيسم ابراهيم بتغيير في عمله الجميل وأقدم لكم هذه المحاولة...

أنظر الملف المرفق...

[بن علية حاجي]

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

معذرة أخطأت في إرفاق الملف... إليكم الملف المرفق الذي هو تغيير طفيف على عمل الأخ أيسم ابراهيم والذي نستسمحه مرة أخرى...

أخوكم بن علية

calender1.rar

[احمد فضيله]

الاستاذ أيسم إبراهيم

بارك الله فيك يا اخي

[احمد فضيله]

الاستاذ hben

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

[خالد القدس]

السلام عليكم

استاذ أيسم ما شاء الله فورم التاريخ فورم احترافي شديد قوى والغريب أكواده بسيطه جدا

هذا يؤكد على إنك خبير معتمد

فتح الله عليك وزادك علما وفضلا

أستاذ بن علية

إضافتك أيضا رائعة بجعل الفورم يظهر مباشرة عند تحديد أي خلية

أكرمك الله وزادك علما وفضلا

[الجزيرة]

أخي بن عليه

فكرتك جميلة والاجمل لو كانت محددة بعمود معين والذي يمثل التاريخ

بمعنى أن الفورم لا يفتح الا عند تحديد خليه ضمن عمود معين وليكن مثلا عمود C

[بن علية حاجي]

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

أخي بن عليه

فكرتك جميلة والاجمل لو كانت محددة بعمود معين والذي يمثل التاريخ

بمعنى أن الفورم لا يفتح الا عند تحديد خليه ضمن عمود معين وليكن مثلا عمود C

في الحقيقة كنت أفكر في الأمر قبل أن أضع التغييرات السابقة ولكن أجد مشكلة في أمر ()Click_ الذي يطبق بطريقة آلية على جميع الخلايا الموجودة في الورقة... ما استطعت أن أقوم به وضعته في الملف المرفق... وأنتظر دائما لمسات الإخوة الكرام في تغيير الكود...

في الملف المرفق جعلت الكود (بعد اختيار أي خلية من خلايا الورقة) بإظهار التقويم واختيار التاريخ ويضعه في الخلية A1 ثم يقوم الكود بوضعه في العمود C وفي السطر نفسه للخلية التي تم اختيارها... كما طلب العضو "الجزيرة"... وسأحاول فيه مجددا لعله يمكن القيام بجعل الفورم لا يظهر والكود لا يعمل إلا باختيار خلية من خلايا العمود C إن لم يقم أحد الإخوة بذلك...

ولا ننسى أن هذا هو عمل ومجهود الأخ أيسم ابراهيم الذي يشكر عليه... جزاه الله عنا ألف خير وبارك الله فيه...

وإليكم بالملف المرفق.

calender2.rar

[بن علية حاجي]

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

تم تغيير بعض أوامر الكود وقد نجح الكود (جزئيا) في التغلب على الإشكالية... عرض الفورم الخاص بالتقويم لا يظهر والكود لا يعمل إلا باختيار خلية من خلايا العمود وعند اختيار خلية واحدة من العمود C يُدرج التاريخ في هذه الخلية المختارة (سواء كانت فارغة أم غير فارغة)...

أخوكم بن علية

calender3.rar

تم تعديل فبراير 21, 2010 بواسطه hben

[احمد فضيله]

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

[J-o-C]

بارك الله فيكم جهد رائع جداً ... هل من الممكن إدراج التاريخ الهجري بنفس الطريقة؟

[أيسم إبراهيم]

السلام عليكم جميعا

جزاكم الله خيرا على المرور والردود الرائعة

الأستاذ : بن علية .

أبدعت و أحسنت الإضافة التي فافت الأصل في العمل

دمتم جميعا بخير

أيسم إبراهيم

[أيسم إبراهيم]

السلام عليكم

الأخ : J_o_C

أعتقد و الله أعلم أنه لا يوجد طريقة لإظهار فورم بالتنسيق الهجري للتاريخ

لكن ممكن تستخدم هذا الفورم و تقوم بعمل تعديل للجزئية التالية من الكود

	ActiveCell.NumberFormat = "dd/mm/yyyy"

لتكون بالشكل التالي:

	ActiveCell.NumberFormat = "B2dd/mmmm/yyyy"

أرجوا أن يفيدك الحل التالي.

دمت بخير

أيسم إبراهيم

تم تعديل فبراير 23, 2010 بواسطه أيسم إبراهيم

[Zoro888]

السلام عليكم يا شباب

أرجو أن يتم تعيل الملف الخاص بال calender3.rar بحيث لا يظهر شىء فى أى خانه إلا العمود رقم 3 الخاص بظهور التاريخ فقط

وهل هناك امكانيه لجعل الform الخاصه بالتاريخ لا تظهر الا عند تحقق شرط معين

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

هنالك طريقة بعد اذن الاخ ايسم

وهي بعدم الحاجة الى زر الامر

حيث يمكن ان تضغط دبل كليك على الخليه الخاصه بالتاريخ سيظهر لك الفورم

كما بالمرفق المرسل

calender.rar

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

اضافة بسيطه على كود الاخ بن عليه

وهو

Private Sub Calendar1_Click()

Range("A1") = Calendar1.Value

UserForm1.Hide

End Sub

حيث تسمح لنا باخفاء الفورم عند اختيار التاريخ

[Zoro888]

السلام عليكم يا شباب

اسف لتأخرى فى الرد على مساعدتكم لى وجزاكم الله خيرا

وجزاك الله خيرا اخى AHMADHAMOOR

ولكن لى طلبان بسيطان :-

1- وهو أنأأتمكن من تحديد عمود معين ليظهر به هذا الفورم فلا اريده ان يظهر بكل الشيت عندما أضغط دبل كليك فى أى خليه.

2- أريد شرح تفصيلى لهذه الحاله بالذات من اول طريقة عمل الفورم الخاص بالcalender وكذا الكود الخاص بهاواتمنى مساعدتى فى اقرب وقت

وشكرا على مساعتكم

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

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

الاخ zoro888

الموضوع ببساطه انه اي عمود انت تريده تستطيع فقط تغيير رقم العامود من داخل الكود

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Column = 3 Then

UserForm1.Show

End If

End Sub

هنا اخترنا الحدث دبل كليك من نفس الصفحه التي نريد ان يظهر في عمودها الثالث وهو c ، ببساطة اذا اردت العمود b فانك ستضع الرقم 2 بدل الرقم 3

او الرقم 1 بدل الرقم 3 اذا اردت التاريخ في العمود a

اماالمقصود بالكود اعلاه انه اذا تحقق الشرط بحيث يكون اختيار الخليه بالضغط عليها دبل كليك ضمن نطاق العمود c هنا اطلب من التقويم ان يظهر لي

لكي اضع به التاريخ الذي اريده

اما بخصوص الفورم الخاص بالتقويم

ستتبع الخطوات التاليه:

اولا - الدخول الى محرر الفجوال بيسك

ثانيا - اختيار ادراج فورم userform

ثالثا - من الادوات tools اختيار additional controls او اضافة عنصر تحكم

رابعا - من القائمه التي ستظهر معك اختيار calendar control ومن ثم موافق ، بعدها ستجد الامر موجود في toolbox مثلها مثل label او textbox وغيرها

خامسا - ستقوم بسحب امر calendar داخل الفورم وتعيد تنسيقه بالشكل الذي تريد

سادسا - دبل كليك من على فورم ستظهر لك نافذة البرمجه

سابعا - ستضع الكود التالي داخل حدث التقويم

Private Sub Calendar1_Click()

ActiveCell = Calendar1.Value

ActiveCell.NumberFormat = "DD/MM/YYYY"

UserForm1.Hide

End Sub

ويعني هذا الكود انه في الخليه النشطه تكون قيمتها هي نفس قيمة التقويم

والسطر الثاني بخصوص اختيار الفورمات التي سيظهر عليها التاريخ

والسطر الثالث يعني عند ادخال التاريخ من التقويم يقوم تلقائيا باخفاء التقويم

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

Private Sub UserForm_Activate()

Me.Calendar1.Value = Now()

End Sub

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

حياك الله

[Zoro888]

مشكوووور يا غالى على اهتمامك وردك وشرحك الوافر

ولكن ما هو التعديل المطلوب على الكودبحيث انه من الممكن ان اجعل اكثر من عمود يظهر به هذا الفورم

وشكرررررا

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

ما عليك سوى وضع الاضافة التالية على الكود

if target.column=4 or target.column=5 then

userform3.show

end if

والمقصود هنا باضافة العبارة or

حيث يمكن استخدام اكثر من عمود كما تشاء

[ابو هبة]

الأخ أيسم إبراهيم،وكل الاخوة في هذا المنتدى المثمر السلام عليكم ورحمة الله

نظرا لحاجتي الملحة لهذا لهذا التقويم الممتاز، استسمحك أخي لقد قمت بتعديل بسيط على كود ادراج التاريخ ليظهر لنا على الشكل الموجود في الخليتن G12 و G15 كما هو مبين في المرفق . لكن أخي الكريم اطلب منك تعديل أخر ليندرج التاريخ تلقائيا في الخلية المحددة على غرار الدالة ()aujourdhui= . وذلك طبعا باعتماد نفس الكود

وهل من الممكن تحديد خلية معينة حيث كلما حددنا التاريخ على اليوميةCalender يظهر لنا في نفس الخلية دائما؟

وهل من الممكن ادراج التاريخ باللغة العربية؟

شكر الله لك واحسن اليك

أبو هبة

Calender.rar

تم تعديل أبريل 14, 2010 بواسطه ابو هبة

[شروق وغروب]

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