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

[µo°Ý] 2003»P2010µ{¦¡½X

[µo°Ý] 2003»P2010µ{¦¡½X

¦U¦ì¤j¤j¡A½Ð±Ð°ÝÃD¦p¤U¡G

¦b2003¤¤¥i¥H¶¶§Q°õ¦æ¡A¨Ò¦p¤U­±µ{¦¡½X¡G
  1.     c = Worksheets.Count
  2.     For i = 1 To c
  3.         Sheets(i).Visible = True
  4.     Next i
½Æ»s¥N½X
¦ý¦b2010¤¤µLªk°õ¦æ¡A­ì¦]¥X¦b¤u§@ªí¦WºÙªº¤£¦P¡A
¦]¬°¤w¸g¨Ï¥Î2003ª©¥»¼g¤FÆZ¤j¶qªºµ{¦¡½X¡A³v¤@­×§ï¹ê¦b¬O¤Ó¶O¤u¤F¡A
¥B¨Ï¥ÎªÌ·|¦³¦P®É¨Ï¥Î2003©Î2010ªº¥i¯à¡A¼g¨â®Mª©¥»¤]¤Ó¦û®e¶q¡A
©Ò¥H­n½Ð±Ð¦U¦ì¤j¤j¡A¦p¦ó¥[¼gµ{¦¡½XÅý¨Ï¨ä¯à°÷¦b2003»P2010¤¤¦P®É°õ¦æ?
§Ú¬O´µ¦h

¦^´_ 1# reangame
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Sh As Worksheet
  4.     For Each Sh In ThisWorkbook.Sheets
  5.         Sh.Visible = xlSheetVisible
  6.     Next
  7. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE

·PÁÂGBKEE¤j¤j¡A³o´X¤Ñ¤ñ¸û¦£¨S®É¶¡¤W¨Ó¡A

±z«ü¾Éªº¤èªk¨S¦³°ÝÃD¥i¥H°õ¦æ¡A·PÁ±zÅo!!
§Ú¬O´µ¦h

TOP

        ÀR«ä¦Û¦b : ¹D¼w¬O´£ª@¦Û§Úªº©ú¿O¡A¤£¸Ó¬O¨þ¥¸§O¤HªºÃ@¤l¡C
ªð¦^¦Cªí ¤W¤@¥DÃD