2011-12-22 24 views
5

क्या खोलने वाली शीट में सभी कॉलम ऑटोफिट करने का कोई तरीका है जिसमें डेटा है? मैं ऐसे समाधान की तलाश में हूं जो एक निश्चित एक्सेल फ़ाइल पर संशोधनों पर निर्भर नहीं है लेकिन जो प्रत्येक एक्सेल फ़ाइल पर काम करता है और एक्सेल स्टार्टअप पर चलता है।एक्सेल: स्टार्टअप पर कॉलम ऑटोफिट कैसे करें?

उत्तर

6

आप एक ऑब्जेक्ट मॉड्यूल का उपयोग कर सकते हैं जो एप्लिकेशन इवेंट प्राप्त करेगा (Chip Pearson's website पर अधिक जानकारी देखें)। फ़ाइल PERSONAL.XLSB की मॉड्यूल ThisWorkbook करने वाली पेस्ट कॉपी

इस कोड को आप के लिए है:

Option Explicit 

Private WithEvents App As Application 

Private Sub Workbook_Open() 
    Set App = Application 
End Sub 

Private Sub App_WorkbookOpen(ByVal Wb As Workbook) 
    'Statement to show that it works 
    MsgBox "Opened Workbook: " & Wb.Name 
    'Statement to autofit columns 
    ActiveSheet.UsedRange.Columns.AutoFit 
End Sub 

तुम भी कार्यपुस्तिका शीट पर एक पाश जोड़ सकते हैं।

+1

मुझे लगता है कि वर्कबुक ओपन फँसाने वाला क्लास मॉड्यूल एप्लिकेशन इवेंट की आवश्यकता होगी ताकि प्रत्येक एक्सेल फ़ाइल के लिए कोड ट्रिगर किया जा सके (यह पियरसन की साइट से उसी लिंक में लिखा गया है)। – brettdj

+0

मैंने प्रतिलिपि इस नए कक्षा मॉड्यूल को चिपकाया और इसे मेरे व्यक्तिगत.एक्सएलबी में सहेजा। लेकिन जब मैं एक सहेजी गई एक्सेल फ़ाइल खोलता हूं तो कुछ भी नहीं होता है और कॉलम ऑटोफिट नहीं होते हैं। – jrara

+1

क्या आपने लिंक की जांच की है और ब्रेटज द्वारा दिए गए निर्देशों का पालन किया है? – JMax

संबंधित मुद्दे