एक्सेल में चयनित सेल को ज़ूम या आवर्धित कैसे करें?
जैसा कि हम सभी जानते हैं, एक्सेल में ज़ूम सुविधा है जो हमें संपूर्ण वर्कशीट में सेल वैल्यू का आकार बढ़ाने में मदद करती है। लेकिन, कभी-कभी, हमें केवल चयनित कोशिकाओं को ज़ूम या आवर्धित करने की आवश्यकता होती है। क्या हमारे लिए केवल वर्कशीट में चयनित सेल को बड़ा करने का कोई अच्छा विचार है?
VBA कोड के साथ चयनित सेल को ज़ूम या बड़ा करें
VBA कोड के साथ चयनित सेल को ज़ूम या बड़ा करें
हो सकता है कि हमारे लिए एक्सेल में चयनित सेल्स को बड़ा करने का कोई सीधा तरीका न हो, लेकिन, यहां, मैं इस काम से निपटने के लिए वर्कअराउंड के रूप में एक वीबीए कोड पेश कर सकता हूं। कृपया इस प्रकार करें:
1. उस शीट टैब पर राइट क्लिक करें जिसे आप चयनित कोशिकाओं को स्वचालित रूप से बड़ा करना चाहते हैं, और फिर चुनें कोड देखें संदर्भ मेनू से, खोले गए में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, निम्न कोड को कॉपी करें और रिक्त मॉड्यूल में पेस्ट करें:
वीबीए कोड: चयनित कोशिकाओं को ज़ूम या बड़ा करें:
Private Sub worksheet_selectionchange(ByVal Target As Range)
'Updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xShape As Variant
Set xRg = Target.Areas(1)
For Each xShape In ActiveSheet.Pictures
If xShape.Name = "zoom_cells" Then
xShape.Delete
End If
Next
If Application.WorksheetFunction.CountBlank(xRg) = xRg.Count Then Exit Sub
Application.ScreenUpdating = False
xRg.CopyPicture appearance:=xlScreen, Format:=xlPicture
Application.ActiveSheet.Pictures.Paste.Select
With Selection
.Name = "zoom_cells"
With .ShapeRange
.ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft
.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft
With .Fill
.ForeColor.SchemeColor = 44
.Visible = msoTrue
.Solid
.Transparency = 0
End With
End With
End With
xRg.Select
Application.ScreenUpdating = True
Set xRg = Nothing
End Sub
2. फिर इस कोड विंडो को सहेजें और बंद करें, अब, जब आप कुछ डेटा सेल चुनते हैं या क्लिक करते हैं, तो सेल स्वचालित रूप से एक चित्र के रूप में बड़े हो जाएंगे, स्क्रीनशॉट देखें:
नोट: अन्य कोशिकाओं का चयन करने के बाद चयनित कोशिकाओं को वापस मूल आकार में बदल दिया जाएगा।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!