- ©«¤l
- 253
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 308
- ÂI¦W
- 0
- §@·~¨t²Î
- W10
- ³nÅ骩¥»
- Excel 2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2019-6-16
- ³Ì«áµn¿ý
- 2024-3-20
|
¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2021-4-5 23:09 ½s¿è
¦^´_ 5# agietron
¦³ªÅÀ°§Ú¸Õ¸Õ¬Ý ¬O¤£¬O§Anªº ¦ý§Ú¤£½T©w¬O¤£¬O¥¿½T ¦]¬°§Úªºµ²ªG¸ò§Aªºµ²ªG¤£¤@¼Ë ¦Ó¥B°j°é¤]¤ñ¸û¦h ¬Ý¬Ý¦³¨S¦³¤j¤jÄ@·NÀ°¦£- Public Sub ¸ó¤u§@ªí¤ñ¹ï½m²ß()
- Application.ScreenUpdating = False
- [A:K].ClearContents
- Set xD = CreateObject("Scripting.Dictionary")
- Brr = Range([¤u§@ªí1!O65535].End(3), [¤u§@ªí1!O1])
- For X = 1 To UBound(Brr, 1)
- xD(Brr(X, 1)) = ""
- Next X
- DSC = InputBox("¿é¤J§é¦©%", "§é¦©", "60")
- For E = 1 To Sheets.Count - 1
- Arr = Sheets(E).UsedRange
- For X = 2 To UBound(Arr, 1)
- For Y = 1 To UBound(Arr, 2)
- If Arr(X, 1) <> "" And Len(Arr(X, Y)) > 7 And xD.exists(Arr(X, Y)) Then
- With Sheets("¤u§@ªí1")
- K = K + 1: N = ""
- Select Case Left(Arr(X, Y), 1)
- Case "C"
- G = "S220"
- Case "M"
- G = "M520"
- Case "M"
- G = "N620"
- Case "N"
- G = "S220²k±µ"
- Case "A"
- G = "HSS"
- Case "H"
- G = "HSS-Co"
- Case "S"
- G = "SKH"
- End Select
- xD.Remove (Arr(X, Y))
- For S = 1 To 6
- If Arr(2, S) <> "" Then N = N & Arr(2, S) & Arr(X, S) & " * "
- Next S
- Range("A" & K) = K
- Range("B" & K) = G
- Range("C" & K) = Arr(1, 1) & "-" & Sheets(E).Name & "-" & " " & "²Ä" & X & "¦C" & Chr(10) & Mid(N, 1, Len(N) - 3)
- Range("I" & K) = WorksheetFunction.Round(((Arr(X, Y + 1) * DSC) / 100), -1)
- Range("J" & K).Formula = "=sum(i" & K & "*h" & K & ")"
- Range("K" & K) = Arr(X, Y)
- End With
- End If
- Next Y
- Next X
- Next E
- Application.ScreenUpdating = True
- End Sub
½Æ»s¥N½X
0405.rar (141.9 KB)
|
|