想给孩子做一个英语抽查默写带英语中文一起阅读

limao720605

想给孩子做一个既能抽查默写又能在默对的情况下能自动阅读出中文和英语单词使得孩子加深记忆，，，，请各位老大帮帮忙给做出个成件，，，，深深感谢

02761752696

实力不允许，期待楼主大作

microyip

论坛里很多随机出题并匹配答案的案例，拿来参考一下就是了。

limao720605

microyip 发表于 2020-12-5 10:15
论坛里很多随机出题并匹配答案的案例，拿来参考一下就是了。

问题是想要带语音阅读的

microyip

limao720605 发表于 2020-12-5 20:38
问题是想要带语音阅读的

你再找写发音代码配套上去就是咯

imleading

首先你得有一题库，不然，网络翻译不一定是你要的单词。

chenjx80

limao720605

chenjx80 发表于 2020-12-6 23:20

这个也行呀，，，，在哪里有呀

smiletwo

   按你的要求。试做了下。 看看是否符合要求

smiletwo

这是代码
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim i, j, arr, row, r, c, t
  r = Target.row
  c = Target.Column
  With Sheets("单词")
     row = .Cells(Rows.Count, 1).End(3).row
     arr = .Range("A2:D" & row)
     If c = 7 And .Cells(r, c - 1) <> "" Then
         For i = 1 To UBound(arr)
            If .Cells(r, c - 1) = arr(i, 1) And .Cells(r, c) = arr(i, 4) Then
               .Cells(r, c + 1) = "√"
               t = .Cells(10, "K")
               For j = 1 To t
                   Application.Speech.Speak (.Cells(r, c - 1))
                   Application.Speech.Speak (.Cells(r, c))
               Next
               Exit For
            End If
         Next
     End If
  End With
End Sub