Excel VBA编译错误：Argument not Optional 问题排查求助

错误根源 #

• Union函数误用：Union函数必须传入至少2个单元格区域参数，你代码里只传了Range("K15:K31")单个区域，这就是触发“Argument not Optional”的直接原因。如果只是判断单个区域，完全没必要用Union，直接用该Range就行。
• Cancel变量赋值错误：在右键点击事件里，Cancel是布尔型变量，不需要用Set关键字赋值，直接写Cancel = True就可以，用Set会导致额外的类型不匹配问题。

修正后的完整代码 #

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True

    ' 直接判断Target是否在K15:K31范围内
    If Not Intersect(Target, Range("K15:K31")) Is Nothing Then
        If Target.Interior.ColorIndex = 43 Then
            Target.Interior.ColorIndex = 0
            Target.Value = "" ' 用Target替代ActiveCell，避免选中其他单元格导致的错误
        Else
            Target.Interior.ColorIndex = 43
            Target.Value = ChrW(&H2713)
            Target.Font.ColorIndex = 2
        End If
    End If
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True ' 移除多余的Set关键字

    ' 直接判断单个区域，无需Union
    If Not Intersect(Target, Range("K15:K31")) Is Nothing Then
        If Target.Interior.ColorIndex = 3 Then
            Target.Interior.ColorIndex = 48
            Target.Value = "N/A"
        ElseIf Target.Interior.ColorIndex = 48 Then
            Target.Interior.ColorIndex = 0
            Target.Value = "" ' 补充清空内容，让状态更一致
        Else
            Target.Interior.ColorIndex = 3
            Target.Value = ChrW(&H2716)
            Target.Font.ColorIndex = 2
        End If
    End If
End Sub

额外优化点 #

• 替换ActiveCell为Target：ActiveCell可能因为用户误操作选中其他单元格而出错，直接用触发事件的Target单元格更精准。
• 补充内容清空逻辑：右键点击恢复默认底色时，同步清空单元格内容，保证单元格状态和颜色一致。

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