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

[µo°Ý] ¼gmacro ¥N´À Sumif, countif formula

[µo°Ý] ¼gmacro ¥N´À Sumif, countif formula

¦pÃD, ¤Ó¦hformula·|¼vÅT¹Bºâ³t«×. ©Ò¥H·Q¥Îmacro ¨ú¥N
½Ð¬Ýªþ¥ó
ÁÂÁÂ:)

Sumif.zip (21.57 KB)

¦^´_ 1# nelson9165
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub EX()
  3.     Dim d As Object, i As Long, D_S As String, AR(), E As Range
  4.     Set d = CreateObject("scripting.dictionary")  '³]¥ßª«¥ó:¦r¨åª«¥ó
  5.     With Sheets("data")   '¸ê®Æ¤u§@­¶
  6.         i = 2
  7.         Do While .Cells(i, "A") <> ""
  8.             D_S = .Cells(i, "C") & .Cells(i, "B") & .Cells(i, "A") '¦r¨åª«¥óªº ÃöÁä¦r
  9.             'Exists ¤èªk ¦pªG¦b Dictionary ª«¥ó¤¤«ü©wªºÃöÁä¦r¦s¦b¡A¶Ç¦^ True¡A­Y¤£¦s¦b¡A¶Ç¦^ False¡C
  10.             If d.Exists(D_S) Then
  11.                 AR = d(D_S)                     '°}¦C=¦r¨åª«¥óªº¶µ¥Ø
  12.                 AR(0) = AR(0) + 1               '¶µ¥Ø ­Ó¼Æªº¥[Á`
  13.                 AR(1) = AR(1) + .Cells(i, "D")  '¶µ¥Ø ¼Æ¦rªº¥[Á`
  14.                 d(D_S) = AR
  15.             Else
  16.                 d(D_S) = Array(1, .Cells(i, "D").Value)  '¦r¨åª«¥óªº¶µ¥Ø¾É¤J°}¦C
  17.             End If
  18.             i = i + 1
  19.         Loop
  20.    
  21.     End With
  22.    
  23.     With Sheets("¤u§@ªí1")
  24.         .Range("B9:I16") = ""   '²M°£¸ê®Æ¤£§tCode
  25.         For Each E In .Range("A9:A16")  'CodeÄ檺½d³ò
  26.             D_S = .Range("D6") & E      '¤é´Á & Code
  27.             If d.Exists(D_S & "A") Then
  28.                 E.Range("D1") = d(D_S & "A")(0)
  29.                 E.Range("G1") = d(D_S & "A")(1)
  30.             End If
  31.             If d.Exists(D_S & "B") Then
  32.                 E.Range("E1") = d(D_S & "B")(0)
  33.                 E.Range("H1") = d(D_S & "B")(1)
  34.             End If
  35.             E.Range("F1") = E.Range("D1") + E.Range("E1")
  36.             E.Range("I1") = E.Range("G1") + E.Range("H1")
  37.         Next
  38.     End With
  39.    
  40. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¦³¦h¤Ö¤O¶q´N°µ¦h¤Ö¨Æ¡A¤£­n¤ß¦sµ¥«Ý¡Aµ¥«Ý¤~·|¸¨ªÅ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD