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

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

jackyliu

中學生 Rank: 2

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2022-9-17 23:35 | 只看該作者

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

各位大大:

請求幫忙檔案內容判斷須如何寫,求解~

需求
1. 八點做第一筆花1.5小時,C欄位自動計算: 八點加1.5小時為09:30 ; 做第二筆花8小時自動計算:09:30加8小時為17:30 ; c欄位依序
2. 判斷A3欄位內容有包含ABC文字D3欄位顯示: 上簽 ; 判斷A3欄位內容若有包含ADED文字顯示: 下簽 ; 其餘沒有包含的D欄位顯示: 略過

2022-09-17_233025.jpg (26.97 KB)

判斷TEST.zip (7.16 KB)

包含文字判斷

樓主熱帖

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/

TOP

jackyliu

中學生 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 協助解答~

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 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

複製代碼

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

5^#

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

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

TOP

jackyliu

中學生 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=上下籤....
以上更新方式, 可以做到嗎?

TOP

准提部林