Excel में सेल का आकार सेमी (सेंटीमीटर) में कैसे सेट करें?
वर्कशीट पर, पंक्ति की ऊँचाई और स्तंभ की चौड़ाई के लिए डिफ़ॉल्ट इकाइयाँ पूर्व निर्धारित होती हैं, और डिफ़ॉल्ट स्तंभ की चौड़ाई 8.38 वर्ण होती है और डिफ़ॉल्ट पंक्ति की ऊँचाई 12.75 अंक होती है। और एक्सेल में आपके लिए पंक्ति की ऊंचाई या कॉलम की चौड़ाई इंच या सेंटीमीटर में सेट करना मुश्किल है। लेकिन, कभी-कभी आपको किसी उद्देश्य के लिए ऊंचाई और चौड़ाई को सेंटीमीटर में बदलने की आवश्यकता होती है। आप इस समस्या को कैसे हल कर सकते हैं?
वीबीए कोड के साथ सेल का आकार सेमी (सेंटीमीटर) में सेट करें
एक्सेल के लिए कुटूल के साथ सेल का आकार सेमी (सेंटीमीटर) में सेट करें
वीबीए कोड के साथ सेल का आकार सेमी (सेंटीमीटर) में सेट करें
VBA कोड का उपयोग करने के अलावा, आप Excel के फ़ंक्शंस के साथ ऊंचाई और चौड़ाई को सेंटीमीटर में सेट नहीं कर सकते। नीचे दिए गए दो कोड आपको कॉलम की चौड़ाई और पंक्ति की ऊंचाई निर्धारित करने में मदद कर सकते हैं। इस प्रकार करें:
1. उन सेलों का चयन करें जिन्हें आप सेंटीमीटर में सेट करना चाहते हैं।
2। क्लिक करें डेवलपर > Visual Basic के, एक नया अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो प्रदर्शित होगी, क्लिक करें सम्मिलित करें > मॉड्यूल, और मॉड्यूल में निम्नलिखित कोड इनपुट करें:
सेंटीमीटर में पंक्ति की ऊंचाई निर्धारित करने के लिए कोड:
Sub RowHeightInCentimeters()
Dim cm As Single
cm = Application.InputBox("Enter Row Height in Centimeters", _
"Row Height (cm)", Type:=1)
If cm Then
Selection.RowHeight = Application.CentimetersToPoints(cm)
End If
End Sub
3। तब दबायें कोड निष्पादित करने के लिए बटन। और एक प्रॉम्प्ट बॉक्स पॉप अप होकर आपको पंक्ति की ऊंचाई की संख्या दर्ज करने के लिए कहेगा। स्क्रीनशॉट देखें:
नोट: आपके द्वारा दर्ज की गई संख्या 15 से कम होनी चाहिए। और यदि आप इस संवाद बॉक्स में 0 दर्ज करते हैं तो यह वीबीए कोड पंक्ति की ऊंचाई नहीं बदलेगा।
4। क्लिक करें OK. तथा चयनित सेलों की पंक्ति की ऊंचाई 2 सेंटीमीटर निर्धारित की गई है। स्क्रीनशॉट देखें:
यदि आप कॉलम की चौड़ाई सेंटीमीटर में भी सेट करना चाहते हैं, तो आप निम्नलिखित कोड इनपुट कर सकते हैं:
सेंटीमीटर में कॉलम की चौड़ाई निर्धारित करने के लिए कोड:
Sub ColumnWidthInCentimeters()
Dim cm As Single, points As Integer, savewidth As Integer
Dim lowerwidth As Integer, upwidth As Integer, curwidth As Integer
Dim Count As Integer
Application.ScreenUpdating = False
cm = Application.InputBox("Enter Column Width in Centimeters", _
"Column Width (cm)", Type:=1)
If cm = False Then Exit Sub
points = Application.CentimetersToPoints(cm)
savewidth = ActiveCell.ColumnWidth
ActiveCell.ColumnWidth = 255
If points > ActiveCell.Width Then
MsgBox "Width of " & cm & " is too large." & Chr(10) & _
"The maximum value is " & _
Format(ActiveCell.Width / 28.3464566929134, _
"0.00"), vbOKOnly + vbExclamation, "Width Error"
ActiveCell.ColumnWidth = savewidth
Exit Sub
End If
lowerwidth = 0
upwidth = 255
ActiveCell.ColumnWidth = 127.5
curwidth = ActiveCell.ColumnWidth
Count = 0
While (ActiveCell.Width <> points) And (Count < 20)
If ActiveCell.Width < points Then
lowerwidth = curwidth
Selection.ColumnWidth = (curwidth + upwidth) / 2
Else
upwidth = curwidth
Selection.ColumnWidth = (curwidth + lowerwidth) / 2
End If
curwidth = ActiveCell.ColumnWidth
Count = Count + 1
Wend
End Sub
एक्सेल के लिए कुटूल के साथ सेल का आकार सेमी (सेंटीमीटर) में सेट करें
उपरोक्त कोड के साथ, आप केवल सेंटीमीटर में सेल का आकार निर्धारित कर सकते हैं, आज, मैं आपको एक बहुक्रियाशील उपकरण पेश करूंगा, एक्सेल के लिए कुटूल जो न केवल सेंटीमीटर में बल्कि इंच, पाउंड और पिक्सल में भी सेल का आकार निर्धारित कर सकता है।
एक्सेल के लिए कुटूल, से अधिक के साथ 300 सुविधाजनक कार्य, आपके कार्यों को और अधिक आसान बनाते हैं। | ||
स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया नीचे दिए अनुसार कार्य करें:(अब एक्सेल के लिए नि:शुल्क कुटूल डाउनलोड करें!)
1.उन सेलों को हाइलाइट करें जिन्हें आप सेंटीमीटर में सेट करना चाहते हैं।
2। क्लिक करें Kutools > Format > Adjust Cell Size, स्क्रीनशॉट देखें:
3। में Adjust Cell Size संवाद बॉक्स, चुनें Unit type आपको इसकी आवश्यकता है और निर्दिष्ट करें Row height और Column width से Set values अनुभाग। स्क्रीनशॉट देखें:
4। तब दबायें OK or लागू करें. आपको 2 सेमी पंक्ति ऊंचाई और 3 सेमी कॉलम चौड़ाई वाले सेल मिलेंगे।
एक्सेल के लिए कुटूल के साथ सेल का आकार सेमी (सेंटीमीटर) में सेट करें
एक्सेल के लिए कुटूल: 300+ फ़ंक्शन जो आपके पास एक्सेल में होने चाहिए, यहां से 30 दिन का निःशुल्क परीक्षण। |
संबंधित आलेख:
किसी श्रेणी के लिए स्तंभ की चौड़ाई और पंक्ति की ऊंचाई निर्धारित करें
Excel में एकाधिक कक्षों को वर्गाकार कैसे करें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!