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

帖子: 41
主題: 12
精華: 0
積分: 71
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2011-8-30
最後登錄: 2012-8-25

2^#

發表於 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

帖子: 41
主題: 12
精華: 0
積分: 71
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2011-8-30
最後登錄: 2012-8-25

3^#

發表於 2011-10-21 11:13 | 顯示全部帖子

我的問題是在主程式不同個i之下,
去讀取子程式，再把子程式結果，輸出至一個新的工作表, 順便命名新的工作表名稱

帖子: 41
主題: 12
精華: 0
積分: 71
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2011-8-30
最後登錄: 2012-8-25

4^#

發表於 2011-10-21 19:21 | 顯示全部帖子

不好意思，我可能說的不是很清楚
我想利用主程式不同的Im,
然後到子程式去做運算,
再把子程式算出來的結果，
輸出到新的工作表,
然後, 我想為我的工作表命名(想要命名方式為Im= i , 這種型態)

帖子: 41
主題: 12
精華: 0
積分: 71
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2011-8-30
最後登錄: 2012-8-25

5^#

發表於 2011-10-21 20:36 | 顯示全部帖子

感謝Hsieh大大的解答，
不過，可否為我解釋一下主程式的部分
為何要用with ~ end with
這是什麼狀況下用的呢?

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

帖子: 41
主題: 12
精華: 0
積分: 71
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2011-8-30
最後登錄: 2012-8-25

6^#

發表於 2011-10-23 15:29 | 顯示全部帖子

我想要再問, 如果有2個變數，要如何命名
Sub Remain_M()
For i = 0 To 5
      for j = 0 to 5
            Worksheets.Add
            With ActiveSheet
         .Name = (i,j)
         End With
Demand_M_2nd i
Demand_R_2ndj
  Next
Next
End Sub