网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
excel吧 关注：281,536贴子：1,551,764
  • 25回复贴，共1页

关于TARGET的问题

这种举例不需要图了吧。现在有3列A,B,C,A列为固定值，我现在想表达，当我在B3中写入值的时候，B3=A3-C3，反之在C3写，C3=A3-B3，如果我在CHANGE事件里面这么写,我觉得应该是死循环，所以请教一下正确写法！
IF TARGET.COLUMN=2 AND TARGET.ROW>2 THEN
TARGET.OFFSET(,1)=TARGET.OFFSET(,-1)-TARGET
ENDIF
IF TARGET.COLUMN=3 AND TARGET.ROW>2 THEN
TARGET.OFFSET(,-1)=TARGET.OFFSET(,-2)-TARGET
ENDIF


试了一下，没循环啊？死循环会报错吧?


2025-08-30 21:17:32
广告
不感兴趣
开通SVIP免广告
正常的逻辑不是应该在b3写入值的时候，c3=a3-b3吗？
假设a3等于1，c3还没填，那我不管在b3填什么，最好都变成a3了?而且看你sub的意思也是我描述这个意思啊、
在事件中涉及到修改单元格值的时候，应加上
Application.EnableEvents = False 以关闭事件响应
在程序结束前。用Application.EnableEvents =true打开事件响应


试试
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iCol%, iRow&
On Error GoTo Newline
iRow = Target.Row
iCol = Target.Column
If iRow < 2 Or iCol Like "[!23]" Then Exit Sub
Application.EnableEvents = False
Cells(iRow, Val(Replace("23", CStr(iCol), ""))) = Cells(iRow, 1) - Target.Value
Newline:
Application.EnableEvents = True
End Sub


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 25回复贴，共1页
分享到: