Office中国论坛/Access中国论坛

标题: 怎么加一段条件代码，请大神指教 [打印本页]

作者: 欧阳使者871118 时间: 2022-4-21 22:01
标题: 怎么加一段条件代码，请大神指教
请大神看一下怎么给我加段代码，现在代码可以实现双击名称，J列就会自动变换供应商，现在需要加一个条件，当J列是和昌的时候双击名称才变换供应商，J列是空白或者HC外协，双击名称不发生变化。[attach]64304[/attach][attach]64303[/attach]
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Then Exit Sub
Dim arr, brr, crr, i&, k&
arr = Array("井道材料", "导轨", "层门装置(OULING)", "对重块", "侧梁", "对重架", "门机(OULING)", "曳引机(GETM3.0H)", _
      "承重梁", "控制柜", "线系统&安全部件", "钢丝绳", "绳轮", "标准件", "平衡补偿链", "轿门&人机交换", "轿顶、底&上梁", _
      "轿厢装潢", "曳引机(GTW9S)", "轿底配重块", "门机(欧菱)", "曳引机(TORIN)", "轿顶", "机器底座", "厅门&门套&后围壁", _
      "门机(XIZI)", "曳引机(GETM6.0H)", "厅门&门套", "厅门", "曳引机(MONA320B)", "曳引机(MONTANARI)", "Hoistway material井道材料", _
      "Rails导轨", "Hall door device层门装置(OULING)", "CWT block对重块", "CWT frame对重架", "Ceiling &platform&Cross beam轿顶、底&上梁", _
      "Car decoration轿厢装潢", "Gate operator门机(OULING)", "Traction machine曳引机(GETM3.0H)", "Supporting beam承重梁", "Controller控制柜", _
      "Wiring&Safe Parts线系统&安全部件", "Ropes钢丝绳", "Guiding pulley绳轮", "层门装置(XIZI)", "曳引机(GETM3.2D)", "主机底座")
brr = Array("永德", "西豪", "欧菱", "南南", "永德", "永德", "欧菱", "富沃德", "永德", "和昌", "和昌", "通用", "永德", "力旭", "富美达", _
      "莱升", "永德", "山明", "甫哥", "南南", "欧菱", "甫哥", "莱升", "利昌", "山明", "优迈", "富沃德", "山明", "山明", "蒙纳", "蒙纳", _
      "永德", "浩圣", "欧菱", "南南", "永德", "永德", "山明", "欧菱", "富沃德", "永德", "和昌", "和昌", "通用", "兆元", "优迈", "富沃德", "利昌")
For k = 0 To UBound(arr)
      If arr(k) = Target.Value Then
         Target.Offset(0, 7) = brr(k): Exit For
      End If
Next
End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)