excel圖表技巧：顯示數(shù)據(jù)有效性列表

excel圖表技巧：顯示數(shù)據(jù)有效性列表

數(shù)據(jù)有效性（即“數(shù)據(jù)驗證”）是Excel中常使用的一項功能。然而，在使用數(shù)據(jù)有效性創(chuàng)建好下拉列表后，我們不能夠隨便修改列表中的字體或字體大小。如果工作表顯示比例較小，那么數(shù)據(jù)有效性列表中的內(nèi)容也會相應(yīng)地變小，這樣就很難看清楚里面的內(nèi)容，如下圖1所示。

圖1

我們可以使用一點小技巧，用VBA代碼使得當(dāng)用戶選擇數(shù)據(jù)有效性列表所在的單元格時，增大工作表的顯示比例，使數(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)單元格的有效性類型

lDVType =Target.Validation.Type

On Error GoTo errHandler

‘判斷有效性類型是否為序列

‘3代表數(shù)據(jù)有效性類型為序列

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ù)有效性列表單元格時將工作表的尺寸擴(kuò)大為120%。如果所選擇的單元格中沒有設(shè)置數(shù)據(jù)有效性，那么工作表尺寸恢復(fù)為100%。效果演示如下圖3所示。

圖3

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。