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

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

قام بنشر

السلام عليكم

المرفق يوضح كتابة تاريخ اليوم - الوقت الحالى فى خلية  بمجرد الكتابه فى اخرى

كتابة التاريخ والوقت فى خلية بمجرد الكتابة فى أخرى.rar

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

بارك الله فيك أخي مختار

ممكن ترفق الكود في الموضوع بهذا الشكل ليكون الموضوع متكامل ... مجرد تلميح :frown3:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
        If Not Intersect(Target, Range("A2:A10")) Is Nothing Then
            With Target(1, 2)
                .Value = Date
            End With
        End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
        If Not Intersect(Target, Range("A2:A10")) Is Nothing Then
            With Target(1, 2)
                .Value = Time
                .EntireColumn.AutoFit
            End With
        End If
End Sub
تم تعديل بواسطه YasserKhalil
قام بنشر

أشكرك أستاذ ياسر على تشجيعكم لى

والذى يدفعنى الى الأمام يوما بعد يوم

والفضل لله ثم الى أساتذتنا  -  أمثالك  - فى المنتدى

 

وأعدك بأننى سأقدم  مساهمات جديدة و جيدة ( من وجهة نظرى على الأقل ) فى الأيام القادمه بإذن الله تعالى

قام بنشر

أستاذ ياسر    حته كده مش واخد بالى منها

لما بنسخ كود من فيجوال بيزك والصقه فى مشاركة من المشاركات  أجد اتجاه الكود اختلف ( يصبح من اليمين للشمال )

حضرتك بتضع ازاى الكود فى مشاركاتك ويصبح بالكيفيه اللى ظاهره أمامى فى المشاركة 2

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information