⑴ 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注意這個時候不需要在A2的兩邊加雙引號的滾握，反之也會報錯！
從截圖中不難看出，符號印刷錯誤還是挺多的，因此有時書本上的知識未必是正確的，但是遇到問題時不妨通過查閱 MSDN本地告廳或者在線幫助文檔，疑雲便會離你而去。
⑺ 求問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編譯錯誤，缺少命名參數：
檢查出錯的命令行，函數後面沒有跟上必要的參數，造成命令行無法執行。