كيف يتم إدراج اختصار لإدراج الوقت الحالي

[حامل المسك]

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

الأحبة الفضلاء ..

كرما أريد أن أعمل اختصار لإدراج الوقت الحالي فمثلا عندما أكتب 1 يدرج الوقت الحالي (الساعة الحالية) ..

وضعت اختصار لـ =now() لكن المشلكة أصبح الوقت يتحدث عند أي تغيير في الصفحة والمطلوب أن الوقت إذا أدخل لا يتغير ..

وفقكم الله لكل خير ..

[ياسر خليل أبو البراء]

أخي الكريم حامل المسك

قم بإرفاق ملفك ليعمل عليه الأخوة الكرام بالمنتدى

تقبل تحياتي

[سليم حاصبيا]

جرب هذا الملف

 

 

تاريخ تلقائي SALIM.rar

[حامل المسك]

ممتاز أخي الكريم لكن نحتاج شيئا من التعديل بعد إذنك أسعدك الله ..

هل يمكن أن يكون الاستبدال مكان رقم واحد نفرض أن الخلية A1 كتبت فيها رقم 1 عندما أضغط انتر يستبدلها بالساعة الحالية .. بدلا من أن تكون في خلية أخرى ..

مع العلم أن هذا ينطبق على الخلية B1 , c1  ... إلخ بحيث كل خلية في الورقة هذه أكتب في رقم 1 يعوض عنها بالساعة الحالية ..

وهل يمكن استبدال رقم 1 في الكود بحرف مثلا .. مثلا إذا كتبت حرف ى يستبدلها بالساعة الحالية ..

مع جزيل الشكر وعظيم الامتنان ..

[ياسر خليل أبو البراء]

أخي الكريم حامل المسك

جرب الكود التالي ويمكن استبدال الحرف الموجود بأي حرف (بدلاً من حرف الفاء الموجود في الكود)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Value = "ف" Then
        Application.EnableEvents = False
            With Target
                Target.Value = Time
                Target.NumberFormat = "hh:mm:ss"
                Columns(Target.Column).EntireColumn.AutoFit
            End With
        Application.EnableEvents = True
    End If
End Sub

تقبل تحياتي

 

[حامل المسك]

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

إذا أردت أن أنقل هذا الملف إلى الآيباد والآيباد لا يقبل الكود .. 

فهل هناك طريقة لذلك ..

[ياسر خليل أبو البراء]

أخي الكريم

على حسب علمي أن هذه الأجهزة لا تدعم الأكواد والتعامل مع VBA ...

هذا والله أعلم

[حامل المسك]

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

[حامل المسك]

استفسار ..

عندما نكتب =

=now()

يظهر الوقت والتاريخ الحالي ..

هل هناك كود لإظهار الساعة الحالية .. دون أن يتغير مع التحديث وهذا يظهر عندما نضغط على أمر CTRL+ENTER+;

فما هو الأمر الذي نكتبه في الخلية فينفذ كما تنفذه هذه الأوامر عند الضغط عليها ..

[سليم حاصبيا]

 CTRL+ENTER+; يوم بادرا ج الوقت بهذا الشكل

ActiveCell.FormulaR1C1 = "13:04"

لذ يجب ان تدرج الوقت بنفسك بهذا الشكل (دون الاقواس)

 

[حامل المسك]

وفقك الله أفهم من ذلك أنه لا يوجد أمر كما في 

now()

بل لابد من كتابة الوقت يدويا ...

[أبو قاسم]

13 ساعات مضت, ياسر خليل أبو البراء said:

أخي الكريم حامل المسك

جرب الكود التالي ويمكن استبدال الحرف الموجود بأي حرف (بدلاً من حرف الفاء الموجود في الكود)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Value = "ف" Then
        Application.EnableEvents = False
            With Target
                Target.Value = Time
                Target.NumberFormat = "hh:mm:ss"
                Columns(Target.Column).EntireColumn.AutoFit
            End With
        Application.EnableEvents = True
    End If
End Sub

تقبل تحياتي

 

لو سمحت وجزاك الله خير محتاج هذة الطريقة تطبق على نطاق محدد وهو A2:A5000

[ياسر خليل أبو البراء]

تفضل أخي الكريم

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 And Target.Row > 1 And Target.Row < 5001 And Target.Value = "ف" Then
        Application.EnableEvents = False
            With Target
                Target.Value = Time
                Target.NumberFormat = "hh:mm:ss"
                Columns(Target.Column).EntireColumn.AutoFit
            End With
        Application.EnableEvents = True
    End If
End Sub

 

[أبو قاسم]

جزاك الله خير ربنا يحفظك

[المسلم العربي]

Private Sub UserForm_Activate()
Do
DoEvents
Label1 = Format(Now, "dd . mmmm . yyyy     hh : mm : ss")
Loop
End Sub

الكود التالي لو كنت تريد وضعه في Label1
تفضل سيدي و أنا تعلمته من هذا المنتدى المحترم و اغتنم الفرصة لأشكر اساتذة المنتدى المحترم و الأقوى 

تم تعديل فبراير 1, 2016 بواسطه المسلم العربي