求代码

zw0713 · 发表于 2024-2-29 15:49

求VBA代码

1:判断D列数据是"c-","a-"并且"E"列小于等于3500，H列=1，J列=4，N列=1
2：判断D列数据是"c-","a-"并且"E"列大于3501且小于10000，H列=2，J列=4，N列=2
3：判断D列数据是"c-","a-"并且"E"列大于等于10000，H列=1，J列=5，N列=2
4:判断D列数据是"G-","SG-"并且"E"列小于等于750，H列=1，J列=4，N列=1
5:判断D列数据是"G-","SG-"并且"E"列大于751且小于2100，H列=1，J列=8，N列=2
6:判断D列数据是"L-","SL-"并且"E"列小于等于250，H列=1，J列=3，N列=1
谢谢！！！！

313667354 · 发表于 2024-2-29 16:10

本帖最后由 313667354 于 2024-2-29 16:15 编辑

........................

chxw68 · 发表于 2024-2-29 16:11

简单问题，没有认真校对。

杨建营 · 发表于 2024-2-29 16:22

参与一下。

fzxba · 发表于 2024-2-29 17:02

Sub test0()

  Dim ar, i As Long, n As Double, s As String
  ar = Range("N4", Range("D4").End(xlDown))

  For i = 1 To UBound(ar)
n = Val(ar(i, 2))
s = ar(i, 5) & "-" & ar(i, 7) & "-" & ar(i, 11)
If ar(i, 1) Like "[AC]-*" Then
   Select Case n
   Case Is <= 3500
      If s = "1-4-1" Then
      '判断 1
      End If
   Case Is >= 10000
      If s = "1-5-2" Then
      '判断 3
      End If
   Case Else '(35000, 10000)
      If s = "2-4-2" Then
      '判断 2
      End If
   End Select
ElseIf ar(i, 1) Like "G-*" Or ar(i, 1) Like "SG-*" Then
   Select Case n
   Case Is <= 750
      If s = "1-4-1" Then
      '判断 4
      End If
   Case Is >= 2100
      '空未说明，不执行操作
   Case Else  '(751, 2100)
      If s = "1-8-2" Then
      '判断 5
      End If
   End Select
ElseIf ar(i, 1) Like "L-*" Or ar(i, 1) Like "SL-*" Then
   If ar(i, 2) <= 250 Then
      If s = "1-3-1" Then
      '判断 6
      End If
   End If
Else
   '6种以外情况
End If
  Next

End Sub

fzxba · 发表于 2024-2-29 17:19

理解有误附件参考.rar (19.37 KB, 下载次数: 11)

		自动登录	找回密码
密码			免费注册

[求助] 求代码

评分

评分