تحديد نهاية المجال

[فلسطيني]

أتقدم بخالص التحية و التقدير لجميع أعضاء و مشرفي هذا المنتدى على عطائهم المتواصل

سؤالي هو عندي كود فيجول بيسيك VBA يتضمن على (range (B1:Bx فهل يمكن تحديد هذه x بحيث يتم وضع قيمتها في خلية معينة لنفرض أنها A1 بحيث تتغير نهاية المجال بتغير قيمة a1 ?????????

[محمد حجازي]

السلام عليكم ...

جرب الكود التالي :

Sub MySelect()
    Sheets("Sheet1").Range(Cells(1, 2), Cells(Sheets("Sheet1").Range("A1").Value, 2)).Select
End Sub

طبعاً يمكن تطويره ليغطي كافة الاحتمالات الممكنة لقيمة الخلية A1.