- ©«¤l
- 552
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 578
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-2-8
- ³Ì«áµn¿ý
- 2024-7-9
|
¦^´_ 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 |
|