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

سؤال فى 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

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

و دمتم بود

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

  • 2 weeks later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information