- ©«¤l
- 2834
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2890
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-23
|
¦^´_ 22# Qin
¢°¡^n¥h¤F¸Ñ¨C¤@¦æµ{¦¡½Xªº·N«ä, ¤£µM°Ý¤@°ï·|¨S§¹¨S¤F¡ã¡ã¡ã¡ã
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xR As Range, xF As Range, xCr, xCf, j%
xCr = Array(3, 6, 7)
xCf = Array(2, 4, 5)
With Target.Columns(1) '¶K¤J©Î¿é¤J°Ïªº²Ä¤@Äæ
If .Column <> 1 Then Exit Sub
For Each xR In .Cells
If .Row = 1 Then GoTo 101
xR(1, 3).Resize(1, 5).ClearContents
If xR = "" Then GoTo 101
Set xF = Sheet1.[A:A].Find(xR, LookAt:=xlWhole, MatchCase:=False)
If xF Is Nothing Then GoTo 101
For j = 0 To UBound(xCr)
xR(1, xCr(j)) = xF(1, xCf(j)).Value
Next j
101: Next
End With
End Sub
¡@
¢±¡^CHANGEIJµoªºµ{¦¡¡A´NµLªk¦A¨Ï¥Î¡e´_ì¡f¡I
¡@
¡@
¡@ |
|