वर्कबुक की प्रत्येक वर्कशीट का आकार कैसे जांचें?
मान लीजिए कि आपके पास एक बड़ी कार्यपुस्तिका है जिसमें कई कार्यपत्रक हैं, और अब, आप यह निर्धारित करने के लिए प्रत्येक कार्यपत्रक का आकार जानना चाहते हैं कि किस पत्रक को छोटा करने की आवश्यकता है। क्या इस कार्य से निपटने के लिए कोई त्वरित तरीके हैं?
वीबीए कोड के साथ प्रत्येक वर्कशीट का आकार जांचें
एक्सेल के लिए कुटूल के साथ प्रत्येक वर्कशीट का आकार जांचें
वीबीए कोड के साथ प्रत्येक वर्कशीट का आकार जांचें
निम्नलिखित वीबीए कोड के साथ, आप अपनी कार्यपुस्तिका में प्रत्येक कार्यपत्रक का आकार शीघ्रता से प्राप्त कर सकते हैं। कृपया इस प्रकार करें:
1. दबाए रखें ALT + F11 कुंजियाँ, और यह खुल जाती है एप्लीकेशन विंडो के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल विंडो.
वीबीए कोड: कार्यपुस्तिका में प्रत्येक कार्यपत्रक का आकार जांचें
Sub WorksheetSizes()
'Update 20140526
Dim xWs As Worksheet
Dim Rng As Range
Dim xOutWs As Worksheet
Dim xOutFile As String
Dim xOutName As String
xOutName = "KutoolsforExcel"
xOutFile = ThisWorkbook.Path & "\TempWb.xls"
On Error Resume Next
Application.DisplayAlerts = False
Err = 0
Set xOutWs = Application.Worksheets(xOutName)
If Err = 0 Then
xOutWs.Delete
Err = 0
End If
With Application.ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1))
.Name = xOutName
.Range("A1").Resize(1, 2).Value = Array("Worksheet Name", "Size")
End With
Set xOutWs = Application.Worksheets(xOutName)
Application.ScreenUpdating = False
xIndex = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> xOutName Then
xWs.Copy
Application.ActiveWorkbook.SaveAs xOutFile
Application.ActiveWorkbook.Close SaveChanges:=False
Set Rng = xOutWs.Range("A1").Offset(xIndex, 0)
Rng.Resize(1, 2).Value = Array(xWs.Name, VBA.FileLen(xOutFile))
Kill xOutFile
xIndex = xIndex + 1
End If
Next
Application.ScreenUpdating = True
Application.Application.DisplayAlerts = True
End Sub
3. फिर दबायें F5 इस कोड को निष्पादित करने के लिए कुंजी, और एक नई वर्कशीट नामित KutoolsforExcel वर्तमान कार्यपुस्तिका में डाला जाएगा जिसमें प्रत्येक कार्यपत्रक का नाम और फ़ाइल आकार शामिल है, और इकाई बिट है। स्क्रीनशॉट देखें:
एक्सेल के लिए कुटूल के साथ प्रत्येक वर्कशीट का आकार जांचें
यदि आपके पास एक्सेल के लिए कुटूल, के साथ अपने विभाजित कार्यपुस्तिका उपयोगिता, आप संपूर्ण कार्यपुस्तिका को अलग-अलग फ़ाइलों में विभाजित कर सकते हैं, और फिर प्रत्येक फ़ाइल के आकार की जांच करने के लिए विशिष्ट फ़ोल्डर में जा सकते हैं।
एक्सेल के लिए कुटूल इसमें 300 से अधिक उपयोगी एक्सेल टूल शामिल हैं। 30 दिनों में बिना किसी सीमा के प्रयास करने के लिए निःशुल्क। अब समझे.
एक्सेल के लिए कुटूल स्थापित करने के बाद, निम्न चरणों का पालन करें:
1. वह कार्यपुस्तिका खोलें जिसके प्रत्येक कार्यपत्रक का आकार आप जांचना चाहते हैं, और क्लिक करें उद्यम > कार्यपुस्तिका उपकरण > विभाजित कार्यपुस्तिका, स्क्रीनशॉट देखें:
2. में विभाजित कार्यपुस्तिका डायलॉग, सभी वर्कशीट जांचें और क्लिक करें विभाजित करें बटन, और फिर नई कार्यपुस्तिका फ़ाइलें डालने के लिए एक फ़ोल्डर निर्दिष्ट करें। स्क्रीनशॉट देखें:
3. और फिर आपकी वर्तमान कार्यपुस्तिका की प्रत्येक कार्यपत्रक अलग एक्सेल फ़ाइल के रूप में सहेजी जाएगी, आप प्रत्येक कार्यपुस्तिका के आकार की जांच करने के लिए अपने विशिष्ट फ़ोल्डर में जा सकते हैं।
इस स्प्लिट वर्कबुक सुविधा के बारे में अधिक जानने के लिए।
संबंधित आलेख:
Excel में Excel फ़ाइलों को अलग करने के लिए कार्यपुस्तिका को कैसे विभाजित करें?
एक्सेल में नई वर्कबुक के रूप में शीट और वर्कशीट को कैसे निर्यात और सहेजें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!