12
返回列表 上一主題 發帖

[發問] 符合所需代碼 前兩碼為 56、57、59，才能列入參考金額...

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-22 
11# 跳轉到 »
發表於 2021-2-4 19:05 | 只看該作者
回復 8# cypd

忘了開頭兩字,
=IF(COUNT(0/MID(E2:F2&"|",FIND({56;57;59},E2:F2),5)),D2,"")

TOP

cypd

帖子
240 
主題
41 
精華
0 
積分
313 
點名
50  
作業系統
XP 
軟體版本
Office2007 
閱讀權限
20 
註冊時間
2015-2-20 
最後登錄
2024-11-17 
12#
發表於 2021-2-4 22:31 | 只看該作者
回復 11# 准提部林

感恩不吝指導

經帶入公式...


顯示結果...
數字代碼受限於 5 個字(多一個數字或少一個數字無法正確顯示)
希望結果是...文字在前在後皆可, 數字不限五碼喔   ^^
(準則系指代碼   前兩碼為 56 57 59  符合為要件喔)

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
13#
發表於 2021-2-6 09:51 | 只看該作者
G2 =IF(OR(IFERROR(MID("X"&E2:F2,FIND({56;57;59},E2:F2),1),"")>"9"),D2,"")
陣列輸入

數字不限長，前後可以有文字不限長
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

cypd

帖子
240 
主題
41 
精華
0 
積分
313 
點名
50  
作業系統
XP 
軟體版本
Office2007 
閱讀權限
20 
註冊時間
2015-2-20 
最後登錄
2024-11-17 
14#
發表於 2021-2-6 17:19 | 只看該作者
回復 13# ML089

感恩囉啦阿   ^^

經實測
備註或科目數字位數不限為5位數(所需代碼會取 前兩碼為 56、57、59)，
其前、後方文字說明字數不拘
該公式經簡化後為文字在前在後皆可, 數字上限為20位數之限...十全十美

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

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


執行結果:


Option Explicit
Sub TEST()
Dim 資料陣列, i&, 字元位置_備註%, 字元位置_科目%
資料陣列 = Range([F2], [D65536].End(xlUp))
For i = 1 To UBound(資料陣列)
   字元位置_備註 = InStr("|65|75|95|", "|" & Right(Val(StrReverse(資料陣列(i, 2))), 2) & "|")
   字元位置_科目 = InStr("|65|75|95|", "|" & Right(Val(StrReverse(資料陣列(i, 3))), 2) & "|")
   If 字元位置_備註 + 字元位置_科目 = 0 Then 資料陣列(i, 1) = ""
Next
[B2].Resize(UBound(資料陣列)) = 資料陣列
End Sub
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

cypd

帖子
240 
主題
41 
精華
0 
積分
313 
點名
50  
作業系統
XP 
軟體版本
Office2007 
閱讀權限
20 
註冊時間
2015-2-20 
最後登錄
2024-11-17 
16#
發表於 2023-12-28 00:08 | 只看該作者
回復 15# Andy2483

感謝 Andy2483 提供不同解法
關於 字元位置_備註 = InStr("|65|75|95|", "|" & Right…
其中 "|65|75|95|" 神奇的解法呢  ^^

TOP

        靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。
12
返回列表 上一主題