Excel指定单元格区域输入特定值时自动调整字体大小的宏需求

我来帮你完善这个需求～首先得明确，Excel里处理单元格内容变更的核心是工作表的Worksheet_Change事件，咱们可以把新需求和你现有的宏逻辑整合到一起，或者做成独立的宏来调用，两种方案都给你整理好了：

方案1：在现有变更事件里直接扩展逻辑 #

如果你的第一个宏已经写在工作表模块的Worksheet_Change里，直接加一段判断就行，这样代码更集中：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 先定义咱们要监控的区域：第7到16列（也就是G到P列）
    Dim watchRange As Range
    Set watchRange = Me.Range("G:P") ' 也可以写成Columns(7)到Columns(16)，看你习惯
    
    ' 先判断修改的单元格是不是在咱们监控的范围内，而且是单个单元格（避免批量粘贴出问题）
    If Not Intersect(Target, watchRange) Is Nothing And Target.Cells.Count = 1 Then
        ' 这里保留你原来的逻辑：输入3或11时触发原宏操作
        If Target.Value = 3 Or Target.Value = 11 Then
            ' 把你原宏的代码放在这里，比如Call YourOriginalMacro(Target)
        End If
        
        ' 新需求：只有输入11的时候，把字体从11号改成12号
        If Target.Value = 11 Then
            ' 先禁用事件，防止意外循环触发（虽然改字体默认不会触发变更事件，但保险起见）
            Application.EnableEvents = False
            ' 加个判断，只有当前字体是11号才改，避免重复操作
            If Target.Font.Size = 11 Then
                Target.Font.Size = 12
            End If
            ' 别忘了恢复事件，不然以后的变更事件都不触发了！
            Application.EnableEvents = True
        End If
    End If
End Sub

方案2：做成独立宏再调用 #

如果你想把调字体的逻辑单独抽出来，方便后续复用，那就这么写：

先在标准模块里新建一个独立宏：

Sub Increase_Character_Size(ByVal Target As Range)
    ' 先检查是不是在咱们要监控的7-16列，而且是单个单元格
    If (Target.Column >= 7 And Target.Column <= 16) And Target.Cells.Count = 1 Then
        ' 只有输入值是11的时候才执行
        If Target.Value = 11 Then
            Application.EnableEvents = False
            If Target.Font.Size = 11 Then
                Target.Font.Size = 12
            End If
            Application.EnableEvents = True
        End If
    End If
End Sub

然后回到工作表模块的Worksheet_Change事件里，调用这个宏（同时保留你原来的逻辑）：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 先处理原宏的触发逻辑：输入3或11时执行原操作
    If (Target.Column >=7 And Target.Column <=16) And Target.Cells.Count =1 Then
        If Target.Value =3 Or Target.Value=11 Then
            ' 这里放你原宏的调用，比如Call YourOriginalMacro(Target)
        End If
        
        ' 调用咱们新的调字体宏
        Call Increase_Character_Size(Target)
    End If
End Sub

几个关键提醒 #

• 你原代码里的Targe是拼写错误，一定要改成Target，不然会报错
• 禁用事件后一定要记得恢复，不然Excel的变更事件会失效，影响其他操作
• 如果用户可能输入文本型的"11"（比如手动输入带引号或者格式问题），可以把判断改成CStr(Target.Value) = "11"，这样数值和文本的11都能触发
• 加个Target.Cells.Count =1的判断，是为了防止批量粘贴多个单元格的时候，代码重复执行或者出错

内容的提问来源于stack exchange，提问作者Kuseikos