Question

vba编译提示用户定义类型未定义

'声明商品单价
Const Price As Single = 3

'编写程序
Sub 统计业绩()
Dim sht As Wooksheet
Set sht = Worksheets("Sheet1")
Dim I As Interger
I = 2
Do
sht.Cells(I, 4) = sht.Cells(I, 3) * Price
I = I + 1
Loop Until sht.Cells(I, 3) = ""
End Sub

Answer 1

vba编译提示用户定义类型未定义是因为缺少必要的引用造成的，解决方法：

1、打开工具-》引用：

2、在引用列表中选择需要依赖的外部引用库即可，比如加入outlook引用：

3、再执行程序就不会报错了。

Answer 2

这我句：Dim sht As Wooksheet 中的Wooksheet错了，应改为Worksheet。
还有这一名也错了：Dim I As Interger， 中的Interger应改为Integer