使用Excel VBA來更改視圖

Question

我想運行一個簡單的For Each循環改變Excel中的觀點，但要得到一個：

438運行時錯誤

Sub ChangeView() 

Dim ws As Worksheet 

For Each ws In ActiveWorkbook.Worksheets 
    ws.Select 
    ActiveWindow = xlNormalView 
    Range("A1").Select 
Next 

錯誤突出顯示ActiveWindow一行。爲什麼？

Answer 1

ActiveWindow是對象，xlNormalView是與該對象的屬性相關聯的長/枚舉常數。您不能將屬性值分配給對象本身，而是將其分配給適當的屬性。我相信正確的將是：

ActiveWindow.View = xlNormalView