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

[µo°Ý] ¦p¦ó¬d¸ß¤ñ¹ï«á¥[Á`¦X§e¦C

¦^´_ 2# BV7BW

¦^§Aªº¶¡ÃD¤@¡G
¦b¾P°âÁ`¶qªíªºVBA¼Ò²Õ¡G
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'¥u¦³¿ï¾Ü1­ÓÀx¦s®æ¤~±Ò¥Î
If Target.Count = 1 Then
    '«È¤á¬d¸ß:¥HO2:O200,ÂI¤J«á¦AK11®æ¥X²{
    If Target.Column = 15 And Target.Row > 1 And Target.Row <= 200 Then
        [K11] = Target.Value
    End If
    '¨Ò¿ï©wH4(§A1)ÂI¤J«á,¦AK9®æ¥X²{(§A1)
    If Target.Column = 8 And Target.Row > 1 And Target.Row <= 200 Then
        [K9] = Target.Value
    End If
End If
End Sub
¥t¨â­Ó°ÝÃD³£¬O¬d¸ß¡A§A¥i¥H¦Û¤w¸ÕµÛ°µ¬Ý¬Ý¡A¦³°ÝÃD¦A°Ý¡A³o¼Ë¾Ç¤~·|¦³¶i¨B¡I

TOP

¦^´_ 1# BV7BW [/b
­×­q

3)¶µ¥ØÁ`¶q¬d¸ß¥HK5.K6(¤é´Á)
¦Ü­q³f©ú²Óªí¤¤¤ñ¹ï«á¶µ¥ØÁ`¦X§e¦CA2;D2
E2(®w¦s)«h¶·¦Ü¶µ¥Ø½s¸¹¤¤¤ñ¹ï¸ê®Æ
§e²{¥XE2(®w¦s)¸ê®Æ
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

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