اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

استبدل الماكرو بهذا

Private Sub Worksheet_change(ByVal Target As Range)
If Target.Column = 3 And IsEmpty(Cells(Target.Row, 1)) _
                And Target.Row > 1 Then

    Application.EnableEvents = False
    Cells(Target.Row, 1) = Format(Date, "[$-10A0000]ddd dd mmmm yyyy;@")
End If
Range("A:A").EntireColumn.AutoFit
    Application.EnableEvents = True
End Sub

 

  • Like 1
قام بنشر (معدل)

شكرا بس اريد التاريخ نفس طريقه هذا 20/9/2016 فقط لا اسم ولا شهر 

شكرا جزيلا عند تغيير في لكود (Date, " yyyy/mm/dd") طلع تمام شكرا جزيلا بارك الله فيك

تم تعديل بواسطه أبوحازم

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

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

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
×
×
  • اضف...

Important Information