³]©w¤u§@ªíªº¤u§@½d³ò

¦Û§Ú·Pı¨}¦n

§Ú·Q§â¤u§@ªí³]¦bAÄæ¤u§@¡A´N¬O¨Ï¹C¼ÐÂI¨ä¥¦ÄæÁÙ¬O¶]¨ìAÄæ¡C
Ä´¦pÂIC20«o¶]¨ìA20
            D21¶]¨ìA21
³o­n¦p¦ó°µ¡H

owen06

¦^´_ 1# ¦Û§Ú·Pı¨}¦n


³o¼Ë¸Õ¸Õ

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Selection.End(xlToLeft).Select
End Sub

stillfish00

©ñ¨ì¸Ó¤u§@ªíµ{¦¡½X

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.   Application.Intersect([A:A], Target.EntireRow).Select
   
3. End Sub

½Æ»s¥N½X

¦^´_ 1# ¦Û§Ú·Pı¨}¦n

¤£µM´N«OÅ@Àx¦s®æ§OÅý¥L¿ï

¦Û§Ú·Pı¨}¦n

¦^´_ 3# stillfish00

¤Ó ¦n¥Î¤F
   Application.Intersect([A:A], Target.EntireRow).Select

¦Û§Ú·Pı¨}¦n

¦^´_ 3# stillfish00

·Q¦ba1«o¤J¤å¦r
§ï¦¨³o¼Ë«o¤£¯à¥Î¡A¤£ª¾¿ù¦b¨º¸Ì¡K
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Application.Intersect([A:A], Target.EntireRow).Select
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "¤£ª¾¿ù¦b¨º¸Ì¡K"
    End Sub

sunnyso

ActiveCell.FormulaR1C1 = "¤£ª¾¿ù¦b¨º¸Ì¡K"
§ï
activecell.value="abcdeff1234"

¦Û§Ú·Pı¨}¦n

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Application.Intersect([A:A], Target.EntireRow).Select
    Range("A1").Select
    activecell.value="abcdeff1234"
    End Sub

ÁÙ¬O¤£¯à¥Î
¦Ó¥Bµ{¦¡·|¥Ø¶Ã±¼¤F

c_c_lai

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Application.Intersect([A:A], Tar ...
¦Û§Ú·Pı¨}¦n µoªí©ó 2013-8-18 15:02

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Application.Intersect([A:A], Target.EntireRow).Select
   
3.     Range("A1").Select
   
4.     ActiveCell.Value = "abcdeff1234"
   
5. End Sub

½Æ»s¥N½X

¥H¤Wµ{¦¡½X¬O OK ªº¡A §A«üªº¬O¬Æ»ò¡A¯à§_¤W¶ÇÀɮסH

¦Û§Ú·Pı¨}¦n

¦^´_ 8# c_c_lai


    ¥u¯à¦bA1¤u§@¤F¡C
    ·Æ¹««ç¼ËÂI³£¥hA1

c_c_lai

¦^´_ 9# ¦Û§Ú·Pı¨}¦n
½Ð±N­ì¥»¤§

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Application.Intersect([A:A], Target.EntireRow).Select
   
3. End Sub

½Æ»s¥N½X

­×§ï¦¨

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Application.Intersect([A:A], Target.EntireRow).Select
   
3. End Sub

½Æ»s¥N½X

«K¥i¥H¦b¨ä¥LÄæ¦ì¶i¦æ¿é¤J¤F¡C
§A§Æ±æªº¬O¤£¬O³o¼Ë¡H