Mundarija
Ushbu maqolada men sizga Excelda VBA ning UsedRange xususiyatidan qanday foydalanishingiz mumkinligini ko'rsataman. Siz UsedRange xususiyatidan yopiq diapazon uchun, tarqoq diapazon uchun, faol bo'lmagan ishchi varaq uchun, shuningdek, faol bo'lmagan ish kitobi uchun foydalanishni o'rganasiz.
Amaliyot kitobini yuklab oling
Ushbu maqolani oʻqiyotganda mashq qilish uchun ushbu kitobni yuklab oling.
Excel VBA UsedRange.xlsm
UsedRange xususiyatiga kirish. Excelda VBA
VBA ning UsedRange xususiyati Range obyektini qaytaradi. U ish varaqidagi barcha yacheykalardan iborat diapazonni qaytaradi, shu jumladan boshida bo'sh qator.
VBA kodida UsedRange xossasi. ishchi varaq nomi bilan birga ishlatilishi kerak. Shunday qilib, faol ishchi varaq uchun UsedRange xususiyatidan foydalanishning umumiy sintaksisi:
Dim Rng As Range
Set Rng = ActiveSheet.UsedRange
⧭ Eslatmalar:
- Bu yerda Rng UsedRange xususiyati tomonidan qaytarilgan Range nomidir. Siz oʻzingizga yoqqan narsadan foydalanishingiz mumkin.
- Faol varaqdan boshqa ishchi varaqda UsedRange xususiyatidan foydalanish uchun uning oʻrniga ishchi varaq nomidan foydalaning.
Masalan, uni Sheet1 deb nomlangan ishchi varaqda qo'llash uchun quyidagini kiriting:
Set Rng = Worksheets("Sheet1").UsedRange
4 ta usul Excelda VBA ning UsedRange xususiyatidan foydalanish
Mana, 4 eng keng tarqalgan. VBA da UsedRange xossasidan foydalanish usullari.
1. Yopiq diapazon uchun VBA UsedRange xususiyati
Avvalo, biz VBA UsedRange xususiyatidan yopiq diapazonli ishchi varaq uchun foydalanamiz.
Bu' butun diapazonni, shu jumladan boshida bo'sh qatorni qaytaraman.
Bu erda bizda Sheet1 deb nomlangan ish varag'i mavjud bo'lib, unda ismlar, qo'shilish sanalari va maoshlaridan iborat yopiq diapazon mavjud. kompaniyaning ba'zi xodimlari.
Endi ushbu ish varag'ida UsedRange xususiyatidan foydalansangiz, u B2:C13 oralig'ini qaytaradi. (Boshidagi boʻsh qatorni oʻz ichiga olgan holda).
Agar Varaq1 faol boʻlsa, siz foydalanishingiz mumkin:
Dim Rng As Range
Set Rng = ActiveSheet.UsedRange
Yoki foydalanishingiz mumkin:
Dim Rng As Range
Set Rng = Worksheets("Sheet1").UsedRange
⧭ Chiqish :
Biz kod ichida Range ning Select xususiyatidan foydalanganmiz. Shunday qilib, agar biz kodni ishga tushirsak, u Varaq1 ning B2:D13 diapazonini tanlaydi.
Batafsil o'qing: Excelda VBA diapazoni ob'ektidan qanday foydalanish (5 xususiyat)
2. Tarqalgan diapazon uchun VBA UsedRange xossasi
Agar sizda biron bir ishchi varaqda tarqoq diapazon mavjud bo'lsa, UsedRange xususiyati oralig'ini, shu jumladan, orasidagi bo'sh kataklarni qaytaradi.
Endi, Varaq1 da bizda umumiy ish haqi, eng yuqori ish haqi va eng past ish haqi turli joylarda, yacheykadan B3 gacha tarqalgan. G3 , shunday:
Endi UsedRange xususiyatidan foydalanish uchun ikki qator kodlardan birini ishlating.
Dim Rng As Range
Set Rng = ActiveSheet.UsedRange
Yoki
Dim Rng As Range
Set Rng = Worksheets("Sheet1").UsedRange
⧭ Chiqish:
U Sheet1 ning B2:G3 diapazonidagi barcha hujayralarni, shu jumladan boʻsh kataklarni qaytaradi (jumladan boshida bo'sh qator). Biz Range ning Select xususiyatidan foydalanganimiz uchun u B2:G3 diapazonini tanlaydi.
Batafsil o'qing: Excelda VBA-dan foydalanish diapazonining oxiri (Misollar bilan)
Shunga o'xshash o'qishlar
- Excel VBA diapazonini boshqa varaqga nusxalash (8 eng oson yo'l)
- Excel VBA (Ultimate) yordamida har bir hujayra uchun diapazon bo'ylab aylanish Qo'llanma)
- VBA-da Excel Subscript diapazondan tashqarida xato (5 ta yechim bilan)
3. Faol bo'lmagan ishchi varaq uchun VBA UsedRange xossasi
Agar biz UsedRange xususiyatini faol bo'lmagan ish varag'ida ishlatmoqchi bo'lsak, ish varaqining nomini boshida eslatib o'tishingiz kerak.
Masalan, bu yerda mening faol ish varaqim Sheet1 .
Sheet2 da UsedRange xususiyatidan foydalanish uchun biz foydalanishimiz kerak. :
Dim Rng As Range
Set Rng = Worksheets("Sheet2").UsedRange
Bu' Sheet2 deb nomlangan ishchi varaqdagi barcha foydalanilgan kataklarni tanlang.
Batafsil o'qing: VBA diapazonini o'rnatish uchun Excel (7 ta misol)
4.Faol bo'lmagan ish kitobi uchun VBA UsedRange xususiyati
Siz hatto UsedRange xususiyatidan faol bo'lmagan ish kitobi uchun ham foydalanishingiz mumkin. Oldinga ish kitobining nomini qo'yish kifoya.
Masalan, bu erda mening faol ish kitobim Ish kitobi1 . UsedRange xususiyatini Workbook2 ning Sheet1 ustida ishlatish uchun biz quyidagilardan foydalanishimiz kerak:
Dim Rng As Range
Set Rng = Workbooks("Workbook2.xlsm").Worksheets("Sheet1").UsedRange
U ish varaqining ishlatilgan diapazonini tanlaydi Vaq1 va Ishchi kitobi2 .
Batafsil o'qing: Exceldagi diapazondagi har bir katak uchun VBA (3 usul)
Eslash kerak bo'lgan narsalar
VBA ning UsedRange xususiyati Range obyektini qaytaradi. Ushbu maqolada biz vizualizatsiya uchun Range obyekti ning Select xususiyatidan foydalandik. Lekin aniqki, siz o'zingizning qulayligingizga ko'ra a diapazon ning boshqa har qanday xususiyatidan foydalanishingiz mumkin.
Xulosa
Ushbu usullardan foydalanib, siz Excelda UsedRange xususiyati. Savollaringiz bormi? Bizdan bemalol so'rang.
