新足迹

 找回密码
 注册

精华好帖回顾

· 肖像。OZ DAY (2010-1-27) 老song · 【大家一起来过年】Quantum年糕贺岁三重奏◎香棉软滑的萝卜糕 (2012-1-31) Quantum
· 5月去猫本玩了......发点照片吧(发完了) (2010-6-9) jmms_smmj · I can do it! -- Learner开车小记 (2009-7-10) 闲夏采薇
Advertisement
Advertisement
查看: 1798|回复: 0

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

头像被屏蔽

禁止发言

发表于 2014-11-16 23: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里面直接输入是没有任何问题的,但是每当用数据有效性输入,就会出错。

什么原因?
Advertisement
Advertisement

发表回复

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

本版积分规则

Advertisement
Advertisement
返回顶部