[已解决]IF函数的代码求助！

曾予曦

求高手帮忙！IF函数的代码，详见附件。非常感谢！

最佳答案

月排行榜 / 总排行榜

爱疯

2014-6-19 10:37

Sub 按钮1_Click()
    Dim A, i%
    A = Range("a1").CurrentRegion
    For i = 2 To UBound(A)
        Select Case A(i, 3)
        Case 12 To 15
            A(i, 4) = "短料"
        Case 16 To 20
            A(i, 4) = "常规料"
        Case 21 To 30
            A(i, 4) = "长料"
        Case Else
            A(i, 4) = "特殊物料"
        End Select
    Next i
    Range("a1").Resize(UBound(A), UBound(A, 2)) = A
End Sub

跳转到最佳答案楼层

爱疯

Sub 按钮1_Click()
    Dim A, i%
    A = Range("a1").CurrentRegion
    For i = 2 To UBound(A)
        Select Case A(i, 3)
        Case 12 To 15
            A(i, 4) = "短料"
        Case 16 To 20
            A(i, 4) = "常规料"
        Case 21 To 30
            A(i, 4) = "长料"
        Case Else
            A(i, 4) = "特殊物料"
        End Select
    Next i
    Range("a1").Resize(UBound(A), UBound(A, 2)) = A
End Sub

曾予曦

爱疯 发表于 2014-6-19 10:37
Sub 按钮1_Click()
    Dim A, i%
    A = Range("a1").CurrentRegion

非常感谢版主，解决的大问题！后续有不清楚的还请赐教啊！

爱疯

没什么，只是我抢答了。

下次发帖时，如果同上发截图，可能会更快被解答的

曾予曦

爱疯 发表于 2014-6-19 10:44
没什么，只是我抢答了。

下次发帖时，如果同上发截图，可能会更快被解答的

谢谢提醒，您再给抢答一个啊！我马上发帖