Excel宏VBA：双击勾选问题

Question

如果列1,2,3和4具有值，如何才能使双击工作？我不知道应该在哪里插入代码..如果列1,2,3和4有值，那么doubleclick.enable = TRUE，否则doubleclick.enable = FALSE ..

请提出建议。我的代码如下：

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

    Select Case Target.Column
        Case 6, 13
            If Not Intersect(Target, Range("F2:F13, M2:M13")) Is Nothing Then Cancel = True

        Target.Font.Name = "Times New Roman"
        If Target = "" Then
            Target = ChrW(&H2713)
        Else
            MsgBox "You cannot modify the cell."
        End If

        End Select
End Sub

Answer 1

我只想澄清这个问题。如果第1列到第4列中的任何单元格有值，或者您想要检查相应的行是否有值，您只想调用双击过程？

对于选项1，您可以使用

If Application.CountA(Range("A1:D" & Rows.Count)) > 0 Then
    'Your Code
End If

第二种选择

If Application.CountA(Range("A" & target.Row & ":D" & target.Row)) > 0 Then
    'Your Code
End If

我测试了上面的代码但是如果有任何错误，我们可以修改它们