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

¦p¦ó³]©w1Ä檺³¡¥÷Àx¦s®æ¤£¯à­×§ï

¦p¦ó³]©w1Ä檺³¡¥÷Àx¦s®æ¤£¯à­×§ï

½Ð±Ð¦U¦ì¤j¤j:
¨Ò : ¦b¤u§@ªí1
¥u³]©wFÄæ¦ì ¥ÑÀx¦s®æF20:F65536 ¥u¥i¥H¥Ñ¿z¿ïÅÜ°ÊÀx¦s®æªº¤º®e,
©Î½Æ»s/¶K¤W (¤H¤â¤£¥i­×§ï¡A¥H§K¯}Ãa¤½¦¡)¡C
¨Ã¥L¥þ³¡¥i¥ô·N­×§ï¡A¦p¦ó°µ±o¨ì?

·PÁÂÀ°¦£ ! ³o­Óµ{¦¡«Ü¦n¥Î

TOP

§Úªº¤è¦¡¤ñ¸û²³æ  §Q¥Î¸ê®ÆÅçÃÒ
§âÀx¦s®æ¤º±o¤¹³\­È§ï¦¨¤½¦¡
ÀH«K¦b¸Ì­±KEY´X­ÓªF¦è
³o¼Ë´N¥i¥H½Æ»s/¶K¤W ¦ý¬O¤£¥i¥H¤â°Ê¦bÀx¦s®æ¤W§ó§ï

TOP

¦^´_ 1# agwhk

¥i¥H¥Î¤U¦Cªº¥N½X¤è¦¡¥h°µ¡A´N¬O¤£­nÅý¨ä¥L¤HÂI¿ï³o¨ÇÀx¦s®æ¡A¥u­nÂI¿ï³o¨ÇÀx¦s®æ´N¸õ¶}¨ìA1Àx¦s®æ
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2. If Target.Row >= 20 And Target.Row <= 65536 And Target.Address = Cells(Target.Row, "F").Address Then
  3.     Range("A1").Select
  4. End If
  5. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD