摘要： 在使用excel时，当使用数据有效性创建下拉列表时，不能够改变字体或字体大小。如果缩小工作表的尺寸，那么将难以阅读列表中的项目。 要使列表中的文本看起来...
在使用excel时，当使用数据有效性创建下拉列表时，不能够改变字体或字体大小。如果缩小工作表的尺寸，那么将难以阅读列表中的项目。
要使列表中的文本看起来更大，可以使用VBA代码，使得在选择数据有效性单元格时增大工作表缩放尺寸设置，从而使数据有效性列表中的文本看起来更大。
下面的代码在选择数据有效性列表单元格时将工作表的尺寸缩放为120%。如果选择的单元格中没有设置数据有效性，那么工作表尺寸缩放为100%。
VBA代码实现Excel中数据快速录入
在Excel中录入数据有很多的技巧，合理地运用它们可以提高我们的工作效率。本文另辟蹊径，向大家介绍一下如何利用VBA代码实现数据的快速录入。请看下面的例子。 假设在填写的某列数据中，员工所属的部门有“一车间”、“二车间”、“销售部”等等，如果我
代码
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 vba随机函数用法和实例
本文介绍vb随机函数中的Rnd函数，并配合取整函数int来介绍vb随机函数的使用过程。 第一，vb随机函数介绍 Rnd 函数是vb随机函数。 Rnd 函数的作用是返回小于 1 但大于或等于 0 的值。比如0.871445835、0.056236863这样的随机小数。 第二，vb随机函数实例介绍 1.比如要在A1
