0

私のループは機能しますが、逆の順序になっています。私はそれが私が以下に持っていることを正確にやっていることに気づきます、しかし私はまだ構文に十分ではありません。私はそれを逆にする方法を理解することができません。

現在のワークシートの順序は降順です:3.31、3.30、3.29など。

昇順が必要です:3.21、3.22、3.23、3.24など...

日=各月の数値日mon=月の数値

提案?

For i = 1 To Val(days)
    Sheets(1).Copy after:=Sheets(1)
    ActiveSheet.Name = mon & "." & (i)
Next i
4

1 に答える 1

1

これにより、ブックの最後にシートが正しい順序で配置されます。

For i = 1 To Val(days)
    Sheets(1).Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = mon & "." & (i)
Next i

これにより、sheet1の後に正しく配置されます。

Set wsTemp = Sheets(1)
For i = 1 To Val(days)
    Set wsTemp = Sheets(1).Copy(After:=wsTemp)
    wsTemp.Name = mon & "." & (i)
Next i
于 2013-03-21T21:24:55.597 に答える