如何使EXCEL里数据有效性列表显示得更大些的方法
时间:2023-04-15 15:32:11
在使用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
标签:单元格,数据,更大,有效性,Excel函数
0
投稿
猜你喜欢
如何在word中插入绘制logo图片
2022-01-27 23:08:40
Excel怎么批量给单元格添加固定前缀/后缀?
2023-05-15 22:16:31
[播放Excel数据] Excel数据分析教程/Excel表格排序/过滤/分类/合并计算等
2022-05-09 19:37:06
Office 13901.20036 预览版发布:可自动保存加密文档
2023-06-10 21:55:24
Excel怎么绘制组织结构图?
2022-02-06 17:37:39
Excel如何隐藏功能区
2022-11-25 20:13:40
Exce表格只读模式如何取消
2023-12-12 15:25:26
2003excel表格怎么截图
2022-03-30 07:38:42
怎样在Word2010文档中设置剪贴画棱台效果
2023-10-01 22:12:42
如何用Excel制作条形码
2022-01-19 10:05:03
word文档如何删除一节
2022-11-12 02:30:36
excel中打出加号的方法步骤
2022-01-29 06:59:30
word2013如何设置显示修订痕迹
2023-11-29 19:23:19
EXCEL公式怎么输入
2022-03-11 13:24:22
合并单元格中如何使用VLOOKUP函数进行数据查找
2022-11-09 09:59:10
OBS Studio查看录制视频的方法教程
2023-06-03 21:35:31
在word中怎么制作网格作文纸?
2023-07-19 00:14:56
Win10系统BAD SYSTEM CONFIG INFO蓝屏?Win10系统BAD SYSTEM CONFIG INFO蓝屏教程
2023-11-11 21:00:00
电脑打开Excel表格,总需要加载配置文件怎么回事
2022-11-28 16:51:22
Excel 单元格如何自动调整字体大小?
2023-12-14 00:35:16