[發問] vba新手發問

帖子: 152
主題: 45
精華: 0
積分: 239
點名: 270
作業系統: WIN10
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-6-21
最後登錄: 2025-10-28

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章

2^#

發表於 2021-9-7 12:15 | 只看該作者

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

杜小平

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2025-8-22

3^#

發表於 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

帖子: 99
主題: 18
精華: 0
積分: 164
點名: 178
作業系統: Win 10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2019-1-17
最後登錄: 2025-10-28

4^#

發表於 2021-9-7 13:11 | 只看該作者

回復 2# dou10801

謝謝dou10801大大~

帖子: 99
主題: 18
精華: 0
積分: 164
點名: 178
作業系統: Win 10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2019-1-17
最後登錄: 2025-10-28

5^#

發表於 2021-9-7 13:15 | 只看該作者

回復 wayne0303

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

Sub test( ...
samwang 發表於 2021-9-7 12:21

arr(s, 1) ←原來是改這個，我搞好久...

謝謝samwang大大~

dou10801

帖子: 152
主題: 45
精華: 0
積分: 239
點名: 270
作業系統: WIN10
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-6-21
最後登錄: 2025-10-28

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章

6^#

發表於 2021-9-7 13:15 | 只看該作者

回復 4# wayne0303 samwang前輩的方法才正確,我也剛學,沒看清楚.

杜小平

帖子: 99
主題: 18
精華: 0
積分: 164
點名: 178
作業系統: Win 10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2019-1-17
最後登錄: 2025-10-28

7^#

發表於 2021-9-7 13:21 | 只看該作者

回復 wayne0303 samwang前輩的方法才正確,我也剛學,沒看清楚.
dou10801 發表於 2021-9-7 13:15

還是謝謝大大願意幫我解答~

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2025-8-22

8^#

發表於 2021-9-7 14:03 | 只看該作者

本帖最後由 samwang 於 2021-9-7 14:05 編輯

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

版主 Rank: 7 Rank: 7 Rank: 7

ML089

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

9^#

發表於 2021-9-7 14:08 | 只看該作者

S = S + 1 是多餘的

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

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

帖子: 99
主題: 18
精華: 0
積分: 164
點名: 178
作業系統: Win 10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2019-1-17
最後登錄: 2025-10-28

10^#

發表於 2021-9-7 15:43 | 只看該作者

回復 9# ML089

S = S + 1 是多餘的
咦~可以吔，謝謝ML089大大指導

Sub iif2()
Dim arr, i
arr = Range([a20], [a65536].End(3))
For i ...
ML089 發表於 2021-9-7 14:08