12
返回列表 上一主題 發帖

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

chairles59

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

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-4-25 00:54 | 只看該作者

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

請教各位大大:
這是執行其他活頁簿的巨集程式
Sub Sample()
    Application.Run "檔案位置!Module1.Macro1"
End Sub
如果我想改成在同一個工作簿上第一個工作表上執行的二個工作表上的巨集
請問要如何寫這個程式
謝謝
收藏 分享
michael

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
2#
發表於 2016-4-25 23:41 | 只看該作者
本帖最後由 luhpro 於 2016-4-25 23:42 編輯
請教各位大大:
這是執行其他活頁簿的巨集程式
Sub Sample()
    Application.Run "檔案位置!Module1.Mac ...
chairles59 發表於 2016-4-25 00:54


Call Sheets("Sheet2").cc

或

Sheets("Sheet2").cc

TOP

chairles59

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

論壇贊助勳章
3#
發表於 2016-4-27 15:30 | 只看該作者
回復 2# luhpro

謝謝大大
因為人在旅遊，
手中沒有電腦可以測試
明天回去再測試
michael

TOP

chairles59

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

論壇贊助勳章
4#
發表於 2016-4-28 22:08 | 只看該作者
回復 2# luhpro


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

Call Sheets("Sheet2").cc
.cc是甚麼意思
請大大幫我教導一下
michael

TOP

luhpro

帖子
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 是巨集名稱, 請帶入你想要執行的巨集的名稱.

TOP

chairles59

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

TOP

chairles59

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

TOP

luhpro

帖子
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("格式").  拿掉,
改為直接呼叫 "新增股票名稱" 即可:
  1. Sub 複製格式工作表()
  2.   新增股票名稱
  3. End Sub
複製代碼

TOP

chairles59

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

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
10#
發表於 2016-4-30 08:14 | 只看該作者
回復 9# chairles59
這可分成兩部分來說明，無論是何種方式答案是一致的，
差別只在於表達的方式因人而異：
A. 將『新增股票名稱』程式 (新增股票名稱())
   放置於 「工作表1 (格式)」 內

呼叫方式一：
  1. Sub 複製格式工作表()
  2.     Sheets("格式").新增股票名稱
  3. End Sub
複製代碼
呼叫方式二：
  1. Sub 複製格式工作表()
  2.     Call Sheets("格式").新增股票名稱
  3. End Sub
複製代碼
呼叫方式三：
  1. Sub 複製格式工作表()
  2.     工作表1.新增股票名稱
  3. End Sub
複製代碼
呼叫方式四：
  1. Sub 複製格式工作表()
  2.     Call 工作表1.新增股票名稱
  3. End Sub
複製代碼

TOP

        靜思自在 : 不怕事多，只怕多事。
12
返回列表 上一主題