⑴ 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編譯錯誤,缺少命名參數:
檢查出錯的命令行,函數後面沒有跟上必要的參數,造成命令行無法執行。