cfnr.net
当前位置:首页 >> ExCEl 编译错误 缺少EnD suB >>

ExCEl 编译错误 缺少EnD suB

Private Sub CommandButton1_Click() Range("G1").Select Application.CutCopyMode = False Selection.Consolidate Sources:= _ "'C:\Documents and Settings\Administrator\桌面\[新建 Microsoft Excel 工作表 (5).xls]Sheet1'!C4:C5" _ , Func...

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

看看是否中间有结束的地方,或者是加的end sub在执行时能被跳过去

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells "" Then Target.Cells.Value = Target.Cells.Value + 1 End If End Sub 这才是完整的,要sub 自加一()没有用

函数里面可以再定义函数吗?这个不是c++,不能这么干吧。

For j = 1 To Range("xdf1").End(xlToLeft).Column 这一行,Range("xdf1")不存在,应该是Range("vf1")吧。 这个代码应该是在列A里面搜索和单元格B32内容一致的表格,并且把表格地址和内容在C32以后打印出来。 可以测试一下,给A列一组数据,在B3...

'把最后一行End Sub提前到第二行'提取单元格A1的颜色'Nex与t之间不能换行,是一个单词Next'Next 之后要换行,GetRed = x另起一行Sub 提取颜色()MsgBox GetRed(Range("A1"))End SubFunction GetRed(Rng As Range)'....End Function

一段代码里不能同时出现两个sub,请看这里, 有两个sub,只要删除一个就可以了。 很高兴为你解答,希望能帮到你!

If Application.Intersect(Target, [c:c]) Is Nothing ThenIf Application.Intersect(Target, [b:b]) Is Nothing Then Exit SubEndIFEndIF改为上述代码试试,应该是 IF 没有 EndIF 引起的,IF 可以在特定情况不用 EndIF 但有时候书写不注意就容...

Sub 按钮2_Click() a = Depart("asdf", 2) ‘调用函数是这样写 End Sub Function Depart(Srg As String, Optional n As Integer = False) Dim i As Integer Dim s, MyString As String Dim Bol As Boolean For i = 1 To Len(Srg) s = Mid(Srg, i,...

网站首页 | 网站地图
All rights reserved Powered by www.cfnr.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com