如何自動比對數字帶出標準值

各位大大

小弟錄製乙個巨集, 分別篩選出單一數字或多個數字儲存格的值

我想用VBA去比對一個事先做好的標準值, 再帶出結果

煩請先進指導

TEST4.rar (32.66 KB)

樓主熱帖

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

2^#

發表於 2012-4-3 09:17 | 只看該作者

本帖最後由 hugh0620 於 2012-4-3 09:19 編輯

回復 1# luke

用一個最簡單的方式來寫[if]

Sub ex()
For j = 2 To 4 Step 2 '列數,資料要跑第2&4列
For i = 1 To 10 '欄位從A到J
If 30.5 < Cells(j, i) And Cells(j, i) <= 40 Then
Cells(j + 1, i) = 40 '資料放在第3&5列
ElseIf 25.5 < Cells(j, i) And Cells(j, i) <= 30.5 Then
Cells(j + 1, i) = 30
ElseIf 20.5 < Cells(j, i) And Cells(j, i) <= 25.5 Then
Cells(j + 1, i) = 25
ElseIf 16.5 < Cells(j, i) And Cells(j, i) <= 20.5 Then
Cells(j + 1, i) = 20
ElseIf 12.1 < Cells(j, i) And Cells(j, i) <= 16.5 Then
Cells(j + 1, i) = 16
ElseIf 10.1 < Cells(j, i) And Cells(j, i) <= 12.1 Then
Cells(j + 1, i) = 12
ElseIf 8.1 < Cells(j, i) And Cells(j, i) <= 10.1 Then
Cells(j + 1, i) = 10
ElseIf 6.1 < Cells(j, i) And Cells(j, i) <= 8.1 Then
Cells(j + 1, i) = 8
ElseIf 4.1 < Cells(j, i) And Cells(j, i) <= 6.1 Then
Cells(j + 1, i) = 6
ElseIf 2# < Cells(j, i) And Cells(j, i) <= 4.1 Then
Cells(j + 1, i) = 4
ElseIf 0 < Cells(j, i) And Cells(j, i) <= 2.1 Then
Cells(j + 1, i) = 2
End If
Next
Next
End Sub

複製代碼

學習才能提升自己

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

3^#

發表於 2012-4-3 11:23 | 只看該作者

回復 1# luke
加入R6~R16,作為比對依據

Sub XX()
For Each a In [A2:J2,A4:J4]
For Each b In [R6:R16]
If a <= b Then
a.Offset(1, 0) = Int(b)
Exit For
End If
Next
Next
End Sub

複製代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 258
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-28

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章