Private Sub CommandButton1_Click() Dim rng As Range, c As Range Dim k As Integer Set rng = [f9:p14]
帮我解释一下上面的代码PrivateSubCommandButton1_Click()DimrngAsRange,cAsRangeDimkAsIntegerSetrng=...
帮我解释一下上面的代码
Private Sub CommandButton1_Click()
Dim rng As Range, c As Range
Dim k As Integer
Set rng = [f9:p14]
For Each c In rng
c = Int(Rnd() * 14 + 4)
k = k + 1
If k >= [d21] Then Exit For
Next
End Sub 展开
Private Sub CommandButton1_Click()
Dim rng As Range, c As Range
Dim k As Integer
Set rng = [f9:p14]
For Each c In rng
c = Int(Rnd() * 14 + 4)
k = k + 1
If k >= [d21] Then Exit For
Next
End Sub 展开
2个回答
2011-01-16
展开全部
Private Sub CommandButton1_Click()
Dim rng As Range, c As Range
Dim k As Integer
Set rng = [f9:p14]‘设置rng为f9到p14所有单元格对象
For Each c In rng’循环整个rng对象
c = Int(Rnd() * 14 + 4) '随机一个4-14之间的数赋值给c
k = k + 1 '变量自身累加1
If k >= [d21] Then Exit For '如果k大于等于 单元格d21就退出循环
Next
End Sub
Dim rng As Range, c As Range
Dim k As Integer
Set rng = [f9:p14]‘设置rng为f9到p14所有单元格对象
For Each c In rng’循环整个rng对象
c = Int(Rnd() * 14 + 4) '随机一个4-14之间的数赋值给c
k = k + 1 '变量自身累加1
If k >= [d21] Then Exit For '如果k大于等于 单元格d21就退出循环
Next
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询