اذهب الي المحتوي
أوفيسنا

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

قام بنشر

السلام عليكم

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

كتابة التاريخ والوقت فى خلية بمجرد الكتابة فى أخرى.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

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

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

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

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

سجل حساب جديد

تسجيل دخول

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

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

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

Important Information