Giúp viết Code Định dạng ô theo điều kiện (1 người xem)

[thangcola113]

Giúp em định dạng ô theo điều kiện:
- Nếu ô >0 thì định dạng theo kiểu Kế toán
- Nếu ô <=0 thì định dạng theo kiểu Số
Thực hiện định dạng với toàn bộ các ô trong vùng bôi màu đỏ (em tạm đặt tên vùng này tên là: VUNG2).

 

[Quang_Hải]

Giúp em định dạng ô theo điều kiện:
- Nếu ô >0 thì định dạng theo kiểu Kế toán
- Nếu ô <=0 thì định dạng theo kiểu Số
Thực hiện định dạng với toàn bộ các ô trong vùng bôi màu đỏ (em tạm đặt tên vùng này tên là: VUNG2).

Tạm sửa cái macro trong file bạn thế này. Mình cốc có hiểu mấy cái kiểu định dạng trong macro đâu nha.

Sub dinhdang()
Dim item As Range
For Each item In Range("vung2")
   If item.Value <= 0 Then
      item.NumberFormat = "#,##0_);(#,##0)"
   Else
      item.NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""_);_(@_)"
   End If
Next
End Sub

 

[thangcola113]

Rất cảm ơn bác, code chạy ngon lành.