如果在雙擊時合並了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

但是在合並后的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