新足迹 › 论坛 › 澳洲生活区 › 工作学习 › 学习交流 › 请教高手一个vba的问题

精华好帖回顾
· 参加活动——秀秀俺的藏书（二）文青篇 (2011-7-6) amon54	· 航航小厨房（56）【~~~坨子~~~1#附咆哮体诗一首 148#烩坨子成品图】 (2011-8-25) 航迹云
· 黄绯红和黑格耳的幸福生活（42页1246楼闪亮更新：2011年12月9日，麻麻买了根圣诞逗猫棒。。。有视频）(顶楼电梯直达） (2009-12-23) astina	· 9月美食活动——老婆の饼 (2009-9-5) edith921

查看: 1765|回复: 0

[VIC/TAS] 请教高手一个vba的问题 [复制链接]

thundom1

头像被屏蔽

禁止发言

发表于 2014-11-16 22:55 |显示全部楼层

此文章由 thundom1 原创或转贴，不代表本站立场和观点，版权归 oursteps.com.au 和作者 thundom1 所有！转贴必须注明作者、出处和本声明，并保持内容完整

Private Sub App_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim RowA As Integer
Dim ColumnA As Integer

RowA = ActiveCell.Row
ColumnA = ActiveCell.Column

If Cells(RowA, ColumnA).Value = "a" Then

Cells(RowA, ColumnA).EntireRow.Interior.Color = 5910
Cells(RowA, ColumnA).Offset(rowOffset:=0, columnOffset:=1).Value = Environ("UserName")
Cells(RowA, ColumnA + 1).Activate
Exit Sub
End If
End Sub

这段代码，在workbook里面直接输入是没有任何问题的，但是每当用数据有效性输入，就会出错。

什么原因？

返回列表

		自动登录	找回密码
密码			注册

精华好帖回顾

[VIC/TAS] 请教高手一个vba的问题 [复制链接]

发表回复

浏览过的版块