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

½Ð°Ý¸ê®Æ¤ñ¹ï¥B¹Bºâ¨ì¤u§@ªí¤T

½Ð°Ý¸ê®Æ¤ñ¹ï¥B¹Bºâ¨ì¤u§@ªí¤T

¦U¦ì«e½ú¦n
ª¦¤å§ä¤F«Ü¦h¤å³¹ÁöµM¦³§ä¨ìÃþ¦üªº°ÝÃD
¦ý¬OÀɮפ]¤£¯à¤U¸ü¥u¦n­«½Æ°Ý¤@¤UÃþ¦üªº°ÝÃD
¤u§@ªí¤@
¤µ¤Ñªº¥æ©ö«~¶µ»P¼Æ¶q
¤u§@ªí¤G¬O
¤µ¤Ñ°Ó«~ªº³ø»ù
¤u§@ªí¤T¬O
Àç·~ÃBªº°O¿ý°Ï

°Ó«~¦³«Ü¦hºØ¦ý¬O¨C¤Ñ¥æ©öªº°Ó«~ºØÃþ¤£©T©w¼Æ¶q¤]¤£©T©w
¨Ò¦p°Ó«~Á`¦@¦³99ºØ
²Ä¤@¤Ñ¥æ©öªº°Ó«~¬O1,3,5,8,16,72,44,56
²Ä¤G¤Ñ¥æ©öªº°Ó«~¬O9,61,77,51,34,26,89,54,59,68,
¨C¤Ñ°Ó«~ªº³ø»ù¤]¤£¦P

§Æ±æ¦b¤u§@ªí¤T°O¿ý¤U
©Ò¦³°Ó«~¨C¤éªºÀç·~ÃB
¤u§@ªíÄæ¦ì¤À§O¬°
A1:²£«~¦WºÙ
B1:²Ö­p20¤éÀç·~ÃB
C1~V1:¤é´Á
¨C¦¸·s¼W¤@¤éªºÀç·~ÃB³£¦bCÄæ,¦Ó­ì¬ö¿ý¦bCÄæ~VÄæ«h©¹¥k²¾
­ì¥»VÄæ³Ì¦­ªº°O¿ý«h§R°£
¤]´N¬O»¡¤u§@ªí¤T¥Ã»·¥u«O¯d¤G¤Q¤éªºÀç·~ÃB°O¿ý
¥æ©ö¬ö¿ý.rar (24.91 KB)

¦^´_ 1# enhrulee
¸Õ¸Õ¬Ý
  1. Sub Ex()
  2.     Dim D As Object, DX As Object, Rng As Range
  3.     Set D = CreateObject("SCRIPTING.DICTIONARY")   '¤µ¤é³ø»ù ª«¥ó
  4.     Set DX = CreateObject("SCRIPTING.DICTIONARY")  '¤µ¤é³ø»ù*¤µ¤é³æ¶q ª«¥ó
  5.     Set Rng = Sheets("¤µ¤é³ø»ù").Range("A2")
  6.     Do While Rng <> ""                             '¨ú±o ²£«~¤µ¤é³ø»ùª«¥óªº °j°é
  7.         D(Rng.Value) = Rng.Offset(, 1).Value
  8.         Set Rng = Rng.Offset(1)                    '³]©w¬°©¹¤U¤@¦C
  9.     Loop
  10.     Set Rng = Sheets("¤µ¤Ñ¥æ©ö").Range("A2")
  11.     Do While Rng <> ""                          '¨ú±o ¤µ¤é²£«~³ø»ù  * ¤µ¤Ñ³æ¶q =ª÷ÃB ªº°j°é
  12.         If DX.EXISTS(Rng.Value) Then            '¤µ¤é²£«~³æ¶q¤w¥X²{
  13.             DX(Rng.Value) = DX(Rng.Value) + D(Rng.Value) * Rng.Offset(, 1).Value
  14.         Else
  15.             DX(Rng.Value) = D(Rng.Value) * Rng.Offset(, 1).Value
  16.         End If
  17.        'DX.EXSITS(Rng.Value)        ¤µ¤Ñ¥æ©öªº²£«~¦WºÙ¦s¦b
  18.        'D(Rng.Value)                ²£«~ ¤µ¤é³ø»ù
  19.        'Rng.Offset(, 1).Value       ²£«~ ¤µ¤é³æ¶q
  20.        'DX(Rng.Value)               ¤µ¤Ñ³æ¶q*¤µ¤é³ø»ù
  21.         Set Rng = Rng.Offset(1)
  22.     Loop
  23.     With Sheets("¥æ©ö¬ö¿ý")
  24.         If .Range("C1") <> Date Then    '¤£¬O·í¤é
  25.             .Columns("C:C").Insert
  26.             .Columns("V:V") = ""
  27.             .Range("C1") = Date
  28.         End If
  29.         Set Rng = .Range("A2")
  30.         Do While Rng <> ""      '¨ú±o ¤µ¤Ñ¦³¥æ©ö¬ö¿ý ²£«~  ªº°j°é
  31.             If DX.EXISTS(Rng.Value) Then Rng.Offset(, 2) = DX(Rng.Value)
  32.             '²£«~¤µ¤é¦³¥æ©ö  CÄæ¿é¤JÁ`ª÷ÃB
  33.             Rng.Offset(, 1) = "=SUM(" & Rng.Offset(, 2).Resize(1, 20).Address & ")" '
  34.             'BÄæ¿é¤J¤½¦¡
  35.             Set Rng = Rng.Offset(1)
  36.         Loop
  37.     End With
  38. End Sub
½Æ»s¥N½X

TOP

¦^´_  enhrulee
¸Õ¸Õ¬Ý
GBKEE µoªí©ó 2011-7-23 14:42



    ·PÁª©¥Dªº¼ö¤ßÀ°¦£
§Ú¦³µy·L­×§ï¤F¤@¤p³¡¤À
If .Range("C1") <> Date Then    '¤£¬O·í¤é
            .Columns("C:C").Insert
            .Columns("W:W") = ""
            .Range("C1") = Date
        End If

À³¸Ó¬O°õ¦æ¶¶§Çªº­ì¦]
­ì¥»ª©¥D¼gªºµ{¦¡·|§R°£±¼­ì²Ä¤G¤Ñ(UÄæ)ªº¸ê®Æ
¤p¤pªº­×¥¿´NOK¤F~
¶W¯Å·PÁªºÁÙ¦³¤¤¤åµù¸Ñ
¯uªº«Ü¶K¤ß
:$

TOP

¦^´_ 3# enhrulee
µ{¦¡·|§R°£±¼­ì²Ä¤G¤Ñ(UÄæ)ªº¸ê®Æ
.Columns("V:V") = ""     
¬O§R°£±¼VÄæ,§A¸ò§Ú¤@¼Ë²Ê¤ß.

TOP

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2023-5-24 11:04 ½s¿è

ÁÂÁ½׾Â,ÁÂÁ¦U¦ì«e½ú
«á¾ÇÂǦ¹©«½m²ß°}¦C»P¦r¨å,¾Ç²ß¤è®×¦p¤U,½Ð¦U¦ì«e½ú«ü±Ð

¤µ¤é¥æ©öªí & ¤µ¤é³ø»ùªí:
  

µ²ªGªí°õ¦æ«e:


°õ¦æµ²ªG:



Option Explicit
Sub TEST()
Dim Arr, Brr, Crr, Y, i&
'¡ô«Å§iÅܼÆ
Set Y = CreateObject("Scripting.Dictionary")
'¡ô¥OYÅܼƬO ¦r¨å
Brr = Range([¤µ¤é³ø»ù!B2], [¤µ¤é³ø»ù!A65536].End(3))
'¡ô¥OBrrÅܼƬO ¤Gºû°}¦C,¥H¤µ¤é³ø»ùªí Àx¦s®æ­È±a¤J°}¦C¸Ì
For i = 1 To UBound(Brr): Y(Brr(i, 1) & "/³ø") = Brr(i, 2): Next
'¡ô³]¶¶°j°é,¥O²£«~¦WºÙ ³s±µ "/³ø"·íkey,item¬OBÄ檺³ø»ù
Brr = Range([¤µ¤Ñ¥æ©ö!B2], [¤µ¤Ñ¥æ©ö!A65536].End(3))
'¡ô¥OBrrÅܼƬO ¤Gºû°}¦C,¥H¤µ¤Ñ¥æ©öªíÀx¦s®æ­È±a¤J°}¦C¸Ì
For i = 1 To UBound(Brr): Y(Brr(i, 1) & "/©ö") = Y(Brr(i, 1) & "/©ö") + Brr(i, 2): Next
'¡ô³]¶¶°j°é,¥O²£«~¦WºÙ ³s±µ "/©ö"·íkey,item¬OBÄ檺³æ¶q°µ²Ö¥[
Arr = Range([¥æ©ö¬ö¿ý!A1], [¥æ©ö¬ö¿ý!A65536].End(3))
'¡ô¥OArrÅܼƬO ¤Gºû°}¦C,¥H¥æ©ö¬ö¿ýªí AÄæÀx¦s®æ­È±a¤J°}¦C¸Ì
If [¥æ©ö¬ö¿ý!C1] = Date Then
'¡ô¦pªG[¥æ©ö¬ö¿ý!C1]Àx¦s®æ­È¬O ¤µ¤Ñ¤é´Á,¥Nªí¤µ¤é¤w¸g°õ¦æ¹L
   Crr = Range([¥æ©ö¬ö¿ý!V1], [¥æ©ö¬ö¿ý!C65536].End(3))
   '¡ô¥OCrrÅܼƬO ¤Gºû°}¦C,¥H¥æ©ö¬ö¿ýªíC~VÄæÀx¦s®æ­È±a¤J°}¦C
   Else '§_«h
      Crr = Range([¥æ©ö¬ö¿ý!V1], [¥æ©ö¬ö¿ý!B65536].End(3))
      '¡ô¥OCrrÅܼƬO ¤Gºû°}¦C,¥H¥æ©ö¬ö¿ýªíB~VÄæÀx¦s®æ­È±a¤J°}¦C
End If
For i = 2 To UBound(Crr)
'¡ô³]¶¶°j°é
   Crr(i, 1) = Y(Arr(i, 1) & "/³ø") * Y(Arr(i, 1) & "/©ö")
   '¡ô¥OCrr°}¦Cªº²Ä1Äæ±a¤J¬dY¦r¨å­pºâ¥X¨Óªº¨C­Ó²£«~¥æ©öª÷ÃB
Next
Crr(1, 1) = Date
'¡ô¥OCrr°}¦C1¯Á¤Þ¸¹¦C1¯Á¤Þ¸¹Äæ°}¦C­È¬O ¤µ¤Ñ¤é´Á
[¥æ©ö¬ö¿ý!C1].Resize(UBound(Crr), 20) = Crr
'¡ô¥OCrr°}¦C­È±q[¥æ©ö¬ö¿ý!C1]¶}©l¼g¤JÀx¦s®æ¸Ì
Set Y = Nothing: Erase Arr,Brr, Crr
'¡ô¥OÄÀ©ñÅܼÆ
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

        ÀR«ä¦Û¦b : ¦h°µ¦h±o¡C¤Ö°µ¦h¥¢¡C
ªð¦^¦Cªí ¤W¤@¥DÃD