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

[µo°Ý] ¸Ó¦p¦ó½T»{sheet name?

[µo°Ý] ¸Ó¦p¦ó½T»{sheet name?

­n½T»{sheet¦W¦r¬O§_¬°"¼t°Ó¤@"¡A¨Ï¥Î:
If Sheets(2).Name = "¼t°Ó¤@" Then

­Y¬O¸ÓÀÉ®×¥u¦³¤@­Ósheet«h·|¥X²{¿ù»~¡A¦pªG§Ú·Q½T»{Àɮפ¤¬O§_¦³"¼t°Ó¤@"³o­Ósheet§ï¦p¦ó¼g©O?

¦^´_ 1# acdx
Excel¸Ì­±¥i¥H¦³«Ü¦h­Ósheet, ¦ý¬O¥²¶·¦³¤@­Ósheet¥s°µ"¼t°Ó¤@"
¤]´N¬O¸Ó¦p¦ó½T»{sheet"¼t°Ó¤@"³o­Ósheet¦s¦b?

TOP

  1. Sub test1()
  2.     For i = 1 To Sheets.Count
  3.         If Sheets(i).Name = "¼t°Ó¤@" Then
  4.             MsgBox "¡y¼t°Ó¤@¡z¦s¦b"
  5.             Exit Sub
  6.         End If
  7.     Next
  8.     MsgBox "¡y¼t°Ó¤@¡z¤£¦s¦b"
  9. End Sub
½Æ»s¥N½X
¦^´_ 2# acdx

TOP

        ÀR«ä¦Û¦b : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD