VBA लाइन को हटाना डेवलपर्स द्वारा एक मानक और आमतौर पर इस्तेमाल की जाने वाली प्रक्रिया है। हालांकि, कम अनुभवी उपयोगकर्ताओं के लिए, यह ऑपरेशन कुछ कठिनाइयों का कारण बन सकता है।
निर्देश
चरण 1
सुनिश्चित करें कि आप डिलीट कमांड का उपयोग करके डिलीट लाइन कमांड के सिंटैक्स को समझते हैं। तो सक्रिय सेल वाली पंक्ति के लिए, कमांड ActiveCell. EntireRow. Delete की तरह दिखेगा, और कई पंक्तियों को हटाने की आवश्यकता इसे पंक्तियों में बदल देगी ("first_line_number: last_line_number")। हटाएं (एक्सेल के लिए)।
चरण 2
VBA में चयनित पंक्ति कमांड को हटाने के लिए समान सिंटैक्स का उपयोग करें, लेकिन उन्नत विकल्पों के साथ। ऐसा करने के लिए, सबसे पहले आवश्यक क्रिया को परिभाषित करें: Private Sub Delete line_Click ()। आवश्यक एप्लिकेशन Dim ea को Excel के रूप में निर्दिष्ट करें। एप्लिकेशन और आवश्यक कार्यपुस्तिका का चयन करें Dim ewb As Excel. Workbook। फिर Dim ews As Excel. Worksheet दस्तावेज़ को संपादित करने के लिए पृष्ठ निर्दिष्ट करें।
चरण 3
एक लाइन छोड़ें और सेट करें XLAp = CreateObject (कक्षा: = "Excel. Application") दर्ज करें। निम्न पंक्ति पर सटीक प्लेसमेंट सेट करें: XLWb = XLAp. Workbooks सेट करें। खोलें ("drive_name: 1.xls") निम्न मान का उपयोग करें: XLWs = XLWb. ActiveSheet सेट करें।
चरण 4
दूसरी पंक्ति छोड़ें और चयनित कार्य का मान दर्ज करें: XLWs. Rows (1)। हटाएं. संपादित दस्तावेज़ सहेजें: XLWb.सहेजें. ओपन सोर्स एप्लिकेशन से बाहर निकलें: XLAp. Quit।
चरण 5
अगली पंक्ति को छोड़ें और चर को मेमोरी ऑब्जेक्ट से बदलें: XLWs = कुछ भी सेट करें। प्रत्येक खुले चर के लिए एक ही कमांड दोहराएं: XLWb = कुछ भी नहीं और अंत में अंतिम सेट करें: XLAp = कुछ भी सेट करें। मानक एंड सब के साथ कमांड समाप्त करें।
चरण 6
किसी दस्तावेज़ में अनावश्यक पंक्तियों को हटाने के लिए अधिक जटिल संचालन करने के लिए मैक्रोज़ का उपयोग करें। ऐसा करने के लिए, एक नई एक्सेल कार्यपुस्तिका बनाएं और आवश्यक मान दर्ज करें। प्रोग्राम विंडो के ऊपरी टूलबार का "सेवा" मेनू खोलें और "मैक्रो" आइटम का चयन करें। "विजुअल बेसिक एडिटर" उप-आइटम चुनें और "इन्सर्ट" मेनू का विस्तार करें। "मॉड्यूल" आइटम का चयन करें और बनाए गए दस्तावेज़ को सम्मिलित करें। "टूल्स" मेनू पर लौटें और फिर से "मैक्रो" आइटम पर जाएं। "मैक्रोज़" उप-आइटम का उपयोग करें और नए बनाए गए को निर्दिष्ट करें। रन बटन पर क्लिक करके मैक्रो चलाएँ।
