- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 243
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-9
|
¦^´_ 1# §±æ¢
¥X³f³æ¼Ò²Õ- Private Sub Worksheet_Change(ByVal Target As Range)
- Dim Ar(), s%
- Application.EnableEvents = False
- If Target.Address = "$H$5" Then
- With Sheets("¥X³f²M³æ")
- For Each a In .Range(.[L3], .[L3].End(xlDown))
- If a = Target Then
- m = a.Offset(, -2).Value
- ReDim Preserve Ar(s)
- Ar(s) = Application.Transpose(Application.Transpose(a.Offset(, -11).Resize(, 8).Value))
- s = s + 1
- End If
- Next
- End With
- Range([A9].Resize(, 8), [A9].Resize(, 8).End(xlDown)).ClearContents
- [C3] = m
- [A9].Resize(s, 8) = Application.Transpose(Application.Transpose(Ar))
- End If
- Application.EnableEvents = True
- End Sub
½Æ»s¥N½X |
|