- ©«¤l
- 92
- ¥DÃD
- 18
- ºëµØ
- 0
- ¿n¤À
- 195
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-8-15
- ³Ì«áµn¿ý
- 2011-8-11
|
¥»©«³Ì«á¥Ñ solely ©ó 2010-12-9 21:06 ½s¿è
±Noobirdª©¥Dªºµ{¦¡½X§ï¦¨³o¼ËXD
´N¥i¥H§e²{¨â¦C~
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [g8] <> "" Then [c7:g10] = ""
If Not Intersect(Target, [C13:g17]) Is Nothing Then
[c7:g8].SpecialCells(4)(1) = Target
End If
If [g8] <> "" Then
[c9:g9] = [SMALL(c7:g8,column(a1:e1))*column(a1:e1)^0]
[c10:g10] = [SMALL(c7:g8,column(f1:j1))*column(f1:j1)^0]
End If
End Sub |
|