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

ExCEl 编译错误 缺少EnD suB

Private Sub CommandButton1_Click() Range(&quo

Private Sub Worksheet_Change(ByVal Target As Range

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

For j = 1 To Range("xdf1").End(xlToLeft)

Private Sub Worksheet_SelectionChange(ByVal Target

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

'把最后一行End Sub提前到第二行'提取单元格A1的颜色'Nex与t之间

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

最后1行输入 END SUB

For j = 1 To Range("xdf1").End(xlToLeft)

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