ऑटोफिट कॉलम - वीबीए कोड उदाहरण

वीबीए के साथ वर्कशीट में हेरफेर करने के बाद आपके कॉलम को ऑटोफिट करना आवश्यक हो सकता है ताकि सबसे अच्छा अंतिम परिणाम संभव हो सके। यहां बताया गया है कि VBA का उपयोग करके कॉलम को ऑटोफिट कैसे करें।

VBA का उपयोग कर ऑटोफिट कॉलम

यह कोड कॉलम ए और बी को ऑटोफिट करता है। ऑटोफिट सक्रिय शीट पर लागू होता है।

1	Columns("A:B").EntireColumn.Autofit

ऑटोफिट सभी प्रयुक्त कॉलम

क्या होगा यदि आप किसी कार्यपत्रक में उपयोग किए गए सभी स्तंभों को स्वतः फ़िट करना चाहते हैं? उपयोग किए गए कॉलम की संख्या और एक लूप की गणना के संयोजन में उपरोक्त विधि का उपयोग करें।

निम्नलिखित कोड VBA का उपयोग करते हुए सभी उपयोग किए गए स्तंभों को स्वतः फ़िट करता है:

1234567891011

सब ऑटोफिटऑलयूज्ड ()मंद x पूर्णांक के रूप मेंx = 1 के लिए ActiveSheet.UsedRange.Columns.Count . के लिएकॉलम (x)। EntireColumn.autofitअगला एक्सअंत उप