欄位內容包含ABC文字判斷 - Excelㄧ般區 - 麻辣家族討論版版

麻辣家族討論版版 » Excelㄧ般區 » 欄位內容包含ABC文字判斷

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

[發問] 欄位內容包含ABC文字判斷

版主 Rank: 7 Rank: 7 Rank: 7

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

9^# 跳轉到 »

發表於 2022-9-25 23:20 | 只看該作者

回復 8# jackyliu

資料多, 公式多, 卡...是正常,
要看檔案, 才知是哪部份拖慢檔案,
必要時, 只能用vba

中學生 Rank: 2

帖子: 72
主題: 13
精華: 0
積分: 90
點名: 0
作業系統: windows xp
軟體版本: office 2000
閱讀權限: 20
性別: 女
註冊時間: 2011-2-14
最後登錄: 2024-10-13

8^#

發表於 2022-9-25 21:37 | 只看該作者

回復 7# 准提部林

謝謝版大協助 ~
不過現在存檔或複製電腦都會轉圈圈,會花上1~2分鐘時間,是正常現象嗎?

版主 Rank: 7 Rank: 7 Rank: 7

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

7^#

發表於 2022-9-25 09:36 | 只看該作者

回復 6# jackyliu

把關鍵字放G:H欄//不分大小寫
D3公式
=iferror(LOOKUP(,0/(SEARCH(G$1:G$99,"|"&A3)>1),H:H),"")

中學生 Rank: 2

帖子: 72
主題: 13
精華: 0
積分: 90
點名: 0
作業系統: windows xp
軟體版本: office 2000
閱讀權限: 20
性別: 女
註冊時間: 2011-2-14
最後登錄: 2024-10-13

6^#

發表於 2022-9-24 22:31 | 只看該作者

我想請問若改成用Search函數可以嗎?
找到對應的相關文字,顯示相關文字如: 上上籤 , 上中籤 , 上下籤 , 中上籤 , 中中籤 , 中下籤 , 下上籤 , 下中籤 , 下下籤 ,

改新需求:
1. 改成用Search函數
2. 改成將要找的文字統一放在某一欄位(舉例: 欄位A1:ABC ,欄位A2:BCD ,欄位A3:CDE ,欄位A4:Def ,欄位A5:efG ,欄位A6:FGh)
3. 將找到相關文字改ABC=上上籤, BCD=上中籤, BCD=上下籤....
以上更新方式, 可以做到嗎?

版主 Rank: 7 Rank: 7 Rank: 7

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

5^#

發表於 2022-9-24 16:15 | 只看該作者

=LOOKUP(,0/FIND({"","ADEM","ABC"},A3),{"略過","下簽","上簽"})

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-10-21

4^#

發表於 2022-9-19 10:03 | 只看該作者

本帖最後由 Andy2483 於 2022-9-19 10:07 編輯

回復 1# jackyliu

謝謝前輩發表此主題
VBA方式供參考
後學今天捨近求遠
1.練習變數名參數化
2.更親近字典

後學很想學習不一樣的技巧! 先謝謝各位前輩幫訂正錯誤並再指導!

Option Explicit
Sub 欄位內容包含ABC文字判斷()
'B欄輸入時數,C欄呈現累加後時間
'A欄包含ABC,在D欄="上簽"
'A欄包含ADEM,在D欄="下簽"
'A欄不包含ABC且不包含ADEM,在D欄="略過"
'A欄包含ABC且包含ADEM,在D欄="上簽+下簽"
Dim Arr, i, Y, Z(1 To 3)
Set Y = CreateObject("Scripting.Dictionary")
Y = Array("上簽", "下簽", "略過")
Arr = [A2].CurrentRegion
For i = 2 To UBound(Arr)
Z(1) = Arr(i, 2) / 24 + Arr(i - 1, 3)
Z(2) = InStr(Arr(i, 1), "ABC")
Z(3) = InStr(Arr(i, 1), "ADEM")
Arr(i, 3) = IIf(Arr(i, 2), Z(1), "")
If Z(2) <> 0 And Z(3) <> 0 Then
Arr(i, 4) = Y(0) & "+" & Y(1)
ElseIf Z(2) = 0 And Z(3) = 0 Then
Arr(i, 4) = Y(2)
ElseIf Z(3) = 0 Then
Arr(i, 4) = Y(0)
Else
Arr(i, 4) = Y(1)
End If
Next
[A2].Resize(UBound(Arr), UBound(Arr, 2)) = Arr
End Sub

複製代碼

中學生 Rank: 2

帖子: 72
主題: 13
精華: 0
積分: 90
點名: 0
作業系統: windows xp
軟體版本: office 2000
閱讀權限: 20
性別: 女
註冊時間: 2011-2-14
最後登錄: 2024-10-13

3^#

發表於 2022-9-18 21:53 | 只看該作者

回復 2# hcm19522

hcm19522 :
之前還用 if 加上%(萬用字元) 判斷欄位內容有ABC相關文字, 一直試不出來說, 感謝 hcm19522 協助解答~

大學生 Rank: 4

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-22

熱烈參與勳章

2^#

發表於 2022-9-18 10:57 | 只看該作者

https://blog.xuite.net/hcm19522/twblog/590544234

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

靜思自在 : 滴水成河。粒米成蘿，勿輕己靈，勿以善小而不為。

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