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

एक्सेल: क्लिक करने पर सभी सामग्री दिखाने के लिए सेल का विस्तार कैसे करें

लेखक: रवि अंतिम संशोधित: 2022-10-08

कुछ मामलों में, यदि सेल सामग्री सेल की चौड़ाई से अधिक लंबी है और अगले कॉलम सेल में मान हैं, तो सामग्री के केवल कुछ हिस्सों को नीचे दिए गए स्क्रीनशॉट के अनुसार दिखाया गया है। कोशिकाओं की चौड़ाई और ऊंचाई को बदलने से बचने के लिए, आप सेल पर क्लिक कर सकते हैं और सूत्र बार में संपूर्ण सामग्री देख सकते हैं। लेकिन यदि फॉर्मूला बार छिपा हुआ है या सामग्री से छोटा है, तो इसे कैसे करें? यहां दो विधियों का परिचय दिया गया है जो टेक्स्टबॉक्स पर क्लिक करने पर सेल सामग्री को दिखा सकते हैं।
अन्य सूची से स्वतः पूर्ण

टेक्स्टबॉक्स एक्टिव एक्स कंट्रोल्स डालकर सभी सामग्री दिखाने के लिए सेल का विस्तार करें

एक्सेल के लिए कुटूल के बड़े फॉर्मूला बार का उपयोग करके सभी सामग्री दिखाने के लिए सेल का विस्तार करें

ध्यान दें: इस ट्यूटोरियल में दिए गए तरीकों का एक्सेल 2021 में परीक्षण किया गया है, विभिन्न एक्सेल संस्करणों में कुछ भिन्न हो सकते हैं।


टेक्स्टबॉक्स एक्टिव एक्स कंट्रोल्स डालकर सभी सामग्री दिखाने के लिए सेल का विस्तार करें

1. उस वर्कशीट को सक्रिय करें जिसमें आप सेल का विस्तार करना चाहते हैं, क्लिक करें डेवलपर > सम्मिलित करें > टेक्स्ट बॉक्स (एक्टिवएक्स नियंत्रण).
अन्य सूची से स्वतः पूर्ण

अगर वहाँ कोई नहीं है डेवलपर रिबन में टैब, कृपया पहले इसे प्रदर्शित करें, कृपया इस ट्यूटोरियल को देखें एक्सेल रिबन में डेवलपर टैब कैसे दिखाएं/प्रदर्शित करें

2. फिर चौड़ाई और ऊंचाई वाला एक टेक्स्टबॉक्स बनाने के लिए कर्सर को खींचें जो कोशिकाओं की सबसे लंबी सामग्री दिखा सके। इस टेक्स्टबॉक्स का नाम याद रखें, यहां TextBox1 है।
अन्य सूची से स्वतः पूर्ण

3. टेक्स्टबॉक्स पर राइट-क्लिक करें, और क्लिक करें गुण संदर्भ मेनू से. में फिर गुण फलक, चुनें यह सच है ड्रॉप-डाउन सूचियों से MultiLine और वर्ड रैप अनुभाग. फिर बंद कर दें गुण फलक।
अन्य सूची से स्वतः पूर्ण  अन्य सूची से स्वतः पूर्ण

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

4. स्टेटस बार में शीट नाम टैब पर राइट-क्लिक करें और क्लिक करें कोड देखें संदर्भ मेनू से

5। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, नीचे दिए गए कोड को कॉपी करें और रिक्त स्क्रिप्ट पर पेस्ट करें।

वीबीए: सामग्री दिखाने के लिए सेल का विस्तार करें

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice
Dim xRgAddress As String
xRgAddress = "A1:B4" 'the range this VBA work, if you leave it is blank, it work for whole sheet
If xRgAddress = "" Then
  With TextBox1
        .Top = Target.Top
        .Left = Target.Offset(, 1).Left
        .Text = Target.Text
        .Visible = True
    End With
Else
    If Intersect(Target, Range(xRgAddress)) Is Nothing Then
        TextBox1.Visible = False
    Else
        With TextBox1
            .Top = Target.Top
           .Left = Target.Offset(, 1).Left
            .Text = Target.Text
            .Visible = True
        End With
    End If
End If
End Sub

अन्य सूची से स्वतः पूर्ण

ध्यान दें कि TextBox1 आपके द्वारा बनाए गए टेक्स्टबॉक्स का नाम है, और A1:B4 इस कोड के काम करने की सीमा है, उन्हें अपनी आवश्यकता के अनुसार बदलें।

6. शीट पर वापस जाएँ, क्लिक करें डेवलपर > डिजाइन मोड डिज़ाइन मोड मौजूद करने के लिए।
अन्य सूची से स्वतः पूर्ण

अब जब आप सेल पर क्लिक करेंगे, तो उसके बगल में टेक्स्टबॉक्स दिखाई देगा, और सेल की संपूर्ण सामग्री दिखाएगा।
अन्य सूची से स्वतः पूर्ण


एक्सेल के लिए कुटूल के बड़े फॉर्मूला बार का उपयोग करके सभी सामग्री दिखाने के लिए सेल का विस्तार करें

यदि आपने एक्सेल के लिए कुटूल्स स्थापित किया है, तो आपके द्वारा क्लिक करने पर इसके द्वारा प्रदान किया गया बड़ा फॉर्मूला बार एक पॉप्ड बॉक्स में सेल की सभी सामग्री दिखाएगा, जब तक कि आप इसे क्लिक करके सक्रिय कर देते हैं। कुटूल > बड़ा फॉर्मूला बार.
अन्य सूची से स्वतः पूर्ण

सुझाव:

1. बड़े फॉर्मूला बार के साथ, सक्रिय सेल की सामग्री को देखने के अलावा, आप बड़े फॉर्मूला बार में सेल सामग्री को संपादित भी कर सकते हैं।

2. आप बार के दाएं कोने को नीचे खींचकर बड़े फॉर्मूला बार का आकार बदल सकते हैं।

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

बिगर फ़ॉर्मूला बार के बारे में अधिक जानकारी के लिए कृपया इसे देखें ट्यूटोरियल.


अन्य परिचालन (लेख)

ऑटो कंप्लीट को कैसे बंद करें
यहां एक्सेल में एक विकल्प है जो स्वतः पूर्णता को रोक सकता है।

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

किसी अन्य तालिका से सेल को स्वतः पूर्ण कैसे करें
इस ट्यूटोरियल में, यह बात की जा रही है कि एक कॉलम मान दर्ज करने के बाद एक टेबल से दूसरी शीट में अन्य कॉलम सेल को स्वचालित रूप से कैसे पूरा किया जाए।

एक्सेल में विषम या सम (वैकल्पिक) पंक्तियों/स्तंभों पर छायांकन कैसे लागू करें?
वर्कशीट को डिज़ाइन करते समय, कई लोग वर्कशीट को अधिक दृश्यमान बनाने के लिए विषम या सम (वैकल्पिक) पंक्तियों या स्तंभों पर छायांकन लागू करते हैं। यह आलेख आपको Excel में विषम या सम पंक्तियों/स्तंभों पर छायांकन लागू करने की दो विधियाँ दिखाएगा।


  • सुपर फॉर्मूला बार (पाठ और सूत्र की अनेक पंक्तियों को आसानी से संपादित करें); लेआउट पढ़ना (बड़ी संख्या में सेल को आसानी से पढ़ें और संपादित करें); फ़िल्टर की गई रेंज में चिपकाएँ...
  • कक्षों/पंक्तियों/स्तंभों को मर्ज करें और डेटा रखना; विभाजित कोशिकाओं की सामग्री; डुप्लिकेट पंक्तियों और योग/औसत को संयोजित करें... डुप्लिकेट सेल रोकें; रेंज की तुलना करें...
  • डुप्लिकेट या अद्वितीय का चयन करें पंक्तियाँ; रिक्त पंक्तियाँ चुनें (सभी कोशिकाएँ खाली हैं); सुपर फाइंड और फ़ज़ी फाइंड कई कार्यपुस्तिकाओं में; यादृच्छिक चयन...
  • सटीक प्रति सूत्र संदर्भ बदले बिना एकाधिक कक्ष; स्वतः संदर्भ बनाएँ एकाधिक शीट्स के लिए; बुलेट डालें, चेक बॉक्स और बहुत कुछ...
  • पसंदीदा और त्वरित रूप से सम्मिलित सूत्र, रेंज, चार्ट और चित्र; कोशिकाओं को एन्क्रिप्ट करें पासवर्ड के साथ; मेलिंग सूची बनाएं और ईमेल भेजें...
  • पाठ निकालें, टेक्स्ट जोड़ें, स्थिति के अनुसार हटाएँ, अंतरिक्ष निकालें; पेजिंग सबटोटल बनाएं और प्रिंट करें; सेल सामग्री और टिप्पणियों के बीच कनवर्ट करें...
  • सुपर फ़िल्टर (फ़िल्टर योजनाओं को अन्य शीटों पर सहेजें और लागू करें); उन्नत सॉर्ट महीने/सप्ताह/दिन, आवृत्ति और अधिक के अनुसार; विशेष फ़िल्टर बोल्ड, इटैलिक द्वारा...
  • वर्कबुक और वर्कशीट को मिलाएं; प्रमुख स्तंभों के आधार पर तालिकाएँ मर्ज करें; डेटा को एकाधिक शीट में विभाजित करें; बैच कनवर्ट xls, xlsx और पीडीएफ...
  • पिवोट टेबल ग्रुपिंग द्वारा सप्ताह संख्या, सप्ताह का दिन और बहुत कुछ... अनलॉक, लॉक किए गए सेल दिखाएँ विभिन्न रंगों से; उन कक्षों को हाइलाइट करें जिनमें सूत्र/नाम हो...
केटीई टैब 201905
  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
ऑफिसटैब नीचे
Comments (5)
Rated 4.5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
I am having the same issue as Neil. Code works fine, except when selecting any full row or column that include the cell range in the code, i am getting the Run-time error '94'. Invalid use of Null, highlighting to .Text = Target.Text. This code was very helpful except for the debug popping up every time. Please provide a solution
This comment was minimized by the moderator on the site
Hi, I have modified the code, it will not pop up a bug dialog when you select a column of cells or multiple cells, and the textbox will be hidden as well. Please try:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice
Dim xRgAddress As String
If Target.CountLarge > 1 Then
    TextBox1.Visible = False
    Exit Sub
End If
xRgAddress = "A1:A20" 'the range this VBA work, if you leave it is blank, it work for whole sheet
If xRgAddress = "" Then
  With TextBox1
        .Top = Target.Top
        .Left = Target.Offset(, 1).Left
        .Text = Target.Text
        .Visible = True
    End With
Else
    If Intersect(Target, Range(xRgAddress)) Is Nothing Then
        TextBox1.Visible = False
    Else
        With TextBox1
            .Top = Target.Top
           .Left = Target.Offset(, 1).Left
            .Text = Target.Text
            .Visible = True
        End With
    End If
End If
End Sub
This comment was minimized by the moderator on the site
Sunny, this is absolutely perfect - thank you so much for your time and expertise.
This comment was minimized by the moderator on the site
Good day, this code is great - I have two columns included in my code and the expanding text box pops up no issues when a cell is clicked - however, if I highlight multiple cells including one of the cells I wish to have the text box pop up - I get run-time error '94' - Invalid use of Null. Debugging highlights the 2nd 'Text = Target.Text' line.

Appreciate any feedback.
Rated 4.5 out of 5
This comment was minimized by the moderator on the site
Hi, do you want to show all contents of the selected cells to the textbox? Or just supports to select cells but show contents of the first one cell of the selection?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations