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

Excel में कॉलम की चौड़ाई को स्वचालित रूप से कैसे फ़िट करें?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2014-11-29

एक्सेल में, आप इसका उपयोग करके सेल सामग्री को तुरंत फिट करने के लिए कॉलम की चौड़ाई को समायोजित कर सकते हैं स्तंभ चौड़ाई बादऑटोफ़िट विशेषता। कभी-कभी, आप चाहेंगे कि कॉलम की चौड़ाई उस कॉलम में सबसे लंबे टेक्स्ट के आधार पर स्वचालित रूप से अपडेट हो जाए, यानी, जब सेल में कुछ लंबी टेक्स्ट स्ट्रिंग इनपुट की जाती है, तो सामग्री की लंबाई के अनुरूप कॉलम की चौड़ाई स्वचालित रूप से आकार बदल जाएगी। क्या एक्सेल में इससे निपटना संभव है?

वीबीए कोड के साथ कॉलम की चौड़ाई को ऑटो फिट करें

शॉर्टकट कुंजियों के साथ कॉलम की चौड़ाई को स्वतः फ़िट करें


तीर नीला दायां बुलबुला वीबीए कोड के साथ कॉलम की चौड़ाई को ऑटो फिट करें

ऐसा लगता है कि सेल की सामग्री की लंबाई के साथ कॉलम की चौड़ाई को स्वचालित रूप से अपडेट करना एक दिलचस्प ट्रिक है, आप इसे पूरा करने के लिए निम्नलिखित VBA कोड का उपयोग कर सकते हैं।

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

2. फिर डबल क्लिक करें यह में VBA प्रोजेक्ट एक रिक्त मॉड्यूल खोलने के लिए बाएँ फलक में ऑब्जेक्ट, और फिर निम्नलिखित VBA कोड को मॉड्यूल में कॉपी और पेस्ट करें:

वीबीए कोड: कार्यपुस्तिका में ऑटो फिट कॉलम

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Update 20141127
Dim xCol, xoutCol
xCol = Target.Column
If xCol > 52 Then
xoutCol = Chr(Int((xCol - 1) / 52) + 64) & _
Chr(Int((xCol - 27) / 26) + 64) & _
Chr(Int((xCol - 27) Mod 26) + 65)
ElseIf xCol > 26 Then
xoutCol = Chr(Int((xCol - 1) / 26) + 64) & _
Chr(Int((xCol - 1) Mod 26) + 65)
Else
xoutCol = Chr(xCol + 64)
End If
Columns(xoutCol & ":" & xoutCol).AutoFit
End Sub

दस्तावेज़-ऑटोफ़िट-कॉलम-चौड़ाई-1

3. फिर इस कोड को सहेजें और बंद करें, और अब, जब आप किसी सेल में लंबा टेक्स्ट दर्ज करते हैं, तो कॉलम की चौड़ाई सामग्री को स्वचालित रूप से फिट करने के लिए समायोजित हो जाएगी।


तीर नीला दायां बुलबुला शॉर्टकट कुंजियों के साथ कॉलम की चौड़ाई को स्वतः फ़िट करें

यदि आपके पास कई कॉलम हैं जिनमें सेल सामग्री का हिस्सा छिपा हुआ है जैसा कि स्क्रीनशॉट में दिखाया गया है, तो आप उनकी सामग्री को फिट करने के लिए कॉलम की चौड़ाई का एक बार में आकार बदलना चाहते हैं। निम्नलिखित शॉर्टकट कुंजियाँ आपकी सहायता कर सकती हैं।

दस्तावेज़-ऑटोफ़िट-कॉलम-चौड़ाई-1

1. उस डेटा श्रेणी का चयन करें जिसे आप कॉलम की चौड़ाई का आकार बदलना चाहते हैं।

2. बरक़रार रखना ऑल्ट कुंजी और प्रेस एच + ओ + आई, और अब आपके कॉलम की चौड़ाई तुरंत उनकी सामग्री में स्वतः फिट हो गई है। स्क्रीनशॉट देखें:

दस्तावेज़-ऑटोफ़िट-कॉलम-चौड़ाई-1

नोट: यदि आप Excel 2003 और पुराने संस्करण का उपयोग कर रहे हैं, तो आपको इन शॉर्टकट कुंजियों का उपयोग करना होगा: एएलटी + ओ + सी + ए.


संबंधित आलेख:

एक्सेल में मर्ज किए गए सेल की पंक्ति ऊंचाई को स्वचालित रूप से कैसे फ़िट करें?

एक्सेल में टेक्स्ट को फिट करने के लिए पंक्ति की ऊंचाई या कॉलम की चौड़ाई का आकार कैसे बदलें?

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

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

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

Description


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

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
saya tertarik dengan code VB yang anda terapkan tentang Cara mengisi kolom excel dengan VBA, jika pertanyaannya begini Bagaimana cara mengisi kolom dan baris tertentu di excel dnegan VBA?
jadi yang terisi adalah kolom dan barisnya secara otomatis? mohon jawabannya..
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations