ExcelですべてのタブをXNUMXつのサイズにズームするにはどうすればよいですか？

デフォルトでは、シートは100％ズームですが、ズームスライダーをドラッグすることで、必要に応じて現在のタブを特定のサイズにズームできます。 ただし、ブック内のすべてのタブを同時に同じサイズにズームするにはどうすればよいですか？

CtrlまたはShiftを使用して、すべてのタブをXNUMXつのサイズにズームします

VBAですべてのタブをXNUMXつのサイズにズーム

---

CtrlまたはShiftを使用して、すべてのタブをXNUMXつのサイズにズームします

ブックのXNUMXつのサイズですべてまたは一部のタブをズームするには、最初にシートタブを選択してから、ズームします。

ホールド Ctrlキー キーを押して、ズームレベルを一括で変更するシートタブを選択し、ズームスライダーをドラッグします。 スクリーンショットを参照してください：

最初のタブを選択して保留 シフト キーを押して[シート]タブバーの最後のタブを選択し、ズームスライダーをドラッグしてズームレベルを変更します。

---

VBAですべてのタブをXNUMXつのサイズにズーム

VBAコードを使用して解決する場合は、次のコードが役立ちます。

1。 押す Altキー+ F11 を有効にするためのキー アプリケーション向け Microsoft Visual Basic 窓。

2。 クリック インセット > モジュール、コードをコピーして空白のスクリプトに貼り付けます。

VBA：すべてのタブをサイズ内で縮小または拡大します

Sub DbZoom()
'UpdatebyExtendoffice20171215
    Dim I As Long
    Dim xActSheet As Worksheet
    Set xActSheet = ActiveSheet
    For I = 1 To ThisWorkbook.Sheets.Count
        Sheets(I).Activate
        ActiveWindow.Zoom = 150
    Next
    xActSheet.Select
End Sub

3。 押す F5 キーを実行すると、すべてのシートタブのズームレベルが指定されたパーセンテージに一括で変更されました。