kimbal

¦^´_  Hsieh
hsieh«e½ú§A¦n!
       °¸¹³«e½ú!ÁÂÁÂ!!¤p§Ì¦A½Ð±Ð
       ¦pªG¹J¨ìÀx¦s®æªº¤é´Á¬Ò¥H¼Æ­Èªí ...
myleoyes µoªí©ó 2010-7-18 09:51

    §Aªº·N«ä¬O ¦p 2010717, 2010608 ³o¨Ç?

1. Private Sub Workbook_Open()
   
2. With Sheet1
   
3. Set Rng = .Cells.Find(Format(Date, "YYYYMMDD"), LookAt:=xlWhole)
   
4. .Select
   
5. If Not Rng Is Nothing Then Rng.Select Else MsgBox "§ä¤£¨ì¤µ¤Ñ"
   
6. End With
   
7. End Sub

½Æ»s¥N½X

©Î¬O¤½¦¡¸Ìªº¼Æ­È?

1. Private Sub Workbook_Open()
   
2. With Sheet1
   
3. Set Rng = .Cells.Find(Date, LookIn:=xlValues, LookAt:=xlWhole)
   
4. .Select
   
5. If Not Rng Is Nothing Then Rng.Select Else MsgBox "§ä¤£¨ì¤µ¤Ñ"
   
6. End With
   
7. End Sub

½Æ»s¥N½X

kimbal

¦^´_  kimbal
kimbal«e½ú§A¦n!
       «e½ú!ÁÂÁÂ!!³o¼Ë¤£¦æ­C!
       ¦pªþÀɮ׽аѦҬݬÝ
       ½Ð¦A ...
myleoyes µoªí©ó 2010-7-18 19:35

¤ñ¸û²Âªº¤èªk , ¥[®æ¦¡¨Ó§ä:

1. Private Sub Workbook_Open()
   
2. With Sheet1
   
3. Set Rng = .Cells.Find(Format(Date, "#,##0 "), LookIn:=xlValues, LookAt:=xlWhole)
   
4. .Select
   
5. If Not Rng Is Nothing Then Rng.Select Else MsgBox "§ä¤£¨ì¤µ¤Ñ"
   
6. End With
   
7. End Sub

½Æ»s¥N½X

1. Private Sub Workbook_Open()
   
2. With Sheet1
   
3. Set Rng = .Cells.Find(Format(Date, "#"), LookIn:=xlFormulas, LookAt:=xlWhole)
   
4. .Select
   
5. If Not Rng Is Nothing Then Rng.Select Else MsgBox "§ä¤£¨ì¤µ¤Ñ"
   
6. End With
   
7. End Sub

½Æ»s¥N½X