→ giney:成功了,謝謝s大;但想請問委員看的組數可能可以再平均點嗎? 04/04 16:07
→ giney:因為執行後發現某些委員只會被分配到3組,但其他人可能到10 04/04 16:07
→ giney:十分大謝謝s大,感覺我好像提出很多無理要求(內疚) 04/06 16:31
→ soyoso:^^ 04/06 16:35
→ giney:不曉得s大方不方便解釋,若以後每個評審負責的組數有變動 04/07 09:41
→ giney:vba程式要修改在哪? 因為不會VBA碼, 肉眼看以為是 04/07 09:43
→ giney:For i = 1 To w - ColCnt * 9 ← 改後面數字,但試過卻不是 04/07 09:44
→ giney:像憨人(我)想得那麼簡單.... 04/07 09:44
→ soyoso:是要修改for i=0 to iif(....,9,8)這裡 04/07 09:48
→ soyoso:有二處 04/07 09:49
→ giney:謝謝~ 我會好好研究!! 04/07 10:59
→ giney:修改數字之後,出現"無法取得類似worksheetfunction的randbe 04/07 19:28
→ giney:的randbetween屬性,請問是什麼原因呢? 04/07 19:29
→ soyoso:執行的excel版本是? 04/07 19:47
→ giney:2007年版 04/07 19:49
→ soyoso:那貼一下,原po改的內容 04/07 19:50
→ soyoso:請問這個版本的委員有幾位呢? 04/07 19:57
→ giney:48位 04/07 19:59
→ soyoso:專案編號是否是130筆呢? 04/07 19:59
→ giney:是的 04/07 20:01
→ giney: RndNum = WF.RandBetween(1, w - mCnt)←偵錯都在這行 04/07 20:03
→ soyoso:這是因為130*3=390個委員要導入 04/07 20:13
→ soyoso:而390/48=8.958,所以委員數要介在8,9之間 04/07 20:15
→ soyoso:先等一下我將這個部分也加到變數內 04/07 20:17
→ giney:那請問若要修改組數或修改委員數要修改哪裡? 04/07 20:25
→ soyoso:修改在unum這個變數的地方 04/07 20:27
→ soyoso:這版本組數和委員數都已自行運算 04/07 20:28
→ giney:自行運算的意思是:若一樣130組,但每組若只需2個委員去評分 04/07 20:33
→ giney:一樣一個委員負責不超過10組,只要在評審迴避單位設好26位名 04/07 20:34
→ giney:單,他就會自動分配帶進去嗎? 04/07 20:35
→ soyoso:抱歉,這檔案還沒有寫的那麼有彈性^^ 04/07 20:36
→ giney:那請問s大有推薦的vba書籍嗎?實在很想搞懂以備長官不時的變 04/07 20:39
→ giney:動條件 04/07 20:39
→ soyoso:上面v3的版本重下,有寫一個參數的工作表,可彈性一些 04/08 00:00
→ soyoso:抱歉,書籍方面再請版上先進推薦一下^^ 04/08 00:01
→ giney:s大,請問亂數儲存格的功能是什麼呢? 04/08 21:33
→ soyoso:是"評審分配"工作表,委員1的起始儲存格 04/08 23:01