VBA мөрийг устгах нь хөгжүүлэгчид стандарт бөгөөд түгээмэл хэрэглэгддэг журам юм. Гэсэн хэдий ч туршлага багатай хэрэглэгчдийн хувьд энэ ажиллагаа нь зарим хүндрэлийг үүсгэж болзошгүй юм.
Зааварчилгаа
1-р алхам
Устгах командын тусламжтайгаар устгах мөрийн командын синтаксийг ойлгосон эсэхээ шалгаарай. Тэгэхээр идэвхтэй нүдийг агуулсан мөрний хувьд тушаал нь ActiveCell. EntireRow. Delete шиг харагдах бөгөөд хэд хэдэн мөрийг устгах шаардлага нь үүнийг Мөр болгон өөрчлөх болно ("эхний_ мөрийн дугаар: сүүлчийн_ мөрийн дугаар"). Устгах (Excel-ийн хувьд).
Алхам 2
VBA дээр сонгосон мөрийн командыг устгахын тулд ижил төстэй синтаксийг ашиглана уу, гэхдээ нэмэлт тохируулгуудтай. Үүнийг хийхийн тулд юуны өмнө шаардлагатай үйлдлийг тодорхойлно уу: Private Sub Delete line_Click (). Шаардлагатай програмыг зааж өг e Dim ea As Excel. Application, Шаардлагатай ажлын ном Dim ewb As Excel. Workbook. Дараа нь Dim ews-ийн хуудсыг Excel гэж оруулна уу. Ажлын хуудсыг засах болно.
Алхам 3
Нэг мөрийг алгасаад Set XLAp = CreateObject (Class: = "Excel. Application") оруулна уу. Дараах мөрөнд байршлыг яг тохируулна уу: XLWb = XLAp. Workbooks-ийг тохируулна уу. Нээх ("drive_name: 1.xls") Дараах утгыг ашиглана уу: XLWs = XLWb. ActiveSheet-ийг тохируулна уу.
Алхам 4
Өөр мөрийг алгасаад сонгосон ажлынхаа утгыг оруулна уу: XLWs. Rows (1). Устгах. Засварласан баримтыг хадгалах: XLWb. Save. Нээлттэй эх програмаас гарах: XLAp. Quit.
Алхам 5
Дараагийн мөрийг алгасаад хувьсагчуудыг санах ойн объектуудаар орлуул: XLWs = Юу ч тохируулахгүй. Нээлттэй хувьсагч бүрт ижил командыг давтана уу: XLWb = Nothing, эцэст нь хамгийн сүүлд: Set XLAp = Nothing. Стандарт End Sub-тэй командыг дуусгана уу.
Алхам 6
Баримт бичигт шаардлагагүй мөрүүдийг устгахын тулд илүү төвөгтэй үйлдлүүдийг гүйцэтгэхийн тулд макро ашиглана уу. Үүнийг хийхийн тулд Excel-ийн шинэ ажлын дэвтэр үүсгэж, шаардлагатай утгуудыг оруулна уу. Програмын цонхны хэрэгслийн дээд хэсгийн "Үйлчилгээ" цэсийг нээгээд "Макро" зүйлийг сонгоно уу. "Visual Basic Editor" дэд зүйлийг сонгоод "Insert" цэсийг өргөжүүлнэ үү. "Модуль" зүйлийг сонгоод үүсгэсэн баримтаа оруулна уу. "Tools" цэс рүү буцаж очоод "Macro" зүйл рүү орно уу. "Макро" дэд зүйлийг ашиглаад шинээр үүсгэсэн зүйлийг зааж өгнө үү. Run товчийг дарж макро ажиллуулна уу.
