附檔

帖子: 67
主題: 21
精華: 0
積分: 113
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-11-21
最後登錄: 2019-4-23

3^#

發表於 2012-2-3 14:07 | 只看該作者

回復 2# PJChen
不好意思，表達不夠清楚。
我是想從sh-test讀取staff的員工資料「經由SH-TEST 的自定表單選擇staff中員工資料」

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2012-2-3 14:23 | 只看該作者

回復 3# sammay
經由SH-TEST 的自定表單選擇staff中員工資料
SH-TEST 自定表單的年,月,日.情況的來源請說明白

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

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

5^#

發表於 2012-2-3 16:54 | 只看該作者

回復 2# PJChen

你這二個檔案完全看不到有任何相同內容可作搜尋啊!

帖子: 67
主題: 21
精華: 0
積分: 113
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-11-21
最後登錄: 2019-4-23

6^#

發表於 2012-2-3 17:16 | 只看該作者

回復 4# GBKEE
不好意思，重新上傳檔案並補充如下：
1.sh-test-20120116檔中，員工資料由下拉選單工作表提供。年、月、日、情況經由登入後在自定表單輸入，但考慮日後維護的便利性，所以將員工資料獨立成Staff。
2.這樣一來，程式需要如何改寫呢？或者有其他更好的方法，謝謝。

20120203.rar (64.22 KB)

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 257
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2012-2-3 17:56 | 只看該作者

回復 6# sammay

我想你是希望ComboBox2的LIST能用到Staff檔案的資料
刪除ComboBox2_ENTER程序
加入

Private Sub UserForm_Initialize()
With Workbooks.Open(ThisWorkbook.Path & "\Staff.xlsm")
r = Application.CountA(.Sheets(1).Columns("A:A"))
Ar = .Sheets(1).Range("A2:A" & r).Value
ComboBox2.List = Ar
.Close
End With
End Sub

複製代碼

學海無涯_不恥下問

帖子: 67
主題: 21
精華: 0
積分: 113
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-11-21
最後登錄: 2019-4-23

8^#

發表於 2012-2-6 16:28 | 只看該作者

回復 7# Hsieh
感謝H大的回覆，可以執行，謝謝。

帖子: 67
主題: 21
精華: 0
積分: 113
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-11-21
最後登錄: 2019-4-23

9^#

發表於 2012-2-6 17:11 | 只看該作者

回復 7# Hsieh
請教H大，如果選擇員工後，可以將該員的詳細資料帶回userform1嗎

20120206.rar (62.57 KB)

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 257
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

10^#

發表於 2012-2-6 18:13 | 只看該作者

回復 9# sammay

Private Sub ComboBox2_Change()
Application.ScreenUpdating = False
With Workbooks.Open(ThisWorkbook.Path & "\Staff.xlsm")
r = Application.CountA(.Sheets("員工資料").Columns("A:A"))
Ar = .Sheets("員工資料").Range("A2:A" & r).Value
For i = 2 To 5
Controls("TextBox" & i).Text = Application.VLookup(Val(ComboBox2), .Sheets("員工資料").Columns("A:E"), i, 0)
Next
.Close
End With
End Sub

複製代碼

學海無涯_不恥下問