تثبيت حرفين انجليزي + تاريخ اليوم بدون فواصل في عمود معين

[أبو قاسم]

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

تثبيت حرفين انجليزي + تاريخ اليوم بدون فواصل في عمود معين  فقط اكمل علية اي كلام يظهر المثبت قبل كتابتي  طبعا اللي انا بكتبة بيكون ارقم 

Book1.rar

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

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

جرب المرفق لعلك تجد فيه المطلوب...

بن علية

 

Book1.rar

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

جرب هذا الماكرو (يوضع في حدث الصفحة  Sheet1)

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
 If Not Intersect(Target, Columns(5)) Is Nothing _
 And Target.Count = 1 And Target.Row > 8 Then
    my_hour = Evaluate("=hour(now())")
    m = Target.Value
    Select Case my_hour
       Case Is < 12
           Myval = "AM" & Format(Date, "yyyymmdd")
           Case Else
           Myval = "PM" & Format(Date, "yyyymmdd")
       End Select
     Target.Value = Myval & "" & m
 End If
Application.EnableEvents = True
End Sub

 

تم تعديل أبريل 21, 2016 بواسطه سليم حاصبيا

[أبو قاسم]

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