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列中的任何单元格都具有值，则只想调用doubleclick过程还是要检查相应的行是否有价值？

对于选项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

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

Excel Macro VBA：双击以选中问题

1 个答案: