Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("ProduktSelection")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
ActiveWindow.Zoom = 100
End If
End Sub
然后我有另一个子
Private Sub Worksheet_Change(ByVal Target As Range)
5 回答
遗憾的是,您无法在使用数据验证创建的下拉列表中更改字体大小或样式 .
但是,您可以在组合框中设置文本样式 . 按照此处的说明操作:Excel Data Validation Combo Box
您无法更改默认值,但有无代码的解决方法 .
选择整个工作表并将数据上的字体大小更改为小的,如10或12.当您放大查看数据时,您会发现下拉框条目现在可见 .
要强调的是,问题不在于下拉列表中字体的大小,而是下拉列表和数据显示字体大小之间的相对大小 .
我工作在60-70%缩放视频,我的下拉列表是不可读的所以我做了这个简单的代码来克服这个问题
请注意,我首先选择了所有下拉列表(CTRL鼠标单击),进入公式选项卡,单击“定义名称”并将其命名为“ProduktSelection”
然后我有另一个子
当 Value 改变时,我回到65% .
尝试将整个表格字体缩小 . 然后缩放并保存 . 首先制作一个练习表,因为它确实搞砸了一切 .
这是样式下拉列表的链接 . 实际上,解决方案是基于诸如"text in the cell"的条件来格式化单元格 . 将文本与下拉条目和单元格范围匹配到将应用下拉框的所有单元格 .
http://office.microsoft.com/en-us/excel-help/apply-conditional-formatting-based-on-text-in-a-cell-HA102809699.aspx
为我工作 .