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

[µo°Ý] ¬¡­¶Ã¯¯à¥Î°}¦C¦P®ÉÁôÂéΥX²{¶Ü¡H

§Ú¤]¨Ó½m²ß¸É¥R¤@­Ó
  1. Sub ex1()
  2.     Dim Arr As Variant, xS
  3.     Arr = Array("Sheet2", "Sheet3", "Sheet4")
  4.     On Error Resume Next
  5.     For Each xS In Arr
  6.         Sheets(xS).Visible = Not Sheets(xS).Visible
  7.     Next
  8. End Sub
½Æ»s¥N½X
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 5# ­ã´£³¡ªL

­ã¤j¦Ò¼{©P¸Ô¡A½Ðµ¹§Ú­Ì¤@­Ó¥Ü½d¨Ò¡C
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 6# c_c_lai

¯u¼F®`!
¤S¾Ç¨ì  Static tf As Boolean
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 8# ­ã´£³¡ªL

3Q

¤U¨â¦¡ªº­pºâ­È¦³¨Ç¤£¦P¡A³£¥i¥H¹F¨ì ÁôÂÃ/Åã¥Ü ªº¤Á´«
    tf = Not Sheets(arr(0)).Visible '­ÈÅÜ¤Æ : 0 / -1
    tf = 1 + Sheets(arr(0)).Visible  '­ÈÅÜ¤Æ : 0 / 1
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD