كود للوقت وتاريخ

[دلفين سردار]

بسم الله الرحمن الرحيم

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

كيف يمكن اضافة وقت وتاريخ حالي ومباشر الى ملف اكسل

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

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

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

في اي خلية هذا المعادلة

=TEXT(TODAY(),"d/m/yyy")&"   "&TEXT(NOW(),"hh:mm:ss")

 

[Ali Mohamed Ali]

بارك الله فيك أستاذ سليم

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

 

كود ثابت للوقت والتاريخ.xlsm

[دلفين سردار]

جزاكم الله الف خير اساتذتي الكرام بوؤكتم

استاذ Ali mohamed المحترم  لو امكن كيف اقدر ان اعمل عليه تعديل

حيث انا ارغب في نقل هذه الساعة وعرضها في مشروعي

علما حاولت نقلها ولم اتوفق فيه عملية النقل

ارجو من حضرتك توضيح طريقة النقل

 

في ٩‏/٤‏/٢٠١٨ at 18:17, ali mohamed ali said:

بارك الله فيك أستاذ سليم

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

 

كود ثابت للوقت والتاريخ.xlsm

 

[Ali Mohamed Ali]

ضع هذا الكود فى حدث الورقة فى ملفك

Private Sub Worksheet_Change(ByVal Target As Range)
n = Now
If Target.Column = 2 Then
If Target = "" Then
Cells(Target.Row, Target.Column + 1) = ""
Cells(Target.Row, Target.Column + 2) = ""
 Exit Sub
ElseIf Target <> "" Then
Cells(Target.Row, Target.Column + 1) = Date
Cells(Target.Row, Target.Column + 2) = Time
End If
End If
End Sub
 

[دلفين سردار]

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

هل اقوم بنسخ الساعة اي شكل الساعه واضعها في المشروع

 

 

[Ali Mohamed Ali]

هل مكان الساعة داخل خلية معينة

لو ممكن تقولى بالضبط فى أى خلية تريد ان تضع الساعة ؟

 

[دلفين سردار]

ارغب ان اضعه في داخل ملف مشروع الذي اعمل عليها

 

 

[Ali Mohamed Ali]

لو فى خلية واحدة ممكن تقولى رقم الخلية مثلا B10 ?
ولكم جزيل الشكر أو لو ممكن ترسل ملفك

[دلفين سردار]

  هذه الخلية C13

 

 

[Ali Mohamed Ali]

لو التوقيت الذى تريده فى خلية واحدة

يمكنك استعمال ووضع معادلة الأستاذ سليم فى الخلية C13

=TEXT(TODAY(),"d/m/yyy")&"   "&TEXT(NOW(),"hh:mm:ss")

ولكم جزيل الشكر

[Ali Mohamed Ali]

أو ضع هذا الكود فى موديول ليعمل الوقت فى الخلية C13 كما تريد

Sub Date_Time()
On Error Resume Next
1  DoEvents
N = Now
Range("c13") = Format(N, "[$-F400]h:mm:ss AM/PM")
T = T + 1
For r = 1 To 10000000: Next r
GoTo 1
End Sub