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

帖子: 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

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

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

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)

c_c_lai

博士班 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

複製代碼

c_c_lai

博士班 Rank: 6 Rank: 6

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

10^#

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

回復 9# chairles59
這可分成兩部分來說明，無論是何種方式答案是一致的，
差別只在於表達的方式因人而異：
A. 將『新增股票名稱』程式 (新增股票名稱())
放置於「工作表1 (格式)」內

呼叫方式一：

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

複製代碼

呼叫方式二：

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

複製代碼

呼叫方式三：

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

複製代碼

呼叫方式四：

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

複製代碼

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

論壇贊助勳章

9^#

發表於 2016-4-30 06:53 | 只看該作者

回復 8# luhpro

謝謝大大的教導
:)

michael

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

8^#

發表於 2016-4-30 04:55 | 只看該作者

回復 7# chairles59
你的 Sheets("格式") 裡並沒有新增股票名稱這個 Sub,
呼叫當然會失敗囉...

你只要把 Sheets("格式"). 拿掉,
改為直接呼叫 "新增股票名稱" 即可:

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

複製代碼

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

論壇贊助勳章

7^#

發表於 2016-4-29 23:05 | 只看該作者

回復 5# luhpro

luhpro 大大:
不好意思我在開發人員執行偵錯,按F8時他告訴我
執行階段錯誤438
物件不支援此屬性或方法

但是我在Sheet1(即時資訊)新增股票按鈕卻能執行

michael

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

論壇贊助勳章

6^#

發表於 2016-4-29 21:19 | 只看該作者

本帖最後由 chairles59 於 2016-4-29 21:21 編輯

[attach]24108[/attach][attach]24108[/attach]回復 5# luhpro

luhpro 大大:
好像也不行
我把壓縮檔案附上
請大大幫我看一下按鈕7的巨集那裡有問題

謝謝

ps:準大大不好意思
您的程式我加了好多個按鈕

股票.rar (49.56 KB)

michael

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

5^#

發表於 2016-4-29 00:07 | 只看該作者

本帖最後由 luhpro 於 2016-4-29 00:08 編輯

回復 luhpro

大大:
測試好像不行
他出現
執行階段錯誤9
陣列索引超出範圍

Call Sheets("Sheet2").cc

chairles59 發表於 2016-4-28 22:08

你#1 的敘述是 :

如果我想改成在同一個工作簿上第一個工作表上執行的二個工作表上的巨集

看不出來巨集所在工作表的名稱,
及想執行的巨集名稱,
所以我只能自己訂,
你要改成你檔案中的名稱,
而不是直接照搬.

會出現陣列索引超出範圍的錯誤是正常的,
因為你的檔案裡沒有名稱為 Sheet2 的工作表.

Call Sheets("Sheet2").cc
上式中:
1. Sheet2 是工作表名稱, 請帶入你想要執行的巨集所在的工作表名稱.
2. cc 是巨集名稱, 請帶入你想要執行的巨集的名稱.