使EXCEL里数据有效性列表显示得更大些的方法

                        在使用excel时，当使用数据有效性创建下拉列表时，不能够改变字体或字体大小。如果缩小工作表的尺寸，那么将难以阅读列表中的项目。

       

        要使列表中的文本看起来更大，可以使用VBA代码，使得在选择数据有效性单元格时增大工作表缩放尺寸设置，从而使数据有效性列表中的文本看起来更大。
        下面的代码在选择数据有效性列表单元格时将工作表的尺寸缩放为120%。如果选择的单元格中没有设置数据有效性，那么工作表尺寸缩放为100%。

       

        代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)     Dim lZoom As Long     Dim lZoomDV As Long     Dim lDVType As Long     lZoom = 100     lZoomDV = 120     lDVType = 0     Application.EnableEvents = False     On Error Resume Next     lDVType = Target.Validation.Type     On Error GoTo errHandler     If lDVType <> 3 Then         With ActiveWindow             If .Zoom <> lZoom Then               .Zoom = lZoom             End If         End With     Else         With ActiveWindow           If .Zoom <> lZoomDV Then             .Zoom = lZoomDV           End If         End With     End If exitHandler:     Application.EnableEvents = True     Exit Sub errHandler:     GoTo exitHandler End Sub 复制代码