逐句讲解下面宏的含义Private Sub Worksheet_SelectionChange(ByVal Target
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/09/22 10:07:59
逐句讲解下面宏的含义
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rr As Integer
Dim rng As Range
For rr = 1 To 39
Set rng = Intersect(Target,Range("G" & rr))
If Not rng Is Nothing Then
Range("H1") = Range("G" & rr).Value
End If
Next rr
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rr As Integer
Dim rng As Range
For rr = 1 To 39
Set rng = Intersect(Target,Range("G" & rr))
If Not rng Is Nothing Then
Range("H1") = Range("G" & rr).Value
End If
Next rr
End Sub
'私有的事件过程,当工作表被选择的部分发生改变时被调用,Target中包含了改变后的区域
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 Su
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 Su
逐句讲解下面宏的含义Private Sub Worksheet_SelectionChange(ByVal Target
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Private Sub Worksheet_Change(ByVal Target As Range)
Private Sub Worksheet_Change(ByVal Target As Range)帮我解释一下,下面
Private Sub 与 Sub的区别
麻烦解释这个程序Private Sub pl(x As Integer,ByVal y As Integer)x = 4
请教下面VB 代码的意思 Private Sub Command1_Click() If Combo1.Text ""
VB里的“Private Sub Command1_Click()”是什么意思?
VB里的sub单词是什么意思,比如private sub……、end sub
15、执行下面的程序,消息框的输出结果是______.Option Base 1 Private Sub Command
access下面程序运行后输出的是 Private Sub Form_Click() For i=1 To 4 x=1
Private Sub Form_Click()