ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] vba·s¤âµo°Ý

[µo°Ý] vba·s¤âµo°Ý

½Ð°Ý§Ú¼g¤F¤@­Ó°ò¥»ªºif°j°é¡A­n«ç»òÅý§PÂ_ªºµ²ªG¸òµÛ¸ê®Æ¨Ó·½²¾°Ê

ÁÂÁÂ

¬¡­¶Ã¯1.rar (20.22 KB)

Dim arr, i, s%
arr = Range([a20], [a65536].End(3))
For i = 1 To UBound(arr)
s = s + 1
         If arr(i, 1) >= 100 Then
            Cells(i + 19, 4) = "³q¹L"
        ElseIf (arr(i, 1) < 100) * (arr(i, 1) >= 0) Then
            Cells(i + 19, 4) = "¤£³q¹L"
        Else
            Cells(i + 19, 4) = ""
        End If
    Next
    [c20].Resize(UBound(arr)) = arr
End Sub
§ù¤p¥­

TOP

¥»©«³Ì«á¥Ñ samwang ©ó 2021-9-7 12:25 ½s¿è

¦^´_ 1# wayne0303

­n«ç»òÅý§PÂ_ªºµ²ªG¸òµÛ¸ê®Æ¨Ó·½²¾°Ê>> §â¤ñ¹ï«áªºµ²ªG¤S¸Ë¦^arr¡AÁÂÁÂ

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

TOP

¦^´_ 2# dou10801



ÁÂÁÂdou10801¤j¤j~

TOP

¦^´_  wayne0303

­n«ç»òÅý§PÂ_ªºµ²ªG¸òµÛ¸ê®Æ¨Ó·½²¾°Ê>> §â¤ñ¹ï«áªºµ²ªG¤S¸Ë¦^arr¡AÁÂÁÂ

Sub test( ...
samwang µoªí©ó 2021-9-7 12:21



arr(s, 1) ¡ö­ì¨Ó¬O§ï³o­Ó¡A§Ú·d¦n¤[...

ÁÂÁÂsamwang¤j¤j~

TOP

¦^´_ 4# wayne0303 samwang«e½úªº¤èªk¤~¥¿½T,§Ú¤]­è¾Ç,¨S¬Ý²M·¡.
§ù¤p¥­

TOP

¦^´_  wayne0303 samwang«e½úªº¤èªk¤~¥¿½T,§Ú¤]­è¾Ç,¨S¬Ý²M·¡.
dou10801 µoªí©ó 2021-9-7 13:15




ÁÙ¬OÁÂÁ¤j¤jÄ@·NÀ°§Ú¸Ñµª~

TOP

¥»©«³Ì«á¥Ñ samwang ©ó 2021-9-7 14:05 ½s¿è

¦^´_ 6# dou10801
samwang«e½úªº¤èªk¤~¥¿½T,
>>±z«È®ð¤F¡A«á¾Ç¤]¬Oªì¾ÇªÌ¡A±zªº¤èªk¤]¬O¦³¹F¨ì»Ý¨D¡A¦ý¬O·í¸ê®Æ¦hªº¸Ü¡A·|¦]¬°¨Cµ§¸ê®Æ­n¶K¦^excel®Ä²v¦ÓÅܺC
½×¾Â¦³«Ü¦h«e½ú¤j®v¤]¦h¬O«á¾Ç¾Ç²ßªº¹ï¶H¡A¤@°_¥[ªo¡AÁÂÁ¡C

TOP

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
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 9# ML089


S = S + 1 ¬O¦h¾lªº
«x~¥i¥H吔¡AÁÂÁÂML089¤j¤j«ü¾É

Sub iif2()
    Dim arr, i
    arr = Range([a20], [a65536].End(3))
    For i ...
ML089 µoªí©ó 2021-9-7 14:08

TOP

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD