ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ²Å¦X©Ò»Ý¥N½X «e¨â½X¬° 56¡B57¡B59¡A¤~¯à¦C¤J°Ñ¦Òª÷ÃB...

¦^´_ 8# cypd

§Ñ¤F¶}ÀY¨â¦r,
=IF(COUNT(0/MID(E2:F2&"|",FIND({56;57;59},E2:F2),5)),D2,"")

TOP

¦^´_ 11# ­ã´£³¡ªL

·P®¦¤£§[«ü¾É

¸g±a¤J¤½¦¡...


Åã¥Üµ²ªG...
¼Æ¦r¥N½X¨ü­­©ó 5 ­Ó¦r(¦h¤@­Ó¼Æ¦r©Î¤Ö¤@­Ó¼Æ¦rµLªk¥¿½TÅã¥Ü)
§Æ±æµ²ªG¬O...¤å¦r¦b«e¦b«á¬Ò¥i, ¼Æ¦r¤£­­¤­½X³á   ^^
(·Ç«h¨t«ü¥N½X   «e¨â½X¬° 56 57 59  ²Å¦X¬°­n¥ó³á)

TOP

G2 =IF(OR(IFERROR(MID("X"&E2:F2,FIND({56;57;59},E2:F2),1),"")>"9"),D2,"")
°}¦C¿é¤J

¼Æ¦r¤£­­ªø¡A«e«á¥i¥H¦³¤å¦r¤£­­ªø
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 13# ML089

·P®¦Åo°Õªü   ^^

¸g¹ê´ú
³Æµù©Î¬ì¥Ø¼Æ¦r¦ì¼Æ¤£­­¬°5¦ì¼Æ(©Ò»Ý¥N½X·|¨ú «e¨â½X¬° 56¡B57¡B59)¡A
¨ä«e¡B«á¤è¤å¦r»¡©ú¦r¼Æ¤£©ë
¸Ó¤½¦¡¸g²¤Æ«á¬°¤å¦r¦b«e¦b«á¬Ò¥i, ¼Æ¦r¤W­­¬°20¦ì¼Æ¤§­­...¤Q¥þ¤Q¬ü

TOP

ÁÂÁ½׾Â,ÁÂÁ¦U¦ì«e½ú
«á¾ÇÂǦ¹©«½m²ßVBA,¾Ç²ß¤è®×¦p¤U,½Ð¦U¦ì«e½ú«ü±Ð
°õ¦æ«e:


°õ¦æµ²ªG:


Option Explicit
Sub TEST()
Dim ¸ê®Æ°}¦C, i&, ¦r¤¸¦ì¸m_³Æµù%, ¦r¤¸¦ì¸m_¬ì¥Ø%
¸ê®Æ°}¦C = Range([F2], [D65536].End(xlUp))
For i = 1 To UBound(¸ê®Æ°}¦C)
   ¦r¤¸¦ì¸m_³Æµù = InStr("|65|75|95|", "|" & Right(Val(StrReverse(¸ê®Æ°}¦C(i, 2))), 2) & "|")
   ¦r¤¸¦ì¸m_¬ì¥Ø = InStr("|65|75|95|", "|" & Right(Val(StrReverse(¸ê®Æ°}¦C(i, 3))), 2) & "|")
   If ¦r¤¸¦ì¸m_³Æµù + ¦r¤¸¦ì¸m_¬ì¥Ø = 0 Then ¸ê®Æ°}¦C(i, 1) = ""
Next
[B2].Resize(UBound(¸ê®Æ°}¦C)) = ¸ê®Æ°}¦C
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 15# Andy2483

·PÁ Andy2483 ´£¨Ñ¤£¦P¸Ñªk
Ãö©ó ¦r¤¸¦ì¸m_³Æµù = InStr("|65|75|95|", "|" & Right¡K
¨ä¤¤ "|65|75|95|" ¯«©_ªº¸Ñªk©O  ^^

TOP

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD