لا أريدة التاريخ يتغير مع الجهاز

[أبوحازم]

عفوا. شهرا مبارك:  معادلة أريد بها مجرد الكتابة في خلية يضهر التاريخ في خلية أخرى تاريخ اليوم لكن لا أريد أن يتغير التاريخ يعني يضل ثابت حتى لو تغير التاريخ الجهاز والملف مرفق

ييي.rar

[حمادة عمر]

السلام عليكم

الاخ الكريم / أبوحازم

بارك الله فيك

يتم ذلك باستخدام الاكواد ومثلا باستخدام الكود التالي

قم بتجربة ذلك قم بالادخال في اي من خلايا العمود A سيظهر التاريخ تلقائيا

في العمود B ولا يتغيير بتغيير التناريخ في الجهاز 

جرب تغيير تاريخ الجهاز وشاهد النتيجة

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
     If Not Intersect(Target, Range("a1:a10000")) Is Nothing Then
      VBA.Calendar = vbCalGreg
      If IsEmpty(Target) Then
         Target(1, 2).ClearContents
    Else
         With Target(1, 2)
               .Value = Date
               .EntireColumn.AutoFit
           End With
       End If
End If
End Sub

ارجو ان يفي بطلبك

جزاك الله خيرا

 

 

 

++ييي.rar

[حمادة عمر]

رمضـــان كـــريـــم

[أبوحازم]

شكرا جزيلا جدا . أولا: يريت يكون التاريخ في الخلايا   ,a   . ويكون الكتابة في الخلايا b

 

وثانيا أريد ان يكون هذا الكود في جميع الأوراق لأنني سأستخدمها جميعها يمكن 100ورقة

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

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

 

أخي الكريم حازم، وأستسمح أخي الكريم حمادة للتعديل على كوده الجميل بما يوافق طلباتك... تم وضع الكود في حدث  ThisWorkbook حتى يعمل مع كل الأوراق (الشيتات)... أرجو أن تستوفي هذه التعديلات حق الطلب...

 

أخوك بن علية

 

الملف المرفق : ++ييي.rar

[أبوحازم]

شكرررررررررررررررررررررررررا جدا لحمادة عمر وشكرررررررررررررررررررررجدا أخوي بن علية

                                           وشكررررررررررررررا للمنتدى

[حمادة عمر]

رااائع اخي الحبيب / بن علية

ومثلك لا يستأذن بل يأمر دائما

دائما اعمالك في ابداع تام

رمضان كريم

 

 

رمضـــان كـــريـــم