返回列表下一主題上一主題發帖

[發問] 請問比較的公式？

acer0226

小學生 Rank: 1

帖子: 5
主題: 2
精華: 0
積分: 7
點名: 0
作業系統: winxp
軟體版本: 1.0
閱讀權限: 10
註冊時間: 2016-4-29
最後登錄: 2018-12-13

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

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

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2024-8-7

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

2^#

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

羅

TOP

acer0226