VBA初心者ですので、よろしくお願いします。
答えを求めてサイトを検索しましたが、見つかりませんでした。
Excel 2007 内のワークシート VBA として入力すると、正確に機能するこの VBA コードがあります。つまり、列 A のセルが強調表示されると、ズームが 120 に増加し、列 A 以外のセルが強調表示されると、ズームが 75 に戻ります。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column = 1 Then
ActiveWindow.Zoom = 120
Else
ActiveWindow.Zoom = 75
End If
End Sub
このコードをブック全体に適用したかったので、「ThisWorkbook」領域に配置し、構文を次のように変更しました。
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column = 1 Then
ActiveWindow.Zoom = 120
Else
ActiveWindow.Zoom = 75
End If
End Sub
しかし、私は同じ結果を得ていません。
2 番目の例では、列 A のセルは、強調表示されたときに 120 に「自動的に」ズームしません。列Aで値を選択または入力した場合にのみズームします。その後、ズームは120のままで、75に戻りません。
助けてください。
ありがとう。