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

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

¦^´_ 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
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 3# stillfish00

¤Ó ¦n¥Î¤F
   Application.Intersect([A:A], Target.EntireRow).Select
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¥»©«³Ì«á¥Ñ stillfish00 ©ó 2013-8-16 09:20 ½s¿è

©ñ¨ì¸Ó¤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¿ï

TOP

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


³o¼Ë¸Õ¸Õ

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

TOP

        ÀR«ä¦Û¦b : ¤â¤ß¦V¤U¬O§U¤H¡A¤â¤ß¦V¤W¬O¨D¤H¡F§U¤H§Ö¼Ö¡A¨D¤Hµh­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD