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

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

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

¦Û¤v«Ø¥ßªº¨â±i®M¦Lªí®æ¡G¥X®w³æ¤Î¥X³f³æ¡A¤]°Ñ¦Ò¤F¨ä¥L¥ý¶iªºVBAµ{¦¡®M¥Î¦bªí®æ¸Ì¡A§Æ±æ¦b¨C¦¸¦C¦L®É¥X®w³æªºG4Äõ·|¦Û°Ê·s¼W¤@­Ó¸¹½X¡A¥i¬O¬O§Æ±æ¥u¦³¦b¥X®w³æ¦C¦L®É¤~¦³³o­Ó°Ê§@¡A¥i¬O§Ú±Nµ{¦¡©ñ¦b§Ú¦Û¤vªºEXCELÀÉ«á¡A«oÅܦ¨¤£ºÞ¬O¥X®w³æ©Î¥X³f³æ¦C¦L¡A¦b¥X®w³æªºG4Äæ³£·|¦Û°Ê·s¼W¤@­Ó¸¹½X¡A´M¨D¸Ñµª¡AÁÂÁ¡C

TEST.rar (12.59 KB)

¥»©«³Ì«á¥Ñ 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 : ¡i¬°µ½Ävª§¡j¤H¥Í­n¬°µ½Ävª§¡A¤À¬í¥²ª§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD