当サイトはアフィリエイト広告を利用しています。Amazonアソシエイト参加者

[VBA]シートコピー

Microsoft系(VBAなど)
2009.06.13
1
2
3
4
5
6
7
8
9
10
Private Sub copy_all()
    Dim i As Integer
    For i = 1 To 41
        'Worksheets.Add After:=Sheets(Sheets.Count)  '最後にシート作成
        Workbooks("true.xls").Worksheets("書換中").Copy After:=Workbooks("detabase.xls").Sheets("使い方")
        Workbooks("detabase.xls").ActiveSheet.Name = Workbooks("true.xls").Worksheets(1).Cells(i, 4)
        Workbooks("detabase.xls").ActiveSheet.Range("C1") = Workbooks("true.xls").Worksheets(1).Cells(i, 4)
        Workbooks("detabase.xls").ActiveSheet.Range("G2") = "(追加)"
    Next
End Sub

更新@2011.01.04 23:40

コメント

タイトルとURLをコピーしました