मुख्य सामग्री पर जाएं

वर्कबुक खुलने पर किसी संख्या को स्वचालित रूप से कैसे बढ़ाया जाए?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2020-01-15

यदि आप हर बार कार्यपुस्तिका खोलने पर स्वचालित रूप से एक संख्या सेल को 1 से बढ़ाना चाहते हैं, तो निश्चित रूप से, आप मैन्युअल रूप से 1 जोड़ सकते हैं। लेकिन, क्या Excel दस्तावेज़ खोलते समय स्वचालित रूप से संख्या के लिए 1 जोड़ने का कोई बेहतर तरीका है?

जब कार्यपुस्तिका VBA कोड के साथ खोली जाती है तो स्वचालित रूप से एक संख्या बढ़ाएँ


जब कार्यपुस्तिका VBA कोड के साथ खोली जाती है तो स्वचालित रूप से एक संख्या बढ़ाएँ

निम्नलिखित सरल वीबीए कोड आपको हर बार कार्यपुस्तिका खोलने पर संख्या सेल के लिए स्वचालित रूप से 1 जोड़ने में मदद कर सकता है, कृपया ऐसा करें:

1. दबाए रखें ALT + F11 कुंजियाँ, और यह खुल जाती है अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2. में परियोजना-वीबीएपरियोजना फलक, डबल-क्लिक करें यह को खोलने के लिए मॉड्यूल, फिर, नीचे दिए गए कोड को कॉपी करें और मॉड्यूल में पेस्ट करें, स्क्रीनशॉट देखें:

VBA कोड: कार्यपुस्तिका खुलने पर स्वचालित रूप से एक संख्या बढ़ाएँ:

Private Sub Workbook_Open()
Worksheets("Sheet1").Range("A2") = Worksheets("Sheet1").Range("A2") + 1
End Sub

नोट: उपरोक्त कोड में, Sheet1 और A2 वह शीट और सेल हैं जिसमें वह संख्या होती है जिसे आप स्वचालित रूप से बढ़ाना चाहते हैं। कृपया उन्हें अपनी आवश्यकता के अनुसार बदलें।

3. फिर आपको एक्सेल फाइल को इस रूप में सेव करना चाहिए एक्सेल मैक्रो-सक्षम वर्कबुक प्रारूप, स्क्रीनशॉट देखें:

अब से, जब आप इस विशिष्ट कार्यपुस्तिका को खोलेंगे, तो शीट2 में सेल A1 में संख्या स्वचालित रूप से 1 जुड़ जाएगी।

नोट: यह कोड केवल संख्या सेल पर लागू होता है।

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖 कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
सुपर लुकअप: एकाधिक मानदंड VLookup    मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार    कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल    सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
शीर्ष 15 टूलसेट12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

Description


ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank you! Too easy! My simple quote form now allots a new number every time I open it. Previous forum help pages I visited assume too much prior knowledge of Excel and terminology. This was "Macros for Dummies"
This comment was minimized by the moderator on the site
Both screenshots are the same. There is no screenshot for #3 "save the Excel file as Excel Macro-Enabled Workbook format" as directed.
This comment was minimized by the moderator on the site
Hi, Leslie,
Thanks for your comment, the second picture has been updated, please chek it.
Thanks a lot!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations