[已解决]这组代码为什么不能执行？

abc119297

各位老师好:
我这边有一组代码，想达到这样一个目的：就是想把工作表中的大于0的数字替换成字符"正数“，但是程序编完了后，却不能执行，也没提示出错，这是为什么呢？
代码如下：
On Error Resume Next
Range("a1:c11").Select
Dim rg As Range
For Each rg In Range("a1:c11").Select
If rg > 0 Then
rg = "正数"
End If
Next rg

最佳答案

月排行榜 / 总排行榜

mxg825

2011-10-14 11:07

On Error Resume Next
'Range("a1:c11").Select
Dim rg As Range
For Each rg In Range("a1:c11")'.Select
If rg > 0 Then
rg = "正数"
End If
Next  ‘RG 可省略
’删除红色部分！

跳转到最佳答案楼层

mxg825

On Error Resume Next
'Range("a1:c11").Select
Dim rg As Range
For Each rg In Range("a1:c11")'.Select
If rg > 0 Then
rg = "正数"
End If
Next  ‘RG 可省略
’删除红色部分！

windimi007

回复 abc119297 的帖子

改为这样试试：{:3912:}

1. Sub aa()
   
2.     On Error Resume Next
   
3.     Dim rg As Range
   
4.     For Each rg In Range("a1:c11")
   
5.         If rg > 0 Then
   
6.             rg = "正数"
   
7.         End If
   
8.     Next rg
   
9. End Sub

复制代码

abc119297

呵呵，谢谢两位老师指点，向您们致敬！

Select

楼主给设个最佳吧，不然其它高手以后还没解决，又跑进来