©w¸q¦WºÙ Print_Area µLªk¥ÎMarco§R°£
- ©«¤l
- 13
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 25
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-8-8
- ³Ì«áµn¿ý
- 2011-10-14
|
©w¸q¦WºÙ Print_Area µLªk¥ÎMarco§R°£
¤p§Ì¦³¤@Àɮ׬O±qExcel 97 ¤@ª½¨Ï¥Î¨ìExcel 2003.
³oÀɮפº§t¦³¦hÓ¦³®Ä¤ÎµL®Äªº©w¸q¦WºÙ (Name)
¥Ø«e§@·~¨t²Î¤Î¤å®Ñ³B²z¨t²Î¬OWindow 7¤ÎExcel 2007
¤µ¤é§Ú¥HExcel 2007«Ø¥ß¤@ÓMarcon±Nª©¥»ªºExcelÀɤºªº©Ò¦³©w¸q¦WºÙ³£§R°£. »yªk¦p¤U:
Sub Clearnames()
Dim nas As Name
For Each nas In ActiveWorkBook.Names
nas.Delete
Next
End Sub
µ²ªG,¤p§Ìµo²{,¦³¤@ÓÄÝ©óWorkbookªº©w¸q¦WºÙ,¦W¬°Print_Area, ÁÙ¯d¦bÀɮ׸Ì,¦Ó¥B¥u¯à¤â°Ê§R°£.
³o¬O«ç»ò¦^¨Æ? §Úªº»yªkÀ³¸Ó¨S¿ù§a.
¬Oª©¥»°ÝÃD¶Ü?ÁÙ¬On¥Î¨ä¥¦¤è¦¡§R°£.
§Ú¬d¸ß¹L³\¦h¸ê®Æ, ©Ò¨Ï¥Îªº»yªk³£»P§Ú©Ò¦Cªº¬Û¦P©Î¬Û¦ü. ¦Ó§Ú®M¥Î§O¤Hªº»yªk«á,°ÝÃD¤´¦b.
Àµ½Ð¤j®aÀ°¦£³B²z. ÁÂÁÂ.
(Àɮצ³¤W¤dÓ,§Ú¥i¨S®É¶¡¤@Ó¤@Ó¶}Àɮפâ°Ê§R°£) |
|
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
·Q°_¥H«e´¿°µ¹L³o¼Ëªº´ú¸Õ¡A¦b¦Û¤v¹q¸£«Ø¥ßªº¦WºÙ¡A¿ò¥¢°Ñ·Óªº¿ù»~«á¡A¦bvba¥i¥H¥þ³¡§R°£¡C
¬Û¦Pªº±¡§ÎY¬O±µ¦¬§O¤Hªº¡Avba´N¤£§â¨º¨Ç¿ù»~ªº¦WºÙ·í°µ¦WºÙ¦Ó³ø¿ù¡C¨t²Î½w¦s·|°O¿ý¤å¥ó©Òªº¦³¾Þ§@¡A³o´N¬O¦Ñªº¤å¥óÅã±oÁs¸~ªºì¦]¡A·Ó²z¦s¦b½w¦s¤¤ªºªF¦èÀ³¸Ó¸òµÛÀɮ׶]ªº¡A§Ú©l²×¤£¯à©ú¥Õ¨ä¤¤¹D²z¡I |
|
|
|
|
|
|
¡@¼ÊºÙ: ªü¦N ¡@ÀY»Î: ¤£®¢¤U°Ý,¤£Â_¾Ç²ß,¤~·|¶i¨B
ª©¥D
- ©«¤l
- 647
- ¥DÃD
- 190
- ºëµØ
- 24
- ¿n¤À
- 1037
- ÂI¦W
- 0
- §@·~¨t²Î
- windows7
- ³nÅ骩¥»
- Office 2010 ; OOO3.0 ; Google
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦Ë«n
- µù¥U®É¶¡
- 2010-5-2
- ³Ì«áµn¿ý
- 2022-6-24
|
|
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
¬Ý¨ì#REF!, ´N¬Oµo¥Í¿ù»~¤F¡C
ªí¥Ü³oÓ¦WºÙ¤w¤£¦¨¥ß¡A¦ÛµM·j´M¤£¨ì¦Ón¤â¤u§R°£¡I |
|
|
|
|
|
|
- ©«¤l
- 13
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 25
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-8-8
- ³Ì«áµn¿ý
- 2011-10-14
|
¥»©«³Ì«á¥Ñ MRSA ©ó 2010-11-24 00:36 ½s¿è
¦^´_ 5# oobird
¨CÓ©w¸q¦WºÙ·|¹ïÀ³¨ì¥|ÓÈ, 1¬O°Ñ¦ì¦ì§}(Refers To), 2¬OÈ(Value), 3¬O©w¸q¦WºÙªºScope (Scope), 4¬Oµù¸Ñ(Comment)
ª©¤j©Ò¿×ªº©w¸q¦WºÙ¿ù»~ªº·N«ä¬O«ü¥H¤W¥|ÓȪºþ¤@Ó.
§Ú©Ò§x´bªº¬O,§Ú¦bÀɮפº¦³³\¦h©w¸q¦WºÙ, «Ü¦h³£¬O Value ©Î Refers To ¦³¿ù»~ªº(#REF! ©Î¿ù»~ªº¥~³¡³sµ²), ¦ý¬O,³\¦h©w¸q¦WºÙ¬°Print_Area³£¯à³Q§R°£,°¾°¾´N¿W¿W³oÓ Print_Area (Value¬O#REF!, Refers To¬O=#REF!, Scope¬OWorkbook, Comment¬OªÅ¥Õ)ªº©w¸q¦WºÙ§R°£¤£¤F.
¬OExcel 2010 (§Ú¤]¦bExcel 2007¸Õ¹L,¤]¦³¦P¼Ë°ÝÃD) ¥»¨ªº°ÝÃD¶Ü? |
|
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
Y¸Ó¦WºÙ¤w¸gµo¥Í¿ù»~¡A´Nn¤â°Ê§R°£¤F¡I |
|
|
|
|
|
|
- ©«¤l
- 13
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 25
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-8-8
- ³Ì«áµn¿ý
- 2011-10-14
|
¦^´_ 2# oobird
¸Õ¹Lª©¤jªº»yªk.
µ²ªG.©w¸q¦WºÙ Print_Area ¤´µM¦s¦b.
¦Ó¥B¨ä Refers To ªºÈ¤]¨S³Q§ïÅÜ. ³o¥i¥H»¡¬O¥¦®Ú¥»¨S³Q°µ¥ô¦óקï©Î²M°£.
³Ì«á§Ú¥u¯à¥Î Name Manager (Excel 2007ªº¥\¯à¤§¤@)¨Ó¤â°Ê§R°£.
«Ü©_©Çªº±¡ªp,¤£¬O¶Ü?
§Ú¤]¸ÕµÛ¨Ï¥Î¿ý»s¥¨¶°ªº¤è¦¡¨Ó§R°£¥¦. ¤]¬O¨S¥Î. |
|
|
|
|
|
|
¡@¼ÊºÙ: ªü¦N ¡@ÀY»Î: ¤£®¢¤U°Ý,¤£Â_¾Ç²ß,¤~·|¶i¨B
ª©¥D
- ©«¤l
- 647
- ¥DÃD
- 190
- ºëµØ
- 24
- ¿n¤À
- 1037
- ÂI¦W
- 0
- §@·~¨t²Î
- windows7
- ³nÅ骩¥»
- Office 2010 ; OOO3.0 ; Google
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦Ë«n
- µù¥U®É¶¡
- 2010-5-2
- ³Ì«áµn¿ý
- 2022-6-24
|
§Ú§R¤F¦n´X¦~¬O¥i¥H
¥Î³oºØ¸Õ¸Õ¬Ý
ActiveWorkbook.Names(sht).Delete |
|
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
Sub Clearnames()
On Error Resume Next
For Each sh In ActiveWorkbook.Sheets
sh.PageSetup.PrintArea = ""
Next
End Sub
²M°£¦C¦L½d³ò |
|
|
|
|
|
|