§ä¨ì¤µ¤Ñªºªº¦ì¸m

myleoyes

¦U¦ì«e½ú§A­Ì¦n!
¡@¡@      «e½ú!°ÝÃD¦pªþÀÉ®×»¡©ú
          ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

Hsieh

¦^´_ 1# myleoyes

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

½Æ»s¥N½X

myleoyes

¦^´_ 2# Hsieh
hsieh«e½ú§A¦n!
       °¸¹³«e½ú!ÁÂÁÂ!!¤p§Ì¦A½Ð±Ð
       ¦pªG¹J¨ìÀx¦s®æªº¤é´Á¬Ò¥H¼Æ­Èªí¥Ü
       µ{¦¡¤S¦p¦ó?¥i§_¦A«ü¾É¨¯­WÅo!!
       ÁÂÁ¦A¤T!!!

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

myleoyes

¦^´_ 4# kimbal
kimbal«e½ú§A¦n!
       «e½ú!ÁÂÁÂ!!³o¼Ë¤£¦æ­C!
       ¦pªþÀɮ׽аѦҬݬÝ
       ½Ð¦A«ü¾ÉÁÂÁ¦A¤T!!!

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

Hsieh

¦^´_ 5# myleoyes

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

½Æ»s¥N½X

myleoyes

¦^´_ 7# Hsieh
kimbal«e½ú§A¦n!
       «e½ú!ÁÂÁÂ!!¥i¥HÅo!ÁÂÁ¦A¤T!!!
hsieh«e½ú§A¦n!
       °¸¹³«e½ú!¤w¸g¥i¥HÁÂÁ¦A¤T!!!