如何在VBA中通过复选框实现单元格的冻结与解冻

错误原因 #

• 公式参数分隔符不符合VBA规范：Range.Formula属性要求使用英文逗号作为函数参数分隔符，代码中使用的分号是Excel桌面端本地化公式的分隔符，无法被VBA识别。
• 字符串转义错误：VBA字符串内要表示单个双引号，需要连续写两个双引号完成转义，原代码中空值的双引号未转义。
• 注释符号错误：VBA的注释标识为单引号'，而非//，错误的注释符号会触发语法错误。

修正后代码 #

Private Sub CheckBox1_Click()
    If Range("H1").HasFormula Then
        ' 公式转值，冻结当前单元格内容
        Range("H1").Value = Range("H1").Value
        Me.CheckBox1.Caption = "Unfreeze"
    Else
        ' 写入公式，恢复和Sheet2的联动
        Range("H1").Formula = "=IF(Sheet2!E1=12,Sheet2!E1,"""")"
        Me.CheckBox1.Caption = "Freeze"
    End If
End Sub

本地化适配说明 #

如果你使用的是非英文版本Excel，希望和界面公式写法保持一致使用分号作为参数分隔符，可以将Formula属性替换为FormulaLocal：
Range("H1").FormulaLocal = "=IF(Sheet2!E1 = 12;Sheet2!E1;"""")"

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