返回列表 上一主題 發帖

[發問] 如何產生不同名稱worksheet

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
1# 跳轉到 »
發表於 2011-11-15 16:55 | 顯示全部帖子
本帖最後由 mark15jill 於 2011-11-15 17:03 編輯

Sub CODE_ST1()
'螢幕更新關閉，提示關閉
Application.DisplayAlerts = False
Application.ScreenUpdating = True
   
'活頁簿新增
For AAA = 1 To 6 '1 TO 6 是 創造6個 SHEET
    QQ = Sheet1.Range("A" & AAA).Value
'QQ的值為 SHEET1的A欄位的值 , 如果是要多字串合併(如 a欄位和b欄位合併) 則 這串更改為 QQ = SHEET1.RANGE("A"&AAA ).VALUE & SHEET1.RANGE("B"&AAA).VALUE  
Sheets.Add After:=Sheets(Sheets.Count)
    Sheets("Sheet" & QQ + 1).Select   'QQ+1是避免 一開始的SHEET1
    Sheets("Sheet" & QQ + 1).Name = QQ
Next AAA
End Sub

TOP

        靜思自在 : 滴水成河。粒米成蘿，勿輕己靈，勿以善小而不為。
返回列表 上一主題