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

[هيمااا]

السلام عليكم

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

مع الشكر

[أبوعبد الله]

أخي العزيز / هيما

رجاء الاطلاع على المرفق .

تحياتي

DOUBLE CLICK TO GET NOW TIME.rar

[احمد فضيله]

الاستاذ و الاخ العزيز أبو عبد الله

بسم الله ما شاء الله

ربنا يزيدك و يزيد المسلمين اجمعين علما

[هشام شلبى]

السلام عليكم

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

اخى ابو عبدالله مبدع كعادتك

الاخ هيما

وهذا بطريقة اخرى اضغط دبل كليك فى اى خلية او فى اى عمود

ورقتى للمشاركات1.rar

تم تعديل مارس 13, 2010 بواسطه هشام شلبى

[هيمااا]

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

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

بس لو امكن ان احدد اعمده معينه بشرط يكون عدد الصفوف من رقم 5 الى 31

ورقم الاعمده A,H,I,J

(3).rar

تم تعديل مارس 13, 2010 بواسطه هيمااا

[خالد القدس]

السلام عليكم

أستاذ أبو عبدالله

أستاذ هشام

إنجاز أكثر من رائع

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

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

جزاكم الله خيرا وأعطاكم كل ما تتمنوه قبل أن تسألوه

[ابو اسامة العينبوسي]

السلام عليكم

بهذا الكود

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

If Target.Row < 5 Or Target.Row > 13 Then Exit Sub

If Target.Column = 1 Or Target.Column = 8 Or Target.Column = 9 Or Target.Column = 10 Then

Cancel = True

Target.Value = Time()

Selection.NumberFormat = "h:mm;@"

End If

End Sub

[يحيى حسين]

السلام عليكم

بهذا الكود

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

If Target.Row < 5 Or Target.Row > 13 Then Exit Sub

If Target.Column = 1 Or Target.Column = 8 Or Target.Column = 9 Or Target.Column = 10 Then

Cancel = True

Target.Value = Time()

Selection.NumberFormat = "h:mm;@"

End If

End Sub

السلام عليكم

منذ زمن بعيد لم نراك في المنتدى

لقد إشتقنا لك يا ابو اسامة

وفقك الله لمى يحب و يرضى

[خالد القدس]

السلام عليكم

نعم أستاذ يحيى

أشتقنا كثيرا لهذه الأنامل ذات اللمسات السحرية الرائعة

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

[أ / محمد صالح]

بعد جزيل الشكر لكل من ساهم في هذا الموضوع من الأساتذة

اسمحوا لي بإضافة بسيطة يعلمها الكثير منا

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

لإدراج التاريخ الحالي نضغط

CTRL+;

الضغط على زر كنترول + حرف الكاف باللغة العربية لإدراج الوقت الحالي نضغط

CTRL+SHIFT+;

الضغط على زر كنترول+زر الشيفت + حرف الكاف باللغة العربية

دمتم سالمين

[احمد فضيله]

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

الاخ ابو اسامة العينبوسي

عودا حميدا و بارك الله فيك على مجهودك

[dddd]

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

[رشاد احمد]

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