ªð¦^¦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

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

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

¦^´_ 8# c_c_lai


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

TOP

¦^´_ 10# c_c_lai

ÁÙ¬O¦³°ÝÃD
­nÃöÀÉ®×·|«Ü§xÃø¡C
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 13# owen06


    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Application.Intersect([A:A], Target.EntireRow).Select
    [A1] = "¦Û§Ú·Pı¨}¦n"
    End Sub
¥i¥H¥¿±`¨Ï¥Î¤F
¤Ó·PÁ¤F!
¥[¤W[A1] = "¦Û§Ú·Pı¨}¦n"
§Úªºexcel ³£­n¥[¤W¡K
¤£¥h§ï¥¨¶°¬OµLªk²M°£ªº¡C
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ®É®É¦n¤ß´N¬O®É®É¦n¤é¡C
ªð¦^¦Cªí ¤W¤@¥DÃD