Excel vba 确定是否在表中选择了单元格，然后运行脚本

Question

我目前运行的代码循环访问表中的一列数据，并希望修改下面的代码，如果选择了单元格，请运行我的脚本/宏

Dim tb As Listobject
Dim Currcell, i As Integer
Set tb = Worksheets("Sheet1").ListObjects("Table1")
For i = 1 To 60
    Currcell = tb.DataBodyRange.Cells(i, tb.ListColumns(1).Index)
    If Currcell = Selected Then
    ' Run My Script
End If
Next i

我知道代码很粗糙，但希望您能理解"Currcell"的想法，以表示是否选择了单元格。 提前致谢

Answer 1

我建议您更改逻辑以仅遍历该列中的任何选定单元格：

If Not Intersect(tb.DataBodyRange, Selection) Is Nothing Then
    For Each cell In Intersect(tb.ListColumns(1).DataBodyRange, Selection).Cells
        ' do something to cell
    Next cell
End If