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

[الـعيدروس]

اشكرك على دعائك وكلماتك الطيبه

والحمد لله ان زبط معاك

تقبل تحياتي وشكري

[نورسعيد]

هل من الممكن الإحتفاظ بعد هذا الكود بتنسيق الخلايا من حبث البوردر ونوع الفونت وحجمه ونوسيط الرقم داخل الخلايا وكذلك لون الفونت ؟؟؟؟؟؟؟؟

تم تعديل يناير 2, 2012 بواسطه نورسعيد

[الـعيدروس]

هل تريد عمل فورمات للخلية التي بها الوقت

مع الكود ومع الحذف ينحذف الفورمات

هكذا مقصدك ؟؟

[نورسعيد]

لا أبدآ بل يحتفظ لى الكود بتنسيق الخلايا بعد مسحها

[الـعيدروس]

هكذا بيكون الكود

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

If Not Intersect(Target, Range("A2:A100")) Is Nothing Then

With Target

.Offset(0, 1).Value = Format(Now(), "hh:mm:ss")

'==================

' لعمل تلوين للخلية

.Offset(0, 1).Interior.Color = RGB(255, 263, 123)

'==================

' لعمل تسطير حول الخلية مع تلوين السطر بلون اسود

.Offset(0, 1).Borders.Color = 1

'==================

' حجم الخط

.Offset(0, 1).Font.Size = 16

'==================

' لون الخط

.Offset(0, 1).Font.Color = 3

'==================

' نوع الخط

.Offset(0, 1).Font.Name = "Traditional Arabic"

'==================

' لتوسيط الكلمة وسط الخلية

.Offset(0, 1).HorizontalAlignment = xlCenter

End With

If IsEmpty(Target.Value) Then Target.Offset(0, 1).ClearContents

End If

End Sub

امل ان اكون افدتك

[نورسعيد]

الأستاذ العزيز الفاضل / أبو نصار

طبعآ كل كتاباتك لى كلها إفادة وإفادة عبقرية لكن أرجو ألا أكون قد أزعجتك فبالتأكيد أنت مقدر للإجتهاد و الدئب

وأخيرآ لا يسعنى إلآ أن أدعوا لك وللأستاذ العزيز / عبد الله المجرب بدوام العطاء للمعرفة

"وتفضلوا بقبول فائق التقدير والإعزاز "