ªð¦^¦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®É¶¡µLªk¾B¾×¡j©È®É¶¡®ø³u¡Aªá¤F³\¦h¤ß¦å¡A·QºÉ¦U¦¡¤èªk­n¾B¾×®É¶¡¡Aµ²ªG¬O¡G®ö¶O¤F§ó¦h®É¶¡¡A¥B¤@µL©Ò¦¨¡I
ªð¦^¦Cªí ¤W¤@¥DÃD