cod VBA

[fahd.nwelati@gmail.com]

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

الإخوة الكرام 

أحتاج كود VBA يظهر تاريخ اليوم تلقائياً (دون أن يتغير في اليوم التالي)

و ذلك عند تعبئة خلية مجاورة بأي رقم أكبر من الصفر

 

و جزاكم الله عني كل خير

فهد النويلاتي

دمشق - سوريا

كلية الاقتصاد

[خالد الرشيدى]

اخى الكريم

جرب الكود التالى فى حدث ورقة العمل

قم بوضع اى رقم اكبر من الصفر فى العمود  A  ستجد ان الخلية المجاورة فى  العمود B  بها تاريخ اليوم

Option Explicit
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 Target > 0 Then
         With Target(1, 2)
               .Value = Format(Date, "yyyy/mm/dd")
               .EntireColumn.AutoFit
           End With
         
       End If
End If
     
End Sub

الكود فى حدث ورقة العمل 

 Book1.rar

تم تعديل أغسطس 11, 2015 بواسطه خالد الرشيدى

[ياسر خليل أبو البراء]

أخي الكريم

أهلاً بك في المنتدى ونورت بين إخوانك

من فضلك ارفق الملف بعد ضغطه ليسهل الوصول لحل

قم بالإطلاع على موضوع التوجيهات في الموضوعات المثبتة بالمنتدى لتعرف كيفية التعامل مع المنتدى

[خالد الرشيدى]

اليك المرفق بعد عمل تعديل بسيط على الكود

بحيث يتم حذف  التاريخ المدرج حال انه تم ادخال رقم اكبر من 0  فى خلية ما ثم تغيير قيمة هذه الخلية الى 0

 Book1_2.rar

[ياسر خليل أبو البراء]

أخي الحبيب خالد الرشيدي

بارك الله فيك وجزاك الله كل خير ..إبداع متواصل بلا فواصل

إليك تعديل بسيط جداً ..بحيث تتعامل مع الأرقام فقط أكبر من الصفر .. أي تجنباً للنصوص والتواريخ المدخلة في العمود الأول

وكذلك عمل تنسيق لللتاريخ بحيث يتناسب مع يوم / شهر / سنة

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
        VBA.Calendar = vbCalGreg
        If Target > 0 And IsNumeric(Target) Then
            With Target(1, 2)
                .Value = Format(Date, "[$-1010000]yyyy/mm/dd;@")
                .EntireColumn.AutoFit
            End With
        Else
            Target(1, 2).ClearContents
        End If
    End If
End Sub

 

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

السلام عليكم

زيادة في اثراء الموضوع اليكم هذا الملف

تاريخ تلقائي.zip