陣列問題

請教各位前輩，我想要將每一個員工的薪資，利用薪資檔案() 做成資料
因公司員工編號有跳號，例如001, 003, 006, 008...，但我不大會寫陣列，我想要把員工編號當成變數，請問如何修改，謝謝

Dim Pay(), I As Integer
Pay = Array("001", "003", "006", "008") '員工編號
For I = 1 To AR()+ 1
Call 薪資檔案(AR(I))
Next

樓主熱帖

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兔年全勤獎章

2^#

發表於 2012-10-3 06:34 | 只看該作者

回復 1# funnydisk
請附檔看看

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

3^#

發表於 2012-10-3 06:51 | 只看該作者

本帖最後由 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

複製代碼

TOP

funnydisk

中學生 Rank: 2

帖子: 28
主題: 13
精華: 0
積分: 68
點名: 0
作業系統: winXP
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2012-7-4
最後登錄: 2015-9-29

4^#

發表於 2012-10-4 21:56 | 只看該作者

回復 3# c_c_lai

感謝c_c_lai大大，果然range比較好用，執行又快，謝謝

TOP

陣列問題

陣列問題

樓主熱帖

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]