數(shù)據(jù)有效性（即“數(shù)據(jù)驗(yàn)證”）是Excel中常使用的一項(xiàng)功能。然而，在使用數(shù)據(jù)有效性創(chuàng)建好下拉列表后，我們不能夠隨便修改列表中的字體或字體大小。如果工作表顯示比例較小，那么數(shù)據(jù)有效性列表中的內(nèi)容也會(huì)相應(yīng)地變小，這樣就很難看清楚里面的內(nèi)容，如下圖1所示。
圖1
我們可以使用一點(diǎn)小技巧，用VBA代碼使得當(dāng)用戶(hù)選擇數(shù)據(jù)有效性列表所在的單元格時(shí)，增大工作表的顯示比例，使數(shù)據(jù)有效性列表中的字體隨之變大，從而更清楚地看到其內(nèi)容，其效果如下圖2所示。
圖2
代碼如下：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lZoom As Long
Dim lDVZoom As Long
Dim lDVType As Long
‘設(shè)置放大比例
lZoom = 100
lDVZoom = 120
lDVType = 0
Application.EnableEvents = False
On Error Resume Next
‘目標(biāo)單元格的有效性類(lèi)型
lDVType =Target.Validation.Type
On Error GoTo errHandler
‘判斷有效性類(lèi)型是否為序列
‘3代表數(shù)據(jù)有效性類(lèi)型為序列
If lDVType <> 3Then
‘不是序列
‘正常顯示
With ActiveWindow
If .Zoom <>lZoom Then
.Zoom = lZoom
End If
End With
Else
‘是序列
‘放大顯示
With ActiveWindow
If .Zoom <>lDVZoom Then
.Zoom = lDVZoom
End If
End With
End If
exitHandler:
Application.EnableEvents= True
Exit Sub
errHandler:
GoTo exitHandler
End Sub
將代碼放置在設(shè)置了數(shù)據(jù)有效性的工作表模塊中，這樣，在選擇數(shù)據(jù)有效性列表單元格時(shí)將工作表的尺寸擴(kuò)大為120%。如果所選擇的單元格中沒(méi)有設(shè)置數(shù)據(jù)有效性，那么工作表尺寸恢復(fù)為100%。效果演示如下圖3所示。
圖3
