[已解决]第11集答案

小鹏的天空

怎么第11集答案运行不了，请高手指点

最佳答案

月排行榜 / 总排行榜

gufengaoyue

2015-8-17 16:58

1. Sub s()
   
2. Dim Rng As Range
   
3. For Each Rng In selection
   
4.      If Val(Rng.Value) > 0 Then Rng = "正数"
   
5. Next
   
6. End Sub

复制代码

跳转到最佳答案楼层

gufengaoyue

1. Sub s()
   
2. Dim Rng As Range
   
3. For Each Rng In selection
   
4.      If Val(Rng.Value) > 0 Then Rng = "正数"
   
5. Next
   
6. End Sub

复制代码