vba编译缺少参数

⑴ Excel VBA里面提示编译错误缺少end sub怎么解决(最后一行有end sub)

解决方法：
1、在资源管理器中进入“C:\Documents
and
Settings\Administrator\Application
Data\Microsoft\Templates”目录，删除其中的“Normal.dot”公用模板文件（可能还有个隐藏的编辑中的文件，一并删除），再重新启动Word即可。
2、上述方法1如不行，可先完全卸载OFFICE2003，并删除安装文件夹及相关注册表文件，重新安装OFFCIE2003.
3、上述两种方法如都不行，那就要重新安装操作系统了
基本上采用以上第一个方式，问题圆满解决。

⑵ excel之vba编译错误，缺少命名参数：

检查出错的命令行，函数后面没有跟上必要的参数，造成命令行无法执行。

⑶ Excel VBA编译错误：类型不匹配：缺少数组或用户定义类型

FunctionA_V_E(ary()AsVariant)
arr=Application.Transpose(Application.Transpose(ary))
Dimsumtemp
ForEachxInarr
n=n+1
sumtemp=sumtemp+x
Next
A_V_E=sumtemp/n
EndFunction

FunctionSt_De(ary()AsVariant)
Dimarr()
arr=Application.Transpose(Application.Transpose(ary))
DimX_ave
X_ave=A_V_E(arr)
Dimsum_x
ForEachxInarr
n=n+1
sum_x=sum_x+(x-X_ave)^2
Next
St_De=Sqr(sum_x/(n-1))
EndFunction

Subtest2()
Dimarr()
Dimresault
arr=Array(1,2,3,4)
resault=St_De(arr)
Debug.Printresault
EndSub

⑷ vba 编译错误，参数不可选

把
rang=
改成
set range=

试试看。

⑸ Excel VBA有2条语句老是提示编译错误缺少表达式，如下,求帮助！ private sub w

sheets(a).protectdrawingobjects:=true,_
contents:=true,scenarios:=true,_
password:="123"

'很明显这三行语句应该是一条语句，换行写就必须使用"下划线_"连接上下行，而各个参数之间的分隔符"逗号,"也不可省略。

⑹ EXCEL VBA程序 编译错误，缺少参数

SearchFormat = True删除

⑺ Excel VBA有2条语句老是提示后面两处“:=”为编译错误缺少表达式，如下,求帮助！ priv

Protect后面的参数，要以","分隔，如果你要换行，还要加上一个"_", 如下：

Private Sub workbook_beforeclose(cancel As Boolean)
For a = 1 To Sheets.Count
Sheets(a).Protect DrawingObjects:=True, _
contents:=True, Scenarios:=True, _
Password:="123"
Next
End Sub

⑻ Excel VBA 提示"编译错误:缺少变量 缺少表达式" 好象是错在变量名if，if不能作为变量名吗

程序语言的特定字（关键字）是不能在编程过程中用作变量等的。

⑼ EXCEL VBA程序 编译错误，说是缺少参数

在SkipBlanks后加“ -”。
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False