大神给段代码，怎么判断切换名称

透明世界1987

名称切换.zip (265.53 KB, 下载次数: 5)

2022-11-29 15:03 上传

点击文件名下载附件

cutecpu

Sub demo()
   g = Range([g2], [g2].End(4))
   d = Range([d2], [d2].End(4))
   For i = 1 To UBound(d)
      Select Case g(i, 1)
        Case "奥德普", "鑫浩宇": d(i, 1) = "安全部件"
        Case "和昌", "莱升", "西泰":
         If d(i, 1) Like "人机交换" Then
            d(i, 1) = "操纵箱"
         End If
        Case "西泰", "立诺", "莱升":
         If d(i, 1) Like "线系统" Then
            d(i, 1) = "外呼"
         End If
        Case "沪宁":  d(i, 1) = "安全钳"
        Case "绿盾":  d(i, 1) = "缓冲器"
        Case "博量":  d(i, 1) = "夹绳器"
      End Select
   Next
   [d2].Resize(i - 1) = d  
End Sub

透明世界1987

cutecpu 发表于 2022-11-29 15:26
Sub demo()
   g = Range([g2], [g2].End(4))
   d = Range([d2], [d2].End(4))

感谢大神，但是运行时错误哦 ，除了奥德普对应的名字会改变为安全部件 其他无法运行

cutecpu

透明世界1987 发表于 2022-12-1 08:26
感谢大神，但是运行时错误哦 ，除了奥德普对应的名字会改变为安全部件 其他无法运行

Sub demo()

   g =Range([g2], [g2].End(4))

   d =Range([d2], [d2].End(4))

   For i = 1To UBound(d)

      SelectCase g(i, 1)

        Case"奥德普","鑫浩宇":d(i, 1) = "安全部件"

        Case"和昌","莱升","西泰","立诺":

         Ifd(i, 1) Like "*人机交换"Then

           d(i, 1) = "操纵箱"

         EndIf

         Ifd(i, 1) Like "*线系统*"Then

           d(i, 1) = "外呼"

         EndIf

        Case"沪宁":  d(i, 1) = "安全钳"

        Case"绿盾":  d(i, 1) = "缓冲器"

        Case"博量":  d(i, 1) = "夹绳器"

      EndSelect

   Next

  [d2].Resize(i - 1) = d

End Sub

透明世界1987

cutecpu 发表于 2022-12-1 08:58
Sub demo()   g =Range([g2], [g2].End(4))   d =Range([d2], [d2].End(4))   For i = 1To UBound(d)     ...

SelectCase g(i, 1)
到这里提示子过程或函数未定义

cutecpu

透明世界1987 发表于 2022-12-1 12:07
SelectCase g(i, 1)
到这里提示子过程或函数未定义

Sub demo()
   g =Range([g2], [g2].End(4))
   d =Range([d2], [d2].End(4))
   For i = 1 To UBound(d)
      Select Case g(i, 1)
        Case "奥德普","鑫浩宇":d(i, 1) = "安全部件"
        Case "和昌","莱升","西泰","立诺":
         If d(i, 1) Like "*人机交换" Then
           d(i, 1) = "操纵箱"
         End If
         If d(i, 1) Like "*线系统*" Then
           d(i, 1) = "外呼"
         End If
        Case "沪宁":  d(i, 1) = "安全钳"
        Case "绿盾":  d(i, 1) = "缓冲器"
        Case "博量":  d(i, 1) = "夹绳器"
      End Select
   Next
  [d2].Resize(i - 1) = d
End Sub

透明世界1987

cutecpu 发表于 2022-12-1 12:20
Sub demo()
   g =Range([g2], [g2].End(4))
   d =Range([d2], [d2].End(4))

Case "和昌","莱升","西泰","立诺":
         If d(i, 1) Like "*人机交换" Then
           d(i, 1) = "操纵箱"
         End If
         If d(i, 1) Like "*线系统*" Then
           d(i, 1) = "外呼"
感谢大神，大神辛苦！！这里有问题，这四个供应商在人机交换有可能出现在线系统也可能出现，但是当在线系统出现的时候，和昌就不变了，另外三个变为外呼

cutecpu

透明世界1987 发表于 2022-12-1 12:47
Case "和昌","莱升","西泰","立诺":
         If d(i, 1) Like "*人机交换" Then
           d(i, 1) = ...

Sub demo()
   g = Range([g2], [g2].End(4))
   d = Range([d2], [d2].End(4))
   For i = 1 To UBound(d)
      Select Case g(i, 1)
        Case "奥德普", "鑫浩宇": d(i, 1) = "安全部件"
        Case "和昌":
           If d(i, 1) Like "人机交换" Then
              d(i, 1) = "操纵箱"
           End If
        Case "立诺":
           If d(i, 1) Like "线系统" Then
              d(i, 1) = "外呼"
           End If
        Case "西泰","莱升":
           If d(i, 1) Like "人机交换" Then
              d(i, 1) = "操纵箱"
           End If
           If d(i, 1) Like "线系统" Then
              d(i, 1) = "外呼"
           End If
        Case "沪宁":  d(i, 1) = "安全钳"
        Case "绿盾":  d(i, 1) = "缓冲器"
        Case "博量":  d(i, 1) = "夹绳器"
      End Select
   Next
   [d2].Resize(i - 1) = d  
End Sub