½Ð°Ý¦p¦ó³s±µ¥t¤@ÓÀÉ®×Â^¨ú¸ê®Æ©M±Æ§Ç
- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 102
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-5-3
|
¦^´_ 3# amu1129
¦bBOOK1¸òBOOK2ªºSheet1¼Ò²Õ¤º¿é¤Jµ{¦¡½X
§ïÅÜBOOK1¸òBOOK2ªºSheet1ªºb2Àx¦s®æ¸Õ¸Õ- Private Sub Worksheet_Change(ByVal Target As Range)
- Dim Ar(), Ay(), A As Range
- Ky = Array("B01", "B02", "A01", "A02")
- If Target.Address <> "$B$2" Then Exit Sub
- fs = ThisWorkbook.Path & "\5 B01,B02,A01,A02.xls"
- ReDim Preserve Ay(k)
- Ay(k) = Array("", "¤Ø¤o", "½s¸¹", "¼Æ¶q")
- k = k + 1
- With Workbooks.Open(fs)
- With .Sheets(1)
- For Each A In .Range(.[B4], .[B65536].End(xlUp))
- If A = Target Then
- ReDim Preserve Ar(s)
- Ar(s) = Array(A.Offset(, 4).Value, A.Offset(, 1).Value, A.Offset(, 5).Value)
- cnt = cnt + A.Offset(, 5).Value
- s = s + 1
- End If
- Next
- End With
- .Close 0
- End With
- For i = 0 To 3
- For j = 0 To UBound(Ar)
- If Ar(j)(0) = Ky(i) Then
- ReDim Preserve Ay(k)
- Ay(k) = Array(k, Ar(j)(0), Ar(j)(1), Ar(j)(2))
- k = k + 1
- End If
- Next
- Next
- ReDim Preserve Ay(k)
- Ay(k) = Array("", "¦Xp", "", cnt)
- k = k + 1
- With Me
- .[A3:D65536].Clear
- .[A4].Resize(k, 4).Value = Application.Transpose(Application.Transpose(Ay))
- .Range("A2").Resize(k + 2, 4).Borders.LineStyle = 1
- .Range("A2").Resize(k + 2, 4).Borders.Weight = xlThin
- .Range("B2").Resize(k + 2, 3).BorderAround 1, xlThick, xlColorIndexAutomatic
- End With
- End Sub
½Æ»s¥N½X |
|
¾Ç®üµL²P_¤£®¢¤U°Ý
|
|
|
|
|