用vba實現excel的行高和列寬隨行數和列數的變化而自動調整？

1、以B4豎向打印為例,首先得到A列非空的行數m和非空的列數n,那麽單行的行寬大約是720/m和單列的列寬是83/n時，大概剛好打印為壹頁。如果妳打印預覽不是剛好壹頁，妳可以調整720和83這兩個數字。

通過改變RowHeight和ColumnWidth值，VBA可以調節行高和列寬。

妳在A列追加壹些數據，或者在第壹行的最右面追加些數據，再執行test1程序看打印預覽是否還是自動調整到壹個整頁：

Sub sss()

'非空行數為m,非空列數為n

m = [A65535].End(xlUp).Row

n = [iv1].End(xlToLeft).Column

Rows("1:" & m).RowHeight = 720 / m

Range(Cells(1, 1), Cells(1, n)).ColumnWidth = 83 / n

End Sub

2、不建議妳用上面那個改變行高和列寬的方法，因為字體妳還要編程序進行改變。簡單的辦法就是把要打印的區域用VBA設置成整頁.比如test2這個樣子：

Sub test2()

m = [A65535].End(xlUp).Row

n = [iv1].End(xlToLeft).Column

With ActiveSheet.PageSetup

.PrintArea = ActiveSheet.Range(Cells(1, 1), Cells(m, n)).Address

.FitToPagesWide = 1

.FitToPagesTall = 1

End With

End Sub

上一篇:國行Switch再邁進壹步！《新超級馬裏奧兄弟U》過審

下一篇:excel表格動態顯示內容和圖片怎麽做？