Vba Qatorini Qanday Olib Tashlash Mumkin

Mundarija:

Vba Qatorini Qanday Olib Tashlash Mumkin
Vba Qatorini Qanday Olib Tashlash Mumkin

Video: Vba Qatorini Qanday Olib Tashlash Mumkin

Video: Vba Qatorini Qanday Olib Tashlash Mumkin
Video: Программа на VBA - АвтоСписок 2024, May
Anonim

VBA satrini o'chirish - bu ishlab chiquvchilar tomonidan odatiy va keng qo'llaniladigan protsedura. Biroq, kam tajribali foydalanuvchilar uchun ushbu operatsiya ba'zi qiyinchiliklarni keltirib chiqarishi mumkin.

Vba qatorini qanday olib tashlash mumkin
Vba qatorini qanday olib tashlash mumkin

Ko'rsatmalar

1-qadam

O'chirish buyrug'i yordamida o'chirish satri buyrug'i sintaksisini tushunganingizga ishonch hosil qiling. Shunday qilib, faol katakchani o'z ichiga olgan qator uchun buyruq ActiveCell. EntireRow. Delete kabi ko'rinadi va bir qator qatorlarni o'chirish zarurati uni Qatorlarga o'zgartiradi ("birinchi_sayt_numori: oxirgi_sayt_qadimi"). O'chirish (Excel uchun).

2-qadam

VBA-da tanlangan qatorni o'chirish buyrug'i uchun o'xshash sintaksisdan foydalaning, ammo kengaytirilgan variantlar bilan. Buning uchun birinchi navbatda talab qilinadigan amalni aniqlang: Private Sub Delete line_Click (). Tasdiqlangan dasturni ko'rsating Dim ea As Excel. Application va kerakli ish kitobini tanlang Dim ewb As Excel. Workbook. Keyin Dim ews sahifasini tahrir qilinadigan Excel. Worksheet hujjati sifatida ko'rsating.

3-qadam

Bir qatorni o'tkazib yuboring Set XLAp = CreateObject (Class: = "Excel. Application"). Quyidagi satrda aniq joylashishni o'rnating: XLWb = XLAp. Workbooks-ni o'rnating. Ochish ("drive_name: 1.xls") Quyidagi qiymatdan foydalaning: XLWs = XLWb. ActiveSheet-ni o'rnating.

4-qadam

Boshqa qatorni o'tkazing va tanlangan ishning qiymatini kiriting: XLWs. Rows (1). O'chirish. Tahrirlangan hujjatni saqlash: XLWb. Save. Ochiq manbali dasturdan chiqing: XLAp. Quit.

5-qadam

Keyingi qatorni o'tkazing va o'zgaruvchilarni xotira moslamalari bilan almashtiring: XLWs o'rnating = Hech narsa yo'q. Har bir ochiq o'zgaruvchiga bir xil buyruqni takrorlang: XLWb o'rnating = Hech narsa va oxirgisi: XLAp o'rnating = Hech narsa yo'q. Buyruqni standart End Sub bilan tugating.

6-qadam

Hujjatdagi keraksiz satrlarni o'chirish uchun yanada murakkab operatsiyalarni bajarish uchun makroslardan foydalaning. Buning uchun yangi Excel ish daftarini yarating va kerakli qiymatlarni kiriting. Dastur oynasining yuqori asboblar panelidagi "Xizmat" menyusini oching va "Makro" bandini tanlang. "Visual Basic Editor" kichik bandini tanlang va "Qo'shish" menyusini kengaytiring. "Modul" bandini tanlang va yaratilgan hujjatni joylashtiring. "Asboblar" menyusiga qayting va yana "Ibratli" bandga o'ting. "Makrolar" kichik bandidan foydalaning va yangi yaratilganini ko'rsating. Ijro etish tugmachasini bosish orqali so'lni ishga tushiring.

Tavsiya: