2007中，根据身份证号，进行生日提醒！高手帮忙呀！！！

白蝙蝠

2007中，根据身份证号，进行生日提醒！高手帮忙呀！！！

详见附件，看看我写的有那不合适呀？

亡者天下

加一个条件格式即可啊

G2＝today（） 条件格式用红色

白蝙蝠

不满足我的条件吧？？？我有两个条件呢？

白蝙蝠

看我的附件中的代码，请用VBA实现，谢谢高手帮忙！！！

白蝙蝠

没人解答，自己顶一下，别沉了

白蝙蝠

Private Sub Workbook_Open()
  
i = 7
o = 2
  If Cells(i, o) = Cells(i + 1, o) Then
  MsgBox (Cells(3, o + 1) + ",祝你生日快乐!")
  End If

  i = i + 1
  o = o + 1
      
End Sub





这是我写的代码，但是如果有多个人相同生日时，就不能都提醒了 ，怎么解决呀？？？高手们！！！

白蝙蝠

知道了


Private Sub Workbook_Open()
  
o = 6
For i = 3 To 10
  If Cells(i, o) = Cells(i, o + 1) Then
  MsgBox (Cells(i, 3) + ",祝你生日快乐!")
  End If
Next
  i = i + 1

      
End Sub

unsamesky

关键是要知道你的格式：
0=2
for i = 7 to 100
      if cells(i,o) = cells(i+1,o) then str = cells(3,o+1) & "," & str
next
msg str & "生日快乐!"

白蝙蝠

Private Sub Workbook_Open()

For o = 2 To 100

If Cells(o, 6) = Cells(2, 7) Then
MsgBox (Cells(o, 3) + ",生日快乐!")
End If

Next
o = o + 1
End Sub

白蝙蝠

Private Sub Workbook_Open()

For o = 2 To 100

If Cells(o, 6) = Cells(2, 7) Then
MsgBox (Cells(o, 3) + ",生日快乐!")
End If

Next
o = o + 1
End Sub
这段代码 怎么不对呀？告诉 运行错误'13'：类型不匹配，是CELLS（）造成的吗？这个函数中的行列数有大小限制？  高手请帮忙解决一下，谢谢！