كود مفيد جدا للاستاذ ياسر

[علي فاهم]

5 ساعات مضت, علي فاهم said:

lr = IIf(LastRowColumn(sh, "R") = 9, 9, LastRowColumn(sh, "R")) lc = LastRowColumn(sh, "C")

جزيت خيرا

نقول اخر صف .. نقول اخر عمود

مامعنى IIf ليه 2 اي

والرو جنب الكولوم

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

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

تستخدم IIF لاختبار شرط زي IF لكن مختصرة في شرط واحد .. لو تحقق يعمل كذا ولو لم يتحقق يعمل كذا ..

بالنسبة للدالة المعرفة تقوم بمعرفة رقم آخر صف أو رقم آخر عمود .. حيث قمت بدمج الدالتين المعرفتين في دالة معرفة واحدة .. فإذا أردت معرفة رقم الصف تكتب في البارامتر الثاني حرف الـ R ، وإذا أردت معرفة رقم آخر عمود تكتب الحرف C
المهم في السطر الكود بيشوف رقم آخر صف فلو كان رقم آخر صف يساوي 9 .. إذاً المتغير المسمى lr هيساوي 9

أما إذا كان لا يساوي 9 يتحقق الجزء الثاني من الشرط حيث تقوم الدالة المعرفة باحتساب رقم آخر صف

والمتغير sh يشير لورقة العمل المطلوب استخراج رقم آخر صف منها ، وهذا المتغير بدوره متغير لأنه يعمل على مصفوفة من أوراق العمل

أرجو أن تكون الصورة قد اتضحت الآن

[علي فاهم]

في ١٦‏/٨‏/٢٠١٧ at 16:12, ياسر خليل أبو البراء said:

sh.Range("A" & lr).Resize(1, lc).AutoFill Destination:=sh.Range("A" & lr).Resize(c + 1, lc)

هنا بينسخ صح لكني مش شايف بدايه الخليه اللي هاينسخ فيها

او منها

 

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

البداية للنسخ هو آخر صف حيث يتم عمل تعبئة تلقائية لآخر صف ... ولمدى عدد الصفوف المطلوبة طبقاُ للمتغير c الذي يشير للخلية Q1

[قصي]

ربنا يسعد ايامك استاذ ياسر

[ابن بنها]

مشكور استاذ ياسر