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

vbahappy

各位老师，我想给小孩搞个背单词的小文件，有些陌生词希望反复随机抽取认读；请老师帮忙
求助.rar (18.81 KB, 下载次数: 14)

2024-5-19 08:56 上传

点击文件名下载附件

Qs18

Sub speak()
Dim i, j
j = Val(InputBox("选中需要读取的单元格，可以多选并且输入数字，默认读一遍！", "用户输入", 1))
    If j = "" And j <= 0 Then
        MsgBox "你取消了输入或关闭了对话框,或者输入了其他不规范的字符"
        Exit Sub
    End If
  For i = 1 To j
    Selection.speak
  Next i
End Sub

vbahappy

Qs18 发表于 2024-5-19 09:48
Sub speak()
Dim i, j
j = Val(InputBox("选中需要读取的单元格，可以多选并且输入数字，默认读一遍！" ...

谢谢帮助提供，但不是我所需要的，我是希望从陌生词表中随机取出词来一个一个进行测试

Qs18

vbahappy 发表于 2024-5-19 10:06
谢谢帮助提供，但不是我所需要的，我是希望从陌生词表中随机取出词来一个一个进行测试

没有帮到您，实在抱歉！我还是没有理解到您的意思。

shiruiqiang

=======2个按钮，一个随机，一个解答==========

lcs_2046

用Vba 将单词生成数组，用randbetween 生成随机数，然后用这个随机数作为数组下标，代码没时间写了，只有个思路，希望能有用

过客fppt

用手机下个软件：百词斩
专业的事情交给专业的人做！

vbahappy

shiruiqiang 发表于 2024-5-19 10:48
=======2个按钮，一个随机，一个解答==========

非常感谢帮助，非常实用的代码；正是我需要的
但是否能做个小改动，取词的时候能否把英文和中文都取出来，我有其他的想法；

shiruiqiang

vbahappy 发表于 2024-5-19 12:22
非常感谢帮助，非常实用的代码；正是我需要的
但是否能做个小改动，取词的时候能否把英文和中文都取出来 ...

vbahappy

shiruiqiang 发表于 2024-5-19 12:24

感谢老师及时的回复，我想多了解一下，如果我还有c列需要显示呢，
我大概知道dic(k)显示的是dic(arr(x, 1)) = arr(x, 2)这个的赋值
K应该是dic.keys的值，那么C列的值该如何赋值？

Sub 随机()
Dim arr, brr
Dim dic
Set dic = CreateObject("scripting.dictionary")
h = Sheets("陌生词").Range("a65536").End(xlUp).Row
arr = Sheets("陌生词").Range("a2:c" & h)
For x = 1 To UBound(arr)
dic(arr(x, 1)) = arr(x, 2)
Next

On Error Resume Next
h1 = Sheets("单词").Range("a65536").End(xlUp).Row
brr = Sheets("单词").Range("a2:a" & h1)
For i = 2 To UBound(brr)
If dic.exists(brr(i, 1)) Then
    dic.Remove (brr(i, 1))
End If
Next

If dic.Count > 0 Then
    n = Int((dic.Count - 1 + 1) * Rnd + 1)
    k = Application.Index(dic.keys, n)
    Sheets("单词").Cells(h1 + 1, 1) = k
     Sheets("单词").Cells(h1 + 1, 2) = dic(k)
Sheets("单词").Cells(h1 + 1, 3) = ？
End If

End Sub