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

[µo°Ý] ·Q½Ð°Ý¦p¦ó¸Ñ¨M¡y°õ¦æ¶¥¬q¿ù»~¡§13"¡A«¬ºA¤£²Å¦X¡z

¥»©«³Ì«á¥Ñ stillfish00 ©ó 2015-7-16 18:16 ½s¿è

¦^´_ 1# HSINLI
j = 80®É ¡A Find "NGE" ¥h§ä¨ì ¼ÐÃDÄæªº "change"

¥i¥H§ï¦¨³o¼Ë
Set hilow = Sheets("G.&E.").Range("c:c").Find(Range("a" & j), LookAt:=xlWhole)
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 4# HSINLI
¦]¬°¨S¼u¥X°»¿ù«ö¶s
§Ú¬O¥Î¤U­±³o¼Ë°±¨ìµo¥Í¿ù»~ªº¨º¦æ¡A¦A¥h¬ÝÅܼÆ
  1. Private Sub CommandButton2_Click()
  2. On Error GoTo ERR_HANDLE
  3.    
  4.     ...

  5. Exit Sub
  6. ERR_HANDLE:
  7.     Stop    'F8 to resume error line
  8.     Resume
  9. End Sub
½Æ»s¥N½X
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

        ÀR«ä¦Û¦b : ¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD