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

[µo°Ý] ¦p¦ó©ó°õ¦æ§¹µ{¦¡«á ±N·Æ¹«ÂI¿ï©ó³Ì¥ý¥X²{»ù¦ìªº¦a¤è

[µo°Ý] ¦p¦ó©ó°õ¦æ§¹µ{¦¡«á ±N·Æ¹«ÂI¿ï©ó³Ì¥ý¥X²{»ù¦ìªº¦a¤è

½Ð°ÝVBA¤§¼gªk  
¦p¦ó©ó°õ¦æ§¹µ{¦¡«á ±N·Æ¹«ÂI¿ï©ó³Ì¥ý¥X²{»ù¦ìªº¦a¤è ¦p½d¨Ò¬O17.82
ÁÂÁ±оÉ




Book1.zip (30.23 KB)

¸Õ¸Õ¬Ý:
sub test()
    dim Rng as range
    set Rng=activecell

'­ìVBACode
'~~
'~~
    Rng.select
end sub

TOP

«á¥[ [C:C].Find("*").Select

TOP

Range("C2").End(xlDown).Select
¥@¬É¨º»ò¤j¡A¥i§Ú·Q¥h­þ¡H

TOP

¹ï¤£°_¡A¤W­±ªº¦^´_¬O¿ù»~ªº¡C3#ªº¥¿¸Ñ¡C
¥@¬É¨º»ò¤j¡A¥i§Ú·Q¥h­þ¡H

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2015-12-22 07:13 ½s¿è

¦^´_ 1# lcctno
¦^´_ 3# ­ã´£³¡ªL
¥¿¦p¤T¼Ó (3#) ­ã´£³¡ªL ª©¤j´£¥Ü¡C
¦ý
  1. Sub Ex()
  2.     [C:C].Find("*").Select
  3. End Sub
½Æ»s¥N½X
¦p­×§ï¦¨
  1. Sub Ex()
  2.     [C:C].Find("1*").Select
  3. End Sub
½Æ»s¥N½X
§ó¨Î¡C
(§A¥i¥H¸ÕµÛ¦b 1955 ¦C 17.82 ¤§¤Wªº C Äæ
¥ô¦óÄæ¦ì¤º¿é¤J 0 ©Î¬O 0.5 µ¥µ¥¼Æ­È¡A·íµM
²[»\ C2 Äæ¦b¤º¡A§Y·|Æ[¹î¨ì Cursor (´å¼Ð)
Focus (µJÂI) ªºÄæ¦ì·|¦³©Ò¤£¦P ("*" ¥H¤Î "1*"))¡C

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD