vBA編譯提示缺少case
Ⅰ 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
Ⅱ VBA顯示編譯錯誤缺少:語句結束
在y=...的下一行加上：
End If
Ⅲ Excel VBA有2條語句老是提示編譯錯誤缺少表達式，如下,求幫助！ private sub w
sheets(a).protectdrawingobjects:=true,_
contents:=true,scenarios:=true,_
password:="123"
'很明顯這三行語句應該是一條語句，換行寫就必須使用"下劃線_"連接上下行，而各個參數之間的分隔符"逗號,"也不可省略。
Ⅳ access select count提示 編譯錯誤 缺少：case
你的本意是在VBA中運行一段SQL語句？
但是你這么寫，它卻以為你在使用SELECT CASE語句。
先看看教程里在VBA中是如何使用SQL語句的吧。
對補充問題的回復：
如果你在access中使用vba統計當前db中的數據，可以用下面的方法
Private Sub Command2_Click()
Text0.Value = Application.DCount("編號", "登記")
End Sub
Dcount本身就忽略Null值
Ⅳ Excel Vba編程，為什麼沒有執行正確的case。 但是通過IF判斷是相等的
Select Case CoulmnWord
Case ThisWorkbook.Sheets("操作表1").Range("C1").Text '格式錯CoulmnWord = 不用寫
WbGoal.Sheets(GoalSheet).Range("" & CoulmnWord & GoalBeginRow + RowInt - SourceBeginRow & "").Text = ThisWorkbook.Sheets("操作表1").Range("B1").Text
Case ********
End Select
Ⅵ VBA總提示缺少表達式
估計缺少表達式的原因是你的子程序名取得不合規范，name為VB保留關鍵字。
Ⅶ excel之vba編譯錯誤，缺少命名參數：
檢查出錯的命令行，函數後面沒有跟上必要的參數，造成命令行無法執行。
Ⅷ vba 編譯錯誤缺少語句結束
="期中","八年級期中考試成績","八年級期期末考試成績")
這裡面的雙引號都要轉義，否則語句認為到"...b2="，就已經結束了。
Ⅸ VBA程序編譯時的錯誤提示
6是錯誤代碼，溢出是錯誤內容。給你提供一些常見的錯誤代碼：
3 :無 GoSub 返回
4 :應用程序定義或對象定義錯誤
5 :無效的過程調用或參數
6 :溢出
7 :內存溢出
9 :下標越界
11 :除數為零
13 :類型不匹配
14 :字元串空間溢出
16 :表達式太復雜
17 :不能執行所需的操作
18 :出現用戶中斷
47 :DLL 應用程序客戶太多
48 :載入 DLL 錯誤
49 :DLL 調用約定錯誤
52 :錯誤的文件名或號碼
53 :文件未找到
54 :文件模式錯誤
55 :文件已打開
56 :應用程序定義或對象定義錯誤
57 :設備 I/O 錯誤
58 :文件已存在
59 :記錄長度錯誤
60 :應用程序定義或對象定義錯誤
61 :磁碟已滿
62 :輸入超出文件尾
63 :記錄號錯誤