⑴ Excel VBA有2条语句老是提示编译错误缺少表达式,如下,求帮助! private sub w
sheets(a).protectdrawingobjects:=true,_
contents:=true,scenarios:=true,_
password:="123"
'很明显这三行语句应该是一条语句,换行写就必须使用"下划线_"连接上下行,而各个参数之间的分隔符"逗号,"也不可省略。
⑵ 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编译错误:类型不匹配:缺少数组或用户定义类型
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 宏时出现“编译器错误:必须更新此项目中的编码以便在 64 位系统上使用”
sleep函数用来挂起整个线程,一般不要使用
推荐使用timer
比如,有三个流程,每个流程间需要等待一定的时间,就这样写:
function StartFun()
timer1.tag="1"
timer1.interval=1000 '延时1秒
timer1.enabled=true
end function
function Fun1……
⑸ VBA显示编译错误缺少:语句结束
难道是第二个冒号打成分号了?嗯,应该就是的,把textbox2=“”后边的分号改成冒号应该就对了。实在不行就把三个语句分三行运行肯定没问题。
⑹ VBA提示编译错误 缺少语句 语句结束,求高手帮解决~
注意双引号和括号必须是英文状态下的,还有没有“Range[A2]”这种写法的,如果袜备隐把单元格地址当成字符串参数传入给 Range 对象时必须要加双引号。比如第一处可以改成:
iCount=Sheets("财务分析表").Range("A2").CurrentRegion.Columns.Count
iCount=Sheets("财务分析表").[A2].CurrentRegion.Columns.Count
⑺ 求问VBA编程中出现错误:缺少子程序、函数或属性
部分代码有误,修正参考如下:
Public Sub 自动记录调查数据()
Dim temp As Integer
Dim count As Integer
temp=Sheets("数据表").[A1].CurrentRegion.Rows.count
count = temp - 3 '
Sheets("问卷").Select
Range("A50:H50").Select
Selection.Copy '
Sheets("数据表").Activate
Rows(temp + 1).Select
ActiveSheet.Paste
Cells(temp + 1, 13).Value = count + 1
Sheets("问卷").Select
Application.CutCopyMode = False
MsgBox "记录已成功保存,谢谢!", vbOKOnly, "确定"
End Sub
希望能帮上忙!
⑻ vba Debug.Print (iNstr) 这行一直报错 编译错误,缺少:(
iNstr是VBA的特定词语,不能用。
你把iNstr改一个名字就好了,比如iiNstr
⑼ EXCEL VBA程序 编译错误,缺少参数
SearchFormat = True删除
⑽ excel之vba编译错误,缺少命名参数:
检查出错的命令行,函数后面没有跟上必要的参数,造成命令行无法执行。