シートを増やす

| コメント(0) | トラックバック(0)
シートを増やす 元の名前を取っておかないと、元シートのデータを参照する事ができなくなる
    motoSheet = ActiveSheet.Name
    Sheets.Add
    ActiveSheet.Name = "step2"
    
    For C = 1 To 45
        Sheets("step2").Cells(C).ColumnWidth = Sheets(motoSheet).Cells(C).ColumnWidth
        Sheets("step2").Cells(C).NumberFormatLocal = Sheets(motoSheet).Cells(C).NumberFormatLocal
        Sheets("step2").Cells(C).VerticalAlignment = Sheets(motoSheet).Cells(C).VerticalAlignment
    Next

トラックバック(0)

トラックバックURL: http://winnote.adg7.com/mt/mt-tb.cgi/178

コメントする

このブログ記事について

このページは、たけうちとおるが2009年5月26日 16:31に書いたブログ記事です。

ひとつ前のブログ記事は「シートを選択する」です。

次のブログ記事は「セルが空なら」です。

最近のコンテンツはインデックスページで見られます。過去に書かれたものはアーカイブのページで見られます。

エントリー一覧