在excel VBA上标记单元格，如果它们在双击时合并

Question

我在双击特定单元格时勾选复选标记。我的代码如下所示：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
If Not Intersect(Target, Range("AA38:AK48,M32:M40,M42:M52,M54:M69")) Is Nothing Then 
    Cancel = True 
    If VarType(Target.Value) = vbBoolean Then 
    Target.Value = Not (Target.Value) 
    Else 
    Target.Value = IIf(Target.Value = "ü", Null, "ü") 
    End If 
End If 
End Sub 

但在合并cellls AA-AK它给了我一个错误

Answer 1

尝试像这样...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
If Not Intersect(Target, Range("AA38:AK48,M32:M40,M42:M52,M54:M69")) Is Nothing Then 
    Cancel = True 
    If VarType(Target.Cells(1).Value) = vbBoolean Then 
    Target.Cells(1).Value = Not (Target.Cells(1).Value) 
    Else 
    Target.Cells(1).Value = IIf(Target.Cells(1).Value = "ü", Null, "ü") 
    End If 
End If 
End Sub