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

[µo°Ý] ½Ð°Ý¦p¦óÅý·Æ¹«ÂIÀ»Àx¦s®æ®É¡A©ó¥t¤@­ÓÀx¦s®æ·|Åã¥Ü¬Y­È

[µo°Ý] ½Ð°Ý¦p¦óÅý·Æ¹«ÂIÀ»Àx¦s®æ®É¡A©ó¥t¤@­ÓÀx¦s®æ·|Åã¥Ü¬Y­È

½Ð°Ý­n¦p¦ó³]©w¦¹¥¨¶°?
·í·Æ¹«ÂIÀ»D7®É¡A©óK4·|Åã¥ÜA7ªº­È
·í·Æ¹«ÂIÀ»D8®É¡A©óK4·|Åã¥ÜA8ªº­È
·í·Æ¹«ÂIÀ»D9®É¡A©óK4·|Åã¥ÜA9ªº­È
·í·Æ¹«ÂIÀ»D10®É¡A©óK4·|Åã¥ÜA10ªº­È
.......¥H¦¹Ãþ±À¤@ª½¨ì
·í·Æ¹«ÂIÀ»D285®É¡A©óK4·|Åã¥ÜA285ªº­È
·N«ä´N¬OK4ªº­È·|ÀHµÛ·Æ¹«ÂIÀ»ªºÀx¦s®æ¦Ó§ïÅÜ

¦^´_ 1# ´Ñ»y³¾»ï
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2.     If Target(1).Column = 4 Then [k4] = Cells(Target(1).Row, "A")
  3. End Sub
½Æ»s¥N½X

TOP

¦^´_ 1# ´Ñ»y³¾»ï


    ½Ð°Ý¼Ó¥D¬O¤°»ò±¡ªp¤U»Ý­n³oºØ¥\¯à©O

TOP

¦^´_ 3# carzyindex


    ·Q­nÂI¿ï²M³æ¦Cªí~¦b¬Y¯S©wÀx¦s®æ¥X²{¨ä¬ÛÃö¸ê°T!¨ä¥L¸ê°T¥i¥h§ìk4ªº­È©ÎªÌ¦WºÙ¨Ó§ì¨ú!

TOP

¥»©«³Ì«á¥Ñ ´Ñ»y³¾»ï ©ó 2011-5-17 21:17 ½s¿è

¦^´_ 2# GBKEE


    ·PÁ§A§Ú¸Õ¦¨¥\¤F!

TOP

¥»©«³Ì«á¥Ñ ´Ñ»y³¾»ï ©ó 2011-5-25 19:21 ½s¿è

¦^´_ 2# GBKEE


    ½Ð°Ý§Ú¦pªG­n±N¦¹¥¨¶°§ï¦¨ÂIÀ»"Sheet1"DÄæ®É¡A©ó"Sheet2"¤§K4¡A·|Åã¥Ü¥X"Sheet1"AÄ檺­È¡A­n¦p¦ó­×§ï¦¹¥¨¶°?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target(1).Column = 4 Then Sheets("Sheet1").[k4] = Cells(Target(1).Row, "A")
End Sub
¤w¸g¸Õ¥X¨Ó¤F!¤£¥Î¤F~

TOP

        ÀR«ä¦Û¦b : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD