返回列表 上一主題 發帖

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

lee88

帖子
12 
主題
0 
精華
0 
積分
62 
點名
0  
作業系統
win10 
軟體版本
office 365 
閱讀權限
20 
性別
女 
註冊時間
2022-2-1 
最後登錄
2022-12-29 
1# 跳轉到 »
發表於 2022-5-7 15:09 | 顯示全部帖子
回復 1# y54161212
  1. Private Sub CommandButton1_Click()  '<--** Sheet2 的程序**
  2. Dim sht As Worksheet, sht2 As Worksheet
  3. Dim i As Integer, j As Integer, k As Integer
  4. Set sht = Worksheets("Sheet1")
  5. Set sht2 = Worksheets("Sheet2")
  6. Application.Goto sht.Range("A1")
  7. '  CommandButton1_Click    <--  執行的是Sheet2 的程序
  8. '**   CommandButton1_Click  這是Sheet2 的程序
  9. '** 一直在 一直地再 重複執行Sheet2 的CommandButton1_Click 程序
  10. '** 錯誤碼 28 表堆疊空間不夠用了 *****
  11.   'Private Sub   表私用的程序要用   Run  來呼叫 執行的程序
  12.   Run "Sheet1.CommandButton1_Click" '**執行Sheet1 的程序**
  13. End Sub
複製代碼

TOP

lee88

帖子
12 
主題
0 
精華
0 
積分
62 
點名
0  
作業系統
win10 
軟體版本
office 365 
閱讀權限
20 
性別
女 
註冊時間
2022-2-1 
最後登錄
2022-12-29 
2#
發表於 2022-5-8 14:10 | 顯示全部帖子
本帖最後由 lee88 於 2022-5-8 14:16 編輯

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

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

未命名.png
2022-5-8 14:16



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

TOP

        靜思自在 : 能幹不幹，不如苦幹實幹。
返回列表 上一主題