किसी कार्यपुस्तिका में सभी कार्यपत्रकों के माध्यम से लूप के लिए मैक्रो

लागू: Visual Basic 2010 Express

सारांश


इस आलेख में उन सभी कार्यपत्रकों में सक्रिय कार्यपुस्तिका के माध्यम से लूप अनुप्रयोग मैक्रो (सब कार्यविधि) के लिए Microsoft Visual Basic है। इस मैक्रो भी प्रत्येक कार्यपत्रक का नाम प्रदर्शित करता है।

अधिक जानकारी


Microsoft प्रोग्रामिंग उदाहरण केवल चित्रण के लिए वारंटी के बिना, या तो व्यक्त या नहीं देता है। यह शामिल है, लेकिन करने के लिए, बिक्री या किसी विशेष उद्देश्य के लिए उपयुक्तता की अव्यक्त वॉरंटी तक सीमित नहीं है। यह आलेख मानता है कि आप वर्णन किया जा रहा है प्रोग्रामिंग भाषा के साथ और बनाने के लिए और प्रक्रियाएँ डीबग करने के लिए उपयोग किए जाने वाले उपकरणों के साथ परिचित हैं। Microsoft समर्थन इंजीनियर एक विशेष कार्यविधि की कार्यप्रणाली को समझाने में सहायता कर सकते हैं, लेकिन वे इन उदाहरणों कार्यक्षमता जोड़ देने या आपकी विशिष्ट आवश्यकताओं को पूरा करने के लिए कार्यविधियाँ कार्यप्रणालियों के लिए संशोधित नहीं करेंगे। नमूना मैक्रो का प्रयास करने के लिए, निम्न चरणों का पालन करें:
  1. एक नए माड्यूल पत्रक में निम्न मैक्रो कोड टाइप करें।
          Sub WorksheetLoop()         Dim WS_Count As Integer         Dim I As Integer         ' Set WS_Count equal to the number of worksheets in the active         ' workbook.         WS_Count = ActiveWorkbook.Worksheets.Count         ' Begin the loop.         For I = 1 To WS_Count            ' Insert your code here.            ' The following line shows how to reference a sheet within            ' the loop by displaying the worksheet name in a dialog box.            MsgBox ActiveWorkbook.Worksheets(I).Name         Next I      End Sub
  2. मैक्रो को चलाने के लिए, "उप WorksheetLoop()" पढ़ता पंक्ति में सम्मिलन बिंदु स्थान और F5 दबाएँ।
मैक्रो कार्यपुस्तिका के माध्यम से लूप और हर बार लूप के माध्यम से चलता किसी अन्य कार्यपत्रक नाम के साथ कोई संदेश बॉक्स प्रदर्शित करेगा। नोट इस मैक्रो केवल कार्यपत्रक नाम प्रदर्शित करेगा कि; यह कार्यपुस्तिका में अन्य पत्रकों के प्रकार का नाम प्रदर्शित नहीं होगा। आप भी सभी कार्यपत्रकों में कार्यपुस्तिका के माध्यम से एक 'के लिए एक' लूप का उपयोग करके लूप कर सकते हैं।
  1. एक नए माड्यूल पत्रक में निम्न मैक्रो कोड दर्ज करें।
          Sub WorksheetLoop2()         ' Declare Current as a worksheet object variable.         Dim Current As Worksheet         ' Loop through all of the worksheets in the active workbook.         For Each Current In Worksheets            ' Insert your code here.            ' This line displays the worksheet name in a message box.            MsgBox Current.Name         Next      End Sub
  2. मैक्रो को चलाने के लिए, "उप WorksheetLoop2()" पढ़ता पंक्ति में सम्मिलन बिंदु स्थान और F5 दबाएँ।
सभी कार्यपत्रकों में सक्रिय कार्यपुस्तिका को संसाधित करने के लिए यह एक भिन्न प्रकार के लूप उपयोग करता है सिवाय इसके कि यह मैक्रो एक WorksheetLoop मैक्रो के लिए, कार्य करता है।

संदर्भ


अनुप्रयोगों के लिए Visual Basic के साथ मदद प्राप्त करने के बारे में अतिरिक्त जानकारी के लिए, कृपया निम्न आलेख को Microsoft ज्ञानकोश में देखें:
163435 VBA: प्रोग्रामिंग संसाधन Visual Basic के लिए अनुप्रयोग के लिए
226118 OFF2000: प्रोग्रामिंग संसाधन Visual Basic के लिए अनुप्रयोग के लिए