¡¡
¡¡
¡¡
|
 |
 |
|
 |
 |
|
¡¡ |
¡¡ |
¡¡ |
¡¡ |
* ´äº¯ÇϽô ºÐµé²² µµ¿òÀÌ µÇµµ·Ï ÀÚ½ÅÀÇ È¯°æÀ» ¾Æ·¡ Ç׸ñ ¿·¿¡ ±âÀçÇØ ÁÖ¼¼¿ä.
- ¿¢¼¿ ¹öÀü(95,97,2000,xp,2003,2007):
* ¾Æ·¡ÁÙ¿¡ Áú¹®À» ÀÛ¼ºÇϼ¼¿ä >> ¿¢¼¿ 2007 ¹öÀü
¾È³çÇϼ¼¿ä ¹®Àǵ帱°Ô À־ä
Option Explicit
Sub samename_sum()
Dim rngc As Range
Dim rngall As Range
Dim rngtarget As Range
Dim cnt, i As Double
Dim sum_cnt As Double
Application.ScreenUpdating = False
Set rngtarget = Range([a2:c2], Cells(Rows.Count, "c").End(3))
For Each rngc In rngtarget
rngc.Offset(0, 7).Value = rngc.Value
Next rngc
Set rngall = Range("h2:j2", Cells(Rows.Count, "j").End(3))
Cells(1, "j").Value = "ingredient"
For Each rngc In rngall
cnt = Application.CountIf(rngall, rngc)
If cnt > 1 Then
rngc.Resize(, 1).Clear
End If
Next rngc
With Range([j2], Cells(Rows.Count, "j").End(3))
.Sort key1:=Range("j2"), order1:=xlAscending
End With
sum_cnt = 0
Columns("k:k").EntireColumn.ClearContents
Cells(1, "k").Value = "ÃÑ»ç¿ë·®"
For Each rngc In rngall
For i = 2 To Cells(Rows.Count, "c").End(3).Row
If rngc.Value = Cells(i, "c").Value Then
sum_cnt = sum_cnt + Cells(i, "f").Value
rngc.Offset(0, 1).Value = sum_cnt
rngc.Offset(0, 1).NumberFormat = "0.00000000"
End If
Next i
sum_cnt = 0
Next rngc
Set rngall = Nothing
Set rngtarget = Nothing
MsgBox "working complete"
End Sub
ÇöÀç ÀÌ·± ¼ö½ÄÀ» ¿Ï¼ºÇß½À´Ï´Ù.
ÇöÀç c¿ÀÌ Áߺ¹Ã³¸® ÈÄ ¿ìÃø¿¡ j¿¿¡ ÇÔ·®°è»êÀ¸·Î ½ÄÀÌ ³ª¿À°Ô Çß½À´Ï´Ù
±×·±µ¥ ½Ç¹«ÀÚ°¡ a¿°ú b¿ÀÇ Á¤·ÄµÈ c¿ÀÇ µ¿ÀÏÇà°ªÀÌ
¿ìÃø¿¡µµ Áߺ¹Ã³¸®ÈÄ µ¿ÀÏÇÏ°Ô ³ª¿ÍÁà¾ß ÇÑ´Ù°í ÇÕ´Ï´Ù.
°ªÀÌ µ¿ÀÏÇÏ°Ô ³ª¿À·Á¸é ¾î¶»°Ô ¼öÁ¤À» ÇØ¾ßÇϳª¿ä?
ÇöÀç c°ªÀÌ j¿¿¡ ³ªÅ¸³ªÁö´Â°ÍÀº Áߺ¹Á¦°ÅÈÄ ¿À¸§Â÷¼ø Á¤·Ä±îÁø µÇ´Âµ¥ abÀÇ µ¥ÀÌÅͰªÀÌ c°ªÀ» µû¶ó°¡ÁÖÁö ¸øÇÕ´Ï´Ù.
¾Ë·ÁÁÖ¼¼¿ä °¨»çÇÕ´Ï´Ù.
|
¡¡ |
[ºÒ·® °Ô½Ã¹° ½Å°í]
|
|
|
 |
ÀÛ¼ºÀÏ : 2017-07-11(16:05)
ÃÖÁ¾¼öÁ¤ÀÏ : 2017-07-11(18:57) |
¡¡ |
|
 |
|
 |