帖子: 240
主題: 41
精華: 0
積分: 313
點名: 50
作業系統: XP
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2015-2-20
最後登錄: 2024-11-17

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2021-2-2 22:00 | 只看該作者

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

1.備註(E欄)及科目(F欄)欄位只有出現數字代碼前兩碼為 56、57、59 等
才能符合條件列入(G欄)參考金額(原本代碼有 5 位數取前兩碼)
2.備註欄有時會出現文字+代碼(例如_E8_補59005)
3.請問 G欄答案公式該如何編寫>>>

0202.rar (7.31 KB)

樓主熱帖

cypd

中學生 Rank: 2

帖子: 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

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

中學生 Rank: 2

帖子: 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

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 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

中學生 Rank: 2

帖子: 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

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-26

11^#

發表於 2021-2-4 19:05 | 只看該作者

回復 8# cypd

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

TOP

cypd

中學生 Rank: 2

帖子: 240
主題: 41
精華: 0
積分: 313
點名: 50
作業系統: XP
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2015-2-20
最後登錄: 2024-11-17

10^#

發表於 2021-2-4 16:25 | 只看該作者

回復 7# 准提部林

感恩指導回復 ^^

該公式為文字在前在後皆可, 數字不限五碼之限...完美呈現 :victory:
陣列公式(三鍵輸入)
=IF(COUNT(0/TEXT(MID("/"&E2:F2,FIND({56;57;59},E2:F2),1),";;;!1")),D2,"")

TOP

cypd

中學生 Rank: 2

帖子: 240
主題: 41
精華: 0
積分: 313
點名: 50
作業系統: XP
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2015-2-20
最後登錄: 2024-11-17

9^#

發表於 2021-2-4 16:18 | 只看該作者

回復 6# ML089

感恩阿 ^^

經實測
科目數字固定為5位數(可調整公式內數據)，
其前方文字說明不超過9個...後面文字不拘

TOP

cypd

中學生 Rank: 2

帖子: 240
主題: 41
精華: 0
積分: 313
點名: 50
作業系統: XP
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2015-2-20
最後登錄: 2024-11-17

8^#

發表於 2021-2-4 15:03 | 只看該作者

回復 7# 准提部林

文字在前在後皆可, 數字不限五碼
針對查找...IF(COUNT(0/MID(E2:F2,FIND({56;57;59},E2:F2),5)),D2,"")...此公式為代碼中有符合 56 57 59 即帶出金額

此公式對所需數字代碼前兩碼為 56、57、59 等
才能符合條件列入(G欄)參考金額...該準則系指代碼前兩碼為要件喔!!

希望該公式能再修正以供參考...

TOP