查看: 70|回复: 1

[IT] EXCEL的VBA代码,求修改

[复制链接]

1932

主题

1932

帖子

5806

积分

论坛元老

Rank: 8Rank: 8

积分
5806
发表于 2019-7-22 14:02:13 | 显示全部楼层 |阅读模式
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 5 And Sheet <> "首页汇总" And Target.Offset(0, -1) <> "" Then
Target.Offset(0, 4).Activate
ElseIf Target.Column = 9 And Sheet <> "首页汇总" And Target.Offset(0, -1) <> "" Then
Target.Offset(0, 4).Activate
End If
End Sub
测试5跟9列能触发,但是,这里只要修改到第一列,结果就是出现错误“1004”,求修改下
回复

使用道具 举报

0

主题

589

帖子

187

积分

注册会员

Rank: 2

积分
187
发表于 2019-7-22 14:03:11 | 显示全部楼层
第一行加一句第一列就退出
最好再加一句多选修改就退出
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 在线注册

本版积分规则

QQ|手机版|Archiver|我要投稿|洛阳IT论坛 ( 豫ICP备18021590号 )|网站地图

GMT+8, 2019-11-17 07:22 , Processed in 0.100718 second(s), 23 queries .

Powered by 洛阳IT论坛网 X3.2

© 2018-2020 China Inc.

快速回复 返回顶部 返回列表