單擊Excel中的數據驗證列表時如何放大或縮小單元格？
無論您在工作表中更改什麼字體大小，數據驗證列表中的字體都是固定的，這裡介紹在單擊Excel數據驗證列表單元格時放大或縮小宏的代碼。
放大或縮小數據驗證列表
要放大特定的數據驗證列表，可以使用以下代碼。
1.右鍵單擊您使用的工作表標籤，然後單擊 查看代碼 使之成為可能 Microsoft Visual Basic for Applications 窗口。
2.在窗口中，將代碼複製並粘貼到腳本中。 看截圖：
VBA：放大特定的數據驗證列表
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice20171215
On Error GoTo xErr
If Target.Validation.Type > -1 Then
ActiveWindow.Zoom = 140
Exit Sub
End If
xErr:
ActiveWindow.Zoom = 100
End Sub
3. Save the code and go back to the sheet, while clicking on the cell C1 which contains data validation list, the zoom will be enlarged.
Tip:
If you want to zoom up or down while clicking any one data validation lists, you can use this code:
VBA： Zoom up or down while clicking on data validation list
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice20171215
On Error GoTo xErr
If Target.Validation.Type > -1 Then
ActiveWindow.Zoom = 140
Exit Sub
End If
xErr:
ActiveWindow.Zoom = 100
End Sub
Split Names function can quickly split first names, middle names and last names from one cell into separate columns
Relative Articles:
The Best Office Productivity Tools
Kutools for Excel Solves Most of Your Problems, and Increases Your Productivity by 80%
- Reuse: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
- Super Formula Bar (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
- Merge Cells/Rows/Columns without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
- Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
- Exact Copy Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
- Extract Text, Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
- Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
- Combine Workbooks and WorkSheets; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
- More than 300 powerful features. Supports Office / Excel 2007-2021 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial. 60-day money back guarantee.
Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier
- Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
- Open and create multiple documents in new tabs of the same window, rather than in new windows.
- Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!
