標題: [發問] 請問比較的公式？ [打印本頁]

---

作者: acer0226    時間: 2016-5-19 23:24     標題: 請問比較的公式？

請問前輩高手
    欄A     欄B      欄C            欄D           欄E     欄F
    20       12      TRUE            32            14

我想寫一個公式:  如果欄C=TRUE ，那麼欄B跟欄D、欄E比較，如果欄B>欄D，欄F出現(傳回)  -1

如果欄B<欄E，欄F出現(傳回)  1，如果欄B在欄D及欄E之間(32~14)，欄F出現(傳回)  0

如果欄C不等於TRUE ，那麼欄A跟欄D、欄E比較，如果欄A>欄D，欄F出現(傳回)  -1

如果欄A<欄E，欄F出現(傳回)  1，如果欄B在欄D及欄E之間(32~14)，欄F出現(傳回)  0

請高手指點，感激不盡

---

作者: rouber590324    時間: 2016-5-20 11:54

試試

Sub 程式()
Sheet1.[F2:F65536].ClearContents
X = Sheet1.[A65536].End(xlUp).Row
For M = 1 To X
    If Sheet1.Cells(M, 3) = True And Sheet1.Cells(M, 2) - Sheet1.Cells(M, 4) > 0 Then
    Sheet1.Cells(M, 6) = -1
    ElseIf Sheet1.Cells(M, 3) = True And Sheet1.Cells(M, 2) - Sheet1.Cells(M, 5) < 0 Then
    Sheet1.Cells(M, 6) = 1
    ElseIf Sheet1.Cells(M, 3) = True And Sheet1.Cells(M, 2) - Sheet1.Cells(M, 5) >= 0 And Sheet1.Cells(M, 2) - Sheet1.Cells(M, 4) <= 0 Then
    Sheet1.Cells(M, 6) = 0
    ElseIf Sheet1.Cells(M, 3) = False And Sheet1.Cells(M, 1) - Sheet1.Cells(M, 4) > 0 Then
    Sheet1.Cells(M, 6) = -1
    ElseIf Sheet1.Cells(M, 3) = False And Sheet1.Cells(M, 1) - Sheet1.Cells(M, 5) < 0 Then
    Sheet1.Cells(M, 6) = 1
    ElseIf Sheet1.Cells(M, 3) = False And Sheet1.Cells(M, 1) - Sheet1.Cells(M, 5) >= 0 And Sheet1.Cells(M, 1) - Sheet1.Cells(M, 4) <= 0 Then
    Sheet1.Cells(M, 6) = 0
    End If
Next
End Sub

---

作者: acer0226    時間: 2016-5-20 15:51

回復 2# rouber590324

謝謝    rouber590324大，我試看看

---

作者: 准提部林    時間: 2016-5-20 21:01

=IF(C1,(B1<E1)-(B1>D1),(A1<E1)-(A1>D1))

---

作者: acer0226    時間: 2016-5-21 12:03

回復 4# 准提部林


    謝謝    准提部林大，真的感激不盡，不愧是高手

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)