የ VBA መስመር መሰረዝ በገንቢዎች መደበኛ እና በተለምዶ የሚጠቀሙበት ሂደት ነው። ሆኖም ግን, አነስተኛ ልምድ ላላቸው ተጠቃሚዎች ይህ ክዋኔ አንዳንድ ችግሮች ያስከትላል ፡፡
መመሪያዎች
ደረጃ 1
የ Delete ትዕዛዙን በመጠቀም ለስረዛው መስመር ትዕዛዝ አገባብ መረዳቱን ያረጋግጡ። ስለዚህ ንቁውን ሕዋስ ለያዘው ረድፍ ትዕዛዙ እንደ ActiveCell. EntireRow ይመስላል ፣ ይሰረዝ እና ብዙ ረድፎችን መሰረዝ አስፈላጊነት ወደ ረድፎች ይቀየረዋል ("first_line_number: last_line_number"). Delete (for Excel).
ደረጃ 2
በ VBA ውስጥ ለተመረጠው የረድፍ ትዕዛዝ ተመሳሳይ አገባብ ይጠቀሙ ፣ ግን በተሻሻሉ አማራጮች። ይህንን ለማድረግ በመጀመሪያ የሚፈለገውን እርምጃ ይግለጹ የግል ንዑስ ሰርዝ መስመር_ክሊክ () የሚፈለገውን ትግበራ ይግለጹ ዲም ኢአ አስ ኤስ ኤክሌል ማመልከት እና አስፈላጊ የሆነውን የሥራ ደብተር Dim ewb As Excel. Workbook ን ይምረጡ ፡፡ ከዚያ አርትዖት ሊደረግበት የሚገባውን የዲም ኢውስስ ኤስ.ኤል.ኤል. የሥራ ሰነድ ሰነድ ይግለጹ ፡፡
ደረጃ 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 ን ያዘጋጁ = ምንም እና በመጨረሻም የመጨረሻውን ያዘጋጁ XLAp = ምንም የለም ትዕዛዙን በመደበኛ End Sub ን ያጠናቅቁ ፡፡
ደረጃ 6
በሰነድ ውስጥ አላስፈላጊ መስመሮችን ለመሰረዝ የበለጠ ውስብስብ ክዋኔዎችን ለማከናወን ማክሮዎችን ይጠቀሙ ፡፡ ይህንን ለማድረግ አዲስ የ Excel የስራ መጽሐፍ ይፍጠሩ እና አስፈላጊዎቹን እሴቶች ያስገቡ። የፕሮግራሙ መስኮቱ የላይኛው የመሳሪያ አሞሌ “አገልግሎት” ምናሌን ይክፈቱ እና “ማክሮ” የሚለውን ንጥል ይምረጡ ፡፡ የ “ቪዥዋል መሰረታዊ አርታዒ” ንዑስ ንጥል ይምረጡ እና “አስገባ” ምናሌን ያስፋፉ። "ሞዱል" የሚለውን ንጥል ይምረጡ እና የተፈጠረውን ሰነድ ያስገቡ። ወደ "መሳሪያዎች" ምናሌ ይመለሱ እና እንደገና ወደ "ማክሮ" ንጥል ይሂዱ ፡፡ የ “ማክሮስ” ንዑስ ንጥል ይጠቀሙ እና አዲስ የተፈጠረውን ይግለጹ ፡፡ የሩጫውን ቁልፍ ጠቅ በማድረግ ማክሮውን ያሂዱ።
