[µo°Ý] Ãö©ó¡GFind & IsError ¨Ï¥Î¤Wªº°ÝÃD

play9091

°²³]¡G¦b "sheets" ¤¤¨Ã¨S¦³¡A11152D¡A³o­Ó¼Æ­È¡C¨º»ò

range("A:A").find(what:=11152D)

´N·|¥X²{¿ù»~¡C

¨º§Ú­n¨Ï¥Î³o¼Ë¤lªº¿ù»~¨Ó·f°t "IsError" ¨Ó§Î¦¨§PÂ_»y¥y

If IsError(range("A:A").find(what:=11152D))=true then

³o­Ó®É­Ô«o¸õ¥X¡u°õ¦æ¶¥¬q¿ù»~ '91' :¡v¡C

½Ð±Ð¦U¦ì¥ý¶i¡C³o¬O¤°»ò°ÝÃD¤Þ°_ªº©O¡H¦³¨S¦³¤°»ò¸Ñ¨Mªº¤èªk¡H¡H

register313

¦^´_ 1# play9091


If Range("A:A").Find("11152D") Is Nothing Then

play9091

¦^´_ 2# register313


¦n¹³¤£¦æ¤]¡A¦]¬°¥¦¥»¨­¦b Range("A:A").Find("11152D") ´N·|¸õ¿ù»~¤F¡K¡K¨S¦³¿ìªk¹ï¥¦°µ Is Nothing ªº§PÂ_¡I

register313

¦^´_ 3# play9091

½Ðªþ¤WexcelÀ£ÁYÀÉ(¤º¦³§¹¾ãµ{¦¡½X)
¨Ñ§@ÀË´ú

Hsieh

¦^´_ 3# play9091


   Set Rng= Range("A:A").Find("11152D")
If Rng Is Nothing Then  '§ä¤£¨ì´N°õ¦æ
If Not Rng Is Nothing Then  '§ä¨ì´N°õ¦æ

play9091

¦^´_ 4# register313


    ªþÀÉ¡K¡K

¦^´_ 5# Hsieh


    Hsieh¶Wª©ªº¤èªk¤]¤£¦æ¤]¡K¡K

register313

¦^´_ 6# play9091


If Sheets("Swap Cell DB").Range("B:B").Find(what:=TF2) Is Nothing Then
    RowX = Sheets("Swap Cell DB").Range("B:B").Find(what:=TF2).Row   

1.¬JµM¬OIs Nothing(§ä¤£¨ì¸Ó­È¤§Àx¦s®æ),¤S¦p¦ó¶Ç¦^¸ÓÀx¦s®æ¤§¦C¸¹
2.ÅܼƤ£¯à¥ÎRow

play9091

¦^´_ 7# register313


    ¬Q¤Ñ±ß¤W¯uªº¬O¼g¨ì©ü±¼¤F¡A¨S¦³¬Ý²M·¡¬O¥Î "¡K¡KIs Nothing" ÁÙ¬O "Not¡K¡KIs Nothing" ¡A·PÁ¤G¦ìªºÀ°¦£¡I