欄位內容包含ABC文字判斷 - Excelㄧ般區

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

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

1^# 跳轉到 »

發表於 2022-12-7 14:34 | 顯示全部帖子

回復 1# jackyliu

Sub test()
For uu = 3 To 工作表1.Range("a3").CurrentRegion.Rows.Count
工作表2.Cells(uu, 1) = 工作表1.Cells(uu, 1)
工作表2.Cells(uu, 2) = 工作表1.Cells(uu, 2)
If (InStr(1, 工作表2.Cells(uu, 1), "ABC") >= 1) Then
工作表2.Cells(uu, 4) = "上簽"
End If
If (InStr(1, 工作表2.Cells(uu, 1), "A") >= 1) And (InStr(1, 工作表2.Cells(uu, 1), "D") >= 1) And (InStr(1, 工作表2.Cells(uu, 1), "E") >= 1) And (InStr(1, 工作表2.Cells(uu, 1), "D") >= 1) Then
工作表2.Cells(uu, 4) = "下簽"
End If
If 工作表2.Cells(uu, 1) <> "" And 工作表2.Cells(uu, 4) = "" Then
工作表2.Cells(uu, 4) = "略"
End If
If 工作表2.Cells(uu, 1) <> "" Then
If uu = 3 Then
工作表2.Cells(uu, 3) = DateAdd("n", 90, 工作表2.Cells(uu - 1, 3))
工作表2.Cells(uu, 3).Select
Selection.NumberFormatLocal = "hh:mm"
End If
If uu > 3 Then
工作表2.Cells(uu, 3) = DateAdd("h", 8, 工作表2.Cells(uu - 1, 3))
作表2.Cells(uu, 3).Select
Selection.NumberFormatLocal = "hh:mm"
End If
End If
If 工作表2.Cells(uu, 1) = "" Then End
Next
工作表2.Cells(2, 4) = ""
End Sub

複製代碼

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

靜思自在 : 唯其尊重自己的人，才更勇於縮小自己。