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 :记录号错误