|---|-----|
| °© | 3 |
|---|-----|
| À» | 100|
|---|-----|
| À» | 2 |
|---|-----|
| º´ | 50 |
|---|-----|
| Á¤ | 51 |
|---|-----|
| Á¤ | 1 |
|---|-----|
ÀÌ·± Ç¥°¡ ÀÖ´Ù°í ÇÒ¶§,
¼ýÀÚ°¡ ³ôÀº¼øÀ¸·Î Ç쵂 °°Àº À̸§ÀÌ ÀÖÀ»°æ¿ì °°Àº À̸§À» ±×·ìÀ¸·Î º¸°í, ¹¾î¼ Á¤·Ä ÇÏ°í½Í½À´Ï´Ù.
À» 100
À» 2
Á¤ 51
Á¤ 1
º´ 50
°© 3
ÀÌ·±½ÄÀ¸·Î¸»ÀÌÁÒ..
¿¢¼¿Àº Àç´ë·Î ¹è¿îÀûÀÌ ¾ø¾î¼.. Èǽ.. ¾î¶»°Ô ÇؾßÇÒÁö¸¦ ¸ð¸£°Ù³×¿ä..
Áö½ÄÀÎ ÅëÇؼ VBA ½ºÅ©¸³Æ®¸¦ Â¥ºÃ´Âµ¥, ºñÁÖ¾ó º£ÀÌÁ÷À» ¹è¿îÀûÀÌ ¾ø¾î¼ ÀÌ°Ç ÀÛµ¿À» ¾ÈÇϳ׿ä.Èǽ
½ºÅ©¸³Æ® º¸½Ã¸é ¾Æ½Ã´Ù½ÍÀÌ 1000°ÇÀ̳ª µÇ´Â°Å¶ó ³ë°¡´Ù·Î ¾îÄÉ Çغ¼ ¼öÁØÀÌ ¾Æ´Ï³×¿ä..
Dim i, j As Integer
Dim iCount As Integer
iCount = 0
For i = 1 To 998
Cells(15, i).Value = iCount
For j = i To 998
If Cells(5, i).Value = Cells(5, j).Value Then
iCount = 1 + iCount
Cells(15, j).Value = iCount
End If
Next j
Next i
µÚ 15, 2¹ø ¼¿ÀÇ ³»¿ëÀ» ±âÁØÀ¸·Î Á¤·ÄÇغ¸·ÁÇߴµ¥;;
ÀÛµ¿À» ¾ÈÇϳ׿ä. Èǽ cells(x,y).value °¡ ƯÀý ¼¿ÀÇ °ªÀ» ´ëÀÔÇϰųª ÀÐ´Â°Ô ¾Æ´Ñ°¡ºÁ¿ä;
óÀ½ À̸§À» ¿À¸§Â÷¼øÇÏ¸é °©À»º´Á¤¼øÀ¸·Î Á¤·ÄµÇ°í
°°Àº °ªÀ» °¡Áö´Â °©Áß¿¡ °¡Àå ³ôÀº°©ÀÌ À§·ÎÁ¤·ÄÀÌ µÇ¿ä.
¿¢¼¿ÀÇ Á¤·Ä ±â´ÉÀ» ÀÌ¿ëÇؼ ù¹ø°¿¡ À̸§ µÎ¹ø¤Š¿¡ ¼ýÀÚ¸¦ »ç¿ëÇϸé¿ä.
¼ýÀÚ°¡ °¡Àå ³ôÀº °ªÀ» °¡Áö´Â »ç¶÷ÀÌ °¡ÀåÀ§·Î, ±×´ÙÀ½ ±×»ç¶÷ÀÌ °¡Áö´Â µ¥ÀÌÅÍ Âß³ª¿À°í,
±×´ÙÀ½ ³ôÀº °ªÀ» °¡Áö´Â »ç¶÷ÀÌ ³ª¿À°í ±×»ç¶÷ µ¥ÀÌÅÍ Âß ³ª¿Í¾ß Çؼ¿ä. ÈåÀ½..¾î·Æ³×¿ä.
À§ ½ºÅ©¸³Æ® ¿À·ùÁ¢À» Çϳª ã¾Ò³×¿ä. cells(¿, Çà)ÀÌ ¾Æ´Ï°í (Çà,¿)¿ ÀÌ¿´³×¿ä Èǽ.
¹®Á¦ Á¢±Ù ¹æ¹ýÀ» À߸øÇÏ´Ï ÇØ°áÇϴµ¥ ½Ã°£ÀÌ °É¸®´Â±º¿ä.
Å« ·çÇÁ ¸ÕÀú»ý°¢ÇÏ´Ï ÀÛÀº ¹®Á¦¸¦ ã´Âµ¥ ³Ê¹« ¿À·¡°É¸®³×¿ä.
ÀÛÀº ¹®Á¦(·çÇÁ)¸¦ ¸ÕÀú »ý°¢ÇÏ°í óÀ½ºÎÅÍ ´Ù½Ã Â¥´Ï Á¦´ë·Î ÀÛµ¿Çϳ׿ä.
ÀÏ´Ü ¸ðµç ÇàÀ» ³ôÀº °ª¼øÀ¸·Î Á¤·ÄÇѵÚ
Private Sub CommandButton2_Click()
Dim i, j, iCount As Integer
For j = 1 To 1713
For i = 1 To 1713
If Cells(i, 2).Value = Cells(j, 2).Value Then
If Cells(i, 4).Value = "" Then
iCount = iCount + 1
Cells(i, 4).Value = iCount
End If
End If
Next i
Next j
End Sub
ÀÌ·¸°Ô Áߺ¹°ªÀ» ÀÏÀÏÈ÷ ·çÇÁ µ¹¸é¼ °Ë»öÇؼ ÀÖÀ¸¸é Ä«¿îÆ®µÇ´Â ¼ö¸¦ ÀÌ¿ëÇØ Ç¥±âÇÏ°í
±× Ä«¿îÆ®µÈ ¼ö·Î Á¤·ÄÇÏ´Ï µÇ³×¿ä.^^;
ÂÊÁö¹× ´äº¯ÁÖ½ÅºÐµé ¸ðµÎ °í¸¿½À´Ï´Ù.^^;
µ¥ÀÌŸ - Á¤·Ä
¿ A - °ª - À»,Á¤,º´,°©
¿ B - °ª - ³»¸²Â÷¼ø
À¸·Î ÇÏ¸é ¿øÇÏ´Â °ªÀÌ ³ª¿À´Â µí ½Í½À´Ï´Ù.
¸ÅÅ©·Îµµ ÁÁÁö¸¸ °£´ÜÇÑ °Ç »ç¿ëÀÚ Á¤ÀÇ ¸ñ·ÏÀ¸·Î ÇϽøé ÆíÇØ¿ä
¾Æ ±×¹æ¹ýµµ ÀÖ¾ú³×¿ä.
ÈåÀ½ ³ôÀº°©À¸·Î Á¤·ÄÇѵÚ, °í±ÞÇÊÅÍ·Î µ¿ÀÏ·¹ÄÚµå Á¦°ÅÇÏ°í, ±×°É »ç¿ëÀÚ ¸ñ·ÏÀ¸·Î ¸¸µå´Â ¹æ¹ýµµ..
ÈåÀ½ ±×·±µ¥ ¾à 1000°Çµµ ÀÔ·ÂÀÌ µÇ³ª¿ä?; ´ÙÀ½¿¡ ºñ½ÁÇÑ ÀÛ¾÷ÇÒ¶§ ÇغÁ¾ß°Ú³×¿ä.^^;