¿¢¼¿ Á¤·ÄÇÏ·Á´Âµ¥,, ¾î¶»°Ô ÇؾßÇÒÁö¸¦ ¸ð¸£°Ú³×¿ä.

   Á¶È¸ 13516   Ãßõ 0    

¾È³çÇϼ¼¿ä? Ãʺ¸È¸¿ø ¸¶·ç±ºÀÔ´Ï´Ù. µµ¿ò ¿äûÇÒ°÷ÀÌ ÀÌ°÷¹Û¿¡ ¾ø³×¿ä.
|---|-----|
| °© | 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 °¡ ƯÀý ¼¿ÀÇ °ªÀ» ´ëÀÔÇϰųª ÀÐ´Â°Ô ¾Æ´Ñ°¡ºÁ¿ä;
ªÀº±Û Àϼö·Ï ½ÅÁßÇÏ°Ô.
Àü±ÙÇö 2009-12
°£´ÜÇÏ°Ô ¾×¼¿ ¸Þ´º¿¡ µ¥ÀÌŸ-Á¤·Ä¿¡ °©,À»,º´ÀÌ ÀÖ´Â ¿­À» ¿À¸§Â÷¼ø, µÎ¹ø°¸¦ ¼ýÀÚ ¿À¸§Â÷¼ø ÇÏ¸é µÇÁö ¾Ê³ª¿ä?
     
±×·¯¸é º´ 50ÀÌ Á¤ 51 º¸´Ù À§¿¡ ÀÖ°Ô µÇÁÒ...
Àü±ÙÇö 2009-12
Á¤·Ä¸Þ´º¸¦ Ŭ¸¯ÇÏ½Ã¸é ±âº»ÀûÀ¸·Î 3°³±îÁö ¼øÂ÷ÀûÀ¸·Î Á¤·Ä ¿É¼ÇÀ» ÇÒ¼ö ÀÖ½À´Ï´Ù.
ÃÖ¸¶·ç 2009-12
´äº¯ °í¸¿½À´Ï´Ù.

óÀ½ À̸§À» ¿À¸§Â÷¼øÇÏ¸é °©À»º´Á¤¼øÀ¸·Î Á¤·ÄµÇ°í
°°Àº °ªÀ» °¡Áö´Â °©Áß¿¡ °¡Àå ³ôÀº°©ÀÌ À§·ÎÁ¤·ÄÀÌ µÇ¿ä.
¿¢¼¿ÀÇ Á¤·Ä ±â´ÉÀ» ÀÌ¿ëÇؼ­ ù¹ø°¿¡ À̸§ µÎ¹ø¤Š¿¡ ¼ýÀÚ¸¦ »ç¿ëÇϸé¿ä.

¼ýÀÚ°¡ °¡Àå ³ôÀº °ªÀ» °¡Áö´Â »ç¶÷ÀÌ °¡ÀåÀ§·Î, ±×´ÙÀ½ ±×»ç¶÷ÀÌ °¡Áö´Â µ¥ÀÌÅÍ Âß³ª¿À°í,
±×´ÙÀ½ ³ôÀº °ªÀ» °¡Áö´Â »ç¶÷ÀÌ ³ª¿À°í ±×»ç¶÷ µ¥ÀÌÅÍ Âß ³ª¿Í¾ß Çؼ­¿ä. ÈåÀ½..¾î·Æ³×¿ä.

À§ ½ºÅ©¸³Æ® ¿À·ùÁ¢À» Çϳª ã¾Ò³×¿ä. cells(¿­, Çà)ÀÌ ¾Æ´Ï°í (Çà,¿­)¿­ ÀÌ¿´³×¿ä Èǽ.
ÃÖ¸¶·ç 2009-12
ÀÚ¹® ÀÚ´äÀÌ µÇ¾î¹ö·È³×¿ä.
¹®Á¦ Á¢±Ù ¹æ¹ýÀ» À߸øÇÏ´Ï ÇØ°áÇϴµ¥ ½Ã°£ÀÌ °É¸®´Â±º¿ä.
Å« ·çÇÁ ¸ÕÀú»ý°¢ÇÏ´Ï ÀÛÀº ¹®Á¦¸¦ ã´Âµ¥ ³Ê¹« ¿À·¡°É¸®³×¿ä.
ÀÛÀº ¹®Á¦(·çÇÁ)¸¦ ¸ÕÀú »ý°¢ÇÏ°í óÀ½ºÎÅÍ ´Ù½Ã Â¥´Ï Á¦´ë·Î ÀÛµ¿Çϳ׿ä.

ÀÏ´Ü ¸ðµç ÇàÀ» ³ôÀº °ª¼øÀ¸·Î Á¤·ÄÇѵÚ
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
ÀÌ·¸°Ô Áߺ¹°ªÀ» ÀÏÀÏÈ÷ ·çÇÁ µ¹¸é¼­ °Ë»öÇؼ­ ÀÖÀ¸¸é Ä«¿îÆ®µÇ´Â ¼ö¸¦ ÀÌ¿ëÇØ Ç¥±âÇÏ°í
±× Ä«¿îÆ®µÈ ¼ö·Î Á¤·ÄÇÏ´Ï µÇ³×¿ä.^^;
ÂÊÁö¹× ´äº¯ÁÖ½ÅºÐµé ¸ðµÎ °í¸¿½À´Ï´Ù.^^;
Á¦°¡ ¿¢¼¿ 2007À» Çϴϱñ »ç¿ëÀÚ ¸ñ·Ï Á¤·ÄÀÌ µÇ³×¿ä
µ¥ÀÌŸ - Á¤·Ä
¿­ A - °ª - À»,Á¤,º´,°©
¿­ B - °ª - ³»¸²Â÷¼ø

À¸·Î ÇÏ¸é ¿øÇÏ´Â °ªÀÌ ³ª¿À´Â µí ½Í½À´Ï´Ù.
¸ÅÅ©·Îµµ ÁÁÁö¸¸ °£´ÜÇÑ °Ç »ç¿ëÀÚ Á¤ÀÇ ¸ñ·ÏÀ¸·Î ÇϽøé ÆíÇØ¿ä
ÃÖ¸¶·ç 2009-12
´äº¯ °í¸¿½À´Ï´Ù.
¾Æ ±×¹æ¹ýµµ ÀÖ¾ú³×¿ä.
ÈåÀ½ ³ôÀº°©À¸·Î Á¤·ÄÇѵÚ, °í±ÞÇÊÅÍ·Î µ¿ÀÏ·¹ÄÚµå Á¦°ÅÇÏ°í, ±×°É »ç¿ëÀÚ ¸ñ·ÏÀ¸·Î ¸¸µå´Â ¹æ¹ýµµ..
ÈåÀ½ ±×·±µ¥ ¾à 1000°Çµµ ÀÔ·ÂÀÌ µÇ³ª¿ä?; ´ÙÀ½¿¡ ºñ½ÁÇÑ ÀÛ¾÷ÇÒ¶§ ÇغÁ¾ß°Ú³×¿ä.^^;


QnA
Á¦¸ñPage 3976/5677
2015-12   1474082   ¹é¸Þ°¡
2014-05   4937105   Á¤ÀºÁØ1
2010-05   11757   Ãֽÿµ
2010-05   7064   ¸í¼ºÈ£
2010-05   8165   ³ª³Ê¿ì¸®
2010-05   7094   ±è°Ç¿ì
2010-05   7618   ±èÃæȯ
2010-05   9071   »õ·Î¿îÂ÷¿ø
2010-05   8367   ȲȥÀ»ÇâÇØ
2010-05   13615   ¾Æ¸§´Ù¿î³ëÀ»
2010-05   8263   ³ª¿ì¸¶Å©
2010-05   12385   GoodWolf
2010-05   8653   ¹Úº´Èñ
2010-05   7083   ±è°Ç¿ì
2010-05   7576   Á¤¿ë°ü
2010-05   8746   ±è°Ç¿ì
2010-05   7818   °¨¼º¾Ç¸¶
2010-05   8261   ÂôÂô
2010-05   7744   ¸ÞÀÌÆ®
2010-05   8403   ±Ç¼ø±Ô
2010-05   12216   ÀϹÝÀ¯Àú
2010-05   9593   µþ±â´ëÀå