ªð¦^¦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

¦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

¶â¶â¶â!! ¨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

¦^´_ 8# Hsieh


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

TOP

        ÀR«ä¦Û¦b : ¦³Ä@©ñ¦b¤ß¸Ì¡A¨S¦³¨­Åé¤O¦æ¡A¥¿¦p¯Ñ¥Ð¤£¼½ºØ¡A¬Ò¬OªÅ¹L¦]½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD