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

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

¦^´_ 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 : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD