Pēc darblapas apstrādes ar VBA var būt nepieciešams automātiski pielāgot slejas, lai parādītu iespējami jaukāko gala rezultātu. Tālāk ir norādīts, kā automātiski pielāgot kolonnas, izmantojot VBA.
Autofit kolonna, izmantojot VBA
Šis kods automātiski pielāgo A un B slejas. Automātiskais pielāgojums tiek lietots aktīvajai lapai.
1 | Kolonnas ("A: B"). Visa kolonna.Autofit |
Automātiski pielāgot visas lietotās kolonnas
Ko darīt, ja vēlaties automātiski pielāgot visas darblapas izmantotās kolonnas? Izmantojiet iepriekš minēto metodi kopā ar saskaitīto izmantoto kolonnu skaitu un cilpu.
Šis kods automātiski pielāgo visas izmantotās kolonnas, izmantojot VBA:
1234567891011 | Sub AutofitAllUsed ()Dim x kā vesels skaitlisX = 1 uz ActiveSheet.UsedRange.Columns.CountKolonnas (x) .VisaColumn.autofitNākamais xBeigu apakš |