Nhờ bày cách định dạng

[TRA KHUC RIVER]

Kính gửi: Diễn đàn
Em có file excel như sau, nếu đơn giá ở cột G mà lớn hơn đơn giá ở cột E thì đơn giá ở cột G sẽ có màu đỏ và in nghiêng và làm thế nào khi con trỏ di chuyễn đến hàng cần chọn thì nó tự động đổi màu, vì em đang đối chiếu các file nên cần cách này để khỏi dò nhầm nhờ các bác chỉ giúp em. Em cảm ơn.

 

[huycuongxd]

Kính gửi: Diễn đàn
Em có file excel như sau, nếu đơn giá ở cột G mà lớn hơn đơn giá ở cột E thì đơn giá ở cột G sẽ có màu đỏ và in nghiêng

- Bạn bôi đen ô G10 đến G19
- Vào Format / Conditional formatting
- Tại ô Condition1 bạn chọn Formula Is
- Nhập công thức =G10>E10
- Bấm vào nút Format rồi chọn kiểu chữ nghiêng và mầu đỏ.
- Bấm OK và thoát ra.

 

[TRA KHUC RIVER]

Không được bạn ơi mình làm như bạn hướng dẫn nhưng vẫn chưa được bạn sửa trên file mình đính kèm cho mình xem thử. Cảm ơn nhiều

 

[dhs88]

- Bạn bôi đen ô G10 đến G19
- Vào Format / Conditional formatting
- Tại ô Condition1 bạn chọn Formula Is
- Nhập công thức =G10>E10
- Bấm vào nút Format rồi chọn kiểu chữ nghiêng và mầu đỏ.
- Bấm OK và thoát ra.

Tại ô Condition 1 bạn chọn Cell Value Is
Chọn "Greater than"
phần giá trị : =$E10

Còn phần trên dưới thì theo bạn huycuongxd

 

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

Bạn xem file đính kèm nhé, còn việc chuyển chuột đến tự nó đổi màu thì đành bó tay

 

[hoangdanh282vn]

còn việc chuyển chuột đến tự nó đổi màu thì đành bó tay

Dùng VBA nha bạn :

Chọn tab sheet cần thao tác\Rightclick\Viewcode và paste đoạn code này vào, thoát trở ra lại sheet và xem thử nha

Dim Lastcell As Range
Sub worksheet_selectionchange(ByVal target As Range)
Application.ScreenUpdating = False
On Error Resume Next
Lastcell.ClearFormats
target.BorderAround ColorIndex:=4, Weight:=xlThick
Set Lastcell = target
Application.ScreenUpdating = True
End Sub

 

[TRA KHUC RIVER]

Quá hay cảm ơn bạn Danh nhiều. Nhưng nó chỉ chọn có 1 cell thôi bạn ơi, làm sao chọn luôn cả hàng thì tuyệt. Cái đoạn code này khi đến cell nào nó xoá đi định dạng của cell đó bạn ơi, chẳng hạn mình canh bên trái thì nó sửa sang phải, mình kẻ ô thì nó xoá ô đi, có cách nào khắc phục được không vậy bạn?

 

[DOSNET]

Hoặc bạn dùng thêm một điều kiện của CF nữa !

=ROW()=CELL("ROW")

 

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

Dùng VBA nha bạn :

Chọn tab sheet cần thao tác\Rightclick\Viewcode và paste đoạn code này vào, thoát trở ra lại sheet và xem thử nha

Dim Lastcell As Range
Sub worksheet_selectionchange(ByVal target As Range)
Application.ScreenUpdating = False
On Error Resume Next
Lastcell.ClearFormats
target.BorderAround ColorIndex:=4, Weight:=xlThick
Set Lastcell = target
Application.ScreenUpdating = True
End Sub

Hình như lệnh này nó xóa cả Conditional formating luôn rồi anh Danh ơi,
Nhờ anh xem giúp nhé

 

[hoangdanh282vn]

Quá hay cảm ơn bạn Danh nhiều. Nhưng nó chỉ chọn có 1 cell thôi bạn ơi, làm sao chọn luôn cả hàng thì tuyệt.

Có ngay thôi :

Sub worksheet_selectionchange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Columns(Target.Column).Interior.ColorIndex = 3
Rows(Target.row).Interior.ColorIndex = 3
End Sub

Số 3 chỉ mầu sắc, bạn có thể thay đổi từ 0 đến 56
Nếu không muốn tô màu dòng thì xóa "Rows(Target.row).Interior.ColorIndex = 3" đi là ok

 

[TRA KHUC RIVER]

Hoặc bạn dùng thêm một điều kiện của CF nữa !

Kính gửi: Anh DOSNET
Em làm theo công thức trên nhưng không được anh ơi. Anh bày em cụ thể hơn được không? Định dạng CF này mình chỉ chọn 1 thôi phải không anh? Nếu định dạng > in nghiêng màu đỏ thì không dùng được di chuyển con trỏ đúng không anh?

 

[TRA KHUC RIVER]

Sub worksheet_selectionchange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Columns(Target.Column).Interior.ColorIndex = 3
Rows(Target.row).Interior.ColorIndex = 3
End Sub

ở đoạn code trên các bạn cho mình xin số mã màu với. Chẳng hạn số 3 là màu xanh, số 4 màu ...

 

[yeudoi]

Sub worksheet_selectionchange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Columns(Target.Column).Interior.ColorIndex = 3
Rows(Target.row).Interior.ColorIndex = 3
End Sub

ở đoạn code trên các bạn cho mình xin số mã màu với. Chẳng hạn số 3 là màu xanh, số 4 màu ...

Bạn xem ở đây nha.http://giaiphapexcel.com/forum/showthread.php?t=344&highlight=colors

 

[ndu96081631]

Kính gửi: Anh DOSNET
Em làm theo công thức trên nhưng không được anh ơi. Anh bày em cụ thể hơn được không? Định dạng CF này mình chỉ chọn 1 thôi phải không anh? Nếu định dạng > in nghiêng màu đỏ thì không dùng được di chuyển con trỏ đúng không anh?

Làm cho bạn file này chỉ dùng Conditional Formating, không có tí code nào ---> Chính vì lẻ đó, khi bạn dời chuột sang 1 dòng khác, bạn phải bấm F9 để cập nhật

 

[TRA KHUC RIVER]

Dùng VBA nha bạn :

Chọn tab sheet cần thao tác\Rightclick\Viewcode và paste đoạn code này vào, thoát trở ra lại sheet và xem thử nha

Dim Lastcell As Range
Sub worksheet_selectionchange(ByVal target As Range)
Application.ScreenUpdating = False
On Error Resume Next
Lastcell.ClearFormats
target.BorderAround ColorIndex:=4, Weight:=xlThick
Set Lastcell = target
Application.ScreenUpdating = True
End Sub

Kính gửi: Bạn Danh
Với đoạn code trên mình chỉ paste cho 1 sheet nếu muốn tất cả các sheet đều dùng 1 đoạn code thì phải làm sao?

 

[TRA KHUC RIVER]

Có ngay thôi :

Sub worksheet_selectionchange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Columns(Target.Column).Interior.ColorIndex = 3
Rows(Target.row).Interior.ColorIndex = 3
End Sub

Số 3 chỉ mầu sắc, bạn có thể thay đổi từ 0 đến 56
Nếu không muốn tô màu dòng thì xóa "Rows(Target.row).Interior.ColorIndex = 3" đi là ok

Đoạn code này ở trong sheet không copy được bạn ơi. Mình chọn 1 cell chọn copy sau đấy kích sang chỗ khác thì lệnh copy này bị mất đi, vậy có cách nào khắc phục được không?