GBKEE

¦^´_ 2# luhpro
¼Ó¥D§Æ±æ INPUTBOX¿é¤J¦¬³æ¤é´Á,¶]¥X¨C­Ó³B¤è¤é´Áªº¼Æ¶q¥[Á`
  For iI = 2 To iRow
    oD(CStr(Cells(iI, 1))) = oD(CStr(Cells(iI, 1))) + Val(Cells(iI, 3))
  Next iI
³o¬qµ{¦¡½X¬O¨C¤@³B¤è¤é´Áªº¼Æ¶q¥[Á`

Hsieh

1. Sub ex()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. Set d1 = CreateObject("Scripting.Dictionary")
   
4. 
   
5. myday = CDate(InputBox("¿é¤J¤é´Á", , Date))
   
6. For Each a In Range([D2], [D65536].End(xlUp))
   
7.   If a = myday Then d(a.Offset(, -3) & "") = d(a.Offset(, -3) & "") + a.Offset(, -1)
   
8. Next
   
9. For Each ky In d.keys
   
10.    d1(ky & ":" & d(ky)) = ""
    
11. Next
    
12. MsgBox Join(d1.keys, Chr(10))
    
13. End Sub

½Æ»s¥N½X

luhpro

¼Ï¯Ãªº¤è¦¡§Ú¤£·|, ©Ò¥H´N¸ÕµÛ¥Î¤ñ¸û´¶³qªº¤è¦¡¨Ó¹F¦¨ :
Sub nn()
  Dim sStr$, sDate$
  Dim iRow%, iI%
  Dim vDate
  Dim oD As Object

  Set oD = CreateObject("Scripting.Dictionary")
  iRow = [A65535].End(xlUp).Row
  For iI = 2 To iRow
    oD(CStr(Cells(iI, 1))) = oD(CStr(Cells(iI, 1))) + Cells(iI, 3)
  Next iI
  vDate = InputBox("½Ð¿é¤J­n¬d¸ßªº¦¬³æ¤é´Á : ", "¿é¤J¦¬³æ¤é´Á")
  For iI = 2 To iRow
    If Trim(CStr(Cells(iI, 4))) = Trim(CStr(vDate)) Then
      If sDate <> CStr(Cells(iI, 1)) Then
        sStr = sStr + Chr(10) + CStr(Cells(iI, 1)) + " : " + CStr(oD(CStr(Cells(iI, 1))))
        sDate = CStr(Cells(iI, 1))
      End If
    End If
  Next iI
  MsgBox "¦¬³æ¤é´Á : " + vDate + " ªº¼Æ¶q" + sStr
End Sub