[已解决]求VBA代码，在线等，急！

victory610 · 发表于 2015-1-13 19:09

本帖最后由 victory610 于 2015-1-14 13:33 编辑

在线等一段VBA代码，谢谢各位大神！

最佳答案

爱疯

2015-1-13 19:31

Sub Click()
Dim A, i
A = Range("a1").CurrentRegion
For i = 2 To UBound(A)
      If A(i, 2) = "A" Then
         Select Case A(i, 3)
         Case Is < 8
            A(i, 4) = 8000
         Case 8, 9
            A(i, 4) = 10000
         Case Is >= 10
            A(i, 4) = 12000
         End Select
      Else
         Select Case A(i, 3)
         Case Is < 13
            A(i, 4) = 15000
         Case 13, 14
            A(i, 4) = 20000
         Case Is >= 15
            A(i, 4) = 25000
         End Select
      End If
Next i
[a1].Resize(i - 1, 4) = A
End Sub

1.rar (9.42 KB, 下载次数: 2)

爱疯 · 发表于 2015-1-13 19:17

1）用函数不好吗？
2）A的，<8的，补贴是多少

victory610 · 发表于 2015-1-13 19:31

爱疯发表于 2015-1-13 19:17
1）用函数不好吗？
2）A的，

A的小于8的是6000元。

爱疯 · 发表于 2015-1-13 19:31

Sub Click()
Dim A, i
A = Range("a1").CurrentRegion
For i = 2 To UBound(A)
      If A(i, 2) = "A" Then
         Select Case A(i, 3)
         Case Is < 8
            A(i, 4) = 8000
         Case 8, 9
            A(i, 4) = 10000
         Case Is >= 10
            A(i, 4) = 12000
         End Select
      Else
         Select Case A(i, 3)
         Case Is < 13
            A(i, 4) = 15000
         Case 13, 14
            A(i, 4) = 20000
         Case Is >= 15
            A(i, 4) = 25000
         End Select
      End If
Next i
[a1].Resize(i - 1, 4) = A
End Sub

1.rar (9.42 KB, 下载次数: 2)

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