如何用VB判断单元格值是否大于0，并将该单元格写入文本“正数”

657889465

如何用VB判断单元格值是否大于0，并将该单元格写入文本“正数”

自己在操作过程中，有些字母也被程序写入了“正数”。

如果只选数字判断是否大于0呢？忽略字母，文字，等。

23	d	a	Sub  t1011()     Dim rg As Range     For Each rg In Selection         If rg > 0 Then         rg.Value = "正数"         End If     Next rg     End Sub
aa		ba
2	d
		34
d		a
	3
r		r
	4

请老师教一下

Chip_Kenny

1. Sub zz()
   
2. Dim rg As Range
   
3. For Each rg In Selection
   
4.     If IsNumeric(rg.Value) Then
   
5.         If rg > 0 Then rg = "正数"
   
6.     End If
   
7. Next
   
8. End Sub

复制代码

657889465

Chip_Kenny 发表于 2018-5-12 11:14

谢谢。没学过isnumeriec

现在明白了。感谢。