sửa giùm em code này với

[kimhuynh]

nhờ các sư phụ sửa giùm em code này với, em đang tập tành nên viết chưa được.
Mục đích của em là khi chọn vùng nào, thì chọn code này (gắn vào phím tắt) thì nó sẽ tự động điều chỉnh format cell theo giá trị.
ví dụ: nếu value = 1 thì là MIN, giá trị khác là MAX...
Mình viết code này, khi chạy thì nó điều chỉnh theo giá tri CUỐI CÙNG của vùng thôi, nên nhờ mọi người sửa giúp.


Sub VALUE()
Dim cell As Range
For Each cell In Selection.Cells
If cell.VALUE = 1 Then
Selection.NumberFormat = """MIN"""
Else
Selection.NumberFormat = """MAX"""
End If
Next
End Sub

 

[huuthang_bd]

nhờ các sư phụ sửa giùm em code này với, em đang tập tành nên viết chưa được.
Mục đích của em là khi chọn vùng nào, thì chọn code này (gắn vào phím tắt) thì nó sẽ tự động điều chỉnh format cell theo giá trị.
ví dụ: nếu value = 1 thì là MIN, giá trị khác là MAX...
Mình viết code này, khi chạy thì nó điều chỉnh theo giá tri CUỐI CÙNG của vùng thôi, nên nhờ mọi người sửa giúp.


Sub VALUE()
Dim cell As Range
For Each cell In Selection.Cells
If cell.VALUE = 1 Then
Selection.NumberFormat = """MIN"""
Else
Selection.NumberFormat = """MAX"""
End If
Next
End Sub

Chỗ nào có Selection.NumberFormat thì thay bằng Cell.NumberFormat

 

[kimhuynh]

Cảm ơn ban Huuthang_bd nhiều nhé

 

[ndu96081631]

nhờ các sư phụ sửa giùm em code này với, em đang tập tành nên viết chưa được.
Mục đích của em là khi chọn vùng nào, thì chọn code này (gắn vào phím tắt) thì nó sẽ tự động điều chỉnh format cell theo giá trị.
ví dụ: nếu value = 1 thì là MIN, giá trị khác là MAX...
Mình viết code này, khi chạy thì nó điều chỉnh theo giá tri CUỐI CÙNG của vùng thôi, nên nhờ mọi người sửa giúp.


Sub VALUE()
Dim cell As Range
For Each cell In Selection.Cells
If cell.VALUE = 1 Then
Selection.NumberFormat = """MIN"""
Else
Selection.NumberFormat = """MAX"""
End If
Next
End Sub

For làm quái gì cho mất công!

Sub VALUE()
  Selection.NumberFormat = "[=1]""MIN"";""MAX"""
End Sub

Vì thực chất nếu làm bằng tay thì bạn có thể làm 1 phát nguyên vùng dữ liệu cơ mà

 

[kimhuynh]

nếu mình có thêm vài điều kiện nữa thì sao nhỉ anh NDU?

ví dụ" value = 1 thì Min, =2 thì AVG, =3 thì MAX ...

Cảm ơn anh!

For làm quái gì cho mất công!

Sub VALUE()
  Selection.NumberFormat = "[=1]""MIN"";""MAX"""
End Sub

Vì thực chất nếu làm bằng tay thì bạn có thể làm 1 phát nguyên vùng dữ liệu cơ mà

 

[ndu96081631]

nếu mình có thêm vài điều kiện nữa thì sao nhỉ anh NDU?

ví dụ" value = 1 thì Min, =2 thì AVG, =3 thì MAX ...

Cảm ơn anh!

Nếu dữ liệu chỉ có 3 số 1, 2 và 3 thôi thì dùng code này:

Sub Test()
  Selection.NumberFormat = "[=1]""MIN"";[=2]""AVG"";""MAX"""
End Sub