返回列表 上一主題 發帖

[發問] vba新手發問

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2025-1-10 
1# 跳轉到 »
發表於 2021-9-7 12:21 | 顯示全部帖子
本帖最後由 samwang 於 2021-9-7 12:25 編輯

回復 1# wayne0303

要怎麼讓判斷的結果跟著資料來源移動>> 把比對後的結果又裝回arr，謝謝

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) = "通過"
        ElseIf (arr(i, 1) < 100) * (arr(i, 1) >= 0) Then
            arr(s, 1) = "不通過"
        Else
            arr(s, 1) = ""
        End If
    Next
    [c20].Resize(UBound(arr)) = arr
End Sub

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2025-1-10 
2#
發表於 2021-9-7 14:03 | 顯示全部帖子
本帖最後由 samwang 於 2021-9-7 14:05 編輯

回復 6# dou10801
samwang前輩的方法才正確,
>>您客氣了，後學也是初學者，您的方法也是有達到需求，但是當資料多的話，會因為每筆資料要貼回excel效率而變慢
論壇有很多前輩大師也多是後學學習的對象，一起加油，謝謝。

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2025-1-10 
3#
發表於 2021-9-9 13:17 | 顯示全部帖子
回復 12# wayne0303


Select Case用途有比較廣嗎？
>> Select Case 和 if elseif，語法寫法不太一樣，但實際結果是一樣的，看個人喜好使用，感謝。

TOP

        靜思自在 : 原諒別人就是善待自己。
返回列表 上一主題