12
返回列表 上一主題 發帖

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

Helain

帖子
41 
主題
12 
精華
0 
積分
71 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
女 
註冊時間
2011-8-30 
最後登錄
2012-8-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-10-20 17:42 | 只看該作者

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

我想請問如何利用excel VBA 一次新增5個worksheets,
順便更改worksheets名稱

Sub XXX()

For i = 1 to 5

     worksheets.Add
    ActiveSheet.Name = " Im=i"

Next

End sub
收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
246  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-12 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2011-10-20 17:49 | 只看該作者
回復 1# Helain


     ActiveSheet.Name = " Im=" & i
學海無涯_不恥下問

TOP

Helain

帖子
41 
主題
12 
精華
0 
積分
71 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
女 
註冊時間
2011-8-30 
最後登錄
2012-8-25 
3#
發表於 2011-10-20 17:59 | 只看該作者
謝謝版主:D

另外一個問題:
Sub Remain_M()

For i = 0 To 5

    Worksheets.Add
    ActiveSheet.Name = "Im=" & i
    Worksheets("Im=" & i) = Demand_M_2nd(Im)
(底線的部分該如何更改)
   
   
Next

   
End Sub

Function Demand_M_2nd(ByVal Im As Integer)

    For i = 3 To 5
   
        If Worksheets("Sheet1").Cells(i, 2).Value - Im > 0 Then
        
            Cells(i, 2).Value = Cells(i, 2).Value - Im
        
        Else
        
            Cells(i, 2).Value = 0
         
        End If
         
    Next
                 
End Function

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
246  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-12 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2011-10-20 18:31 | 只看該作者
回復 3# Helain
看不懂Demand_M_2nd函數要傳回甚麼東西
基本上你的主程序應該是
  1. Sub Remain_M()
  2. For i = 0 To 5
  3.     Worksheets.Add
  4.     ActiveSheet.Name = CStr(Demand_M_2nd(i))
  5. Next
  6. End Sub
複製代碼
只要能確定Demand_M_2nd函數計算正確就能為工作表命名
學海無涯_不恥下問

TOP

Helain

帖子
41 
主題
12 
精華
0 
積分
71 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
女 
註冊時間
2011-8-30 
最後登錄
2012-8-25 
5#
發表於 2011-10-21 11:13 | 只看該作者
我的問題是在 主程式不同個i之下,
去讀取子程式，再把子程式結果，輸出至一個新的工作表, 順便命名新的工作表名稱

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
6#
發表於 2011-10-21 11:52 | 只看該作者
本帖最後由 hugh0620 於 2011-10-21 11:57 編輯

回復 5# Helain

    樓主的問題~ 我以前也有問過~  
    個人貼帖的連結點資料衣條件 分SHEET
    提供一個版大們的處理手法~ 自己再截取所需要的部份~ 來完成的檔案~
    Data_VBA完成版_1.rar (103.16 KB)
  1. Private Sub CommandButton1_Click()
  2. Macro5 '複製貼上Data匯整

  4. '=====排序====
  5. Range("B3").End(xlToRight).End(xlDown).Sort Key1:=Range("B3"), _
  6. Order1:=xlAscending, Key2:=Range("C3"), Order2:=xlAscending, Key3:=Range("E3"), Order3:=xlAscending, Header:=xlYes
  7. '=====排序====

  9. '=====進階篩選====
  10.     Range("B2").Select
  11.     Range(Selection, Selection.End(xlDown)).Select
  12.     Range("B2:B256").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
  13.         "A2"), Unique:=True
  14. '=====進階篩選====

  16. Dim N As Integer

  18. A = Application.CountA(Sheet2.[A3:A65536])  'A統計出需要跑幾個Sheet

  20. For N = 1 To A

  22.   Sheets.Add AFTER:=Worksheets(N + 1)           '新增sheet
  23.   ActiveSheet.Range("A1") = Sheet2.Range("B2")
  24.   ActiveSheet.Range("B1") = Sheet2.Cells(2 + N, 1)
  25.   ActiveSheet.Range("B2") = Sheet2.Range("E2")
  26.   
  27.     For K = 1 To 96
  28.     ActiveSheet.Cells(3 + Y, 1) = "POINT_" & K
  29.     ActiveSheet.Cells(3 + Y, 2) = 1
  30.     Y = Y + 1
  31.     Next
  32.     For K = 1 To 96
  33.     ActiveSheet.Cells(3 + Y, 1) = "POINT_" & K
  34.     ActiveSheet.Cells(3 + Y, 2) = 97
  35.     Y = Y + 1
  36.     Next
  37.     For K = 1 To 96
  38.     ActiveSheet.Cells(3 + Y, 1) = "POINT_" & K
  39.     ActiveSheet.Cells(3 + Y, 2) = 193
  40.     Y = Y + 1
  41.     Next
  42.     Y = 0
  43.   ActiveSheet.Name = Sheet2.Cells(2 + N, 1) 'Sheet2.Range("B2") & Sheet2.Cells(2 + N, 1) '標籤名稱 僅標上數字,若有需要請把=後面改回Sheet2.Range("B2") & Sheet2.Cells(2 + N, 1)
  44.    
  45.     Do Until Sheet2.Cells(3 + H, 2) = ""
  46.         If Sheet2.Cells(3 + H, 2) = Sheet2.Cells(2 + N, 1) Then
  47.             If ActiveSheet.Cells(2, 2 + Z) = Sheet2.Cells(3 + H, 3) Then
  48.                 Select Case Sheet2.Cells(3 + H, 5)
  49.                     Case 1
  50.                         For X = 1 To 96
  51.                         ActiveSheet.Cells(2 + X, 2 + Z) = Sheet2.Cells(3 + H, 5 + X)
  52.                         Next
  53.                     Case 97
  54.                         For X = 1 To 96
  55.                         ActiveSheet.Cells(98 + X, 2 + Z) = Sheet2.Cells(3 + H, 5 + X)
  56.                         Next
  57.                     Case 193
  58.                         For X = 1 To 96
  59.                         ActiveSheet.Cells(194 + X, 2 + Z) = Sheet2.Cells(3 + H, 5 + X)
  60.                         Next
  61.                 End Select
  62.             Else
  63.                 Z = Z + 1
  64.                 ActiveSheet.Cells(2, 2 + Z) = Sheet2.Cells(3 + H, 3)
  65.                 Select Case Sheet2.Cells(3 + H, 5)
  66.                     Case 1
  67.                         For X = 1 To 96
  68.                         ActiveSheet.Cells(2 + X, 2 + Z) = Sheet2.Cells(3 + H, 5 + X)
  69.                         Next
  70.                     Case 97
  71.                         For X = 1 To 96
  72.                         ActiveSheet.Cells(98 + X, 2 + Z) = Sheet2.Cells(3 + H, 5 + X)
  73.                         Next
  74.                     Case 193
  75.                         For X = 1 To 96
  76.                         ActiveSheet.Cells(194 + X, 2 + Z) = Sheet2.Cells(3 + H, 5 + X)
  77.                         Next
  78.                 End Select
  79.             End If
  80.         End If
  81.     H = H + 1
  82.     Loop

  84.     H = 0
  85.     Z = 0
  86.     ActiveSheet.Rows("2:2").Select
  87.     Selection.NumberFormatLocal = "yyyy/m/d"
  88. Next
  89. End Sub
複製代碼
學習才能提升自己

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
246  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-12 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
7#
發表於 2011-10-21 12:29 | 只看該作者
回復 5# Helain

簡單的說妳的子程式就是工作表的命名規則
請說明你的命名規則
學海無涯_不恥下問

TOP

Helain

帖子
41 
主題
12 
精華
0 
積分
71 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
女 
註冊時間
2011-8-30 
最後登錄
2012-8-25 
8#
發表於 2011-10-21 19:21 | 只看該作者
不好意思，我可能說的不是很清楚
我想利用主程式不同的Im,
然後到子程式去做運算,
再把子程式算出來的結果，
輸出到新的工作表,
然後, 我想為我的工作表命名(想要命名方式為Im= i , 這種型態)

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
246  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-12 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
9#
發表於 2011-10-21 19:45 | 只看該作者
回復 8# Helain

是這樣嗎?
  1. Sub Remain_M()
  2. For i = 0 To 5
  3.     Worksheets.Add
  4.     With ActiveSheet
  5.     .Name = "Im=" & i
  6.     End With
  7.     Demand_M_2nd i
  8. Next
  9. End Sub
  10. Function Demand_M_2nd(ByVal Im As Integer)

  12.     For i = 3 To 5
  13.    
  14.         If Worksheets(1).Cells(i, 2).Value - Im > 0 Then
  15.         
  16.             ActiveSheet.Cells(i, 2).Value = Cells(i, 2).Value - Im
  17.         
  18.         Else
  19.         
  20.             ActiveSheet.Cells(i, 2).Value = 0
  21.          
  22.         End If
  23.          
  24.     Next
  25.                  
  26. End Function
複製代碼
學海無涯_不恥下問

TOP

Helain

帖子
41 
主題
12 
精華
0 
積分
71 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
女 
註冊時間
2011-8-30 
最後登錄
2012-8-25 
10#
發表於 2011-10-21 20:36 | 只看該作者
感謝Hsieh大大的解答，
不過，可否為我解釋一下主程式的部分
為何要用with ~ end with
這是什麼狀況下用的呢?

p.s. 我是新手一切都還在摸索與學習

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
12
返回列表 上一主題