請問...如何將a1~a5儲存格內的值乘上比例後，再與b1~b5做比對

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2011-7-24 07:53 | 顯示全部帖子

本帖最後由 GBKEE 於 2011-7-24 15:50 編輯

回復 1# pcwater

Option Base 1 ' Option Base {0 | 1} 在模組層次中用來宣告陣列索引的預設下限0 或 1 。
Sub Ex()
Dim AR(), A(), i As Integer
AR = [A2:B6].Value 'sample,讀值置入Ar陣列
ReDim A(UBound(AR), 1) '重新宣告A陣列為Ar陣列大小
For i = 1 To UBound(AR)
If AR(i, 2) < AR(i, 1) * (1 - 0.03) Or AR(i, 2) > AR(i, 1) * (1 + 0.03) Then A(i, 1) = "Ng"
'計算以±3%的值與讀值做比對超過時，則判ng 寫入A陣列
Next
Range("C2").Resize(UBound(A)) = A '判定寫入樣放置的位置
End Sub

複製代碼

靜思自在 : 君子如水，隨方就圓，無處不自在。