標題: [發問] LIKE問題請教 [打印本頁]

---

作者: rouber590324    時間: 2015-1-7 13:34     標題: LIKE問題請教

DEAR ALL大大
1.資料內容如圖一
2.使用圖二內容   If Sheet2.Cells(M, 1) Like "*ts1*"  只想抓 TS1 之內容但連 TS10 TS11 都抓到(因LIKE判為 TRUE)
   2.1 請問如何修改.
  2.2 煩不吝賜教 THANKS*10000

圖一
  ts1,#2,Pad,X=-8,Y=8,r500,POS
ts10,#2,Pad,X=1.6,Y=9.6,r500,POS
ts11,#2,Pad,X=3.2,Y=9.6,r500,POS
ts1,#11,Line,XS=-7.74141,YS=7.74141,XE=-7.52625,YE=7.52625,r20,POS,Ang=45

圖二
Sub 分類1()
Sheet6.Visible = True
Sheet6.[A2:A65536].ClearContents
X = Sheet2.[A65536].End(xlUp).Row
Y = Sheet6.[A65536].End(xlUp).Row + 1
For M = 2 To X
If Sheet2.Cells(M, 1) Like "*ts1*" And Sheet2.Cells(M, 1) Like "*Pad*" Then
Sheet6.Cells(Y, 1) = Sheet2.Cells(M, 1)
Y = Y + 1
End If
Next
End Sub

---

作者: PKKO    時間: 2015-1-7 20:11

回復 1# rouber590324

Like "*ts1*" = 文字中間有ts1的都算
Like "ts1*" = 文字開頭有ts1的都算
Like "*ts1" = 文字結尾有ts1的都算

---

作者: kenlin    時間: 2015-1-8 09:39

Sheet2.Cells(M, 1) Like "*ts1,*"
看起來數字後面都有一個 ","
多一個","看看

---

作者: rouber590324    時間: 2015-1-9 11:34

DEAR  kenlin -
感謝提示  我加 , 當原則. OK啦  THANKS*10000   

If Left(Sheet2.Cells(M, 1), 3) = "ts1" And Sheet2.Cells(M, 1) Like "*Pad*" And Mid(Sheet2.Cells(M, 1), 5, 1) <> "," Then

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)