ªð¦^¦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¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD