इस लेख में, मैं आपको दिखाऊंगा कि आप VBA . का उपयोग कैसे कर सकते हैं Excel में एक चर पंक्ति संख्या के साथ श्रेणी। आप VBA . के साथ काम करना सीखेंगे कक्षों की श्रेणी का चयन करने के लिए श्रेणी, कक्षों की श्रेणी में संख्याएँ सम्मिलित करें, कक्षों की श्रेणी में गणितीय संक्रियाएँ निष्पादित करें, और कक्षों की श्रेणी को रंग दें, सभी एक चर पंक्ति संख्या के साथ।
एक्सेल में वेरिएबल रो नंबर के साथ रेंज सेट करने के लिए VBA कोड (क्विक व्यू)
Sub Range_with_Variable_Row_Number()
First_Cell = InputBox("Enter the First Cell of the Range: ")
Row_Number = Str(Range(First_Cell).Row)
Number_of_Rows = InputBox("Enter the Total Number of Rows of the Range: ")
Set Rng = Range(First_Cell & ":" & Mid(First_Cell, 1, Len(First_Cell) - Len(Row_Number) + 1) & Mid(Str(Int(Number_of_Rows) + Int(Row_Number) - 1), 2, 10))
End Sub
⧭ कोड की व्याख्या:
- कोड दो इनपुट लेता है, श्रेणी का पहला सेल, जिसे First_Cell कहा जाता है , और श्रेणी की चर पंक्तियों की कुल संख्या, जिसे Number_of_Rows कहा जाता है ।
- फिर यह पंक्तियों की एक श्रृंखला बनाता है जिसे Rng . कहा जाता है , First_Cell . से प्रारंभ करते हुए पंक्तियों की कुल संख्या तक जो आप चाहते हैं।
- उदाहरण के लिए, यदि आपका First_Cell B4 . है और Number_of_Rows 10 . है , फिर आउटपुट Rng B4:B13 . है ।
- हमेशा सापेक्ष सेल संदर्भ का उपयोग करें फर्स्ट_सेल . के , पूर्ण . नहीं या मिश्रित सेल संदर्भ (B4 . का प्रयोग करें) , नहीं $B$4 या $B4 )।
एक्सेल (त्वरित दृश्य) में चर पंक्ति संख्या के साथ VBA श्रेणी का उपयोग करने के लिए 4 उदाहरण
यहां हमें नाम . के साथ एक डेटा सेट मिला है और वेतन Jupyter Group नामक कंपनी के कुछ कर्मचारियों की।
आज हम VBA . का उपयोग करके एक चर पंक्ति संख्या वाली श्रेणी के साथ काम करने का प्रयास करेंगे इस डेटा सेट पर।
1. एक्सेल में VBA के साथ वेरिएबल रो नंबर वाली रेंज चुनें
सबसे पहले, आइए एक मैक्रो . विकसित करें VBA . का उपयोग करके एक चर पंक्ति संख्या वाली श्रेणी का चयन करने के लिए ।
आइए पहले 5 . के नाम चुनें कर्मचारी।
आप निम्न VBA कोड का उपयोग कर सकते हैं इस उद्देश्य के लिए:
⧭ VBA कोड:
Sub Select_Range()
First_Cell = InputBox("Enter the First Cell to Select: ")
Row_Number = Str(Range(First_Cell).Row)
Number_of_Rows = InputBox("Enter the Number of Rows to Select: ")
Rng = First_Cell & ":" & Mid(First_Cell, 1, Len(First_Cell) - Len(Row_Number) + 1) & Mid(Str(Int(Number_of_Rows) + Int(Row_Number) - 1), 2, 10)
Range(Rng).Select
End Sub
⧭ आउटपुट:
मैक्रो चलाएं (चुनें_रेंज ) आपको दो इनपुट बॉक्स मिलेंगे।
पहला बॉक्स आपको उस श्रेणी के पहले सेल में प्रवेश करने के लिए कहेगा जिसे आप चुनना चाहते हैं। यह रहा B4 , पहले कर्मचारी वाला सेल.
ठीकक्लिक करें . दूसरा इनपुट बॉक्स आपसे उन पंक्तियों की संख्या पूछेगा जिन्हें आप चुनना चाहते हैं। यह रहा 5 ।
फिर से क्लिक करें ठीक . और आपको पहले 5 . के नाम मिलेंगे आपके डेटा सेट में चयनित कर्मचारी।
और पढ़ें: एक्सेल वीबीए (9 उदाहरण) के साथ श्रेणी से पंक्ति संख्या कैसे प्राप्त करें
2. एक्सेल में वेरिएबल रो नंबर वाली रेंज में नंबर डालें
आप VBA . के साथ एक चर पंक्ति संख्या वाली श्रेणी में संख्याओं को भी सम्मिलित कर सकते हैं एक्सेल में।
आप एक निश्चित संख्या और संख्याओं की श्रृंखला दोनों सम्मिलित कर सकते हैं।
आइए पहले नंबर दें 5 1 से 5 . के कर्मचारी ।
यानी, 1 से 5 . की एक श्रृंखला डालें पहले 5 . के नाम पर छोड़ दिया कर्मचारी (A4:A8 )।
आप निम्न VBA कोड का उपयोग कर सकते हैं इस उद्देश्य के लिए:
⧭ VBA कोड:
Sub Insert_Numbers()
First_Cell = InputBox("Enter the First Cell to Insert Number: ")
Row_Number = Str(Range(First_Cell).Row)
Number_of_Rows = InputBox("Enter the Total Number of Rows to Insert Numbers: ")
Set Rng = Range(First_Cell & ":" & Mid(First_Cell, 1, Len(First_Cell) - Len(Row_Number) + 1) & Mid(Str(Int(Number_of_Rows) + Int(Row_Number) - 1), 2, 10))
Series_or_Fixed = Int(InputBox("Enter 1 to Enter a Series of Numbers: " + vbNewLine + vbNewLine + "OR" + vbNewLine + vbNewLine + "Enter 2 to Enter a Fixed Number: "))
If Series_or_Fixed = 1 Then
First_Number = Int(InputBox("Enter the First Number: "))
Increment = Int(InputBox("Enter the Increment: "))
For i = 1 To Rng.Rows.Count
Rng.Cells(i, 1) = First_Number + (i - 1) * Increment
Next i
ElseIf Series_or_Fixed = 2 Then
Number = Int(InputBox("Enter the Fixed Number: "))
For i = 1 To Rng.Rows.Count
Rng.Cells(i, 1) = Number
Next i
End If
End Sub
⧭ आउटपुट:
यह मैक्रो चलाएं (Insert_Numbers ) आपको कुछ इनपुट बॉक्स मिलेंगे।
पहला बॉक्स आपको नंबर डालने के लिए पहले सेल में प्रवेश करने के लिए कहेगा। यह रहा A4 ।
ठीकक्लिक करें . दूसरा बॉक्स आपको नंबर डालने के लिए पंक्तियों की कुल संख्या दर्ज करने के लिए कहेगा।
यह रहा 5 ।
तीसरा बॉक्स आपसे पूछेगा कि क्या आप संख्याओं की एक श्रृंखला चाहते हैं या एक निश्चित संख्या चाहते हैं।
1 दर्ज करें संख्याओं की एक श्रृंखला के लिए।
2 दर्ज करें एक निश्चित संख्या के लिए।
यहां मुझे संख्याओं की एक श्रृंखला चाहिए। इसलिए मैंने 1 . दर्ज किया है ।
चौथा बॉक्स आपसे सीरीज का पहला नंबर पूछेगा। मुझे 1 से 5 . की श्रंखला चाहिए . इसलिए, मैंने 1 . दर्ज किया है ।
अंतिम बॉक्स आपको वेतन वृद्धि दर्ज करने के लिए कहेगा। 1, 2, 3, 4, 5, . की श्रृंखला में यह 1 . है ।
ठीकक्लिक करें . और आपको 1 से 5 . की एक श्रृंखला मिलेगी श्रेणी में A4:A8 ।
और पढ़ें: एक्सेल में वेरिएबल रो नंबर के साथ रेंज का उपयोग कैसे करें
समान रीडिंग
- VBA एक्सेल में कॉलम नंबर के आधार पर रेंज का उपयोग करने के लिए (4 तरीके)
- सेल वैल्यू VBA (7 तरीके) के आधार पर रेंज कैसे चुनें
- एक्सेल (5 गुण) में VBA के रेंज ऑब्जेक्ट का उपयोग करें
- VBA एक्सेल में रेंज सेट करने के लिए (7 उदाहरण)
- एक्सेल (4 मैक्रोज़) में वीबीए का उपयोग करके पंक्ति संख्या कैसे खोजें
3. एक्सेल में वेरिएबल रो नंबर वाली रेंज पर मैथमेटिकल ऑपरेशन करें
इसके बाद, हम एक मैक्रो . विकसित करेंगे एक चर पंक्ति संख्या के साथ एक श्रेणी पर गणितीय संचालन करने के लिए।
उदाहरण के लिए, आइए एक पल के लिए सोचें कि जुपिटर समूह के प्रमुख पहले 5 कर्मचारियों के वेतन में $10,000 की वृद्धि करना चाहते हैं। ।
हम एक मैक्रो . विकसित करेंगे अपने उद्देश्य को पूरा करने के लिए।
आप निम्न VBA कोड का उपयोग कर सकते हैं :
⧭ VBA कोड:
Sub Mathematical_Operation()
First_Cell = InputBox("Enter the First Cell to Perform Operation: ")
Row_Number = Str(Range(First_Cell).Row)
Number_of_Rows = InputBox("Enter the Total Number of Rows to Perform Operation: ")
Set Rng = Range(First_Cell & ":" & Mid(First_Cell, 1, Len(First_Cell) - Len(Row_Number) + 1) & Mid(Str(Int(Number_of_Rows) + Int(Row_Number) - 1), 2, 10))
Operation = Int(InputBox("Enter the Operation to Perform: " + vbNewLine + "Enter 1 for Addition: " + vbNewLine + "Enter 2 for Subtraction: " + vbNewLine + "Enter 3 for Multiplication: " + vbNewLine + "Enter 4 for Division: "))
Operations = Array("Add", "Subtract", "Multiply", "Divide")
Number = Int(InputBox("Enter the Number to " + Operations(Operation - 1) + ": "))
For i = 1 To Rng.Rows.Count
If Operation = 1 Then
Rng.Cells(i, 1) = Rng.Cells(i, 1).Value + Number
End If
If Operation = 2 Then
Rng.Cells(i, 1) = Rng.Cells(i, 1).Value - Number
End If
If Operation = 3 Then
Rng.Cells(i, 1) = Rng.Cells(i, 1).Value * Number
End If
If Operation = 4 Then
Rng.Cells(i, 1) = Rng.Cells(i, 1).Value / Number
End If
Next i
End Sub
⧭ आउटपुट:
मैक्रोचलाएं (गणितीय_ऑपरेशन ) आपको 4 . मिलेगा इनपुट बॉक्स।
पहला बॉक्स, हमेशा की तरह, आपको ऑपरेशन करने के लिए पहले सेल में प्रवेश करने के लिए कहेगा।
इस उदाहरण में, यह पहले कर्मचारी का वेतन है, सेल C4 ।
दूसरा बॉक्स आपसे ऑपरेशन करने के लिए पंक्तियों की कुल संख्या पूछेगा।
तीसरा बॉक्स आपसे उस ऑपरेशन को दर्ज करने के लिए कहेगा जिसे आप करना चाहते हैं।
1 दर्ज करें जोड़ने के लिए।
2 दर्ज करें घटाव के लिए।
3 गुणन के लिए।
और 4 एक डिवीजन के लिए।
यहाँ मैं एक अतिरिक्त चाहता हूँ। इसलिए मैंने 1 . दर्ज किया है ।
अंत में, चौथा बॉक्स आपको जोड़ने के लिए नंबर दर्ज करने के लिए कहेगा। यहां मैंने 10000 दर्ज किया है ।
ठीकक्लिक करें . और आप पाएंगे कि पहले 5 कर्मचारियों के वेतन में $10,000 . की वृद्धि हुई है ।
और पढ़ें: कॉलम में स्ट्रिंग ढूंढें और Excel में पंक्ति संख्या लौटाएं (7 तरीके)
4. एक्सेल में वेरिएबल रो नंबर वाली रेंज के कलर सेल
अंत में, हम एक मैक्रो . विकसित करेंगे Excel में एक चर पंक्ति संख्या के साथ एक श्रेणी के कक्षों को रंगने के लिए।
आइए पहले पांच कर्मचारियों के नाम लाल रंग में रंग दें।
आप निम्न VBA कोड का उपयोग कर सकते हैं :
⧭ VBA कोड:
Sub Color_Range()
First_Cell = InputBox("Enter the First Cell to Color: ")
Row_Number = Str(Range(First_Cell).Row)
Number_of_Rows = InputBox("Enter the Total Number of Rows to Color: ")
Set Rng = Range(First_Cell & ":" & Mid(First_Cell, 1, Len(First_Cell) - Len(Row_Number) + 1) & Mid(Str(Int(Number_of_Rows) + Int(Row_Number) - 1), 2, 10))
Color_Code = Int(InputBox("Enter the Color Code: " + vbNewLine + "Enter 3 for Color Red." + vbNewLine + "Enter 5 for Color Blue." + vbNewLine + "Enter 6 for Color Yellow." + vbNewLine + "Enter 10 for Color Green."))
Background_or_Text = Int(InputBox("Enter 1 to Color the Whole Background of the Cells: " + vbNewLine + vbNewLine + "Or" + vbNewLine + vbNewLine + "Enter 2 to Color Only the Texts: "))
For i = 1 To Rng.Rows.Count
If Background_or_Text = 1 Then
Rng(i, 1).Interior.ColorIndex = Color_Code
ElseIf Background_or_Text = 2 Then
Rng.Cells(i, 1).Characters(1, Len(Rng.Cells(i, 1))).Font.ColorIndex = Color_Code
End If
Next i
End Sub
⧭ आउटपुट:
मैक्रोचलाएं (Color_Range ) आपको 4 इनपुट बॉक्स मिलेंगे।
पहला बॉक्स आपको रंग के लिए पहला सेल दर्ज करने के लिए कहेगा।
यह रहा पहला कर्मचारी, सेल B4.
दूसरा बॉक्स रंग के लिए पंक्तियों की कुल संख्या के लिए पूछेगा। यह रहा 5 ।
तीसरा बॉक्स आपको रंग चुनने के लिए कहेगा। Microsoft Color Code . के अनुसार कोई भी रंग अनुक्रमणिका दर्ज करें ।
यहां मैंने 6 दर्ज किया है (पीले . के लिए रंग)।
अंतिम बॉक्स पूछेगा कि क्या आप सेल की पूरी पृष्ठभूमि या केवल टेक्स्ट को रंगना चाहते हैं।
मैंने 1 . दर्ज किया है (पूरी पृष्ठभूमि)।
ठीकक्लिक करें . और आपको पीले रंग में हाइलाइट किए गए पहले 5 नामों की पूरी पृष्ठभूमि मिल जाएगी।
और पढ़ें: Excel में वर्तमान सेल की पंक्ति संख्या कैसे प्राप्त करें (4 त्वरित तरीके)
निष्कर्ष
इन विधियों का उपयोग करके, आप VBA . का उपयोग कर सकते हैं Excel में एक चर पंक्ति संख्या के साथ श्रेणी। क्या आपका कोई प्रश्न है? बेझिझक हमसे पूछें।
संबंधित लेख
- VBA रेंज ऑफ़सेट का उपयोग कैसे करें (11 तरीके)
- एक्सेल में रेंज में प्रत्येक सेल के लिए वीबीए (3 तरीके)
- Excel VBA (अल्टीमेट गाइड) के साथ प्रत्येक सेल के लिए एक रेंज के माध्यम से लूप करें
- Excel VBA कॉपी रेंज टू अदर शीट (8 सबसे आसान तरीके)
- एक्सेल वीबीए:कॉलम में स्ट्रिंग ढूंढें और पंक्ति संख्या लौटाएं
- एक्सेल फॉर्मूला में पंक्ति संख्या कैसे बढ़ाएं (6 आसान तरीके)