»Ë»Ñ Æ÷·³
IT °³¹ßÀÚ°£ Á¤º¸¸¦ °øÀ¯ÇÏ°í ³íÀÇ°¡ ÀÌ·ç¾îÁö´Â °ø°£ÀÔ´Ï´Ù.

¿¢¼¿ °ªÀÌ ÀÖ´Â °æ¿ì ¿·¿¡ °ª ºÒ·¯¿À´Â ¹æ¹ý Á»¿ä4

¿¹½Ã

¼ø¹ø   À̸§   Ã£°íÀÚ ÇÏ´Â °ª

1       µþ±â        1

2       ¹Ù³ª³ª     2

3       »ç°ú        3

4

5       ¼ö¹Ú        5

6

7       ºí·çº£¸®  7

8

9

10

 

Á¦°¡ ¸¸µé°í ÀÖ´Â ÄÚµùÀÔ´Ï´Ù.

Private Sub CommandButton2_Click()

    Dim rngC As Variant      '// ¼±Åÿµ¿ª °¢ ¼¿À» ³ÖÀ» º¯¼ö

    Dim rngAll As Range      '// ¼±Åÿµ¿ª Àüü ¹üÀ§ º¯

    Dim rngS As Range

    Dim findtext As String

    Dim strAddr As String

    Set rngAll = Range([f2], Cells(Rows.Count, "f").End(3)(2))

    Set rngS = Range([e2], Cells(Rows.Count, "e").End(3)(2))

    

     For i = 1 To 50

     findtext = rngS(i)

         For Each rngC In rngAll     '// ¼±Åà ¿µ¿ªÀ» ¼øȯ

                             If InStr(rngC.Value, nell) Then '// ¼±ÅÃµÈ ¼¿ÀÌ ºñ¾îÀÖ´Ù

                             rngC.Offset(, 2) = findtext

                             End If

         Next rngC

    Next i

¿©±â¼­ ¾î¶»°Ô ÇØ¾ßµÉ Áö °¨ÀÌ ¿ÀÁö ¾Ê½À´Ï´Ù.

0
ÃßõÇϱ⠴ٸ¥ÀÇ°ß 0
ºÏ¸¶Å©¹öÆ° °øÀ¯¹öÆ°

´Ù¸¥ÀÇ°ß 0 Ãßõ 0 ¾Æ·»Æ¼
2020-06-16 Á¡¾ÆÀÌÄÜ
  1. ´ñ±ÛÁÖ¼Òº¹»ç

´Ù¸¥ÀÇ°ß 0 Ãßõ 0 ÇÁ·¹ÆÛ·±½º
2020-06-16 Á¡¾ÆÀÌÄÜ
  1. ´ñ±ÛÁÖ¼Òº¹»ç

´Ù¸¥ÀÇ°ß 0 Ãßõ 0 2007³â9¿ù»Ë»Ñ°¡ÀÔ
2020-06-16 Á¡¾ÆÀÌÄÜ
  1. ´ñ±ÛÁÖ¼Òº¹»ç

´Ù¸¥ÀÇ°ß 0 Ãßõ 0 ÇÁ·¹ÆÛ·±½º
2020-06-16 Á¡¾ÆÀÌÄÜ
  1. ´ñ±ÛÁÖ¼Òº¹»ç
  • ¾Ë¸² ¿å¼³, »óó ÁÙ ¼ö ÀÖ´Â ¾ÇÇÃÀº »ï°¡ÁÖ¼¼¿ä.
©¹æ »çÁø  
¡â ÀÌÀü±Û¡ä ´ÙÀ½±Û -¸ñ·Ïº¸±â