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

[µo°Ý] ¥HVBA¼gªº¼Ï¯Ã¤ÀªR¦p¦ó¥¿½T°õ¦æ

[µo°Ý] ¥HVBA¼gªº¼Ï¯Ã¤ÀªR¦p¦ó¥¿½T°õ¦æ

ª©¤W¦U¦ì«e½ú¤j®a¦n¡A¤p§Ì¥Ø«e¥¿¦b¾Ç²ßVBA¡A
¥Ø«e¥Hvba¼g¤F¤@­Ó¥i¶]¥X¼Ï¯Ã¤ÀªRªíªºµ{¦¡¡A¦b³v¨B°õ¦æ(F8)ªº®É­Ô³£¨S¦³µo¥Í°ÝÃD¡C
¦ý¦b¥¿¦¡°õ¦æªº®É­Ô¡A«oµLªk¥¿½Tªº¶]¥X"¤º§t¸ê®Æ"ªº¼Ï¯Ã¤ÀªRªí¡]¦pªþ¥óDeptByMonth Sheet¡^¡C
¦h¦¸­×§ï«á¤´¬O¤@¼ËµLªk¶¶§Q¶]¥X©ú²Ó¡]¥Ø«eªº©ú²Ó¬O³v¨B°õ¦æ¤U¶]¥Xªº¡^¡C
¥t·Q¥Hvba¥i¦Û°Ê«ö¤£¦P¤À­¶¦WºÙ¡]¦pªþ¥ó¥H³¡ªù§O¡^¶]¥X¦U¦Ûªº©ú²Ó¡A¦ý¦¹»yªk¡yPT.ShowPages PageField:="³¡ªù¦WºÙ"¡z¦ü¥GµLªk¨Ï¥Î¡A¤£ª¾¹D¬O¦ó­ì¦]¡H
§Æ±æ¯à½Ð¦U¦ì«e½ú¨ó§UÀ°¦£¡AÁÂÁ¡C

Expenses.rar (343.42 KB)

¦Û¦æ¦^µª¤@¤U¡A
¦³Ãö°ÝÃD¤@³¡¤À¡A¬OPT.ManualUpdate = True¤ÎPT.ManualUpdate = False¼vÅT¤Fµ²ªG¡C±N³o¨â¦æ§R°£«á´N¥¿±`¤F¡C
°ÝÃD¤G³¡¤À¡A±NShowPages¨º±ø§ï¬°¡yActiveSheet.PivotTables("MonthlyBudgetByDept").ShowPages PageField:="³¡ªù¦WºÙ"¡z´N¥i¸Ñ¨M¤F¡C

TOP

ªþ¤W­×§ï«áÀɮצp¤U¡A¦A½Ð¤j®a«ü±Ð¡CÁÂÁÂ
Expenses2.zip (451 KB)

TOP

        ÀR«ä¦Û¦b : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD