一个接一个地双击多个单元格的VBA答案

【问题标题】：VBA for Double Click multiple cells one after another一个接一个地双击多个单元格的VBA
【发布时间】：2020-09-18 22:05:14
【问题描述】：

我在单元格 B2:B3000 中有数据，每当我双击一个单元格时，它都会调用其他宏来生成发票，但这样我必须双击 3000 次。是否有任何代码可以双击给定范围内的每个单元格。

目前我的代码看起来像

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Cells <> "" And Target.Column = 2 Then
Cancel = True

Call CreateInvoice(Target.Row)
End If
End Sub

提前致谢

【问题讨论】：

标签： excel vba

【解决方案1】：

只需使用带有循环的标准子：

Sub lpCells()
    Dim i as Long
    For i = 2 to 3000
        CreateInvoice i
    Next i
End Sub

【讨论】：

谢谢斯科特，我必须在双击之前将他的代码放在相同的代码中......或者插入一个新模块，然后复制并粘贴它。