ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý]¨Ì¿z¿ï«á¸ê®Æ,¶ñ¤J¤é´Á°O¿ý(¤w¸Ñ¨M)

[µo°Ý]¨Ì¿z¿ï«á¸ê®Æ,¶ñ¤J¤é´Á°O¿ý(¤w¸Ñ¨M)

¥»©«³Ì«á¥Ñ ¤Ú§J´µ ©ó 2011-8-10 17:32 ½s¿è

¦pÃD&ªþ¥ó,½Ð°Ý¦p¦ó¥u°w¹ï¿z¿ï¹Lªº¸ê®Æ,¶ñ¤J¬ÛÃö¸ê®Æ,ÁÂÁÂ

¿z¿ï¸ê®Æ°O¿ý¤é´Á.rar (3.23 KB)

¸Õ¸Õ¬Ý¡A¤£ª¾¹D¬O¤£¬O§A­nªº¡I
  1. Sub ¥¨¶°2()
  2. '
  3. ' ¥¨¶°2 ¥¨¶°
  4. '

  5. '¿z¿ï¸ê®Æ
  6.     ActiveSheet.Range("$A$1:$B$57").AutoFilter Field:=1, Criteria1:="B"
  7. '¥þ¿ï
  8.     Range("A1").CurrentRegion.Select
  9. '¨ú¥N
  10.     Selection.Replace What:="8/1", Replacement:="8/10", LookAt:=xlPart, _
  11.         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
  12.         ReplaceFormat:=False
  13. End Sub
½Æ»s¥N½X
ªì¾ÇVBA¥E¨ìtwbts

TOP

¦^´_ 2# play9091

ÁÂÁ¦^ÂÐ
¤£¹L§Ú¬O¥ý¤H¤u¿z¿ï,·Q­n°w¹ï¤w¿z¿ïªº¸ê®ÆB
¨ä¤é´Á¸ê®Æ8/1,·Q³v¤@¥[¤J·í¤é¤é´Á(¥Ñ8/1Åܦ¨8/1,8/10)---¥[¤J·í¤é8/10¸ê®Æ

¦]¬°¿z¿ï¥X¨ÓªºB¸ê®Æ¤¤,¨ä¸ê®Æ¤é´Á¤£¤@©w¥þ¬O8/1(©êºp¨SÁ|¨Ò¦n)
©Ò¥H¤£¥þµM¥Î³æ¤@ªº¨ú¥N,½Ð°Ý¦p¦óÀò¨ú³vÄæ¦ì¸m,¥[¤J·í¤é¤é´Á¸ê®Æ
ÁÂÁÂ

TOP

  1. Sub yy()
  2. With ActiveSheet
  3. If .FilterMode Then
  4. For Each c In .[b:b].SpecialCells(2, 23)
  5. If c.Row > 1 Then c.Value = c.Value & "," & Application.Text(Date, "m/d")
  6. Next
  7. End If
  8. End With
  9. End Sub
½Æ»s¥N½X

TOP

RE: [µo°Ý]¨Ì¿z¿ï«á¸ê®Æ,¶ñ¤J¤é´Á°O¿ý(¤w¸Ñ¨M)

¦^´_ 4# oobird

ÁÂÁ¤ì¤uª©¤j,°ÝÃD¸Ñ¨M¤F
µ{¦¡¤Sºë²,§Ú­n¦n¦n¾Ç²ß

TOP

        ÀR«ä¦Û¦b : ¶¢¤HµL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD