excel數(shù)據(jù)有效性 使EXCEL里數(shù)據(jù)有效性列表顯示得更大些的方法，今天給大家?guī)淼倪@篇文章主要講的是，excel數(shù)據(jù)有效性的相關(guān)知識，或許有很多人都曾被這個問題困擾，但是當(dāng)你看完excel數(shù)據(jù)有效性 使EXCEL里數(shù)據(jù)有效性列表顯示得更大些的方法這篇文章的時候我相信你一定不會載被這個問題所困擾了，一起來看看吧！

在使用excel時，當(dāng)使用數(shù)據(jù)有效性創(chuàng)建下拉列表時，不能夠改變字體或字體大小。如果縮小工作表的尺寸，那么將難以閱讀列表中的項目。

要使列表中的文本看起來更大，可以使用VBA代碼，使得在選擇數(shù)據(jù)有效性單元格時增大工作表縮放尺寸設(shè)置，從而使數(shù)據(jù)有效性列表中的文本看起來更大。

下面的代碼在選擇數(shù)據(jù)有效性列表單元格時將工作表的尺寸縮放為120%。如果選擇的單元格中沒有設(shè)置數(shù)據(jù)有效性，那么工作表尺寸縮放為100%。

代碼

Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim lZoom As LongDim lZoomDV As LongDim lDVType As LonglZoom = 100lZoomDV = 120lDVType = 0Application.EnableEvents = FalseOn Error Resume NextlDVType = Target.Validation.TypeOn Error GoTo errHandlerIf lDVType <> 3 ThenWith ActiveWindowIf .Zoom <> lZoom Then.Zoom = lZoomEnd IfEnd WithElseWith ActiveWindowIf .Zoom <> lZoomDV Then.Zoom = lZoomDVEnd IfEnd WithEnd IfexitHandler:Application.EnableEvents = TrueExit SuberrHandler:GoTo exitHandlerEnd Sub