Contents
動画解説
ドロップダウンリストの文字はセルを拡大表示するとリストの文字も大きく表示されます。
しかし、毎回リストを選択するたびにセルの拡大を行うのは手間がかかります。
今回ご紹介するVBAを使った方法で、ドロップダウンリストのセルを選択するとセルが拡大され
リストの文字が大きく表示されるので選択しやすくなります。
また、ドロップダウンリストが設定されていない他のセルを選択すると指定した倍率に
瞬時に変更されます。
VBAウィンドウを開く
ドロップダウンリストが設定されているシート見出しを右クリックして
コードの表示を選択します。
すると、エクセルVBAのウィンドウが開きます。
VBAコードをコピーして貼り付ける
開いた白紙のVBAウィンドウ内に以下のコードをコピーして貼り付けます。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo LZoom
Dim xZoom As Long
xZoom = 100 ’元に戻すサイズ%
If Target.Validation.Type = xlValidateList Then xZoom = 200 ’拡大するサイズ%
LZoom:
ActiveWindow.Zoom = xZoom
End Sub
コード内の100は、リスト以外のセルを選択したときに縮小される％でこの数字を80にすると80％になります。
200の数字とのころは、リストを選択したときに拡大される％でこの数字を300にすると300％に拡大されます。
好みの大きさに表示されるように調節してください。
