Home > Microsoft > [VBA]シートコピー

[VBA]シートコピー

2009-04-30 (木) 13:16
Microsoft
EXCEL | Macro | VBA

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

タグ: EXCEL, Macro, VBA

Comments:0

Trackbacks:0

Trackback URL for this entry: http://qooga.jb-jk.net/wp/2009/04/vba_sheet_copy/trackback/
Listed below are links to weblogs that reference: http://qooga.jb-jk.net/wp[VBA]シートコピー from MOT：主にプログラム勉強メモ部屋

Home > Microsoft > [VBA]シートコピー

Pages

Recent Entries

Categories

Archives

Search

Option

Feeds

commercial

Mobile

Meta

Tag Cloud

TOP10

[wp×SQLite]Warning: array_merge() - 6,528 views
PHPでの配列操作メモ - 3,667 views
携帯用画像転送不可設定用 - 2,740 views
TortoiseSVNと共存出来るSVN　Mercurial(hg) - 2,203 views
Twitterbird Internet Explorer用修正 - 2,178 views
phpMyAdminで文字コードを変更 - 1,838 views
htmlspecialcharsとhtmlentities　変換とデコード - 1,604 views
携帯用各クローラーのUSER AGENT - 1,572 views
SQLiteの特徴 - 1,516 views
iモードの絵文字をPCブラウザに表示する - 1,451 views

commercial

Return to page top

[VBA]シートコピー

関連する投稿

Comments:0

Trackbacks:0