麻辣家族討論版版 » Excel程式區 » 分頁B執行分頁A程式

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

[發問] 分頁B執行分頁A程式

中學生 Rank: 2

帖子: 31
主題: 7
精華: 0
積分: 70
點名: 0
作業系統: Windows10
軟體版本: Office365
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2020-6-14
最後登錄: 2024-8-19

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2022-5-7 10:55 | 只看該作者

[發問] 分頁B執行分頁A程式

想寫一個程式
利用第二頁程式 command button
來執行第一頁程式commandbutton

但都會出現 run time error "28" out of stack space
想請教各位先進是要怎麼修改?

test.zip (21.7 KB)

樓主熱帖

收藏

莫讓他人錯誤傷害自己

中學生 Rank: 2

帖子: 31
主題: 7
精華: 0
積分: 70
點名: 0
作業系統: Windows10
軟體版本: Office365
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2020-6-14
最後登錄: 2024-8-19

論壇榮譽勳章論壇贊助勳章

6^#

發表於 2022-5-13 09:09 | 只看該作者

回復 5# lee88

經過您的提醒
仔細一看，可以呼叫的確實寫成public !
我再好好研究看看工作模組跟 sheet名稱的差異
萬分感謝!!!

莫讓他人錯誤傷害自己

中學生 Rank: 2

帖子: 13
主題: 0
精華: 0
積分: 63
點名: 0
作業系統: win10
軟體版本: office 365
閱讀權限: 20
性別: 女
註冊時間: 2022-2-1
最後登錄: 2024-11-20

5^#

發表於 2022-5-8 14:10 | 只看該作者

本帖最後由 lee88 於 2022-5-8 14:16 編輯

回復 4# y54161212

即使我把sheet1的名稱改為 LSR
變成 "Run "sheet1.commandbutton1_click" 還是可以執行

名稱改為 LSR 應是改工作表的名稱
你不是改工作表物件的名稱,所以還是可以執行

Public Sub CommandButton5_Click()= Sub CommandButton5_Click()
Public 公用的程序當然可以呼叫
**********************************************
如果公用的程序在一般模組中
可以不加上一般模組的名稱直接呼叫公用的程序

中學生 Rank: 2

帖子: 31
主題: 7
精華: 0
積分: 70
點名: 0
作業系統: Windows10
軟體版本: Office365
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2020-6-14
最後登錄: 2024-8-19

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2022-5-7 16:33 | 只看該作者

感謝您的即時回應
這也是我一直以來的問題

因為像其他的我也是照上述的寫法
卻又可以執行~

...
y54161212 發表於 2022-5-7 16:06

剛剛稍微測試了一下
Run "Sheet1.commandbutton1_click"
這一個指令
即使我把sheet1的名稱改為 LSR
變成 "Run "sheet1.commandbutton1_click" 還是可以執行

意思是只要開始就確認了嗎? 或者我可以在哪查到指引?

莫讓他人錯誤傷害自己

中學生 Rank: 2

帖子: 31
主題: 7
精華: 0
積分: 70
點名: 0
作業系統: Windows10
軟體版本: Office365
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2020-6-14
最後登錄: 2024-8-19

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2022-5-7 16:06 | 只看該作者

回復 y54161212
lee88 發表於 2022-5-7 15:09

感謝您的即時回應
這也是我一直以來的問題

因為像其他的我也是照上述的寫法
卻又可以執行~

莫讓他人錯誤傷害自己

中學生 Rank: 2

帖子: 13
主題: 0
精華: 0
積分: 63
點名: 0
作業系統: win10
軟體版本: office 365
閱讀權限: 20
性別: 女
註冊時間: 2022-2-1
最後登錄: 2024-11-20

2^#

發表於 2022-5-7 15:09 | 只看該作者

回復 1# y54161212

Private Sub CommandButton1_Click() '<--** Sheet2 的程序**
Dim sht As Worksheet, sht2 As Worksheet
Dim i As Integer, j As Integer, k As Integer
Set sht = Worksheets("Sheet1")
Set sht2 = Worksheets("Sheet2")
Application.Goto sht.Range("A1")
' CommandButton1_Click <-- 執行的是Sheet2 的程序
'** CommandButton1_Click 這是Sheet2 的程序
'** 一直在一直地再重複執行Sheet2 的CommandButton1_Click 程序
'** 錯誤碼 28 表堆疊空間不夠用了 *****
'Private Sub 表私用的程序要用 Run 來呼叫執行的程序
Run "Sheet1.CommandButton1_Click" '**執行Sheet1 的程序**
End Sub

複製代碼

靜思自在 : 忘功不忘過，忘怨不忘恩。

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