ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¸ê®Æ¤ñ¹ï«á¶ñ¤J¬ÛÀ³¸ê®Æ¥H¤Î¤½¦¡

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2021-4-4 22:10 ½s¿è

¦^´_ 1# agietron

½Ð°Ý agietron ¤j¤j  ³o¤½¦¡ ¬O¥[Á`¬Æ»ò?
Sheets(Sh).Cells(VR, 10).Formula = "=sum(i" & VR & "*h" & VR & ")"
¬O¤£¬O iÄæ * HÄæ  ?
¥i§_»¡©ú¤@¤U  ·PÁÂ

TOP

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2021-4-5 23:09 ½s¿è

¦^´_ 5# agietron

¦³ªÅÀ°§Ú¸Õ¸Õ¬Ý ¬O¤£¬O§A­nªº ¦ý§Ú¤£½T©w¬O¤£¬O¥¿½T ¦]¬°§Úªºµ²ªG¸ò§Aªºµ²ªG¤£¤@¼Ë  ¦Ó¥B°j°é¤]¤ñ¸û¦h ¬Ý¬Ý¦³¨S¦³¤j¤jÄ@·NÀ°¦£
  1. Public Sub ¸ó¤u§@ªí¤ñ¹ï½m²ß()
  2. Application.ScreenUpdating = False
  3. [A:K].ClearContents
  4. Set xD = CreateObject("Scripting.Dictionary")
  5. Brr = Range([¤u§@ªí1!O65535].End(3), [¤u§@ªí1!O1])
  6. For X = 1 To UBound(Brr, 1)
  7.     xD(Brr(X, 1)) = ""
  8. Next X
  9. DSC = InputBox("¿é¤J§é¦©%", "§é¦©", "60")
  10. For E = 1 To Sheets.Count - 1
  11.     Arr = Sheets(E).UsedRange
  12.     For X = 2 To UBound(Arr, 1)
  13.         For Y = 1 To UBound(Arr, 2)
  14.             If Arr(X, 1) <> "" And Len(Arr(X, Y)) > 7 And xD.exists(Arr(X, Y)) Then
  15.                 With Sheets("¤u§@ªí1")
  16.                     K = K + 1: N = ""
  17.                     Select Case Left(Arr(X, Y), 1)
  18.                         Case "C"
  19.                             G = "S220"
  20.                         Case "M"
  21.                             G = "M520"
  22.                         Case "M"
  23.                             G = "N620"
  24.                         Case "N"
  25.                             G = "S220²k±µ"
  26.                         Case "A"
  27.                             G = "HSS"
  28.                         Case "H"
  29.                             G = "HSS-Co"
  30.                         Case "S"
  31.                             G = "SKH"
  32.                     End Select
  33.                     xD.Remove (Arr(X, Y))
  34.                     For S = 1 To 6
  35.                         If Arr(2, S) <> "" Then N = N & Arr(2, S) & Arr(X, S) & " * "
  36.                     Next S
  37.                     Range("A" & K) = K
  38.                     Range("B" & K) = G
  39.                     Range("C" & K) = Arr(1, 1) & "-" & Sheets(E).Name & "-" & " " & "²Ä" & X & "¦C" & Chr(10) & Mid(N, 1, Len(N) - 3)
  40.                     Range("I" & K) = WorksheetFunction.Round(((Arr(X, Y + 1) * DSC) / 100), -1)
  41.                     Range("J" & K).Formula = "=sum(i" & K & "*h" & K & ")"
  42.                     Range("K" & K) = Arr(X, Y)
  43.                 End With
  44.             End If
  45.         Next Y
  46.     Next X
  47. Next E
  48. Application.ScreenUpdating = True
  49. End Sub
½Æ»s¥N½X
0405.rar (141.9 KB)

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD