vba ·j´MÀx¦s®æ«á¡A¶K¤W¨ä¥LÄæ¦ì
- ©«¤l
- 2025
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 2053
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- Office2007
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_¥«
- µù¥U®É¶¡
- 2011-3-2
- ³Ì«áµn¿ý
- 2024-3-14
|
¥»©«³Ì«á¥Ñ ML089 ©ó 2016-5-17 13:13 ½s¿è
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xF As Range
If Target.Address <> "$K$2" Then Exit Sub
Set xF = [Sheet1!A:A].Find([K2].Value, lookat:=xlWhole)
If xF Is Nothing Then MsgBox "§ä¤£¨ì": Exit Sub
For i = 1 To 4
xF(1, i * 2).Resize(, 2).Copy [K2:L2].Offset(i, 0)
Next
End Sub
¦A±N K2 ³]©w¬° A:A ªº¿ï³æ¡A¥i¥H²¤Æ§@·~ |
|
{...} ªí¥Ü»Ýn¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡
|
|
|
|
|