如何匹配英语字母

numinous

为了提高孩子英语学习兴趣，打算做一个接龙的小游戏（参考成语接龙）
现代买写到提取第二个单词，布置如何进行匹配，求各位大大支招
英语单词接龙.zip (32.23 KB, 下载次数: 2)

2020-1-16 18:39 上传

点击文件名下载附件

红色框为需要呈现形式
蓝色框为现在代码运行结果

现在代码如下
Sub english()
    Dim x, y, z, a, b, c, t, str
    a = Range("aj1")
    For y = 1 To a
            c = Application.CountA(Sheets(3).Range("a:a"))
            s = Int((c - 1) * Rnd) + 1 '随机数
            Cells(y, 28) = Sheet3.Cells(s, 1) '从sheet3中获取单词复制到这个表中
            b = Len(Cells(y, 28))   '判断长度
            If y = 1 Then
                For t = 1 To b              '循环拆分单词为字母
                    str = Mid(Cells(1, 28), t, 1)
                    Cells(5, 4 + t) = str
                Next t
            ElseIf y = 2 Then
                For t = 1 To b              '循环拆分单词为字母
                    str = Mid(Cells(y, 28), t, 1)
                    Cells(6, 4 + t) = str   '
                Next t
            End If
    Next y
End Sub

liulang0808

1. Sub english()
   
2.     c = Application.CountA(Sheets(3).Range("a:a"))
   
3.     If c < 2 Then Exit Sub
   
4. l1:
   
5.     str1 = Sheets(3).Cells(WorksheetFunction.RandBetween(1, c), 1)
   
6.     If Len(str1) = 0 Then GoTo l1
   
7. l2:
   
8.     str2 = Sheets(3).Cells(WorksheetFunction.RandBetween(1, c), 1)
   
9.     If Len(str2) = 0 Or str1 = str2 Then GoTo l2
   
10.     x = 0
    
11.     For j = 1 To Len(str2)
    
12.         x = InStr(str1, Mid(str2, j, 1))
    
13.         If x > 0 Then
    
14.             Exit For
    
15.         End If
    
16.     Next j
    
17.     If x = 0 Then GoTo l2
    
18.     [a1:z26].ClearContents
    
19.     For i = 1 To Len(str1)
    
20.         Cells(13, i) = Mid(str1, i, 1)
    
21.     Next i
    
22.     r = 0
    
23.     For i = j To Len(str2)
    
24.         Cells(13 + r, x) = Mid(str2, i, 1)
    
25.         r = r + 1
    
26.     Next i
    
27.     r = 0
    
28.     For i = j To 1 Step -1
    
29.         Cells(13 - r, x) = Mid(str2, i, 1)
    
30.         r = r + 1
    
31.     Next i
    
32. End Sub

复制代码

liulang0808

模拟一个交叉的，供参考。。。。。。

liulang0808

楼主要保证红色的情况，需要保证两个单词至少有一个相同的字符啊

numinous

liulang0808 发表于 2020-1-16 19:54
模拟一个交叉的，供参考。。。。。。

非常感谢大大的帮助，对于两个了我可以理解，对于三个的，尤其是还有字母冲突的怎么办？

例如：touch
如果用C就会冲突

liulang0808

numinous 发表于 2020-1-16 20:59
非常感谢大大的帮助，对于两个了我可以理解，对于三个的，尤其是还有字母冲突的怎么办？

例如：touch
...

如果三个，不能找相同位置的，调整吧