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