एक्सेल में एक या एक सेल में टोटल कैसे चालू रखें?
यह आलेख आपको एक्सेल में एक या एक सेल में टोटल चालू रखने की विधि दिखाएगा। उदाहरण के लिए, सेल A1 में वर्तमान में संख्या 10 है, जब 5 जैसी कोई अन्य संख्या दर्ज की जाती है, तो A1 का परिणामी मान 15 (10+5) होगा। इसे आसानी से पूरा करने के लिए आप निम्नानुसार कार्य कर सकते हैं।
VBA कोड के साथ एक या एक सेल में कुल मिलाकर चलते रहें
VBA कोड के साथ एक या एक सेल में कुल मिलाकर चलते रहें
नीचे दिया गया VBA कोड आपको किसी सेल को कुल मिलाकर चालू रखने में मदद कर सकता है। कृपया चरण दर चरण निम्नानुसार करें।
1. उस वर्कशीट को खोलें जिसमें वह सेल है जिसमें आप कुल मिलाकर चलते रहेंगे। शीट टैब पर राइट क्लिक करें और चुनें कोड देखें संदर्भ मेनू से
2. उद्घाटन में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, कॉपी करें और VBA कोड के नीचे कोड विंडो में पेस्ट करें। स्क्रीनशॉट देखें:
VBA कोड: कुल मिलाकर एक या एक सेल में चलते रहें
Dim mRangeNumericValue As Double
'Updated by ExtendOffice 20180814
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo EndF
Application.EnableEvents = False
If Target.Count = 1 Then
If (Len(Target.Range("A1").Value) > 0) And IsNumeric(Target.Range("A1").Value) Then
If Target.Range("A1").Value = 0 Then mRangeNumericValue = 0
Target.Range("A1").Value = 1 * Target.Range("A1").Value + mRangeNumericValue
End If
End If
EndF:
Application.EnableEvents = True
mRangeNumericValue = 0
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo err0
If Target.Count = 1 Then
If (Len(Target.Range("A1").Value) > 0) And IsNumeric(Target.Range("A1").Value) Then
mRangeNumericValue = Target.Range("A1").Value
End If
End If
err0:
End Sub
नोट: कोड में, A1 वह सेल है जिसके अंदर आप कुल मिलाकर चलते रहेंगे। कृपया अपनी आवश्यकतानुसार एक सेल निर्दिष्ट करें।
3। दबाएं ऑल्ट + Q बंद करने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
अब से, सेल A1 में नंबर टाइप करते समय, नीचे दिखाए गए स्क्रीनशॉट के अनुसार कुल योग चलता रहेगा।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!