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

我知道代码很粗糙，但希望你能得到这个想法＆＃34; Currcell＆＃34;假设表示是否选择了单元格。谢谢inadvance

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