VBA տողի ջնջումը ստանդարտ և սովորաբար օգտագործվող ընթացակարգ է մշակողների կողմից: Այնուամենայնիվ, ավելի քիչ փորձառու օգտվողների համար այս գործողությունը կարող է որոշակի դժվարություններ առաջացնել:
Հրահանգներ
Քայլ 1
Համոզվեք, որ հասկացել եք ջնջման տողի հրամանի շարահյուսությունը `օգտագործելով Deleteնջել հրամանը: Այսպիսով, ակտիվ բջիջ պարունակող շարքի համար հրամանը կարծես ActiveCell. EntireRow. Delete լինի, և մի շարք տողեր ջնջելու անհրաժեշտությունը այն կվերածի տողերի («first_line_number: last_line_number»): Deleteնջել (Excel- ի համար):
Քայլ 2
VBA- ում ընտրված տողի հրամանը ջնջելու համար օգտագործեք նմանատիպ շարահյուսություն, բայց առաջադեմ ընտրանքներով: Դա անելու համար նախ և առաջ սահմանեք անհրաժեշտ գործողությունը. Մասնավոր ենթածրագիր ջնջել գիծը_Սեղմել (): Նշեք պահանջվող դիմումը Dim ea As Excel. Դիմում և ընտրեք պահանջվող աշխատանքային գրքույկ Dim ewb As Excel: Աշխատանքային գիրք: Դրանից հետո նշեք Dim ews As Excel- ի: Աշխատանքային թերթի խմբագրման ենթակա փաստաթղթի էջը:
Քայլ 3
Անցեք մեկ տողից և մուտքագրեք Սահմանել XLAp = CreateObject (դաս. = "Excel. Application"): Սահմանեք ճշգրիտ տեղադրումը հետևյալ տողում. Սահմանեք XLWb = XLAp. Workbooks: Բացեք («drive_name: 1.xls») Օգտագործեք հետևյալ արժեքը. Սահմանեք XLWs = XLWb. ActiveSheet:
Քայլ 4
Բաց թողեք մեկ այլ տող և մուտքագրեք ընտրված աշխատանքի արժեքը. XLW. Տողեր (1): Deleteնջել: Փրկեք խմբագրված փաստաթուղթը `XLWb. Save: Դուրս եկեք բաց աղբյուրի ծրագրից ՝ XLAp. Quit:
Քայլ 5
Անցեք հաջորդ տողից և փոփոխականները փոխարինեք հիշողության օբյեկտներով. Սահմանեք XLWs = Ոչինչ: Կրկնեք նույն հրամանը յուրաքանչյուր բաց փոփոխականի համար. Սահմանեք XLWb = Ոչինչ և վերջապես վերջինը `Սահմանեք XLAp = Ոչինչ: Ավարտեք հրամանը ստանդարտ End Sub- ով:
Քայլ 6
Փաստաթղթում ավելորդ տողերը ջնջելու համար օգտագործեք մակրոներ ՝ ավելի բարդ գործողություններ կատարելու համար: Դա անելու համար ստեղծեք նոր Excel աշխատանքային գրքույկ և մուտքագրեք պահանջվող արժեքները: Openրագրի պատուհանի վերին գործիքագոտու «Serviceառայություն» ընտրացանկը բացեք և ընտրեք «Մակրո» կետը: Ընտրեք «Visual Basic Editor» ենթակետը և ընդլայնել «Տեղադրել» ցանկը: Ընտրեք «Մոդուլ» կետը և տեղադրեք ստեղծված փաստաթուղթը: Վերադարձեք «Գործիքներ» ընտրացանկին և կրկին անցեք «Մակրո» կետին: Օգտագործեք «Մակրոներ» ենթակետը և նշեք նորաստեղծը: Գործարկել մակրոը ՝ կտտացնելով «Գործարկել» կոճակին:
