逐句讲解下面宏的含义
发布网友
发布时间：2023-05-13 01:51
共1个回答
热心网友
时间：2023-05-14 01:20
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rr As Integer '声明整形变量rr
Dim rng As Range '声明range对象rng
For rr = 1 To 39 '从G1到G39单元格
Set rng = Intersect(Target, Range("G" & rr)) 'rr设定为变化后的选定区域与G1到G39的交集
If Not rng Is Nothing Then '若交集为空，就是说如果G1到G39中没有包含被选定的部分
Range("H1") = Range("G" & rr).Value '则H1单元格设为该交集最下面的格子的数值
End If
Next rr
End Sub
