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

各位用户为了找寻关于如何使EXCEL里数据有效性列表显示得更大些的方法的资料费劲了很多周折。这里教程网为您整理了关于如何使EXCEL里数据有效性列表显示得更大些的方法的相关资料，仅供查阅，以下为您介绍关于如何使EXCEL里数据有效性列表显示得更大些的方法的详细内容

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

要使列表中的文本看起来更大，可以使用VBA代码，使得在选择数据有效性单元格时增大工作表缩放尺寸设置，从而使数据有效性列表中的文本看起来更大。

下面的代码在选择数据有效性列表单元格时将工作表的尺寸缩放为120%。如果选择的单元格中没有设置数据有效性，那么工作表尺寸缩放为100%。

代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim lZoom As LongDim lZoomDV As LongDim lDVType As LonglZoom = 100lZoomDV = 120lDVType = 0

Application.EnableEvents = FalseOn Error Resume NextlDVType = Target.Validation.Type

On Error GoTo errHandlerIf lDVType <> 3 ThenWith ActiveWindowIf .Zoom <> lZoom Then.Zoom = lZoomEnd IfEnd WithElseWith ActiveWindowIf .Zoom <> lZoomDV Then.Zoom = lZoomDVEnd IfEnd WithEnd If

exitHandler:Application.EnableEvents = TrueExit SuberrHandler:GoTo exitHandlerEnd Sub