[已解决]缺少函数或变量？

lingyuncelia1

为什么运行以下代码会弹出警告框：缺少函数或变量？l老显示“c”有问题，不明白“c”有什么问题。
Sub 四链法()
'同行四链法
For i = 1 To 9
    For k = 1234 To 6789
        a = Left(k, 1)
        b = Mid(k, 2, 1)
        c = Mid(k, 3, 1)
        d = Right(k, 1)
        If Val(d) > Val(c) > Val(b) > Val(a) Then
            For j = 1 To 9
                s = CStr(Cells(i, j))
                If s = a & b Or s = a & c Or s = a & d Or s = b & c Or s = b & d Or s = c & d _
                & s = a & b & c Or s = a & b & d Or s = a & c & d Or s = b & c & d _
                & s = a & b & c & d Then
                    n = n + 1
                    x = x & "," & Cells(i, j).Address
                End If
            Next
        End If
        If n = 4 Then
        Range(Mid(x, 2)).Font.Size = 36
        For Each Rng In Cells(i, 1).Resize(1, 9)
        If Rng.Font.Size = 11 Then
        Rng.Value = Replace(Rng.Text, a, "")
        Rng.Value = Replace(Rng.Text, b, "")
        Rng.Value = Replace(Rng.Text, c, "")
        Rng.Value = Replace(Rng.Text, d, "")
        End If
        Next
        End If
        n = 0: x = ""
    Next
Next
End Sub

最佳答案

月排行榜 / 总排行榜

grf1973

2016-3-2 14:10

看看这样行不行（未经测试）

1. Sub 四链法()
   
2. '同行四链法
   
3.     For i = 1 To 9
   
4.         For k = 1234 To 6789
   
5.             a = Left(k, 1)
   
6.             b = Mid(k, 2, 1)
   
7.             c = Mid(k, 3, 1)
   
8.             d = Right(k, 1)
   
9.             If d > c And c > b And b > a Then
   
10.                 For j = 1 To 9
    
11.                     s = CStr(Cells(i, j))
    
12.                     If s = a & b Or s = a & c Or s = a & d Or s = b & c Or s = b & d Or s = c & d _
    
13.                        Or s = a & b & c Or s = a & b & d Or s = a & c & d Or s = b & c & d _
    
14.                        Or s = a & b & c & d Then
    
15.                         n = n + 1
    
16.                         x = x & "," & Cells(i, j).Address
    
17.                     Else
    
18.                         y = y & "," & Cells(i, j).Address
    
19.                     End If
    
20.                 Next
    
21.             End If
    
22.             If n = 4 Then
    
23.                 Range(Mid(x, 2)).Font.Size = 36
    
24.                 yy = Mid(y, 2)
    
25.                 Range(yy).Replace a, ""
    
26.                 Range(yy).Replace b, ""
    
27.                 Range(yy).Replace c, ""
    
28.                 Range(yy).Replace d, ""
    
29.             End If
    
30.             n = 0: x = "": y = ""
    
31.         Next
    
32.     Next
    
33. End Sub

复制代码

跳转到最佳答案楼层

grf1973

因为你模块2里有个名称为c的sub，改变量名或模块2里的sub名都可以。

grf1973

另外代码也有些其他问题，小改如下：

1. Sub 四链法()
   
2. '同行四链法
   
3.     For i = 1 To 9
   
4.         For k = 1234 To 6789
   
5.             a = Left(k, 1)
   
6.             b = Mid(k, 2, 1)
   
7.             c = Mid(k, 3, 1)
   
8.             d = Right(k, 1)
   
9.             If d > c And c > b And b > a Then
   
10.                 For j = 1 To 9
    
11.                     s = CStr(Cells(i, j))
    
12.                     If s = a & b Or s = a & c Or s = a & d Or s = b & c Or s = b & d Or s = c & d _
    
13.                        Or s = a & b & c Or s = a & b & d Or s = a & c & d Or s = b & c & d _
    
14.                        Or s = a & b & c & d Then
    
15.                         n = n + 1
    
16.                         x = x & "," & Cells(i, j).Address
    
17.                     End If
    
18.                 Next
    
19.             End If
    
20.             If n = 4 Then
    
21.                 Range(Mid(x, 2)).Font.Size = 36
    
22.                 For Each Rng In Cells(i, 1).Resize(1, 9)
    
23.                     If Rng.Font.Size = 11 Then
    
24.                         Rng.Value = Replace(Rng.Text, a, "")
    
25.                         Rng.Value = Replace(Rng.Text, b, "")
    
26.                         Rng.Value = Replace(Rng.Text, c, "")
    
27.                         Rng.Value = Replace(Rng.Text, d, "")
    
28.                     End If
    
29.                 Next
    
30.             End If
    
31.             n = 0: x = ""
    
32.         Next
    
33.     Next
    
34. End Sub
    

复制代码

grf1973

vba里没有这种用法的：If Val(d) > Val(c) > Val(b) > Val(a) Then
另外vba里，"3">"1"是成立的。当字符型比较时，是按asc码大小比较的。所以代码里的Val可以不用。

grf1973

看看这样行不行（未经测试）

1. Sub 四链法()
   
2. '同行四链法
   
3.     For i = 1 To 9
   
4.         For k = 1234 To 6789
   
5.             a = Left(k, 1)
   
6.             b = Mid(k, 2, 1)
   
7.             c = Mid(k, 3, 1)
   
8.             d = Right(k, 1)
   
9.             If d > c And c > b And b > a Then
   
10.                 For j = 1 To 9
    
11.                     s = CStr(Cells(i, j))
    
12.                     If s = a & b Or s = a & c Or s = a & d Or s = b & c Or s = b & d Or s = c & d _
    
13.                        Or s = a & b & c Or s = a & b & d Or s = a & c & d Or s = b & c & d _
    
14.                        Or s = a & b & c & d Then
    
15.                         n = n + 1
    
16.                         x = x & "," & Cells(i, j).Address
    
17.                     Else
    
18.                         y = y & "," & Cells(i, j).Address
    
19.                     End If
    
20.                 Next
    
21.             End If
    
22.             If n = 4 Then
    
23.                 Range(Mid(x, 2)).Font.Size = 36
    
24.                 yy = Mid(y, 2)
    
25.                 Range(yy).Replace a, ""
    
26.                 Range(yy).Replace b, ""
    
27.                 Range(yy).Replace c, ""
    
28.                 Range(yy).Replace d, ""
    
29.             End If
    
30.             n = 0: x = "": y = ""
    
31.         Next
    
32.     Next
    
33. End Sub

复制代码

grf1973

另外12行的条件可以写成这样（未经测试）：
If InStr(k & a & b & d & a & c & d & a & c & a & d & b & d, s) > 0 Then
意思是s包含在字符串 abcd abd acd ac ad bd 中就满足条件

grf1973

因为abd 含 bd,acd 含 ac，12行的条件可以继续简化：
If InStr(k & a & b & d & a & c & d  & a & d , s) > 0 Then
意思是s包含在字符串 abcd abd acd  ad  中就满足条件

lingyuncelia1

grf1973 发表于 2016-3-2 13:47
因为你模块2里有个名称为c的sub，改变量名或模块2里的sub名都可以。

验证过，果然如此。

lingyuncelia1

grf1973 发表于 2016-3-2 14:10
看看这样行不行（未经测试）

实验证明，OK。

lingyuncelia1

grf1973 发表于 2016-3-2 14:21
另外12行的条件可以写成这样（未经测试）：
If InStr(k & a & b & d & a & c & d & a & c & a & d & b & d ...

经测试，OK。