[已解决]VBA初学者，知道是错的，不知道为什么是错的求 解答

cf78

题目： 任意选取本工作表中的一个区域，然后把选取区域中的大于0的数字替换为字符“正数”出 来的结果是全都换成了正数
知道这样做是错的，就是不知道哪里错了，为什么这样是错的？刚学感觉好难

答：

Sub text()
Dim i As Range
For Each i In Selection
If i > 0 Then
i = "正数"
End If
Next
End Sub

最佳答案

月排行榜 / 总排行榜

砂海

2021-8-15 10:05

Sub text()
    Dim i As Range
   
    For Each i In Selection
        If VBA.IsNumeric(i) Then    '判断单元格内容是否为数字
            If i.Value > 0 Then
                i = "正数"
            End If
        End If
    Next
   
End Sub

跳转到最佳答案楼层

cutecpu

Sub text()
Dim i As Range
For Each i In Selection
If i.value > 0 Then
i = "正数"
End If
Next
End Sub




祝順心，南無阿彌陀佛！

cf78

cutecpu 发表于 2021-8-14 21:22
Sub text()
Dim i As Range
For Each i In Selection

这样也不行的，字母也都换成了正数

砂海

Sub text()
    Dim i As Range
   
    For Each i In Selection
        If VBA.IsNumeric(i) Then    '判断单元格内容是否为数字
            If i.Value > 0 Then
                i = "正数"
            End If
        End If
    Next
   
End Sub

cf78

砂海 发表于 2021-8-15 10:05
Sub text()
    Dim i As Range
   

谢谢你。