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

[µo°Ý] ½Ð°Ý¬O§_¥i¥H¥ÎÀx¦s®æªº¸ê®Æ¨Ó±Æ§Ç¤u§@ªí

¦^´_ 2# GBKEE


ª©¤j±z¦n,

Sh.Move Sheets(Sh.[b2])°õ¦æ¨ì³o¤@¦æ®É¥X²{  °õ¦æ¶¥¬q¿ù»~"13" «¬ºA¤£²Å
½Ð±Ðª©¤j
Sh.Move Sheets(Sh.[b2])³o¦æªº·N«ä¬O? Sheets(sh.[b2])¬O«üworksheets¤¤ªº¨C¤@sheetªºÀx¦s®æb2¶Ü?

·PÁª©¤jªº¨³³t¦^ÂÐ

TOP

¦^´_ 1# luffyzoro
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Sh As Worksheet
  4.     For Each Sh In Sheets
  5.         Sh.Move Sheets(Sh.[b2])
  6.     Next
  7. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤Ó¶§¥ú¤j¡B¤÷¥À®¦¤j¡B§g¤l¶q¤j¡A¤p¤H®ð¤j¡C
ªð¦^¦Cªí ¤W¤@¥DÃD