看板 Office 關於我們 聯絡資訊
軟體:excel 版本:2007 十分感謝soyoso在前幾篇給我的幫忙 但現在產生一個新問題... 如果一個參賽組要分配給3個委員看 一個委員只能負責9-10個參賽組 總共130個參賽組 而43個委員分別又有要迴避的單位 要如何從評審迴避sheet隨機抓委員填入評審分配sheet的G:I裡 又能夠迴避掉他負責的單位呢? 感覺好像是不可能任務,還是只能用肉眼判別了 謝謝大家!!! 檔案: http://ppt.cc/5mNw -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 163.15.161.248 ※ 文章網址: http://www.ptt.cc/bbs/Office/M.1396580472.A.0D0.html
soyoso:http://goo.gl/jbi8fg 試試,用巨集 04/04 15:15
giney:成功了,謝謝s大;但想請問委員看的組數可能可以再平均點嗎? 04/04 16:07
giney:因為執行後發現某些委員只會被分配到3組,但其他人可能到10 04/04 16:07
soyoso:http://goo.gl/xTqoZh 試試 04/05 01:02
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
giney:http://ppt.cc/qOnJ 修改的只有紅色數字部份 04/07 19:55
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
soyoso:http://goo.gl/PuLyOH 試試這個版本 04/07 20:21
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