سؤال فى VBA

[يحيى حسين]

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

كلمة حق يجب أن تقال في حق الأستاذ أبو تامر

فهو إنسان رائع بمعنى كلمة رائع واستاذ عظيم

نسأل الله أن يجيزيه خير الجزاء عنا

و أن يجعل أعماله صدقة جارية عنه في الدنيا و في الآخرة

و ما يزيد من روعة الموقف

حبه لنشر العلم و مساعدة كل من يرغب بالتعلم

و اعطائه وقت كبير لشرح اي موضوع او اي سؤال

و موضوعه من اهم المواضيع في المنتدى,و المنتدى في أشد الحاجة لمثل هذه المواضيع

نسال الله العلي القدير أن يوفق أبو تامر لإكمال موضوعه على أكمل وجه

و الله و لي التوفيق

*******************

طلبي هو شرح الكود التالي

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
    If Selection.Count > 1 Then Exit Sub
    Target.Offset(0, -1).Formula = "=Row()-1"
    If Target = "" Then Target.Offset(0, -1) = ""
End If
End Sub

و سؤال أيضاً عن دالة

Offset

و طريقة إستخدامها في الاكسيل و في VBA

و ما يتعلق بها من أمور أخرى

و دمتم بود

[omar elhosseini]

اضغط على العنوان التالى لترى شرح السؤال السابق

شرح الخاصية Offset

[يحيى حسين]

شرح جميل جدا و وافي

و اكثر من رائع

جعله الله في ميزان حسناتك