求助各位老师，从词表中随机取词且不重复

shiruiqiang

dic(arr(x, 1)) = array(arr(x, 2),arr(x, 3))
Sheets("单词").Cells(h1 + 1, 2) = dic(k)(0)
Sheets("单词").Cells(h1 + 1, 3) = dic(k)(1)
这3句修改一下即可

vbahappy

shiruiqiang 发表于 2024-5-19 15:04
dic(arr(x, 1)) = array(arr(x, 2),arr(x, 3))
Sheets("单词").Cells(h1 + 1, 2) = dic(k)(0)
Sheets(" ...

非常感谢，我也一直在学习，后面搞了很久才找这个方法；
但我想增加一个测试完成的语句，不知道为啥没用；
n = Int((dic.Count - 1 + 1) * Rnd + 1)
    k = Application.Index(dic.Keys, n)
   'If k = "" Then MsgBox "测试范围已完成": Exit Sub
    Sheets("测试").Cells(h1 + 1, 2) = k

shiruiqiang

里面有一句：
if dic.count>0 then
......
else
MsgBox "测试范围已完成": Exit Sub
endif

vbahappy

shiruiqiang 发表于 2024-5-19 19:25
里面有一句：
if dic.count>0 then
......

老师，我一开始也是这么想到，但加在最后没用，取完词没反应，弹不出测试完成框

shiruiqiang

vbahappy 发表于 2024-5-19 21:34
老师，我一开始也是这么想到，但加在最后没用，取完词没反应，弹不出测试完成框