设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1405|回复: 0

怎么加一段条件代码,请大神指教

[复制链接]

点击这里给我发消息

发表于 2022-4-21 22:01:56 | 显示全部楼层 |阅读模式
请大神看一下怎么给我加段代码,现在代码可以实现双击名称,J列就会自动变换供应商,现在需要加一个条件,当J列是和昌的时候双击名称才变换供应商,J列是空白或者HC外协,双击名称不发生变化。
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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

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

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-29 23:03 , Processed in 0.092741 second(s), 26 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表