Ãö©óformatdatatime

eric093

¦U¦ì°ª¤âª©¥D­Ì¡G

ªþ¥óÀɮפ¤¡A±ý±N©ú²Óªº¨C¤@­Ó¸ê®Æ¤ñ¹ï®É¬q¬O§_²Å¦X¦b¨ä°Ï¶¡¤¤¡A­Y¬O«h±N¦^¼g²Å¦X¡A
§Úªº°µªk¬O¥ý¤ñ¹ï¤é´Á¬O§_¬Û²Å¡A¦A¶i¦æ«áÄò¤ñ¹ï
¦ý¬O¡A¦]¬°®É¶¡®æ¦¡¤£¦P¡A©Ò¥H¥Î¤Fformatdatatime
¦ý´NµLªk¤ñ¹ï¥X¨Ó¡]§Ú·QÀ³¸Ó¬O³o¸Ì¦³°ÝÃD¡^
½Ð¦U¦ì°ª¤â«üÂI¡I


ÁÂÁ¡I

GBKEE

¦^´_ 1# eric093
¬O³o¼Ë¶Ü?

1. Option Explicit
   
2. Sub ½m²ß()
   
3.     Dim rng(1 To 6), E, K, C As Range
   
4.     Application.ScreenUpdating = False
   
5.     Set rng(1) = Sheets("©ú²Ó").Range("B2")
   
6.     Set rng(2) = Sheets("®É¬q").Range("A:A")
   
7.     rng(3) = FormatDateTime(rng(1), 2)
   
8.     Do While rng(1) <> ""
   
9.         Do
   
10.             Set rng(4) = rng(2).Find(DateValue(rng(3)), LookIn:=xlFormulas, lookat:=xlWhole)
    
11.             If Not rng(4) Is Nothing Then
    
12.                 rng(4).Value = "eric"
    
13.             End If
    
14.         Loop Until rng(4) Is Nothing
    
15.         Set rng(1) = rng(1).Offset(1)
    
16.     Loop
    
17. End Sub

½Æ»s¥N½X