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

¦^´_ 7# BV7BW

Goto 99 ¨ä¥D­n¬O¸õ¥Xµ{§Ç¡A¨ä¹ê¥i¥H¥Î Exit Sub ´N¦n¤F¡A¤£¥Î Goto 99

TOP

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