Sub test()
a = Sheets.Count
For i = 1 To a
Sheets(i).Select
Range("a1").Select
ActiveWindow.Zoom = 80
Next
End Sub
想要把excel中所有的sheet頁設定成活動單元格置成A1，縮放比例是80%的，但是到第二個sheet頁置成A1的時候就報錯了，這是怎么回事呢，或者有沒有其他方法實作這個功能呢
uj5u.com熱心網友回復：
請參考：Sub test()
Dim Sht As Worksheet
For Each Sht In ThisWorkbook.Sheets
With Sht
.Activate
.Range("a1").Activate
End With
ActiveWindow.Zoom = 90
Next
End Sub
uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
1樓代碼正解uj5u.com熱心網友回復：
Select和Activate不是一回事。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/128868.html
標籤：VBA