在使用excel时，当使用数据有效性创建下拉列表时，不能够改变字体或字体大小 。如果缩小工作表的尺寸，那么将难以阅读列表中的项目 。
要使列表中的文本看起来更大，可以使用VBA代码，使得在选择数据有效性单元格时增大工作表缩放尺寸设置，从而使数据有效性列表中的文本看起来更大 。
【使EXCEL里数据有效性列表显示得更大些的方法】下面的代码在选择数据有效性列表单元格时将工作表的尺寸缩放为120% 。如果选择的单元格中没有设置数据有效性，那么工作表尺寸缩放为100% 。
代码
Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim lZoom As LongDim lZoomDV As LongDim lDVType As LonglZoom = 100lZoomDV = 120lDVType = 0Application.EnableEvents = FalseOn Error Resume NextlDVType = Target.Validation.TypeOn Error GoTo errHandlerIf lDVType <> 3 ThenWith ActiveWindowIf .Zoom <> lZoom Then.Zoom = lZoomEnd IfEnd WithElseWith ActiveWindowIf .Zoom <> lZoomDV Then.Zoom = lZoomDVEnd IfEnd WithEnd IfexitHandler:Application.EnableEvents = TrueExit SuberrHandler:GoTo exitHandlerEnd Sub

猜你喜欢

• INDIRECT函数的语法及使用实例
• ADDRESS函数的语法及使用实例
• 使用TRANSPOSE函数实现EXCEL表横向转纵向引用的操作方法
• Excel逻辑比较运算符和布尔函数及实例解说
• 简单11步在Excel中求解二次方程式实例解析
• 芦苇根、芦根的功效与作用以及药用配方与使用禁忌
• 通过Excel的RATE函数计算年收益率的方法
• Excel 2010使用VDB函数计算累计折旧
• 通过SUBSTITUTE函数实现Excel表格内容批量替换的方法
• SUBSTITUTE替换函数使用实例