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

[µo°Ý] «ü©w¦C¦L­¶

¥»©«³Ì«á¥Ñ luhpro ©ó 2011-6-25 23:44 ½s¿è

¦^´_ 1# shootingstar
¨º¬O¦]¬°§Aªºµ{¦¡¨Ã¨S¦³«ü©w¦C¦L¥X®w³æ®É¤~­n·s¼W¸Ó¸¹½X,
­×§ï«áµ{¦¡¦p¤U :
  1. Private Sub Workbook_BeforePrint(Cancel As Boolean)
  2.   With ActiveWindow.ActiveSheet
  3.     If .Name = "¥X®w³æ" Then .Range("G4") = .Range("G4") + 1
  4.   End With
  5. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : °µ¦n¨Æ¤£¯à¤Ö§Ú¤@¤H¡A°µÃa¨Æ¤£¯à¦h§Ú¤@¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD