VBA80集第11集练习题答案上交贴

高

学习一下了

zhouxialing

VBA学习中

ミ泡温泉の猫

学习中。。。。

zhuosheng

回复 兰色幻想 的帖子

dddddddddddddddddddddddddddd

秋意正浓

进来参观学习，EXCELPX网的题目非常好

twandou

来参考参考。

twandou

Sub 正数识别()
Dim c As Range
For Each c In Selection
If Val(c) > 0 Then c.Value = "正数"
Next
End Sub
Sub 单元格选取()
Dim c As Range
Dim rg As Range
For Each c In Range("A2:C12")
If Val(c) > 0 Then
    If rg Is Nothing Then Set rg = c
       Set rg = Union(rg, c)
End If
Next
rg.EntireRow.Select
End Sub

lisachen

游客，如果您要查看本帖隐藏内容请回复

wallace0198

学习学习，多谢

wuhuisheng

看作业，谢谢！