- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
本帖最後由 c_c_lai 於 2012-10-3 06:53 編輯
回復 1# funnydisk
如果員工資料眾多，一般我個人是不太建議使用陣列，因為它會佔據過多的記憶體，
使得執行速度變得遲緩，效益不佳。你何不試試這種方式：
A B C
1 001 張三 ...........
2 003 王五 ...........
3 006 趙六 ...........
4 008 李四 ...........- Sub Test()
- Dim rng As Range
- ' 擷取員工編號的範圍
- For Each rng In 工作表1.Range("A1:A" & 工作表1.[A1].End(xlDown).Row)
- ' Call 薪資檔案(rng)
- MsgBox rng & " , " & rng.Offset(, 1)
- ' 第一個內容會顯示 001 , 張三， 第二個內容會顯示 003 , 王五， ....... 等。
- Next
- End Sub
|
|
發表於 2012-10-3 06:51
| 