Question

VBA中Change事件问题

请教大虾:
我想在下面中增加几个同样的语句,例如目标为4时,显示为其他出库,目标为5时显示为生产退料,但是不知道怎么搞的总是不行.
另外我想在另外一列也使用这个功能,大概也是假设10个左右的条件来变成另外的值.
主要的目的是减少输入时间,有劳各位大虾了!
不好意思忘记把代码放上来:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 10 Then '指定只在第10列使用这个效果

If Target.Value = 1 Then '如果单元格的值等于1,

Target.Value = "生产领料" '显示为"生产领料"

Else

If Target.Value = 2 Then

Target.Value = "非生产领料"

Else

If Target.Value = 3 Then

Target.Value = "采购退货"

End If

End If

End If

End If
End Sub
谢谢二楼的大哥，已经达到我的第一个目的了，但是我还想在别的列也使用这样的效果，请问怎么添加进去呢，例如我要在第9列，第8列也使用类似的输入一个数字，显示我想要代表的文字，谢谢！

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 10 Then '指定只在第10列使用这个效果
If Target.Value = 1 Then '如果单元格的值等于1,
Target.Value = "生产领料" '显示为"生产领料"
ElseIf Target.Value = 2 Then
Target.Value = "非生产领料"
ElseIf Target.Value = 3 Then
Target.Value = "采购退货"
ElseIf Target.Value = 4 Then
Target.Value = "其他出库"
ElseIf Target.Value = 5 Then
Target.Value = "生产退料"
End If
End If
End Sub

Answer 2

一个VLOOKUP函数能解决的问题，非得要使用VBA，浪费兼无趣

Answer 3

不如用 Select 好
....
Select Case Target.Value
Case 1
Target.Value = "生产领料"
Case 2
Target.Value = "非生产领料"
Case 3
Target.Value = "采购退货"
Case 其他类推
End Select
......

Answer 4

大哥，你问的问题也太不清楚了。下面中增加几个同样的语句？语句在哪里？你把代码贴上啊 给你推荐个论坛excelhome去那里看看吧。肯定能找到你想要东西。