如何冻结和解冻VBA中的复选框

Question

我想"freeze"单击该框后的单元格。在单元格中我想要的语句不起作用。我总是得到运行时错误1004，错误是if语句。下面的代码是:

Private Sub CheckBox1_Click()

If Range("H1").HasFormula Then 
Range("H1").Value = Range("H1").Value
Me.CheckBox1.Caption = "Unfreeze"
Else
Range("H1").Formula = "=IF(Sheet2!E1 = 12;Sheet2!E1;"")"//If value in E1 is 12, H1 = 12 otherwise the cell stays empty 
Me.CheckBox1.Caption = "Freeze"
End If
End Sub

Answer 1

请按下一种方式试试:

Private Sub CheckBox1_Click()

If Range("H1").HasFormula Then 
Range("H1").Value = Range("H1").Value
Me.CheckBox1.Caption = "Unfreeze"
Else
Range("H1").Formula = "=IF(Sheet2!E1 = 12,Sheet2!E1,"""")" 
Me.CheckBox1.Caption = "Freeze"
End If
End Sub