Vba 在某个范围内输入特定值时更改字体大小

我的问题很简单：我在Excel上有一系列单元格，用户可以在其中输入3到11之间的任意值。我已经有一个宏，每当在我的工作表上输入相同范围的3或11时，它就会运行。但是，我希望有第二个宏，它仅在输入11时触发，以自动将字体大小从11增加到12

以下是我试图做的：

Sub Increase_Character_Size(ByVal Target As Range)

If (Target.Column >= 7 And Target.Column <= 16) Or (Target.Column >= 17 And Target.Column <= 26) And Len(Target.Value) > 0 Then
    If Target.Value = 11 Then
        Cells(Target.Row, Target.Column).Font.Size = 12
    Else
        Cells(Target.Row, Target.Column).Font.Size = 11
    End If
End If

End Sub

Sub-Increase\u Character\u Size（ByVal目标作为范围）
如果（Target.Column>=7，Target.Column=17，Target.Column=0，则
如果Target.Value=11，则
单元格（Target.Row、Target.Column）。Font.Size=12
其他的
单元格（Target.Row，Target.Column）。Font.Size=11
如果结束
如果结束
端接头

然而，它似乎没有任何效果。 有什么建议吗？提前谢谢

注意：我对字体大小编码非常陌生，所以请原谅这里的奇怪错误！

单元格（1,1）。Font.Size=12

在我的Excel中可以立即工作。可能您更改了错误的单元格，或者if中的条件不正确

---

您是否使用特殊事件来执行您想要执行的操作？类似于：

专用子工作表\u更改（ByVal目标为范围）

？

将代码放入工作表模块中，

工作表\u更改（）

事件：

---

Private子工作表\u更改（ByVal目标作为范围）
有目标
如果Val（.Value）=11且.CountLarge=1，则
如果.Column>=7和.Column，您的工作表的名称是什么，该子表（
增加字符大小
）如何调用？您的代码按预期工作。将子表放入工作表模块，并将其重命名为
子工作表更改（ByVal目标范围）
该工作表称为“Punti”，子表包含在工作表的代码中。宏为（假定）在7到16之间或17到26之间的任何列中的值更改并设置为特定值“11”时调用。谢谢！我添加了代码，它成功了！谢谢大家的帮助！
Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If Val(.Value) = 11 And .CountLarge = 1 Then
            If .Column >= 7 And .Column <= 26 Then .Font.Size = 12
        End If
    End With
End Sub