OfficeTutor.com
¹è¿òÅÍ ³ª´®ÅÍ ±³À°¼¾ÅÍ ¿ÀÆ©ÀåÅÍ
 ÅëÇÕ°Ë»ö  
¡¡ Home > ³ª´®ÅÍ > ¿¢¼¿ > ¹¯°í´äÇϱâ
¿¢¼¿
¿öµå
¾×¼¼½º
ÆÄ¿öÆ÷ÀÎÆ®
¾Æ¿ô·è
ÇÁ·±Æ®ÆäÀÌÁö
ÀÎÆ÷ÆÐ½º
¿ø³ëÆ®
ºñÁö¿À
½¦¾îÆ÷ÀÎÆ®
Æ÷Åäµå·Î¿ì
ÆÛºí¸®¼Å
¿ÀÇǽº°øÅë
MVP ¾È³»
MVP ¸í¿¹ÀÇ Àü´ç
MVP Ä«Æä

¡¡

¡¡

¡¡

¡¡
¿¢¼¿¿¡ ´ëÇÑ Áú¹®°ú ´äº¯À» ¿Ã·ÁÁÖ¼¼¿ä. ´Ü, ÃëÁö¿¡ ¸ÂÁö ¾Ê´Â ±ÛÀº ¿î¿µÀÚ°¡ »èÁ¦ÇÕ´Ï´Ù.
 "000 ´Ô, µµ¿ÍÁÖ¼¼¿ä", "ºÎŹ µå¸³´Ï´Ù.", "±ÞÇÕ´Ï´Ù!" µî°ú °°ÀÌ ¸·¿¬ÇÑ Á¦¸ñÀ» ´ÞÁö ¸»¾ÆÁÖ¼¼¿ä.
[Çʵ¶] ºü¸£°í Á¤È®ÇÑ ´äº¯À» ¾ò´Â 16°¡Áö Tip !
[Çʵ¶] ÀúÀ۱ǹý °³Á¤¿¡ µû¸¥ ÀÌ¿ë¾È³»

ÀÛ¼ºÀÚ:  

 Á¶ÈÆ (xyzkor)

Ãßõ:  0
ÆÄÀÏ:     Á¦¸ñ ¾øÀ½2.png (114.4KB) Á¶È¸:  366
Á¦¸ñ:   ȸ¿ø´Ôµé²² µµ¿òÀ» ûÇÕ´Ï´Ù vba°ü·Ã.
¡¡ ¡¡ ¡¡
¡¡ * ´äº¯ÇϽô ºÐµé²² µµ¿òÀÌ µÇµµ·Ï ÀÚ½ÅÀǠȯ°æÀ» ¾Æ·¡ Ç׸ñ ¿·¿¡ ±âÀçÇØ ÁÖ¼¼¿ä.

 - ¿¢¼¿ ¹öÀü(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)
¡¡
 
 
ȸ»ç¼Ò°³ | ÀÌ¿ë¾à°ü | °³ÀÎÁ¤º¸ 󸮹æÄ§ | ȸ¿øÁ¤º¸¼öÁ¤ | ±³À°½Åû ¹× ¹®ÀÇ | À̸ÞÀϹ«´Ü¼öÁý°ÅºÎ À§·Î

¿ÀÇǽºÆ©ÅÍ ºí·Î±× ¿ÀÇǽºÆ©ÅÍÆäÀ̽ººÏ ¿ÀÇǽºÆ©ÅÍÀ¯Åõºê
110-722 ¼­¿ï Á¾·Î±¸ ¼¼Á¾´ë·Î23±æ 47, 601-74 ¢ß¿ÀÇǽºÆ©ÅÍ ¢Ï1544-4102 ´ëÇ¥ÀÌ»ç : Àü°æ¼ö
°³ÀÎÁ¤º¸°ü¸®Ã¥ÀÓÀÚ : ÀÌÈñÁø(privacy@officetutor.com) »ç¾÷ÀÚµî·Ï¹øÈ£ 120-86-14501
Åë½ÅÆÇ¸Å¾÷½Å°í 2013-¼­¿ïÁ¾·Î-0547
norton
Copyright ¨Ï OfficeTutor.com ÀÌ ÆäÀÌÁöÀÇ ÀúÀÛ±ÇÀº ¢ß¿ÀÇǽºÆ©ÅÍ¿Í ÄÜÅÙÃ÷ Á¦°øÀÚ¿¡°Ô ÀÖ½À´Ï´Ù. ¹«´Ü º¹Á¦¸¦ ±ÝÇÕ´Ï´Ù.
Microsoft ¹× Office ·Î°í´Â ¹Ì±¹, ´ëÇѹα¹ ¹×/¶Ç´Â ±âŸ ±¹°¡¿¡¼­ÀÇ Microsoft Corporation µî·Ï »óÇ¥ ¶Ç´Â »óÇ¥ÀÔ´Ï´Ù.