tự động hiển thị ngày tháng năm sinh với Excel

[anhtuan1066]

Mình xin cảm ơn tất cả các bạn.
Mình xin nói rõ hơn về điều mình muốn làm:
VD theo file mình gửi kèm, minh muốn khi mở máy tính lên hoặc mở file này ra thì ctrình sẽ tự động hiển thị ngày sinh của một ai đó lên ví dụ: hôm nay là 04/07/2008 thì khi mở file ra tất cả những người có ngày sinh la 07/07 sẽ được hiển thị bằng một thông báo trên màn hình.
VD như file đính kèm thì sẽ hiển thị một thông báo ngày sinh nhật của 03 người: Nguyen thi ha, nguyen thi lien, nguyen thi huong.

Cảm ơn các bạn nhiều.

Điều này đương nhiên dc, chẳng qua là lọc có điều kiện thôi mà.. Có điều: File bạn đâu?
Tôi giã lập 1 file, bạn xem thử nhé! Với file thực tế thì cũng làm như vậy!
Chú ý: Các name trong Define name nhé
ANH TUẤN

 

[nh_ha]

Mình cũng đang làm một cái tương tự. Trên diễn đàn có bạn lập bằng Hàm CountDown thấy hay quá mà không chỉ người ta làm gì hết.

Tình huống mình như thế này các bạn giúp mình nhé: Mình lập danh sách khoảng 500 khách hàng và muốn chuẩn bị cho ngày sinh nhật của họ. Mình muốn chừa một Sheet để nhập liêụ bình thường còn 1 sheet sẽ lọc những ngươì còn 3 ngày nữa là sinh nhật sẽ có màu xanh, 2 ngày nữa SN thì hiện màu vàng, và ngay ngày sinh thì màu đỏ. Danh sách này sẽ gọn và dễ quan sát hơn các cách bạn đã làm trên đây. Nhưng nêú ngày sinh mà trùng vào thứ bảy hay chủ nhật thì ngày thứ sáu phải hiện màu đỏ để chuẩn bị vì 2 ngày không làm việc sẽ trể mất ý nghĩa SN.


Mong các bạn có tâm quyết giúp đở mình. Cám ơn rất nhiều!

 

[SA_DQ]

Tình huống: danh sách khoảng 500 khách hàng và muốn chuẩn bị cho ngày sinh nhật của họ. Mình muốn có 1 sheet sẽ lọc những ngươì còn 3 ngày nữa là sinh nhật sẽ có màu xanh, 2 ngày nữa SN thì hiện màu vàng, và ngay ngày sinh thì màu đỏ. Nhưng nêú ngày sinh mà trùng vào thứ bảy hay chủ nhật thì ngày thứ sáu phải hiện màu đỏ để chuẩn bị vì ý nghĩa SN. Mong các bạn có tâm quyết giúp đở mình. Cám ơn rất nhiều!

Option Explicit

Sub CopyForDate()
 Dim lRow As Long, Zz As Long, lRow2 As Long
 Dim bDem As Integer:                        Dim Rng As Range
 Dim ThuBay As Boolean, ChuNhat As Boolean
 
 Sheet1.Select:                           Range("A1:C1").Copy Destination:=Sheets("SN").[b5]
 lRow = [b65432].End(xlUp).Row:           Sheets("SN").Range("C6:D" & lRow).Clear
 
 
  For Zz = 2 To lRow
   With Cells(Zz, 3)
      If Day(.Value) = Day(Date) And Month(.Value) = Month(Date) _
         And Weekday(Date) = 6 Then ThuBay = True
      If Day(.Value) = Day(Date) And Month(.Value) = Month(Date) _
         And Weekday(Date) = 6 Then ChuNhat = True
      
      If Day(.Value) = Day(Date) And Month(.Value) = Month(1 + Date) _
         Or ThuBay Or ChuNhat Then
     
         If Rng Is Nothing Then
            Set Rng = Cells(Zz, 2).Resize(1, 2)
            bDem = 1 + bDem
         Else
            Set Rng = Union(Rng, Cells(Zz, 2).Resize(1, 2))
            bDem = 1 + bDem
         End If
      End If
   End With
 Next Zz
 lRow2 = Sheets("SN").[c65432].End(xlUp).Row + 1
 Rng.Copy Destination:=Sheets("SN").Range("C" & lRow2)
 Sheets("SN").Range("D" & lRow2).Resize(bDem, 1).Interior.ColorIndex = 7
 bDem = 0:                       Set Rng = Nothing
 '  *                *            *  *                *            *'
 For Zz = 2 To lRow
   With Cells(Zz, 3)
      If Day(.Value) = 1 + Day(Date) And Month(.Value) = Month(1 + Date) _
      And Weekday(1 + Date) <> 7 Then
         If Rng Is Nothing Then
            Set Rng = Cells(Zz, 2).Resize(1, 2)
            bDem = 1 + bDem
         Else
            Set Rng = Union(Rng, Cells(Zz, 2).Resize(1, 2))
            bDem = 1 + bDem
         End If
      End If
   End With
 Next Zz
 lRow2 = Sheets("SN").[c65432].End(xlUp).Row + 1
 Rng.Copy Destination:=Sheets("SN").Range("C" & lRow2)
 Sheets("SN").Range("D" & lRow2).Resize(bDem, 1).Interior.ColorIndex = 39
 bDem = 0:                       Set Rng = Nothing
'  *                *            *  *                *            *'
 For Zz = 2 To lRow
   With Cells(Zz, 3)
      If Day(.Value) = Day(2 + Date) And Month(.Value) = Month(2 + Date) _
      And Weekday(1 + Date) <> 1 And Weekday(2 + Date) <> 1 _
      And Weekday(1 + Date) <> 7 And Weekday(2 + Date) <> 7 Then
         If Rng Is Nothing Then
            Set Rng = Cells(Zz, 2).Resize(1, 2)
            bDem = 1 + bDem
         Else
            Set Rng = Union(Rng, Cells(Zz, 2).Resize(1, 2))
            bDem = 1 + bDem
         End If
      End If
   End With
 Next Zz
 lRow2 = Sheets("SN").[c65432].End(xlUp).Row + 1
 Rng.Copy Destination:=Sheets("SN").Range("C" & lRow2)
 Sheets("SN").Range("D" & lRow2).Resize(bDem, 1).Interior.ColorIndex = 35
 bDem = 0:                       Set Rng = Nothing
 Sheets("SN").Select
 
End Sub