- 帖子
- 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內的屬性
終於不用再做兩遍工了...:'(
測試程式碼如下- Option Explicit
- Public TT As String
- Dim TT_sh_Database, TT_sh_Export As Worksheet
- -------------------------------------------------------------------------------------------------
- Private Sub cmbOO_Click()
- TT = test_func("OO")
-
- End Sub
- -------------------------------------------------------------------------------------------------
- Private Sub cmbXX_Click()
-
- TT = test_func("XX")
-
- End Sub
- -------------------------------------------------------------------------------------------------
- Function test_func(ByRef TT As String)
-
- Dim wb As Workbook
- Dim sh As Worksheet
-
- Set wb = ThisWorkbook
- Set TT_sh_Database = wb.Sheets(TT & "-Database")
- Set TT_sh_Export = wb.Sheets(TT & "-Export")
-
- If TT = "OO" Then
- TT_sh_Database.Select
- Else
- TT_sh_Export.Select
- End If
-
- Msgbox TT
- End Function
|
|
