papaya

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2018-2-18 19:33 | 只看該作者

[發問] 三個值之間的>或=或<的排列組合

祝福各位大大︰新春快樂！

假設有三個值︰A,B,C
將三個值之間的"大於"或"等於"或"小於"的排列組合(重複的組合，則取其1個組合)表列於A欄。
EX:
A1= A>B,A>C,B>C
A2= A>B,A>C,B=C
A3= A>B,A>C,B<C
其餘......以此類推

請問︰VBA的語法編寫。謝謝!

樓主熱帖

papaya

中學生 Rank: 2

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

2^#

發表於 2018-2-18 21:59 | 只看該作者

備註:
A,B,C都是>0的整數。謝謝!

TOP

jackyq

中學生 Rank: 2

帖子: 323
主題: 6
精華: 0
積分: 313
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2026-1-5

3^#

發表於 2018-2-21 10:12 | 只看該作者

回復 2# papaya

假設 A=1 , B=2, C=3
最後的輸出結果

你到底是要
(1)
A1= A>B,A>C,B>C
A2= A>B,A>C,B=C
A3= A>B,A>C,B<C

還是
(2)
A1= A<B,A<C,B<C

還是

(3)
A1= 1<2,1<3,2<3

TOP

hcm19522

碩士班 Rank: 5 Rank: 5

帖子: 1804
主題: 188
精華: 0
積分: 1997
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 100
性別: 男
註冊時間: 2015-9-11
最後登錄: 2026-10-11

熱烈參與勳章

4^#

發表於 2018-2-21 17:02 | 只看該作者

http://blog.xuite.net/hcm19522/twblog/566920733

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP

papaya

中學生 Rank: 2

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

5^#

發表於 2018-2-21 20:31 | 只看該作者

本帖最後由 papaya 於 2018-2-21 20:43 編輯

回復 3# jackyq
j大:新春快樂!
希望最後的輸出結果是:
(1)
A1= A>B,A>C,B>C
A2= A>B,A>C,B=C
A3= A>B,A>C,B<C

重複的組合，則取其1個組合，則共有3*3*3=27組
但不成立的不列出
EX:
A>B,A=C,B>C
A>B,A=C,B=C

勞駕幫忙!謝謝您!

TOP

papaya

中學生 Rank: 2

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

6^#

發表於 2018-2-21 20:55 | 只看該作者

本帖最後由 papaya 於 2018-2-21 20:56 編輯

回復 4# hcm19522
j大:新春快樂!
感謝您的函數解^^
請問:
1_2007版的IFERROR函數要如何改成2003版的ISNA來應用

2_A,B,C"三者之間的>"或"="或"<"有衝突的(即不能成立)組合，不列出時~
EX:
B4的A>B,A=C,B>C
B5的A>B,A=C,B=C
B7的A>B,A<C,B>C
B8的A>B,A<C,B=C
:
:
公式要如何修正?
勞駕再賜正!
謝謝您!

TOP

jackyq

中學生 Rank: 2

帖子: 323
主題: 6
精華: 0
積分: 313
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2026-1-5

7^#

發表於 2018-2-21 22:33 | 只看該作者

回復 6# papaya

終於看懂你要幹麻

TOP

jackyq

中學生 Rank: 2

帖子: 323
主題: 6
精華: 0
積分: 313
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2026-1-5

8^#

發表於 2018-2-21 22:44 | 只看該作者

Public Sub 最簡單法___________試誤()

      ABC = Split("A>B,A>C,B>C", ">")
   運算子 = Split(">,=,<", ",")
ABC_Count = UBound(ABC) - LBound(ABC) + 1
運算子_Count = UBound(運算子) - LBound(運算子) + 1

Set VBScript = CreateObject("MSScriptControl.ScriptControl")
VBScript.Language = "VBScript"

Cells.Clear
For k1 = LBound(運算子) To UBound(運算子)
For k2 = LBound(運算子) To UBound(運算子)
For k3 = LBound(運算子) To UBound(運算子)

   For value_try1 = 1 To ABC_Count
   For value_try2 = 1 To ABC_Count
   For value_try3 = 1 To ABC_Count
      s = value_try1 & 運算子(k1) & value_try2 & " AND " & _
         value_try1 & 運算子(k2) & value_try3 & " AND " & _
         value_try2 & 運算子(k3) & value_try3 _

      If VBScript.Eval(s) Then
         rr = rr + 1
         Cells(rr, 1) = ABC(0) + 運算子(k1) + _
                        ABC(1) + 運算子(k2) + _
                        ABC(2) + 運算子(k3) + _
                        ABC(3)

         value_try1 = ABC_Count
         value_try2 = ABC_Count
         value_try3 = ABC_Count
      End If
   Next
   Next
   Next

Next
Next
Next

End Sub

TOP

papaya

中學生 Rank: 2

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

9^#

發表於 2018-2-22 16:39 | 只看該作者

回復 4# hcm19522
h大:新春快樂!
感謝您的函數解^^
請問:
方式二C1:C28=IF(ROW(A1)>27,"","A"&MID(">=<",INT(ROW(A9)/9),1)&"B,A"&MID(">=<",MOD(INT(ROW(A3)/3)-1,3)+1,1)&"C,B"&MID(">=<",MOD(ROW(A1)-1,3)+1,1)&"C")
A,B,C"三者之間的>"或"="或"<"有衝突的(即不能成立)組合，不列出時~
EX:
B4的A>B,A=C,B>C
B5的A>B,A=C,B=C
B7的A>B,A<C,B>C
B8的A>B,A<C,B=C
:
:
公式要如何修正?
勞駕再賜正!
謝謝您!

TOP

papaya

中學生 Rank: 2

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

10^#

發表於 2018-2-22 16:46 | 只看該作者

回復 8# jackyq
j大:
感謝您的程式解^^

測試後~答案完全正確~感恩^^

TOP