ãã¤ã¼ã ããã¯ã«è¤æ°ã®ã·ã¼ããåå¨ããã¨ãããããã®ã·ã¼ããã·ã¼ãåã®é ã«ä¸¦ã¹æ¿ããã«ã¯ã©ããããããã§ãããã 2ã¤ã®æ¹æ³ããç´¹ä»ãã¾ãã â é
åã使ç¨ããæ¹æ³ 1ã¤ç®ã¯ããã¹ã¦ã®ã·ã¼ãåãé
åã«æ ¼ç´ããé
åå
ã®ã·ã¼ãåãä¸¦ã¹æ¿ããæ¹æ³ã§ãã é
åå
ã®è¦ç´ ãä¸¦ã¹æ¿ããã«ã¯ããã¤ãã®ã¢ã«ã´ãªãºã ãããã¾ãããããã§ã¯æãç°¡åãªæ¹æ³ã§è¡ã£ã¦ã¿ã¾ãããã Sub Sample1() Dim i As Long, j As Long, cnt As Long Dim buf() As String, swap As String cnt = Worksheets.Count ReDim buf(cnt) 'ã¯ã¼ã¯ã·ã¼ãåãé
åã«å
¥ãã For i = 1 To cnt buf(i) = Worksheets(i).Name Next i 'é
åã®è¦ç´ ãã½ã¼ããã For i = 1 To cn
{{#tags}}- {{label}}
{{/tags}}