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

معادلة MONTH بداخل كود


الجازع

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

الاخوة الافاضل
تحية طيبة.... واسعد الله صباحكم


 

المطلوب هو كود يقوم بأضافة معادلة =MONTH() في العمود I بشرط ان يكون التاريخ مدخل بالعمود B للعمود كامل


 

COUNTIFS.rar

تم تعديل بواسطه jazea
رابط هذا التعليق
شارك

السلام عليكم 

ضع هذا الكود في حدث الصفحة

(للاسف اقتباس الكود لا يعمل)

 

 

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [b2:B100]) Is Nothing Then
If IsDate(Target) Then Target.Offset(0, 7) = Month(Target)
End If
End Sub
رابط هذا التعليق
شارك

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

بعد اذن اساتذتنا الكرام جزاهم الله خيرا

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

اخي العزيز jazea  المحترم جرب ان تمسح التاريخ وابدا من جديد وان شاء الله يعمل معاك

مع احترامي وتقديري

COUNTIFS.rar  
رابط هذا التعليق
شارك

اشكركم من اعماق قلبي يا اساتذتي

هذا هو المطلوب

ولاكن هل لي بأن اثقل عليكم بدمج هذه الامرين بكود واحد فقط

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Row = 1 Then

Cells(Target.Row, 1) = 1

Else

Cells(Target.Row, 1) = Cells((Target.Row) - 1, 1) + 1

End If

End Sub

وهذا

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [b2:B100]) Is Nothing Then

If IsDate(Target) Then Target.Offset(0, 7) = Month(Target)

End If

End Sub

واعتذر على الاطالة

ولكم جزيل الكشر والتقدير

رابط هذا التعليق
شارك

السلام عليكم

أخي العزيز

جرب هذا

 

 

 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Then
    Cells(Target.Row, 1) = 1
ElseIf Not Intersect(Target, [B2:B100]) Is Nothing Then
    If IsDate(Target) Then Target.Offset(0, 7) = Month(Target)
Else
    Cells(Target.Row, 1) = Cells((Target.Row) - 1, 1) + 1
End If

End Sub
رابط هذا التعليق
شارك

السلام عليكم

أخي العزيز

 

جرب هذا مرة أخري

 

 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Then
    Cells(Target.Row, 1) = 1
Else
    Cells(Target.Row, 1) = Cells((Target.Row) - 1, 1) + 1
End If

If Not Intersect(Target, [B2:B100]) Is Nothing Then If IsDate(Target) Then Target.Offset(0, 7) = Month(Target)

End Sub

 

رابط هذا التعليق
شارك

السلام عليكم

تعديل طفيف آخر

 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Then
    Cells(Target.Row, 1) = 1
Else
    Cells(Target.Row, 1) = Cells((Target.Row) - 1, 1) + 1
End If

If Not Intersect(Target, [B2:B100]) Is Nothing Then
        If IsDate(Target) Then Target.Offset(0, 7) = Month(Target)
End If
End Sub

 

مرفق الملف وبه الكود ومعه فيديو يوضح أنه شغال

COUNTIFS_2.rar

رابط هذا التعليق
شارك

استاذي الفاضل

اعتقد اختلاف الاصدار المستخدم من قبلي وقبلكم حيث اني استخدم Microsoft Office2007 يظهر لي خطأ

ولاكن قمت بأضافة on error resume next لكي  تعمل

و الحمد لله تعمل الان بشكل جيد

 

وشكراً

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information