Nhờ GIÚP CODE đến ngày định sẵn hiện 1 textbox chúc mừng.

[tuanfkt]

Chào mọi người! tôi muốn tạo đoạn code trong file excel dùng chung cho cả phòng, cũng muốn thể hiện tình thân thiết, nhờ mọi người giúp nhé, mong lắm.
Tôi muốn đến ngày định sẵn, giả sử 19/05/2009 tự động khi mở file lên sẽ hiện bảng thông báo "Chúc mừng sinh nhật! Anh Hùng". Xin cảm ơn trước.

 

[SA_DQ]

Bạn thử với macro này xem sao

Option Explicit
Sub Auto_Open()
  Dim Rng As Range, sRng As Range
  Dim StrC As String
  Const kC As String = "   :   "
  
  Sheets("Sheet1").Select
  For Each Rng In Range([C2], [C2].End(xlDown))
   With Rng
      If Month(.Value) = Month(Date) And Day(.Value) = Day(Date) Then
         StrC = StrC & .Offset(, -1) & kC & .Value & Chr(10)
      End If
   End With
  Next Rng
  If Len(StrC) > 2 Then _
   MsgBox StrC, , "GPE XIN CHUC MUNG SINH NHAT!"
End Sub

Chú í khi dùng:

Danh sách phải có ở sheet1 & cột 'C' chứa ngày tháng năm sinh của danh sách!

 

[ndu96081631]

Tôi đang nghĩ đến 1 tình huống thế này:
- Code định trước ngày mai nếu mở file thì sẽ có "thông báo" chúc mừng
- Nhưng cả ngày hôm sau chẳng có ai mở file cả!
???
- Vậy ngày mốt người ta mở file thì sao? Bỏ qua lời chúc hôm trước chăng?
Người ta nói rằng: Lời chúc cho dù trể còn hơn là không có
Các bạn nghĩ sao?

From Sa_DQ:
Có cầu ắc có cung. Với í tưởng này, trong tầm tay của NDU; Nhưng phải xét hoàn cảnh của Người dùng, khà,. . khà, . . .

 

[tuanfkt]

Cảm ơn các bạn!
ndu ơi mình đã nói đây là file dùng chung cho cả phòng nên sẽ có nhiều người mở, tất nhiên danh sách ngày sinh nhật cũng sẽ tương ứng với số người trong phòng. Mình nghĩ rằng mọi người sẽ hạnh phúc khi nhìn thấy câu chúc sinh nhật.

 

[ndu96081631]

Cảm ơn các bạn!
ndu ơi mình đã nói đây là file dùng chung cho cả phòng nên sẽ có nhiều người mở, tất nhiên danh sách ngày sinh nhật cũng sẽ tương ứng với số người trong phòng. Mình nghĩ rằng mọi người sẽ hạnh phúc khi nhìn thấy câu chúc sinh nhật.

File dùng chung nghĩa là sao nhỉ?
- Là mỗi người đều có 1 file giống nhau lưu trên máy tính
- Hay file này nằm trên máy bạn rồi Share cho mọi người
Sao bạn không đưa 1 ít dử liệu lên (chỉ cần sheet chứa danh sách)

 

[tuanfkt]

Thực ra đây chỉ là file nhập liệu bạn ạ, mọi người trong phòng đều có nhiệm vụ phải nhập số liệu, file này nằm trên mạng lan, mọi người mở ra tại mỗi máy của mình.
file đó giả sử có hai cột, 1 cột ngày, tháng, cột kia là tên người thôi mà

 

[ndu96081631]

Thực ra đây chỉ là file nhập liệu bạn ạ, mọi người trong phòng đều có nhiệm vụ phải nhập số liệu, file này nằm trên mạng lan, mọi người mở ra tại mỗi máy của mình.
file đó giả sử có hai cột, 1 cột ngày, tháng, cột kia là tên người thôi mà

Thì bạn áp dụng code của anh SA_DQ đi... chỉnh sửa lại tí là xong!
Có điều trong file tôi thấy có.. BÁC HỒ ---> Bộ bạn định CHÚC MỪNG SN BÁC HỒ sao? Nghe hơi... tếu!
-------------
Dù sao cũng sửa lại giúp bạn (ứng dụng MsgBox Tiếng Việt Unicode ) cho lời chào mừng đúng tiếng Việt luôn!
Code:

Sub Auto_Open()
  Dim Clls As Range, StrC As String
  With Sheets("sn")
    For Each Clls In Range(.[A3], .[A3].End(xlDown))
      If Clls = Format(Date, "dd/mm") Then
        StrC = .[A1] & Chr(10) & Clls.Offset(, 1) & ": " & Clls
        Application.ExecuteExcel4Macro ("ALERT(""" & StrC & """,2)")
      End If
    Next Clls
  End With
End Sub

 

[tuanfkt]

cảm ơn bạn ndu, thật ra khi lấy ví dụ vì là ngày 19/05 nên mình nghĩ ngay đến Bác Hồ. Thành thật cảm ơn bạn ndu và bạn sa_dq