code đổi giá trị âm thành số

[nghiaquangtran]

Chào các bạn

Mình có đoạn code này để chuyển các giá trị âm thành zero, nhưng nó đổi cả các phạm vi chứa text vì nó hiểu text nhỏ hơn 0.

Các bạn có cách nào giúp mình thêm điều kiện để nó chỉ đổi các giá trị trong cell chứa giá trị dạng số, còn text thì bỏ qua không đổi.



Sub run1()
Dim val1 As Range

For Each val1 In ActiveSheet.UsedRange
If val1.Value < "0" Then
Ogiatri.Select
With ActiveCell
.Interior.ColorIndex = 3
.FormulaR1C1 = "0" 'recode to 0
End With
End If
Next
End Sub


Cám ơn nhiều

 

[tanlahill]

Chào các bạn

Mình có đoạn code này để chuyển các giá trị âm thành zero, nhưng nó đổi cả các phạm vi chứa text vì nó hiểu text nhỏ hơn 0.

Các bạn có cách nào giúp mình thêm điều kiện để nó chỉ đổi các giá trị trong cell chứa giá trị dạng số, còn text thì bỏ qua không đổi.



Sub run1()
Dim val1 As Range

For Each val1 In ActiveSheet.UsedRange
If val1.Value < "0" Then
Ogiatri.Select
With ActiveCell
.Interior.ColorIndex = 3
.FormulaR1C1 = "0" 'recode to 0
End With
End If
Next
End Sub


Cám ơn nhiều

Bạn nên gởi kèm theo file chứ xem code thì khó hiểu quá!

 

[Hai Lúa Miền Tây]

Chào các bạn

Mình có đoạn code này để chuyển các giá trị âm thành zero, nhưng nó đổi cả các phạm vi chứa text vì nó hiểu text nhỏ hơn 0.

Các bạn có cách nào giúp mình thêm điều kiện để nó chỉ đổi các giá trị trong cell chứa giá trị dạng số, còn text thì bỏ qua không đổi.



Sub run1()
Dim val1 As Range

For Each val1 In ActiveSheet.UsedRange
If val1.Value < "0" Then
Ogiatri.Select
With ActiveCell
.Interior.ColorIndex = 3
.FormulaR1C1 = "0" 'recode to 0
End With
End If
Next
End Sub


Cám ơn nhiều

Nó chuyển text là đúng rồi vì "0" là dạng text mà.
Bạn nên chỉnh lại là 0 mới đúng.
Nó như sau:

Sub run1()
Dim val1 As Range
For Each val1 In ActiveSheet.UsedRange
If val1.Value < [COLOR=red]0[/COLOR] Then
[COLOR=red]val1.Select[/COLOR]
With ActiveCell
.Interior.ColorIndex = 3
.FormulaR1C1 = 0 'recode to 0
End With
End If
Next
End Sub