VBA中Change事件问题

请教大虾:我想在下面中增加几个同样的语句,例如目标为4时,显示为其他出库,目标为5时显示为生产退料,但是不知道怎么搞的总是不行.另外我想在另外一列也使用这个功能,大概也是... 请教大虾:
我想在下面中增加几个同样的语句,例如目标为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列也使用类似的输入一个数字,显示我想要代表的文字,谢谢!
展开
 我来答
HFJacky
推荐于2016-05-11 · TA获得超过4695个赞
知道大有可为答主
回答量:2007
采纳率:0%
帮助的人:1158万
展开全部
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
朱仕平
2010-02-23 · 知道合伙人软件行家
朱仕平
知道合伙人软件行家
采纳数:7872 获赞数:29183
15年质量管理经验, 5年EXCEL培训经验, 目前专职EXCEL网络教育和企业培训

向TA提问 私信TA
展开全部
一个VLOOKUP函数能解决的问题,非得要使用VBA,浪费兼无趣
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
I_小学生
2010-02-21 · TA获得超过295个赞
知道小有建树答主
回答量:319
采纳率:0%
帮助的人:381万
展开全部
不如用 Select 好
....
Select Case Target.Value
Case 1
Target.Value = "生产领料"
Case 2
Target.Value = "非生产领料"
Case 3
Target.Value = "采购退货"
Case 其他类推
End Select
......
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友8332bb61a
2010-02-21
知道答主
回答量:34
采纳率:0%
帮助的人:16.2万
展开全部
大哥,你问的问题也太不清楚了。下面中增加几个同样的语句?语句在哪里?你把代码贴上啊 给你推荐个论坛excelhome去那里看看吧。肯定能找到你想要东西。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式