191问答库 > 通过VBA语言变大EXCEL下拉菜单字体，但怎么能点击几个单元格时都能放大

通过VBA语言变大EXCEL下拉菜单字体，但怎么能点击几个单元格时都能放大

2025-05-01 20:56:23

推荐回答（3个）

回答1：

你的这个要求还挺奇怪的，放大EXCEL干嘛用，我倒是很好奇。
你要求的代码很简单，如下：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target,range("B7:EG7")) Is Nothing Then
ActiveWindow.Zoom = 150
Else
ActiveWindow.Zoom = 100
End If
End Sub

回答2：

在Private Sub Worksheet_SelectionChange(ByVal Target As Range)里面添加你的代码。

回答3：

把 if Target.Address = "$B$7" Then 这一行改成 if Target.Row = 7 Then