¦p¦ó³]©w¤@½d³òÀx¦s®æ¤º®e¬°¦C¦Lªº¶º©O?¡]©Mì³]©w¤§¶º¨Ö¥Î¡^
- ©«¤l
- 31
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- office 2003 / 2013
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- ¨Ó¦Û
- ¥x¥_¿¤
- µù¥U®É¶¡
- 2010-9-9
- ³Ì«áµn¿ý
- 2018-4-25
|
¦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),
¦Ó·Qn³]©w $F$1: $S$1 ªº¤º®e¬° ¨C¶ªº¶º,·Q½Ð°Ýn¦p¦ó³]©w©O?
MR¤ë³øªí.zip (13.35 KB)
|
|
¿ß¥£¤@ªT ^_^
|
|
|
|
|
- ©«¤l
- 31
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- office 2003 / 2013
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- ¨Ó¦Û
- ¥x¥_¿¤
- µù¥U®É¶¡
- 2010-9-9
- ³Ì«áµn¿ý
- 2018-4-25
|
¦^´_ 8# Hsieh
¦nµØÄR®@~~ ÁÂÁÂ~~
|
|
¿ß¥£¤@ªT ^_^
|
|
|
|
|
- ©«¤l
- 31
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- office 2003 / 2013
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- ¨Ó¦Û
- ¥x¥_¿¤
- µù¥U®É¶¡
- 2010-9-9
- ³Ì«áµn¿ý
- 2018-4-25
|
µ²ª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 ^_^
|
|
|
|
|
- ©«¤l
- 31
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- office 2003 / 2013
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- ¨Ó¦Û
- ¥x¥_¿¤
- µù¥U®É¶¡
- 2010-9-9
- ³Ì«áµn¿ý
- 2018-4-25
|
¶â¶â¶â!! ¨S·Q¨ì³oÂI©O~~ ÁÂÁÂ~~ |
|
¿ß¥£¤@ªT ^_^
|
|
|
|
|
- ©«¤l
- 31
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- office 2003 / 2013
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- ¨Ó¦Û
- ¥x¥_¿¤
- µù¥U®É¶¡
- 2010-9-9
- ³Ì«áµn¿ý
- 2018-4-25
|
¦C¦L½d³ò³]¬°A3:AJ49
Hsieh µoªí©ó 2010-9-16 18:51
ÁÂÁÂ Hsieh~
§Ú¤]¦³·Q¹Ln³]½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 ^_^
|
|
|
|
|
- ©«¤l
- 31
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- office 2003 / 2013
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- ¨Ó¦Û
- ¥x¥_¿¤
- µù¥U®É¶¡
- 2010-9-9
- ³Ì«áµn¿ý
- 2018-4-25
|
½Ð°Ý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 ^_^
|
|
|
|
|