在工作表執行另一格工作表的巨集 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 在工作表執行另一格工作表的巨集

返回列表下一主題上一主題發帖

在工作表執行另一格工作表的巨集

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

11^# 跳轉到 »

發表於 2016-4-30 08:17 | 只看該作者

本帖最後由 c_c_lai 於 2016-4-30 08:20 編輯

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

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

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

複製代碼

呼叫方式二

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

複製代碼

呼叫方式三

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

複製代碼

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-20

12^#

發表於 2016-4-30 11:59 | 只看該作者

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

複製代碼

Xl0000354.rar (28.89 KB)

中學生 Rank: 2

帖子: 43
主題: 12
精華: 0
積分: 72
點名: 0
作業系統: windows
軟體版本: win 8.0
閱讀權限: 20
性別: 男
註冊時間: 2016-2-9
最後登錄: 2020-4-13

論壇贊助勳章

13^#

發表於 2016-4-30 19:35 | 只看該作者

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

michael

靜思自在 : 修行要繫緣修心，藉事練心，隨處養心。

返回列表下一主題上一主題