- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 14# §±æ¢
¬On§ï¦¨¦p¦¹¶Ü?- Private Sub Worksheet_Change(ByVal Target As Range)
- Dim AR(), s%, T As Integer
- Application.EnableEvents = False
- If Target.Address = "$H$5" Then
- T = 6 '³]©wÄæ¼Æ *********
- 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(, T).Value))
- 'Ar(s) = Application.Transpose(Application.Transpose(a.Offset(, -11).Resize(, 8).Value))
- s = s + 1
- End If
- Next
- End With
- Range([A9].Resize(, T), [A9].Resize(, T).End(xlDown)).ClearContents
- 'Range([A9].Resize(, 8), [A9].Resize(, 8).End(xlDown)).ClearContents
- [C3] = m
- [A9].Resize(s, T) = Application.Transpose(Application.Transpose(AR))
- '[A9].Resize(s, 8) = Application.Transpose(Application.Transpose(Ar))
- End If
- Application.EnableEvents = True
- End Sub
½Æ»s¥N½X |
|