返回列表 上一主題 發帖

[發問] VBA按鈕控制程式碼字串

u800901

帖子
6 
主題
3 
精華
0 
積分
9 
點名
0  
作業系統
Win 10 
軟體版本
office2000 
閱讀權限
10 
註冊時間
2021-1-11 
最後登錄
2021-3-22 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2021-3-9 03:51 | 只看該作者

[發問] VBA按鈕控制程式碼字串

各位前輩好，想請教各位前輩
小弟現在有產品OO跟產品XX
EXCEL內記錄的資料大同小異
現在要把內部資料匯出

基本功能小弟是寫好了，分別寫了OO跟XX各自的程式碼
但是發現修改的時候可能只有改到某一個
有點太耗時間

有兩個按鈕分別為，OO跟XX
因程式碼內的子程式，命名大概就像OO-export、XX-export，OO-Import、XX-Import...
不知道是否能改為一致 TT-export、TT-Import
透過使用者點選OO跟XX的按鈕就可以呼叫相對應的功能...

光是寫出基本功能就已經耗掉將近兩個月時間
希望各位前輩能幫小弟解惑:Q
收藏 分享

u800901

帖子
6 
主題
3 
精華
0 
積分
9 
點名
0  
作業系統
Win 10 
軟體版本
office2000 
閱讀權限
10 
註冊時間
2021-1-11 
最後登錄
2021-3-22 
3#
發表於 2021-3-9 21:47 | 只看該作者
本帖最後由 u800901 於 2021-3-9 21:48 編輯

回復 2# qekqo
謝謝回復:'(

不過我剛剛已經研究出來了!!!
這樣只要去修改function內的程式碼，甚至userform內的屬性
終於不用再做兩遍工了...:'(

測試程式碼如下
  1. Option Explicit
  2. Public TT As String
  3. Dim TT_sh_Database, TT_sh_Export As Worksheet
  4. -------------------------------------------------------------------------------------------------
  5. Private Sub cmbOO_Click()

  7.     TT = test_func("OO")
  8.    
  9. End Sub
  10. -------------------------------------------------------------------------------------------------
  11. Private Sub cmbXX_Click()
  12.    
  13.     TT = test_func("XX")
  14.    
  15. End Sub
  16. -------------------------------------------------------------------------------------------------
  17. Function test_func(ByRef TT As String)
  18.    
  19.     Dim wb As Workbook
  20.     Dim sh As Worksheet
  21.    
  22.     Set wb = ThisWorkbook
  23.     Set TT_sh_Database = wb.Sheets(TT & "-Database")
  24.     Set TT_sh_Export = wb.Sheets(TT & "-Export")
  25.    
  26.     If TT = "OO" Then
  27.         TT_sh_Database.Select
  28.     Else
  29.         TT_sh_Export.Select
  30.     End If
  31.    
  32. Msgbox TT

  34. End Function
複製代碼

TOP

qekqo

帖子
6 
主題
1 
精華
0 
積分
50 
點名
0  
作業系統
xp  
軟體版本
office 2007 
閱讀權限
20 
註冊時間
2011-4-2 
最後登錄
2021-3-9 
2#
發表於 2021-3-9 16:56 | 只看該作者
我想您可能可以查看看 Application.Caller

TOP

        靜思自在 : 盡多少本份，就得多少本事。
返回列表 上一主題