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

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

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

§Ú·Q§â¤u§@ªí³]¦bAÄæ¤u§@¡A´N¬O¨Ï¹C¼ÐÂI¨ä¥¦ÄæÁÙ¬O¶]¨ìAÄæ¡C
Ä´¦pÂIC20«o¶]¨ìA20
            D21¶]¨ìA21
³o­n¦p¦ó°µ¡H
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

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


³o¼Ë¸Õ¸Õ

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

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

¦^´_ 3# stillfish00

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

TOP

¦^´_ 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

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

TOP

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

TOP

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

TOP

¦^´_ 8# c_c_lai


    ¥u¯à¦bA1¤u§@¤F¡C
    ·Æ¹««ç¼ËÂI³£¥hA1
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 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

TOP

        ÀR«ä¦Û¦b : °µ¦n¨Æ¤£¯à¤Ö§Ú¤@¤H¡A°µÃa¨Æ¤£¯à¦h§Ú¤@¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD