c_c_lai

回復 9# chairles59
B. 將『新增股票名稱』程式 (新增股票名稱())
   放置於 「模組」(此處範例置於 Module3) 內

呼叫方式一  (這便是 luhpro 大大教你的方法)

1. Sub 複製格式工作表()
   
2.     新增股票名稱
   
3. End Sub

複製代碼

呼叫方式二

1. Sub 複製格式工作表()
   
2.     Call 新增股票名稱
   
3. End Sub

複製代碼

呼叫方式三

1. Sub 複製格式工作表()
   
2.     Call Module3.新增股票名稱
   
3. End Sub

複製代碼

准提部林

1. Sub 工作表_新增股票名稱()
   
2. Dim ShtN$, Sht As Worksheet
   
3. Set uRng = ActiveCell
   
4. If uRng.Column <> 3 Or uRng.Row < 5 Or uRng = "" Then MsgBox "※請先選取個股代號！": Exit Sub
   
5. ShtN = uRng.Value
   
6. On Error Resume Next
   
7. Set Sht = Sheets(ShtN)
   
8. If Not Sht Is Nothing Then MsgBox "工作表名稱已存在! ": Exit Sub
   
9. Sheets("格式").Copy after:=Sheets(2)
   
10. With ActiveSheet
    
11.     .Name = ShtN
    
12.     .[B1] = ShtN
    
13.     .[D1] = uRng(1, 2)
    
14. End With
    
15. End Sub
    
16. 
    
17. 
    
18. Sub 工作表_刪除最後一個()
    
19. Application.DisplayAlerts = False
    
20. With Sheets(Sheets.Count)
    
21.     If .Name <> "即時資訊" And .Name <> "格式" Then
    
22.        If MsgBox("確定要刪除〔" & .Name & "〕工作表？ ", 1 + 32 + 256) = vbOK Then .Delete
    
23.     End If
    
24. End With
    
25. End Sub

複製代碼

Xl0000354.rar (28.89 KB)

下載次數: 3

2016-4-30 11:58

chairles59

c_c_lai 大大:
謝謝您那麼用心的講解
讓我學的很多
不過這程式是準大大設計的
讓我加了很多按鈕
很不好意思,而且這些按鈕程式都是諸位大大教的