ªð¦^¦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¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD