sub编译错误

Ⅰ Excel VBA里面提示编译错误缺少end sub怎么解决(最后一行有end sub)

解决方法：
1、在资源管理器中进入“C:\Documents
and
Settings\Administrator\Application
Data\Microsoft\Templates”目录，删除其中的“Normal.dot”公用模板文件（可能还有个隐藏的编辑中的文件，一并删除），再重新启动Word即可。
2、上述方法1如不行，可先完全卸载OFFICE2003，并删除安装文件夹及相关注册表文件，重新安装OFFCIE2003.
3、上述两种方法如都不行，那就要重新安装操作系统了
基本上采用以上第一个方式，问题圆满解决。

Ⅱ VB 编译错误：无效外部过程

是把代码写在子过程、函数过程或属性过程外而发生的错误。

在过程外无效：

该语句必须发生在子过程、函数过程或属性过程（Property Get、Property Let 和
Property Set）内部。这个错误的起因与解决方法如下所示：

*一个可执行的语句，如 Static 或 ReDim，出现在模块级别中。

在模块级中 Static 是不需要的，因为所有的模块级变量都是静态的。在模块级中用 Dim 来代替
ReDim。想要在模块级中创建动态数组，请用
Dim 加空括号来声明它。

注意 在模块级只能使用注释与声明性语句，例如
Const、Declare、Deftype、Dim、Option Base、Option
Compare、Option Explicit、Option
Private、Private、Public 和
Type。子过程、函数过程和属性过程语句发生在它们的过程体之外，但在过程内声明。

Ⅲ excel 运行宏时总是提示编译错误:缺少 End Sub

For j = 1 To Range("xdf1").End(xlToLeft).Column
这一行，Range("xdf1")不存在，应该是Range("vf1")吧。

这个代码应该是在列A里面搜索和单元格B32内容一致的表格，并且把表格地址和内容在C32以后打印出来。
可以测试一下，给A列一组数据，在B32里面输入一个值，会自动查找。

Ⅳ 编译错误 缺少End Sub 怎么解决

Private Sub Worksheet_Change(ByVal Target As Range)是一个‘表格点选位置改变触发的事件过程’，不需要再增加‘Sub 按名称筛选片段图片()’也不需要写在模块中，Sheet("引用")应写作Sheets("引用")其他类似，没有你的表格，无法测试。

Ⅳ 打开excel 弹出编译错误:sub或function中的属性无效

有宏代码存在，如果不是你自己的宏，那就是你的电脑中了宏病毒。

Ⅵ 编译错误 找不到工程或库

当找不到你需要的工程或库时，请在VBA工具中点击引用进行查找你需要的库，然后进行勾选即可。

Ⅶ 打开Word文档出现编译错误 在End Sub、End Function 或 End属性后面只能出

那就是Office软件出错，这种情况可以找到安装包（没有的话可以去网上下载），然后运行setup.exe文件，然后运行修复选项。或者直接重新安装office

Ⅷ vb出现编译错误：在End Sub、End Function或End属性后面只能出现注释

夏威夷海盗2同志：你的错误明显不是上述这些个代码出的问题。这些代码根本就没有问题。
根据你的问题说“在End Sub、End Function或End属性后面只能出现注释”，那么我猜你一定是在上述代码的基础上添加过代码了，而且你添加的代码位置有误造成的问题。如果是这样，你好好检查一下自己的代码，你把新添加的代码前后调整调整位置，例如：你添加的一些像Private Declare Function 一样的声明或常量等就应该移动到上述代码之前哦。

Ⅸ Access 里用VB语言Sub getFileName()，一直提示编译错误：变量未定义，请高手指点。

错误信息.Visible = False 这句话的前提条件是你要有这个对象，比如你的一个标签的名称修改为“错误信息”，就不会出错了。最后这段代码似乎有些问题：Me![照片路径].Visible = True
，后面马上有一句Me![照片路径].Visible = False，这2句的操作有一个是多余的。
其它有什么错误，这里看不出。

Ⅹ Microsoft Visual Basic，编译错误:Sub 或 Function 未定义

第一个sub不完整，删掉