[µo°Ý] LIKE°ÝÃD½Ð±Ð

rouber590324

DEAR ALL¤j¤j
1.¸ê®Æ¤º®e¦p¹Ï¤@
2.¨Ï¥Î¹Ï¤G¤º®e   If Sheet2.Cells(M, 1) Like "*ts1*"  ¥u·Q§ì TS1 ¤§¤º®e¦ý³s TS10 TS11 ³£§ì¨ì(¦]LIKE§P¬° TRUE)
   2.1 ½Ð°Ý¦p¦ó­×§ï.
  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

¹Ï¤G
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

¦^´_ 1# rouber590324

Like "*ts1*" = ¤å¦r¤¤¶¡¦³ts1ªº³£ºâ
Like "ts1*" = ¤å¦r¶}ÀY¦³ts1ªº³£ºâ
Like "*ts1" = ¤å¦rµ²§À¦³ts1ªº³£ºâ

kenlin

Sheet2.Cells(M, 1) Like "*ts1,*"
¬Ý°_¨Ó¼Æ¦r«á­±³£¦³¤@­Ó ","
¦h¤@­Ó","¬Ý¬Ý

rouber590324

DEAR  kenlin -
·PÁ´£¥Ü  §Ú¥[ , ·í­ì«h. 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