如何解决Excel从题库中随机抽取的题目不重复呢? 如何解决Excel从题库中随机抽取的题目不重复
\u5982\u4f55\u89e3\u51b3Excel\u4ece\u9898\u5e93\u4e2d\u968f\u673a\u62bd\u53d6\u7684\u9898\u76ee\u4e0d\u91cd\u590d\u5462\uff1f1
\u5148\u5c06\u6240\u6709\u4e0d\u91cd\u590d\u7684\u9898\u76ee\u4f9d\u6b21\u7f16\u53f7
2
\u518d\u5c06\u6240\u6709\u7f16\u53f7\u653e\u5728a\u5217\u4f9d\u6b21\u6392\u5217
3
\u5c06\u4e0ea\u5217\u4e2d\u6709\u7f16\u53f7\u7684\u5355\u5143\u683c\u76f8\u90bb\u7684b\u5217\u5355\u5143\u683c\u90fd\u52a0\u4e0a\u968f\u673a\u51fd\u6570rand
4
\u70b9\u51fbb\u5217\u4e2d\u4efb\u610f\u4e00\u4e2a\u6709\u6570\u503c\u7684\u5355\u5143\u683c\uff0c\u518d\u70b9-\u6392\u5e8f
5
\u73b0\u5728\u53ea\u8981\u5728a\u5217\u4e2d\u9009\u62e9\u9700\u8981\u7684\u524dn\u4e2a\u9898\u76ee\u7f16\u53f7\u5373\u53ef
\u5047\u8bbe\u968f\u673a\u62bd\u53d650\u4e2a\u9898\u76ee\uff1b
\u5bf9\u9898\u5e93\u7f16\u53f7\u589e\u52a0\u8f85\u52a9\u5217\uff0c\u8f85\u52a9\u5217\u53d6\u503c=rand()\uff1b
\u4ee5\u8f85\u52a9\u5217\u6392\u5e8f\uff0c\u53d6top50\uff1b
\u8fd9\u6837\u53d6\u51fa\u6765\u7684\u9898\u5c31\u4e0d\u91cd\u590d\u4e86\u3002
2 再将所有编号放在a列依次排列
3 将与a列中有编号的单元格相邻的b列单元格都加上随机函数rand
4 点击b列中任意一个有数值的单元格,再点-排序
5 现在只要在a列中选择需要的前n个题目编号即可
问问题前,要搞清楚你需要什么?
第一,我想告诉你,用Excel做考题生成系统,却是很浪费,Excel不适合做这件事情,你可以用Access来做!
第二,你所讲的情况都不明了,你应该举例来说,你有多少题(在题库中),抽出多少题作为考试,是否允许重复,允许重复的概率是多少?
第三,人们往往简单的事情就想到用计算机来解决,如果你只想AB卷,你自己编两套就行了,何必这么费神呢?
第四,如果你会编写VBA程序,这个问题就不是什么大问题,自己解决吧,不会找一本书看看就会了.
绛旓細鎴戝亣璁句綘鐨凙鍒楀簭鍙锋槸浠1鍒1000鍚э紙棰樺簱鏈1000閬撻锛夛紝鍦浣犵殑SHEET2閲岀殑A鍒楃敤闅忔満鍑芥暟 浠嶢2寮濮嬪惂 A2杈撳叆 =RANDBETWEEN(1,1000)鐒跺悗涓嬫媺鍒颁綘鎵闇瑕佺殑棰樼洰鏁伴噺锛堝亣璁句负50閬撻 A2:A51锛夌劧鍚庡湪B2杈撳叆 =vlookup($a2,sheet1!$a:$g,COLUMN(),0)涓嬫媺鍙虫媺 鐒跺悗鍦ˋ1閲杈撳叆=if(sum(1/countif($A...
绛旓細EXCEL鑷甫RAND 鍑芥暟銆備緥锛闅忔満閫夊彇0~99 銆=TRUNC(RAND()*100)1銆乺and() 闅忔満 0~1涔嬮棿鐨勫皬鏁 2銆*100 灏忔暟鐐瑰彸绉2浣 3銆乼runc 鍙栨暣鏁伴儴鍒
绛旓細鍏堝皢棰樺簱鍒嗙被锛屽苟涓旂‘淇濇瘡鎶戒竴娆¢锛屼竴绫婚噷鍙兘鎶藉嚭涓閬撻 鍋囪棰樼洰缂栧彿鍦A1锛欰10000锛屽叾涓瘡100琛屼负涓绫伙紝鎬诲叡鎶藉彇100閬撻锛屽垯鍦˙1杈撳叆 =INDIRECT("A"&ROW()*100-INT(RAND()*100+1))鐒跺悗涓嬫媺鍏紡鍒癇100鍗冲彲鐢熸垚闅忔満棰鍙凤紙娉ㄦ剰锛屾娊瀹屼竴濂楅瑕佸鍒垛斺旈夋嫨鎬х矘璐粹斺旀暟鍊艰繖鏍锋搷浣滀竴涓嬶紝鍚﹀垯锛屾瘡...
绛旓細1. 鎵撳紑Excel琛ㄦ牸锛屽皢棰樺簱鐨勬墍鏈夐鐩寜鐓т竴瀹氱殑鏍煎紡杈撳叆鍒拌〃鏍间腑锛屽棰樼洰銆侀夐」銆佺瓟妗堢瓑淇℃伅銆2. 閫夋嫨闅忔満鎶藉彇鐨勬暟閲忥紝骞剁紪鍐欏叕寮忓皢棰樼洰闅忔満鎶藉彇鍑烘潵銆傚彲浠ヤ娇鐢≧AND()鍑芥暟鐢熸垚闅忔満鏁帮紝鍐嶄娇鐢↖NDEX()鍑芥暟浠庨搴撲腑閫夊彇鐩稿簲棰樼洰銆備緥濡傦紝濡傛灉瑕佷粠绗1琛屽埌绗100琛涓殢鏈鎶藉彇10閬撴暟瀛﹂锛屽彲浠ヤ娇鐢ㄤ互涓嬪叕寮忥細=...
绛旓細搴旇鍙互, 璁棰樺簱閲忎负K,閫夋嫨m涓 鍦鏌愬垪涓婁娇鐢=if(value(text(rand()*K,"0000"))<m,"Y","N")鎴=if(value(text(rand()*K,"0000"))<m,1,0)鍩烘湰涓婃墍閫夋嫨鐨勪釜鏁颁负m.褰撶劧鐢╒BA鏇村噯
绛旓細鍦sheet1閲岄潰鎶552閬撻鍏ㄩ儴褰曡繘鍘伙紝瑕佹眰搴忓彿銆侀銆佹爣鍑嗙瓟妗堜笁鑰呭繀椤诲湪鐙珛鍒椾腑锛屽湪sheet2涓敤randbetween鍑芥暟鐢熸垚1-552鐨闅忔満鏁存暟锛屼絾鏄仛鍒颁笉閲嶅杩橀渶瑕佽皟鏁翠竴涓嬶紝鐒跺悗鏍规嵁闅忔満鐢熸垚鐨勯鍙风敤鍑芥暟绛涢夊嚭棰橈紝鍐嶇敤IF鍑芥暟鏉ュ垽鏂瓟棰樿呯瓟妗堢殑瀵归敊
绛旓細1.鏂板缓涓涓伐浣滆〃鈥渟heet5鈥濓紝鍦璇ヨ〃涓瑼鍒楄緭鍏ヤ綘鎵鏈夌紪鍙凤紙濡1鍒100锛夛紱2.锛堟瘮杈冮噸瑕侊級鍦˙鍒椾腑锛岄変腑涓嶢瀵瑰簲鐨勫尯鍩燂紙濡侭1锛欱100)锛屾寜涓婩2閿紝閿叆=rand锛堬級锛屽苟鎸変笅Ctrl+Shift+鍥炶溅锛岃繖鏍峰湪B1锛欱100涓氨鑷姩鐢熸垚浜嗕竴缁勪粙浜0銆1涔嬮棿鐨闅忔満鏁帮紱3.锛堥潪甯搁噸瑕侊級灏咥銆丅鍒椾腑鐨勬暟鎹変腑骞跺鍒讹紝鍦...
绛旓細鐢Excel寤虹珛棰樼洰鏁版嵁琛紝骞跺皢棰樼洰杩涜杩炵画鑷劧鏁扮紪鍙凤紝鍐嶇敤VBA涓殑闅忔満鍑芥暟Rnd杩涜鑷姩闅忔満鎶藉彇缂栧彿鍗冲彲銆
绛旓細鍙互鏈闅忔満鍑芥暟randtetween(),鐢熸垚闅忔満鏁板瓧锛屽啀鐢ㄨ繖浜涙暟瀛楋紝鏌ユ壘鐩稿簲鐨勯鐩傚彲浠ョ敤vlookup()鏌ユ壘棰樺簱閲鐨勯锛屽紩鐢ㄨ繃鏉ャ
绛旓細鍙鏈棰樺簱婧愭暟鎹紝闅忔満閫夐寰堝鏄撶殑鍟娿傜敤闅忔満鍑芥暟鐢熸垚婧愰搴撴暟鎹殑琛屽彿锛岀劧鍚庣敤OFFSET銆両NDEX涔嬬被鐨勫嚱鏁板氨鍙互鐢熸垚闅忔満棰浜嗐