¾È³çÇϼ¼¿ä. ÃÖÁ¾¼÷ ȸ¿ø´Ô
¿¹½ºÆû Power Excel ¼½Ä ´ã´çÀÚÀÔ´Ï´Ù.
ȸ¿ø´Ô²²¼ ½ÅûÇϽŠ[ÀÚ»ç¿ë ³³°ñ´ç ÇÁ·Î±×·¥ VBAÁ¤·Ä ±â´É)] Àº ¿äûÇϽŠ»çÇ×À» ¹Ý¿µÇÏ¿© Á¦À۵ǾúÀ¸¸ç, ÆÄ¿ö¿¢¼¿ °Ô½ÃÆÇ¿¡ µî·ÏÀÌ ¿Ï·áµÇ¾ú½À´Ï´Ù.
¸»¾¸ÇϽŠ"ȸ¿ø½ÃÆ®¿¡ ÀÏÀÏÀÌ ±â·Ï ÇÏ¸é ´Ù¸¥ ½ÃÆ®¿£ ÀÚµ¿À¸·Î µé¾î°¡°Ô Çߴµ¥ Ç׸ñÀ̸¹´Ùº¸´Ï±î ¹ø°Å·¯¿ö¼ 1.ÀÚµ¿ÀÔ·ÂÆûÀ» ¸¸µé¸é ÁÁÀ»°Í °°¾Æ¼ ¿ä. 2.´Ù¸¥ ½ÃÆ®¿¡¼ ÀڷḦ ºÐ·ùÇÒ¶§ ÀÚµ¿ÇÊÅ͸¦ ¾²´Âµ¥¿ä ÇÊÅÍµÇ°í³ª¸é ¼ø¹ø ÀÌ ¸ÂÁö¾Ê°í ÀÚ·áÀÇ °¹¼ö¸¦ ¾Ë¼ö ¾ø¾î¼ ÇÊÅÍÈÄ¿¡µµ ¼ø¹øÀÌ ÀÚµ¿À¸·Î ä¿ö Áö°í ÀÚ·áÀÇ °¹¼ö¸¦ È®ÀÎÇÒ¼öÀÖ°Ô ÇØÁÖ¼¼¿ä.." ¾Æ·¡¿Í °°ÀÌ ¹Ý¿µÇÏ¿´À¸¸ç, °ËÅäÁ¤¸®»çÇ×°ú ÀÛ¾÷»çÇ× ¹× Ãß°¡Á¤º¸¸¦ ¼øÂ÷ÀûÀ¸·Î Âü°íÇϽñ⠹ٶø´Ï´Ù.
¡ØÆÄ¿ö¿¢¼¿ ¿äû¼½Ä °ËÅä»çÇ×_1Â÷(ÇÁ·Î½ÃÀú)
¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡
1. ÷ºÎÇϽŠÆÄÀÏÀÇ ÄÚµå ¿ø¹®ÀÔ´Ï´Ù [Art + F11À» ´©¸£½Ã¸é VBEâÀÌ È°¼ºÈ µË´Ï´Ù.]
¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡
Option Explicit
Sub Numbering()
Const strID As String = "¿¹ÀºÃ߸ð°ø¿ø"
¡¡ Dim rngTarget As Range
¡¡ Dim rngArea As Range
¡¡ Dim rngCell As Range
¡¡ Dim i As Integer
¡¡ Dim strMsg As String
¡¡
¡¡ Set rngTarget = Range("¹øÈ£")
¡¡ strMsg = "ÀÛ¾÷ ´ë»ó ¿µ¿ªÀÇ ³»¿ëÀ» ¸ðµÎ Áö¿ü½À´Ï´Ù." & vbCr
¡¡ strMsg = strMsg & "ÀÌÁ¦ ¼ø¹øÀ» »õ·Î ¸Å±é´Ï´Ù."
¡¡ rngTarget.ClearContents
¡¡ MsgBox strMsg, , strID
¡¡
¡¡ For Each rngCell In rngTarget
¡¡ ¡¡ With rngCell
¡¡¡¡ ¡¡ Set rngArea = Range(.Offset(0, 1), .Offset(0, 5))
¡¡ ¡¡ ¡¡ If WorksheetFunction.Countf(rngArea) > 0 Then
¡¡¡¡ ¡¡ ¡¡ i = i + 1
¡¡ ¡¡ ¡¡ ¡¡ .Value = i
¡¡¡¡ ¡¡ End If
¡¡ ¡¡ End With
¡¡ Next rngCell
¡¡ MsgBox "ÀÚ·áÀÇ ¼ø¼È ÀÛ¾÷ÀÌ Á¾·áµÊ", , strID
¡¡ End Sub
¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡
2. ¿ø¹®¿¡¼ For Each / Next ·çÇÁ¸¦ ½ÃÀÛÇÏ¿© Á¾·áÇÏ´Â ÇüÅÂÀûÀÎ ¿ä¼Ò´Â ¸¸Á·ÇÏÁö¸¸, ÇöÀç ¾î¶°ÇÑ
¡¡ ±âÁØÀ¸·Î ÇÊÅ͸µÀÌ ÀÌ·ç¾î Áø °æ¿ì¿¡´Â È°¼ºÈ µÈ ¼¿(¹üÀ§)°ú ºñÈ°¼ºÈµÈ ¼¿(¹üÀ§)À» È®ÀÎÇÏ¿©
¡¡ µ¿ÀûÀÎ ¿ä¼Ò¸¦ ºÎ¿©ÇÒ ¼ö ¾ø½À´Ï´Ù. ±×·¸±â ¶§¹®¿¡ ¿Ã¹Ù¸¥ ¼ø¹øÀ» ºÎ¿© ¹ÞÀ» ¼ö ¾øµµ·Ï µË´Ï´Ù.
3. ÇöÀç ÷ºÎÇϽŠ¿ø¹®¿¡ ÀÛ¼ºµÈ ÄÚµåÁß¿¡ If WorksheetFunction.Countf(rngArea) > 0 Then ¿¡¼
¡¡ ·±Å¸ÀÓ ¿À·ù°¡ ¹ß»ýµÇ´Â °ÍÀº À߸øµÈ ¿öÅ©½ÃÆ® ÇÔ¼ö¸íÀ» »ç¿ëÇ߱⠶§¹®ÀÔ´Ï´Ù.
¡¡ Countf¸¦ ¼ýÀÚ°¡ ÀÛ¼ºµÈ ¼¿ÀÇ Çհ踦 ±¸ÇÏ´Â Count·Î ¼öÁ¤ÇÏ¼Å¾ß Çϸç, ÇöÀç Çջ꿵¿ªÀÌ C:C°¡
¡¡ ¾Æ´Ñ Range("¹øÈ£")·Î ÀâÇôÀֱ⶧¹®¿¡ CountA¸¦ »ç¿ëÇÏ½Ç ¼öµµ ÀÖÁö¸¸ ÇöÀç ÇØ´çÇÏ´Â Ç׸ñ¿¡
¡¡ Ç¥±âµÇ´Â µ¥ÀÌÅÍÀÇ Çü½ÄÀÌ ¼ýÀÚÀ̾î¾ß ÇϹǷΠCount¸¦ »ç¿ëÇϽô °ÍÀÌ ÁÁ½À´Ï´Ù.
4. Const strID As String = "¿¹ÀºÃ߸ð°ø¿ø" ¿¡¼ ÀϹݹ®ÀÚ °ª ´ë½Å Const¹®À» »ç¿ëÇϽô °ÍÀº
¡¡ ºóµµ¼ö°¡ ¸¹Àº °æ¿ì ´õ¿í È¿°úÀûÀ̸ç, ÁÁÀº ¿¹ ÀÔ´Ï´Ù. ¼öÁ¤¹®¿¡´Â º¸´Ù °£´ÜÇÏ°Ô Á¤¸®ÇÏ¿´½À´Ï´Ù.
5. ¼öÁ¤ÆÄÀÏ¿¡¼ Àüüº¸±â¸¦ ´©¸£½Å ÈÄ, ±âÁ¸¼ö·® °è»ê ¹öÆ°À» Ŭ¸¯ÇÏ¸é ¼øÂ÷ÀûÀÎ ¹øÈ£·Î »ý¼ºµÇÁö¸¸
¡¡ ºÐ¾ç´ã´ç¿¡¼ ÇÊÅ͸µ ÇϽŠÈÄ, Ŭ¸¯ÇÏ¸é ¿Ã¹Ù¸£°Ô ó¸®ÇÏÁö ¸øÇÏ´Â °ÍÀ» È®ÀÎÇÒ ¼ö ÀÖ½À´Ï´Ù.
¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡
¼öÁ¤¹®¿¡ »ó´ÜÀÇ ¿À·ù»çÇ×À» ¼öÁ¤ÇÏ¿´À¸¸ç, ¾Æ·¡´Â °ü·Ã ÀÛ¾÷»çÇ×ÀÔ´Ï´Ù.
¡ØÆÄ¿ö¿¢¼¿ ¿äû¼½Ä ÀÛ¾÷»çÇ×
¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡
1. Á¦°øÇص帰 ÆÄÀÏÀÇ ÄÚµå ¼öÁ¤¹®ÀÔ´Ï´Ù. [Art + F11À» ´©¸£½Ã¸é VBEâÀÌ È°¼ºÈ µË´Ï´Ù.]
¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡
Option Explicit
Sub Powerexcel_Numbering()
¡¡ Dim i As Integer
¡¡ Dim j As Integer
¡¡ Dim ctNum As Integer
¡¡ ctNum = WorksheetFunction.Count(Range("A:A"))
¡¡ Application.ScreenUpdating = False
¡¡ For i = 1 To Range("¹øÈ£").Count
¡¡ Application.Goto Reference:="R" & i + 3 & "C3"
¡¡ ActiveCell.ClearContents
¡¡ Next i
¡¡ MsgBox "ÀÛ¾÷ ´ë»ó ¿µ¿ªÀÇ ³»¿ëÀ» ¸ðµÎ Áö¿ü½À´Ï´Ù." _
¡¡ & Chr(13) & "ÀÌÁ¦ ¼ø¹øÀ» »õ·Î ¸Å±é´Ï´Ù.", vbInformation, "¿¹ÀºÃ߸ð°ø¿ø"
¡¡ For j = 4 To ctNum
¡¡ Application.Goto Reference:="R" & j & "C3"
¡¡ ¡¡ With ActiveCell
¡¡ ¡¡ ¡¡ If .RowHeight <> 0 Then
¡¡ ¡¡ ¡¡ ¡¡ .Value = WorksheetFunction.Count(Range("C:C")) + 1
¡¡ ¡¡ ¡¡ End If
¡¡ ¡¡ End With
¡¡ Next j
End sub
¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡
1. ¹üÀ§ÀÇ ¼ö¿Í ´ë»óÀÇ ¼ö, °á°úÀÇ ¼ö µîÀ» ¿öÅ©½ÃÆ® ÇÔ¼ö¸¦ »ç¿ëÇÏ¿© »êÃâÇÑ ÈÄ, ´Ù¾çÇÑ ¹æ¹ýÁß¿¡¼
¡¡ °¡Àå °£´ÜÇÏ°í ½±°Ô ÀÀ¿ëÇÒ ¼ö ÀÖ´Â ÇüÅ·ΠÀÛ¼ºÇÏ¿´½À´Ï´Ù.
2. È°¼º ¹× ºñÈ°¼ºÀ» °í·ÁÇÑ ÈÄ, °á°ú ¿µ¿ª¿¡¼ ¼øÂ÷ÀûÀÎ ºÎ¿©¸¦ ±âÁØÀ¸·ÎÇÏ¿© ¹üÀ§´ÜÀ§ÀÇ Ã³¸®º¸´Ù
¡¡ ¼¿(¿ä¼Ò)´ÜÀ§·Î ó¸®ÇÏ´Â ¹æ½ÄÀ» »ç¿ëÇÏ¿´½À´Ï´Ù. ºñÈ°¼º¿¡ ´ëÇÑ ±âÁØÀº RowÀÇ Hidden »óŸ¦
¡¡ ±âÁØÀ¸·Î ÀÛ¼ºÇÒ ¼öµµ ÀÖ½À´Ï´Ù.
3. °íÀ¯ÇÑ ¼¿ÁÖ¼Ò¸¦ ±âÁØÀ¸·Î Application.Goto Reference:="R" & i + 3 & "C3" ¿Í °°ÀÌ ÀÛ¼ºÇÏ¿©
¡¡ ³í¸®¿¡ ´ëÇÑ ºÎºÐÀ» Ãß°¡ÇÑ ÈÄ, ¼øȯ½ÃÄÑ ±âÁØ¿¡ ´ëÇÑ ¿¬¼Ó¼ºÀ» °¡Áú ¼ö ÀÖµµ·Ï ¹Ý¿µÇÏ¿´½À´Ï´Ù.
4. ¼öÁ¤ÆÄÀÏ¿¡¼ Àüüº¸±â¸¦ ´©¸£½Å ÈÄ, ºÐ¾ç´ã´ç¿¡¼ À̼ø½ÅÀ¸·Î ÇÊÅ͸µ ÇϽŠÈÄ, »õ·Î¿î ¼ö·® °è»ê
¡¡ ¹öÆ°À» Ŭ¸¯ÇÏ¸é ¼øÂ÷ÀûÀÎ ¹øÈ£·Î »ý¼ºµÇ´Â °ÍÀ» È®ÀÎÇÒ ¼ö ÀÖ½À´Ï´Ù.
¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡
ÀÌ¿¡ µû¸¥ ¸ÞÀÏÀ» ¹ß¼ÛÇÏ¿´½À´Ï´Ù.
¡ØÆÄ¿ö¿¢¼¿ ¿äû¼½Ä °ËÅä»çÇ×_2Â÷
¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡
1. ÇÁ·Î½ÃÀúÀÇ À̸§À» Áߺ¹ÇÏ¿© »ç¿ëÇÏ´Â °ÍÀº ÁÁÁö ¾Ê½À´Ï´Ù.
2. Äڵ带 ÀÛ¼ºÇÏ½Ç ¶§¿¡ ÁÖ¼®À» ´Þ¾Æ ³õÀ¸½Ã¸é µ¿ÀÛ ºÎºÐº°, ÀÛ¾÷ ¹üÁÖº° µîÀÇ È®ÀÎ ¹× ¼öÁ¤À» º¸´Ù
¡¡ ºü¸£°í Á¤È®ÇÏ°Ô ÇÒ ¼ö ÀÖ½À´Ï´Ù.
¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡
¡ØÆÄ¿ö¿¢¼¿ ¿äû¼½Ä Ãß°¡Á¤º¸
¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡
1. ÀÚ»ç¿ë ÇÁ·Î±×·¥À» Á¦ÀÛÇϽô °æ¿ì, ÀÏ´Ü °¢ °¢ÀÇ ½ÃÆ®¿Í ±¸¼º¿ä¼Ò¸¦ ÆľÇÇÏ´Â °ÍÀÌ Áß¿äÇÕ´Ï´Ù.
¡¡ Àü¹ÝÀûÀÎ ¼³°è°¡ ³¡³ª¸é ÀÛ¼º, ÀÔ·Â, °¢Á¾ ±â´ÉµéÀÇ Å¸ÀÔ°ú ÇÔ²² °¢ °¢ÀÇ ¿ä¼Ò¿Í ¿¬µ¿µÇ´Â ºÎºÐÀ»
¡¡ °í·ÁÇÏ¿© ¿î¿ë»çÇ׿¡ ¸Â°Ô Çϳª¾¿ Á¤¸®ÇÏ´Â °ÍÀÌ ÇÊ¿äÇÕ´Ï´Ù.
2. ÇÔ¼ö ¹× VBA¸¦ »ç¿ëÇϱâ ÀÌÀü¿¡ ¹®¼ÀÇ Ç¥ÁØȸ¦ °ËÅäÇϽô °ÍÀ» ±ÇÇÏ¿© µå¸³´Ï´Ù. ¿ÜÇâÀûÀÎ
¡¡ ºÎºÐ »Ó¸¸ÀÌ ¾Æ´Ï¶ó ³»ÀûÀÎ ¿¬°á, Áý°è µîÀÇ ±âÃÊÀÛ¾÷¿¡ Ç¥ÁØÈ´Â ¸Å¿ì Áß¿äÇÕ´Ï´Ù.
3. ƯÁ¤ÇÑ °ü¸®±âÁØÀ̳ª ÇØ´ç ±¸¼ºÀ» ¸¸Á·ÇÏ´Â ¹æ½ÄÀ¸·Î ¸ðµç ÀÛ¾÷ÀÌ ÀÌ·ç¾îÁöÁö ¾Ê´Â °æ¿ì,
¡¡ ¼¿À» º´ÇÕÇÏ´Â °ÍÀº ÁÁÁö ¾Ê½À´Ï´Ù. °í±ÞÇÊÅÍ, Á¤·Ä, ¹è¿¼ö½Ä µîÀ» »ç¿ëÇϱ⠺ñÈ¿À²ÀûÀ̸ç,
¡¡ ¿¹æÇâ º´ÇÕº¸´Ù Çà¹æÇâ º´ÇÕÀº ¾î´À ºÎºÐ¿¡¼ ¿Ã¹Ù¸£Áö ¸øÇÑ µ¿ÀÛÀ» ¼öÇàÇÏ´ÂÁö ÆľÇÇϱⰡ
¡¡ ¾î·Á¿î °æ¿ì°¡ ÀÖÀ¸¹Ç·Î Âü°íÇϽñ⠹ٶø´Ï´Ù.
4. UserformÀ̳ª Inputbox¸¦ ÀÌ¿ëÇÏ¿© ÀڷḦ ÀÔ·ÂÇÏ´Â ¹æ½ÄÀº Ç¥ÁØȸ¦ ¿Ï·áÇϽðí Ç׸ñÁ¤¸®°¡
¡¡ ¿Ï·áµÈ ÈÄ, ÁøÇàÇϽô °ÍÀÌ ÁÁ½À´Ï´Ù.¡¡
¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡
Ãß°¡·Î ¿øÇϽô »çÇ×À̳ª ¼½Ä°ü·Ã »çÇ×µéÀº ¾Æ·¡ ¿¬¶ôó·Î ¹®ÀÇÇÏ¿© ÁÖ½Ã¸é ¼º½É²¯ ´äº¯Çص帮°Ú½À´Ï´Ù. °¨»çÇÕ´Ï´Ù.
¡Ø °ü·Ã À̹ÌÁö