Question

vba， 提示 编译错误：类型声明文字与声明的数据类型不符

Sub PKLength1()
Dim Q As Integer, t1 As Integer, E As Long, v As Double, u As Integer, H As Double, Vsp As Byte, Cw As Double
Dim l1 As Double, Vl1 As Double, Vf1 As Double, deltaV As Double
Q = Sheet1.[C2]
t1 = Sheet1.[B8]
E = Sheet1.[C4]
v = Sheet1.[F4]
u = Sheet1.[F2]
H = Sheet1.[C3]
Vsp = Sheet1.[C5]
Cw = Sheet1.[F3]
l1 = 51.5 * Q^(6 / 10) * t1^(8 / 10) * E^(2 / 10) / ((1 - v * v) ^ (2 / 10) * u^(2 / 10) * H^(8 / 10))
Do
Vl1 = 4 * Vsp * l1 * H + (8 * Cw * l1 * H * Sqr(t1)) ^ 0.2
Vf1 = 0.04 * H * l1^(5 / 4) * (1 - v * v) ^ (1 / 4) * u^(1 / 4) * (Q * t1 - Vl1) ^ (1 / 4) / E^(1 / 4)
deltaV = Q * t1 - Vl1 - Vf1
Select Case deltaV
Case Is > 0.05: l1 = l1 + 0.1
Case Is < 0: l1 = l1 - 0.1
Case Else: Exit Do
End Select
Loop While deltaV > 0.05 Or deltaV < -0.05
Sheet1.[C9] = l1
End Sub
改了好几遍，总是出现这句提示，求大侠指导到底哪里出问题了

Answer 1

哪句有问题，看不出呢

追问

运行的时候提示这句
l1 = 51.5 * Q^(6 / 10) * t1^(8 / 10) * E^(2 / 10) / ((1 - v * v) ^ (2 / 10) * u^(2 / 10) * H^(8 / 10))

有编译错误，如果把^和*这些运算去掉，改成加减，就不出现那句提示，实在是搞不懂为什么

追答

可能是单元格里边的数据有问题，比如有空格等。能把文件发给我吗（个人资料里有QQ），帮你分析分析

追问

好的，已经发过去了~

追答

t1 = Sheet1.[B8]——而你B8是字符“Time,min”，数据类型都不对，怎么不出错。

追问

我后来改成b9了，还是运行不出来。。

追答

没出错了吧

Answer 2

下面两行是你的申明语句：
Dim Q As Integer, t1 As Integer, E As Long, v As Double, u As Integer, H As Double, Vsp As Byte, Cw As Double
Dim l1 As Double, Vl1 As Double, Vf1 As Double, deltaV As Double

你什么的变量都有特定的类型，例如Q就是Integer类型，那么凡是使用中给它赋值字符或者超过范围（65536）的数值都会出错。例如你的语句：
Q = Sheet1.[C2]
如果C2的类型不是Integer兼容的，就会报错。

解决方法一是单步执行查看错误的语句，然后追踪表格数据，看看错误原因。

另外，可以去申明语句中的类型，例如：
Dim Q , t1 , E , v , u , H , Vsp , Cw
Dim l1 , Vl1 , Vf1 , deltaV

追问

你好，谢谢你的回答，我把申明方式改了以后还是会出错，会不会是因为l1那个表达式表达不规范呢？

追答

应该保留适当的空格，例如下面这样：
l1 = 51.5 * Q ^ (6 / 10) * t1 ^ (8 / 10) * E ^ (2 / 10) / ((1 - v * v) ^ (2 / 10) * u ^ (2 / 10) * H ^ (8 / 10))

追问

还是不行。。

追答

在我的电脑上（EXCEL 2010）编译是通过了的，难道你是WPS？

追问

我的是excel2013，我怎么试都不行，但是如果改成
l1 = 51.5 +Q +t1 + E +(1 - v * v) +u + H

就能运行出结果，
可是高次方相乘的表达方式应该没错呀

追答

我在2013上也没问题，发现一个问题，我输入代码后^前后能自动添加空格，而你的居然不自动添加，你方便在旁边同事电脑上试试你的代码吗。