2011-12-22 30 views

cevap

6

Bir Uygulama Etkinliği alacak olan bir nesne modülünü kullanabilirsiniz (Chip Pearson's website hakkında daha fazla bilgi edinin).

Bu

Mecbur kodudur dosyanın PERSONAL.XLSB ait modülüne ThisWorkbook için yere yapıştırın:

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 

Ayrıca çalışma kitabı yaprak üzerinde bir döngü ekleyebilir.

+1

Her bir Excel dosyası için kodun tetiklenmesi için bir Class Module Uygulama Olayı yakalama Kitabı Açma işleminin gerekli olacağını düşünüyorum (bu, Pearson's sitesinden aynı bağlantıyla yazılır). – brettdj

+0

Bu yeni Sınıf Modülü'nü kopyalayıp kopyasını kişisel.xlsb'ye kopyaladım. Ama kaydedilmiş bir excel dosyasını açtığımda hiçbir şey olmuyor ve sütunlar otomatikleştirilemiyor. – jrara

+1

Bağlantıyı kontrol ettiniz ve brettj tarafından verilen talimatları takip ettiniz mi? – JMax

İlgili konular