ML089

S = S + 1 ¬O¦h¾lªº

Sub iif2()
    Dim arr, i
    arr = Range([a20], [a65536].End(3))
    For i = 1 To UBound(arr)
        If arr(i, 1) >= 100 Then
            arr(i, 1) = "³q¹L"
        ElseIf arr(i, 1) >= 0 Then
            arr(i, 1) = "¤£³q¹L"
        Else
            arr(i, 1) = ""
        End If
    Next
    [c20].Resize(UBound(arr)) = arr
End Sub

ML089

Select Case  ¨Ó´À¥N If else
Sub iif4()
    Dim arr, i
    arr = Range([a20], [a65536].End(3))
    For i = 1 To UBound(arr)
        Select Case arr(i, 1)
        Case Is >= 100
            arr(i, 1) = "³q¹L"
        Case Is >= 0
            arr(i, 1) = "¤£³q¹L"
        Case Else
            arr(i, 1) = ""
        End Select
    Next
    [c20].Resize(UBound(arr)) = arr
End Sub

ML089

¦^´_  ML089

ÁÂÁÂML089¤j¤j~
    Select Case¥Î³~¦³¤ñ¸û¼s¶Ü¡H
wayne0303 µoªí©ó 2021-9-7 17:55

­Y¬O¤@­ÓÅܼƥu¦³2~3ºØ§PÂ_¡A¥Î IF ¤ñ¸û²³æ¡A3­Ó¥H¤W§PÂ_¥i¥H¦Ò¼{¥Î Select Case
¹³¤U¦C½d¨Ò¤§¦h¶µ§PÂ_¥ÎIF´N«Ü²Ö§a!

Select Case number
    Case 1 To 5
        Debug.WriteLine("Between 1 and 5, inclusive")
        ' The following is the only Case clause that evaluates to True.
    Case 6, 7, 8
        Debug.WriteLine("Between 6 and 8, inclusive")
    Case 9 To 10
        Debug.WriteLine("Equal to 9 or 10")
    Case Else
        Debug.WriteLine("Not between 1 and 10, inclusive")
End Select