麻辣家族討論版版 » Excel程式區 » 問一個"用1維array當多計數器"寫法的問題

返回列表下一主題上一主題發帖

問一個"用1維array當多計數器"寫法的問題

中學生 Rank: 2

帖子: 40
主題: 13
精華: 0
積分: 69
點名: 0
作業系統: w7
軟體版本: office07
閱讀權限: 20
性別: 男
註冊時間: 2012-4-24
最後登錄: 2012-8-20

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-5-7 18:13 | 只看該作者

問一個"用1維array當多計數器"寫法的問題

HI 大家好，
   小的想請問若我要用一維陣列共10個elements 當作counter之儲存空間，經過前置步驟(mod)後，分類到10個集合中的其中一個集合element(也就是其中一個counter)就加1
   該怎麼寫?

   目前大約有15'000，30'000，45'000三種大小的data要丟入(<=這應該不是重點!)

   謝謝各位看完我的問題

樓主熱帖

收藏

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2012-5-7 20:57 | 只看該作者

本帖最後由 register313 於 2012-5-7 21:21 編輯

回復 1# m09903020

題目只說一半
先參考

Sub xx()
Dim Ar(9)
For I = 1 To [A1]
Y = I Mod 10
Ar(Y) = Ar(Y) + 1
Next I
[D1].Resize(10, 1) = Application.Transpose(Ar)
End Sub

複製代碼

Sub yy()
Dim Ar(9)
X = Int([A1] / 10)
Y = [A1] Mod 10
For I = 0 To 9
Ar(I) = X
If I <= Y Then Ar(I) = Ar(I) + 1
Next I
Ar(0) = Ar(0) - 1
[D1].Resize(10, 1) = Application.Transpose(Ar)
End Sub

複製代碼

靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。

返回列表下一主題上一主題