एक्सेल में टेक्स्ट बॉक्स में महारत हासिल करना:एक व्यापक मार्गदर्शिका

टेक्स्ट बॉक्स क्या है?

एक्सेल में टेक्स्ट बॉक्स कैसे जोड़ें:4 तरीके

विधि 1- टेक्स्ट बॉक्स विकल्प का उपयोग करना

• सम्मिलित करें पर जाएं टैब और टेक्स्ट बॉक्स चुनें पाठ में .

• टेक्स्ट बॉक्स डालने और उसे नीचे खींचने के लिए वर्कशीट में किसी क्षेत्र पर क्लिक करें।

• टेक्स्ट बॉक्स में टेक्स्ट दर्ज करें।

विधि 2- आकृतियों से एक टेक्स्ट बॉक्स जोड़ना

• सम्मिलित करें>> चित्र>> आकार पर जाएं .
• टेक्स्ट बॉक्स चुनें मूल आकार में .

• टेक्स्ट बॉक्स डालने और उसे नीचे खींचने के लिए वर्कशीट में किसी क्षेत्र पर क्लिक करें।

• टेक्स्ट बॉक्स में टेक्स्ट दर्ज करें।

विधि 3 - Excel में ActiveX नियंत्रणों से टेक्स्ट बॉक्स सम्मिलित करना

• डेवलपर को सक्षम करें रिबन पर टैब करें।
• डेवलपर>> नियंत्रण>> सम्मिलित करें पर जाएं .
• चुनें टेक्स्ट बॉक्स (एक्टिवएक्स नियंत्रण) ActiveX नियंत्रण में .

• टेक्स्ट बॉक्स डालने और उसे नीचे खींचने के लिए वर्कशीट में किसी क्षेत्र पर क्लिक करें।

• ऑब्जेक्ट डिज़ाइन मोड में है। इसे बंद करने के लिए, डेवलपर>> नियंत्रण>> डिज़ाइन मोड पर क्लिक करें .

• टेक्स्ट बॉक्स में टेक्स्ट दर्ज करें।

स्क्रॉलबार के साथ मल्टी-लाइन टेक्स्ट बॉक्स जोड़ना

• पिछली विधि का उपयोग करके पहले एक ActiveX कंट्रोल टेक्स्ट बॉक्स बनाएं।
• टेक्स्ट बॉक्स पर राइट-क्लिक करें और गुण चुनें .

• गुणों में विंडो, सही चुनें मल्टीलाइन के रूप में
• स्क्रॉलबार के लिए 1, 2, या 3 चुनें . यहाँ, 2 वर्टिकल स्क्रॉलबार बनाने के लिए।

• अपना टेक्स्ट दर्ज करें. स्क्रॉलबार टेक्स्ट बॉक्स में प्रदर्शित होंगे।

विधि 4 - Excel में एकाधिक टेक्स्ट बॉक्स जोड़ने के लिए VBA का उपयोग करना

• डेवलपर>> कोड>> विजुअल बेसिक पर जाएं .

• सम्मिलित करें>> मॉड्यूल चुनें .

• मॉड्यूल में निम्नलिखित कोड डालें।

Sub InsertMultipleTextBoxes()
 Dim ws As Worksheet
 Dim textBox As Shape
 Dim i As Integer
 Dim numTextBoxes As Integer
 Dim textArray() As String
 ' Set the worksheet where you want to insert the text boxes
 Set ws = ThisWorkbook.Sheets("4.1 VBA Multiple Box") ' Replace "4.1 VBA Multiple Box" with your actual sheet name
 ' Set the number of text boxes you want to insert
 numTextBoxes = 3 ' Change this to the desired number
 
 ' Array of different texts for each text box
 textArray = Split("Sioux City has the highest television sales,Stony Brook has the highest mobile sales,Green Bay has the highest monitor sales", ",")
 ' Loop to insert multiple text boxes
 For i = 1 To numTextBoxes
 ' Insert a text box
 Set textBox = ws.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
 Left:=50 + (i - 1) * 200, Top:=230, Width:=150, Height:=50)
 
 ' Set the text inside the text box
 textBox.TextFrame.Characters.Text = textArray(i - 1)
 textBox.TextEffect.FontSize = 12
 textBox.Line.ForeColor.RGB = RGB(0, 0, 255)
 Next i
End Sub

• F5 दबाएँ कोड चलाने के लिए.

Sub InsertTextBox()
 Dim ws As Worksheet
 Dim textBox As Shape
 
 Set ws = ThisWorkbook.Sheets("4. VBA") ' Replace "4. VBA" with your actual sheet name
 
 Set textBox = ws.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
 Left:=60, Top:=230, Width:=250, Height:=80)
 
 textBox.TextFrame.Characters.Text = "Total Sales by Store:" & vbNewLine & "Green Bay has the highest total sales with $50,960, followed by Sioux City with $41,614." & vbNewLine & "Rock Island has the lowest total sales at $14,628."
 textBox.Line.ForeColor.RGB = RGB(0, 0, 255)
End Sub

एक्सेल में टेक्स्ट बॉक्स को कैसे फॉर्मेट करें

1. आकार बदलना और बिंदु संपादित करना

• टेक्स्ट बॉक्स पर क्लिक करें और आकार प्रारूप पर जाएं .
• चुनें आकार प्रारूप>> आकार सम्मिलित करें>> आकार संपादित करें>> आकार बदलें .

• टेक्स्ट बॉक्स के किनारे पर क्लिक करें. माउस कर्सर एक नुकीला प्लस चिह्न प्रदर्शित करेगा।

• चुनें आकार प्रारूप>> आकार सम्मिलित करें>> आकार संपादित करें>> बिंदु संपादित करें .

• किनारों को स्थानांतरित करने और मैन्युअल रूप से आकार बदलने के लिए किनारे के बिंदुओं पर क्लिक करें और खींचें।

2. आकार शैलियाँ बदलना

• टेक्स्ट बॉक्स का चयन करें और आकार प्रारूप पर जाएं टैब.
• आकार शैलियाँ में एक शैली का चयन करें .

• पहुँच त्वरित शैलियाँ नीचे की ओर तीर पर क्लिक करके.

• एक शैली पर क्लिक करें।

• टेक्स्ट बॉक्स बदल जाएगा. यहां, सूक्ष्म प्रभाव- काला, गहरा-1 चयनित किया गया.

3. टेक्स्ट बॉक्स का भरण रंग बदलना

• टेक्स्ट बॉक्स पर क्लिक करें और आकार प्रारूप>> आकार शैलियाँ>> आकार भरण चुनें .
• एक रंग चुनें.

4. बॉर्डर हटाना

5. फ़ॉन्ट आकार, शैली और रंग बदलना

• होम>> फ़ॉन्ट>> फ़ॉन्ट रंग पर जाएं .

• फ़ॉन्ट में अन्य संपादन विकल्प हैं

• विभिन्न वर्डआर्ट शैलियों तक पहुंचें आकार प्रारूप में .

6. टेक्स्ट बॉक्स के अंदर लाइन स्पेसिंग बदलना

• संपूर्ण पाठ का चयन करें.
• टेक्स्ट पर राइट-क्लिक करें और पैराग्राफ चुनें .

• पैराग्राफ में , स्पेसिंग चुनें
• विभिन्न पंक्ति रिक्ति विकल्प चुनें।
• ठीक क्लिक करें .

7. टेक्स्ट बॉक्स को घुमाना

• टेक्स्ट बॉक्स का चयन करें और आपको बॉक्स के शीर्ष पर एक दक्षिणावर्त घूमने वाला आइकन दिखाई देगा।
• इसे क्लिक करें और टेक्स्ट बॉक्स को घुमाने के लिए अपने माउस कर्सर को घुमाएँ।

8. टेक्स्ट को फिट करने के लिए टेक्स्ट बॉक्स का आकार बदलना

• टेक्स्ट बॉक्स के किनारे पर क्लिक करके उसे चुनें।
• Ctrl+1 दबाएँ प्रारूप आकार खोलने के लिए विकल्प.
• टेक्स्ट विकल्प>> टेक्स्टबॉक्स चुनें
• टेक्स्ट बॉक्स में , टेक्स्ट में फिट होने के लिए आकार का आकार बदलें को चेक करें .

• टेक्स्ट को आकार में लपेटें चुनें .
• ऊंचाई समायोजित की जाएगी और चौड़ाई रखी जाएगी।

• VBA संपादक खोलें और मॉड्यूल में निम्नलिखित कोड डालें।

Sub FitTextBoxToText()
 Dim ws As Worksheet
 Dim textBox As Shape
 
 ' Set the worksheet
 Set ws = ThisWorkbook.Sheets("8. Resize to Fit Text")
 ' Replace "YourSheetName" with your actual sheet name
 
 ' Set the name of the text box
 Dim textBoxName As String
 textBoxName = "TextBox 1"
 ' Replace with the actual name of your text box
 
 ' Check if the text box exists
 On Error Resume Next
 Set textBox = ws.Shapes(textBoxName)
 On Error GoTo 0
 
 If Not textBox Is Nothing Then
 ' Fit the text box to its content
 textBox.TextFrame.AutoSize = True
 Else
 MsgBox "Text box not found!"
 End If
End Sub

• F5 दबाएँ कोड चलाने के लिए. यह टेक्स्ट बॉक्स का आकार बदल देगा।

9. एक्सेल में टेक्स्ट बॉक्स को संरेखित करना

• Ctrl दबाकर सभी टेक्स्ट बॉक्स का चयन करें और उन पर बायाँ-क्लिक करें।

• आकार प्रारूप>> ऑब्जेक्ट संरेखित करें>> शीर्ष संरेखित करें चुनें .

• सभी टेक्स्ट बॉक्स चुनें.
• चुनें आकार प्रारूप>> वस्तुओं को संरेखित करें>> बाईं ओर संरेखित करें .

10. टेक्स्ट बॉक्स की पारदर्शिता बदलना

• टेक्स्ट बॉक्स के किनारे पर क्लिक करके उसे चुनें।
• Ctrl+1 दबाएँ प्रारूप आकार खोलने के लिए खिड़की.
• आकार विकल्प>> भरें और पंक्ति>> भरें चुनें .
• पारदर्शिता बदलें रंगमें स्तर .

11. एक्सेल में टेक्स्ट बॉक्स को एंकर करना

• टेक्स्ट बॉक्स के किनारे पर क्लिक करके उसे चुनें।
• Ctrl+1 दबाएँ प्रारूप आकार खोलने के लिए खिड़की.
• आकार विकल्प>> आकार और गुण>> गुण चुनें .
• चेक करें सेल्स के साथ हिलें और आकार न लें .

• होम>> सेल>> फॉर्मेट>> प्रोटेक्ट शीट पर जाएं .

• अनचेक करें ऑब्जेक्ट संपादित करें प्रोटेक्ट शीट में और ठीक पर क्लिक करें .

एक्सेल में टेक्स्ट बॉक्स को कैसे कॉपी करें

• टेक्स्ट बॉक्स के किनारे पर क्लिक करके उसे चुनें।

• Ctrl+C दबाएँ कॉपी करने के लिए और Ctrl+V पेस्ट करना.

एक्सेल में किसी सेल से टेक्स्ट बॉक्स कैसे लिंक करें

• एक टेक्स्ट बॉक्स बनाएं।
• बॉक्स के मध्य पर क्लिक करें. वहां टेक्स्ट दर्ज करने के बजाय, फॉर्मूला बार का उपयोग करें।
• “= दर्ज करें "उस सेल के बाद जिसका आप संदर्भ देना चाहते हैं। यहाँ, =$C$16 C16 से लिंक करने के लिए .

• Enter दबाएं. मान टेक्स्ट बॉक्स में प्रदर्शित किया जाएगा।

• टेक्स्ट बॉक्स पर डबल-क्लिक करें और अपना टेक्स्ट दर्ज करें।

एक्सेल में डायनामिक टेक्स्ट बॉक्स कैसे बनाएं

• स्थान सम्मिलित करने के लिए एक सेल का चयन करें और डेटा>> डेटा टूल्स>> डेटा सत्यापन पर जाएं .

• में डेटा सत्यापन , सेटिंग्स चुनें .
• सूची का चयन करें अनुमति दें में और स्रोत में सीमा दर्ज करें . यहां, स्रोत डेटा B6:B13 है .

• सेल में एक ड्रॉप-डाउन तीर प्रदर्शित होगा। एक मान चुनें.

• C17 में निम्नलिखित सूत्र दर्ज करें .

• एक टेक्स्ट बॉक्स डालें, उसे चुनें और =$C$17 दर्ज करके उसे सेल से लिंक करें सूत्र पट्टी में.

एक्सेल में फ्लोटिंग टेक्स्ट बॉक्स कैसे बनाएं

• VBA विंडो खोलें।
• इन्सर्ट>> यूजरफॉर्म चुनें .

• टूलबॉक्स में , टेक्स्टबॉक्स चुनें और अपने टेक्स्ट बॉक्स को खींचें और छोड़ें।

• सेट मल्टीलाइन  यथासच और 2 चुनें स्क्रॉलबार में विकल्प.

• एक मॉड्यूल बनाएं और निम्नलिखित कोड दर्ज करें।

Sub floating_text_box()
UserForm1.TextBox1.Text = "Monthly sales of accessories in different branches of XYZ company"
UserForm1.Show vbModeless
End Sub

• F5 दबाएँ कोड चलाने के लिए. फ़्लोटिंग टेक्स्ट बॉक्स प्रदर्शित किया जाएगा।

• अपना टेक्स्ट टेक्स्ट बॉक्स में दर्ज करें, जैसे कि ActiveX टेक्स्ट बॉक्स में।

एक्सेल में टेक्स्ट बॉक्स में हाइपरलिंक कैसे जोड़ें

• एक टेक्स्ट बॉक्स डालें।

• बॉक्स में फ़ॉर्मेटिंग जोड़ें (वैकल्पिक).

• टेक्स्ट बॉक्स पर राइट-क्लिक करें और लिंक चुनें .

• हाइपरलिंक सम्मिलित करें में लिंक के लिए एक स्थान चुनें। यहां, इस दस्तावेज़ में रखें लिंक में: का चयन किया गया और एक नामित शीट चुनी गई।

• ठीक क्लिक करें .

एक्सेल में टेक्स्ट बॉक्स पर सशर्त फ़ॉर्मेटिंग कैसे लागू करें

• एक ActiveX टेक्स्ट बॉक्स बनाएं।
• बॉक्स का चयन करें और इसे Name Box में नाम बदलें . यहाँ, "कंडीशनलटेक्स्टबॉक्स"। (डिज़ाइन मोड नियंत्रण में सक्रिय होना चाहिए)

• शीट नाम पर राइट-क्लिक करें और कोड देखें चुनें .

• संपादक में निम्नलिखित कोड डालें।

Private Sub ConditionalTextBox_Change()
If ConditionalTextBox.Value < "0" Then ConditionalTextBox.BackColor = rgbBlack
If ConditionalTextBox.Value < "0" Then ConditionalTextBox.ForeColor = rgbWhite
If ConditionalTextBox.Value > "0" Then ConditionalTextBox.BackColor = rgbWhite
If ConditionalTextBox.Value > "0" Then ConditionalTextBox.ForeColor = rgbBlack
End Sub

• VBA संपादक बंद करें।

एक्सेल में टेक्स्ट बॉक्स कंटेंट को सेल कंटेंट में कैसे बदलें

• VBA संपादक खोलें और एक मॉड्यूल डालें .
• निम्नलिखित कोड दर्ज करें।

Sub ConvertTextBoxToCell()
 Dim Sh_xRg As Range
 Dim Sh_xRow As Long
 Dim Sh_xCol As Long
 Dim Sh_xTxtBox As textBox
 Set Sh_xRg = Application.InputBox("Select a cell):", "Convert Text Box to Cell ", _
 ActiveWindow.RangeSelection.AddressLocal, , , , , 8)
 Sh_xRow = Sh_xRg.Row
 Sh_xCol = Sh_xRg.Column
 For Each Sh_xTxtBox In ActiveSheet.TextBoxes
 Cells(Sh_xRow, Sh_xCol).Value = Sh_xTxtBox.Text
 Sh_xRow = Sh_xRow + 1
 Next
End Sub

• F5 दबाएँ कोड चलाने के लिए.
• सेल संदर्भ के लिए एक बॉक्स खुलेगा। बी6 चुनें (टेक्स्ट बॉक्स वाला पहला सेल)।

• ठीक क्लिक करें टेक्स्ट बॉक्स हटाने के लिए.

एक्सेल ग्राफ़ में टेक्स्ट बॉक्स कैसे जोड़ें

• इन्सर्ट>> टेक्स्ट>> टेक्स्ट बॉक्स पर जाएं .
• इसे क्लिक करें और इसे चार्ट क्षेत्र में खींचें जहां आप टेक्स्ट बॉक्स जोड़ना चाहते हैं।

• टेक्स्ट बॉक्स में अपना टेक्स्ट दर्ज करें।

एक्सेल में टेक्स्ट बॉक्स को कैसे हटाएं

• टेक्स्ट बॉक्स को हटाने के लिए, इसके किनारे पर क्लिक करके इसे चुनें।

• हटाएं दबाएं .

जब एक्सेल में टेक्स्ट बॉक्स नहीं दिख रहा हो तो क्या करें?

• इसे बंद और चालू किया जा सकता है। Ctrl+6 दबाएँ .

• यदि आप Ctrl+6 दबाते हैं , यह दिखाई नहीं देगा।

एक्सेल में टेक्स्ट बॉक्स:नॉलेज हब