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

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

c_c_lai

¦^´_ 11# ¦Û§Ú·Pı¨}¦n
¤£¤Ó©úÁA§Aªº³¯­z¡A½Ð¤W¶ÇÀɮ׬ݬݡC