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

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

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

下面的代碼在選擇數(shù)據(jù)有效性列表單元格時(shí)將工作表的尺寸縮放為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