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

¦p¦ó³]©w¤@½d³òÀx¦s®æ¤º®e¬°¦C¦Lªº­¶­º©O?¡]©M­ì³]©w¤§­¶­º¨Ö¥Î¡^

¦p¦ó³]©w¤@½d³òÀx¦s®æ¤º®e¬°¦C¦Lªº­¶­º©O?¡]©M­ì³]©w¤§­¶­º¨Ö¥Î¡^

½Ð°Ý­n¦p¦ó¤~¥i¥H±NÀx¦s®æ¤Wªº¤@½d³òÄæ¦ìªº¤º®e³]©w¦¨¬°¦C¦Lªº­¶­º,
¨Ö¥B¥i¥H©M­ì¥»ªº³]©wªº­¶­º¤Î­¶§À¦X¨Ö¨Ï¥Î©O??

    §Ú¥Ø«eªºªí®æ¤w¦³³]©w¤F­¶­º,¤]³]©w¤F¦C¦L¼ÐÃD(¼ÐÃD¦C=$6: $7,¼ÐÃDÄæ=$A: $A),
¦Ó·Q­n³]©w $F$1: $S$1  ªº¤º®e¬° ¨C­¶ªº­¶­º,·Q½Ð°Ý­n¦p¦ó³]©w©O?

MR¤ë³øªí.zip (13.35 KB)
¿ß¥£¤@ªT ^_^

½Ð°Ý­n¦p¦ó¤~¥i¥H±NÀx¦s®æ¤Wªº¤@½d³òÄæ¦ìªº¤º®e³]©w¦¨¬°¦C¦Lªº­¶­º,
¨Ö¥B¥i¥H©M­ì¥»ªº³]©wªº­¶­º¤Î­¶§À¦X¨Ö ...
Luna µoªí©ó 2010-9-16 13:55


½Ð°Ý®@~
§Ú²{¦b¥´¤J¤F:

Private Sub WorkSheet_SelectionChange(ByVal Target As Range)
With ActiveSheet.PageSetup
.CenterHeader = [=F1& "      " & L1 & N1 & O1 & P1 &"        "&Q1]
End With
End Sub
  
³o¼Ë¤l Åܦ¨²Ä¤@­¶ ·|­«½Æ¥X²{  2010¦~10¤ë¥÷ MR¤ë³øªí ,¦³¨S¦³¤èªk¥i¥H§R°£©O??
¿ß¥£¤@ªT ^_^

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2010-9-16 18:56 ½s¿è

¦C¦L½d³ò³]¬°A3:AJ49
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦C¦L½d³ò³]¬°A3:AJ49
Hsieh µoªí©ó 2010-9-16 18:51


ÁÂÁÂ Hsieh~
§Ú¤]¦³·Q¹L­n³]½d³ò,¥iªí®æ¶ñ¼g¤£¬O¥Ñ§Ú§¹¦¨ ,
ªí®æ·|¥Ñ¦U¨Ï¥ÎªÌÁä¤J«á ¦C¦L ñ¦W¦A¶Ç¯u¦^§Ú³o¤JÀÉ,
©Ò¥H¤U¤èªø«×¤W¤]´N¤£¬O絶¹ïªº¤F,
©Ò¥H·Q»¡¬O§_¦³³]©w¦C¦L½d³ò¤§¥~ªº¤è¦¡©O?  
¿ß¥£¤@ªT ^_^

TOP

¦^´_ 4# Luna
§Aªºª©­±³]©w³£¥ÎVBA¥h³]©w­¶­º¤F
¬Û«H¥h³]©w¦C¦L½d³ò¤£¬O°ÝÃD§a
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¶â¶â¶â!! ¨S·Q¨ì³oÂI©O~~  ÁÂÁÂ~~
¿ß¥£¤@ªT ^_^

TOP

µ²ªG¸Õ¤F¥b¤Ñ,¨S¦³¿ìªk¦P®É³]©w¤G­Ó¸m¤¤ªº­¶­º(Àx¦s®æ¤º®e+¹Ï¤ùªº­ì³]©w¤§­¶­º)¨Ö¥Î
³Ì«á¥u¯à¦bª©­±³]©w®É§â¹Ï¤ù¥[¦b¥ªÃä,µM«á¦b§â¹Ï¥ÎªÅ®æ±À¨ì¤¤¶¡, ¦Ó¦b b1 ¤º¦s¤J´X¦æ,
¥H«K¦b±N¦bVBA³]©w®É§âÀx¦s®æ¤º®e©¹¤U±À­è¦n©ñ¨ì¹Ïªº¤U¤è,
·Pı¦n¹³«ÜÄø, ¤£¹LÁ`¬O¾×µÛ¥Î¥ý

Sub WorkSheet_SelectionChange(ByVal Target As Range)
With ActiveSheet.PageSetup
.CenterHeader = "&""²Ó©úÅé,²ÊÅé""&16 " & [=B1&F1&L1&N1& O1 & P1 &Q1] & mt
End With
End Sub
¿ß¥£¤@ªT ^_^

TOP

  1. Sub PictureHeader()
  2.     ActiveSheet.PageSetup.CenterHeaderPicture.Filename = _
  3.         "C:\log.TIF" '¹Ï¤ù¸ô³w
  4.     With ActiveSheet.PageSetup
  5.         .PrintTitleRows = "$6:$7"
  6.         .PrintTitleColumns = "$A:$A"
  7.     End With
  8.     ActiveSheet.PageSetup.PrintArea = "A3:AJ49"
  9.     With ActiveSheet.PageSetup
  10.         .CenterHeader = "&G" & Chr(10) & [=F1& "      " & L1 & N1 & O1 & P1 &"        "&Q1]
  11.     End With
  12. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 8# Hsieh


    ¦nµØÄR®@~~  ÁÂÁÂ~~
¿ß¥£¤@ªT ^_^

TOP

        ÀR«ä¦Û¦b : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD