返回列表 上一主題 發帖

[發問] 多條件之判斷

andyhang

帖子
2 
主題
1 
精華
0 
積分
8 
點名
0  
作業系統
XP 
軟體版本
2007 
閱讀權限
10 
性別
男 
註冊時間
2011-4-11 
最後登錄
2014-1-18 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-4-11 21:53 | 只看該作者

[發問] 多條件之判斷

多條件之判斷.rar (4.85 KB)

多條件之判斷，敬請詳見壓縮檔。

感謝您的指導，謝謝！
收藏 分享

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2011-4-11 22:05 | 只看該作者
回復 1# andyhang


    E24=INDEX($B$5:$F$5,,IF(ISERROR(MATCH($C24,OFFSET($A$1,MATCH($B24,$A$2:$A$4,0),1,,4),0)),5,MATCH($C24,OFFSET($A$1,MATCH($B24,$A$2:$A$4,0),1,,4),0)))
學海無涯_不恥下問

TOP

yanto913

帖子
116 
主題
29 
精華
0 
積分
232 
點名
0  
作業系統
winXp 
軟體版本
office 2003 
閱讀權限
20 
性別
女 
來自
台灣台中市 
註冊時間
2010-9-6 
最後登錄
2023-7-11 
3#
發表於 2011-4-12 09:35 | 只看該作者
C9=IF(ISERROR(OFFSET($A$1,4,MATCH($C$7,OFFSET($A$1,MATCH(B7,A2:A4,0),1,1,4),0))),F5,OFFSET($A$1,4,MATCH($C$7,OFFSET($A$1,MATCH(B7,A2:A4,0),1,1,4),0)))
YOYO

TOP

ANGELA

帖子
812 
主題
7 
精華
0 
積分
862 
點名
0  
作業系統
XP 
軟體版本
2007 
閱讀權限
100 
性別
男 
來自
台中 
註冊時間
2010-5-13 
最後登錄
2019-10-10 

論壇貢獻勳章
4#
發表於 2011-4-12 11:14 | 只看該作者
本帖最後由 ANGELA 於 2011-4-12 13:04 編輯

c9=INDEX($B$5:$F$5,IF(SUMPRODUCT((B7=$A$2:$A$4)*(C7=$B$2:$E$4)*({1,2,3,4})),SUMPRODUCT((B7=$A$2:$A$4)*(C7=$B$2:$E$4)*({1,2,3,4})),5))
如果把F5移到A5
c9=INDEX($A$5:$E$5,SUMPRODUCT((B7=$A$2:$A$4)*(C7=$B$2:$E$4)*{1,2,3,4})+1)

TOP

andyhang

帖子
2 
主題
1 
精華
0 
積分
8 
點名
0  
作業系統
XP 
軟體版本
2007 
閱讀權限
10 
性別
男 
註冊時間
2011-4-11 
最後登錄
2014-1-18 
5#
發表於 2011-4-17 09:15 | 只看該作者
都是很有學問的解法，收下，好好研究去，感謝Hsieh 、yanto913 、ANGELA 三位大大的指導，謝謝！

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1446 
主題
40 
精華
0 
積分
1470 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-10-21 
6#
發表於 2023-5-18 11:21 | 只看該作者
謝謝論壇,謝謝各位前輩
後學藉此帖練習VBA陣列與字典,學習方案如下,請各位前輩指教

執行前:


執行結果:



Option Explicit
Sub TEST() '↑
Dim Brr, Crr, Y, i&, j&, T$, K%
'↑宣告變數
Set Y = CreateObject("Scripting.Dictionary")
'↑令Y變數是 字典
Brr = [A2:E5]
'↑令Brr變數是 二維陣列,以儲存格值帶入陣列中
K = UBound(Brr)
'↑令K變數是Brr陣列最大索引列號
For i = 1 To K
   For j = 2 To UBound(Brr, 2)
      T = Brr(i, 1) & "/" & Brr(i, j)
      Y(T) = Brr(K, j)
   Next
Next
'↑設順迴圈將資料區組合字串當key,item是類別,納入Y字典中
Brr = Range([C24], [B65536].End(xlUp))
'↑令Brr變數重新定義是 二維陣列,換裝新儲存格值
ReDim Crr(1 To UBound(Brr), 1 To 1)
'↑宣告Crr陣列是 二維空陣列,縱向範圍同Brr,橫向範圍1~1索引號
For i = 1 To UBound(Brr)
   T = Brr(i, 1) & "/" & Brr(i, 2)
   If Y(T) = "" Then
      Crr(i, 1) = "E類"
      Else
         Crr(i, 1) = Y(T)
   End If
Next
'↑設順迴圈將目標區組合字串查Y字典得到item值帶入Crr陣列中,
'如果查Y字典其item值是"",Crr陣列則寫入"E類"
[E24].Resize(UBound(Crr)) = Crr
'↑令Crr陣列值寫如結果儲存格中
Set Y = Nothing: Erase Brr, Crr
'↑令釋放變數
End Sub
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
返回列表 上一主題