Đổi màu chữ khi trùng với điều kiện

[phamtrinh086]

Chào anh, chị trong điễn đàn.
Anh chị cho em hỏi vần đề này nhé:
Em có một bảng danh sách các nhân viên bao gồm ngày sinh, tên ...
Bây giờ em muốn khi đến ngày sinh của người nào đó trong bảng trên thì dòng ngày sinh của họ sẽ chuyển màu khác để nhắc cho em biết vì em là nhân sự. Cám ơn anh, chị nhiều

 

[hoangminhtien]

bạn xem file có được không? ở đây cứ đến ngày và tháng sinh của người nào đó thì dữ liệu của họ tự động hiện màu. bạn vào format/conditional formating để xem công thức nhé

 

[180178]

Các bạn cho mình hỏi xíu, thông thường khi chuyển phát nhanh thì DHL, TNT hoặc những công ty chuyển phát nhanh khác thường cho mình bảng giá nhưng nó thể hiện đại khái vd như sau:
Zone 1 Zone 2 Zone 3 Zone...
Mỹ Nhật Pháp
Đức TQ Úc
.....
Và khi theo dõi để thanh toán công nợ thì mình phải căn cứ theo từng Zone, vậy có bạn nào biết hướng dẫn cho mình, làm công thức nào mà khi mình chỉ việc tên Mỹ, đức , hoặc úc thì nó hện ra Zone tương ứng.

 

[vumian]

180178 ơi, Khó hình dung quá, bác gởi file mẫu lên đi

 

[180178]

180178 ơi, Khó hình dung quá, bác gởi file mẫu lên đi

Ok, dưới đây là mẫu của mình đó, giúp mình nha, Thanks

 

[hoangminhtien]

bạn xem file có được không?

 

[SA_DQ]

Hãy xem VBA làm điều ấy như thế nào

* Bạn hãy chép macro này vô thủ tục sự kiện của Sheet1;
* Nhập tên nước vô cột 'F', bắt đầu từ 'F2'
Điều mà bạn cần sẽ hiện tại dòng tương ứng của cột 'G'

(Bạn sẽ thấy 'Nó' còn biết sửa lỗi chính tả cho bạn nữa nha!)

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("F2:F999")) Is Nothing Then
   Dim  Rng As Range, Clls As Range
   Dim bJ As Byte, lRow As Long
   For bJ = 1 To 3
      lRow = Range(Chr(64 + bJ) & 65432).End(xlUp).Row
      Set Rng = Range(Cells(2, bJ), Cells(lRow, bJ))
      For Each Clls In Rng
         With Target
            If UCase$(Clls) = UCase$(Target) Then
               .Offset(, 1) = "ZON " & bJ
               .Offset(, 1).Interior.ColorIndex = 34 + bJ
               .Value = Clls:                      Exit For
            End If
         End With
      Next Clls
  Next bJ
 End If
End Sub

 

[philip]

* Bạn hãy chép macro này vô thủ tục sự kiện của Sheet1;
* Nhập tên nước vô cột 'F', bắt đầu từ 'F2'
Điều mà bạn cần sẽ hiện tại dòng tương ứng của cột 'G'

(Bạn sẽ thấy 'Nó' còn biết sửa lỗi chính tả cho bạn nữa nha!)

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("F2:F999")) Is Nothing Then
   Dim  Rng As Range, Clls As Range
   Dim bJ As Byte, lRow As Long
   For bJ = 1 To 3
      lRow = Range(Chr(64 + bJ) & 65432).End(xlUp).Row
      Set Rng = Range(Cells(2, bJ), Cells(lRow, bJ))
      For Each Clls In Rng
         With Target
            If UCase$(Clls) = UCase$(Target) Then
               .Offset(, 1) = "ZON " & bJ
               .Offset(, 1).Interior.ColorIndex = 34 + bJ
               .Value = Clls:                      Exit For
            End If
         End With
      Next Clls
  Next bJ
 End If
End Sub

Thật là tuyệt, mình ko dùng cái này nhưng thấy diễn đàn chúng ta thật có nhiều cao thủ quá. Bái phục, giờ đây mình rất thích VB nhưng chưa nắm gì nhiều lắm, mong mọi người chỉ giáo