Exceller Home > VBA °­ÁÂ > VBA ÀÔ¹®°­ÁÂ

Exceller's VBA ÀÔ¹®°­ÁÂ

ÃÖÃÊ ÀÛ¼ºÀÏ : 2004-12-10
ÃÖÁ¾ ¼öÁ¤ÀÏ : 2004-12-10
ÀÛ¼ºÀÚ : Exceller (±ÇÇö¿í, exceller@amorepacific.com)

°­Á ÀÐÀ½¼ö : 41,256ȸ

°­Á Á¦¸ñ : ·¹ÀÎÁö ¿ÀºêÁ§Æ® - CurrentRegion, UsedRange ¼Ó¼º

Àè ´ÏŬ¶ó¿ì½º´Â ÀÌ·± ¸»À» Çß´Ù°í ÇÕ´Ï´Ù.

"³ª´Â °ñÇÁ ½ÃÇÕÀ» ÇÒ ¶§¸¶´Ù Ç×»ó ¸Ó¸´¼Ó¿¡´Ù Á¤È®ÇÑ ±×¸²À» ±×¸°´Ù. ±×¸®°í ³ª´Â °øÀÌ ¸ØÃç¾ß ÇÒ ÁöÁ¡À» ¹Ù¶ó´Ù º» ÈÄ ±×°÷À¸·Î ³¯¾Æ°¥ °øÀÇ Åºµµ¿Í ÂøÁöÁ¡À» ¹Ù¶óº»´Ù. ±× ´ÙÀ½¿¡¾ß ³ª´Â ³»°¡ ±×¸° À̹ÌÁö¸¦ ½ÇÁ¦ »óȲÀ¸·Î ¹Ù²Ù¾î ÁÙ ½ºÀ®À» ÇÒ ¼ö ÀÖ´Ù."

ÀÚ½ÅÀÌ ¿øÇÏ´Â °Í(ȤÀº µÇ°íÀÚ ÇÏ´Â »ç¶÷)ÀÌ ÀÖ´Ù¸é ÀÌ¹Ì ±×°ÍÀ» °¡Áö°í Àְųª µÇ¾î ÀÖ´Ù°í »ó»óÇÑ ÈÄ ±×·± ÀÚ½ÅÀÌ ¾î¶»°Ô ´À³¢°í ÀÖ´ÂÁö Çö½Çó·³ ¶Ç·ÇÀÌ »ó»óÇØ º¸´Â °ÍÀÌ Áß¿äÇÏ´Ù°í ÇÕ´Ï´Ù.

¹ú½á 12¿ù Áß¼øÀÔ´Ï´Ù. ¿Ã ÇÑÇØ ¸¶¹«¸®µµ ¹°·Ð Áß¿äÇÕ´Ï´Ù¸¸ ³»³âµµ °èȹÀ» ¼¼¿ö¾ß ÇÒ ½Ã±âÀÔ´Ï´Ù. ³»³â ¿¬¸»¿¡ ÀÚ½ÅÀÌ ÀÌ·ç°íÀÚ ÇÏ´Â °ÍÀÌ ¹«¾ùÀÎÁö ¸ñÇ¥¸¦ Á¤ÇÑ ´ÙÀ½ ±×°ÍÀ» ÀÌ¹Ì ÀÌ·ç¾ú´Ù°í »ó»óÇØ º¸´Â ÈÆ·ÃÀ» ½ÃÀÛÇÒ ¶§ ÀÔ´Ï´Ù. ´Ã ÀÌ·çÁö ¸øÇÑ °Í¿¡ ´ëÇØ ÈÄȸÇÒ °ÍÀÌ ¾Æ´Ï¶ó...


VBA ÀÔ¹®°­Á : Áß¿äÇÑ ¿ÀºêÁ§Æ® ¸î °¡Áö


°¡. ¿öÅ©ºÏ ¿ÀºêÁ§Æ®(Workbook Object)

³ª. ¿öÅ©½ÃÆ® ¿ÀºêÁ§Æ®(Worksheet Object)

´Ù. ·¹ÀÎÁö ¿ÀºêÁ§Æ®(Range Object)


¿¢¼¿¿¡´Â ¿©·¯ ¿ÀºêÁ§Æ®°¡ ÀÖ°í, ¹«¾ù Çϳª ¾È Áß¿äÇÑ °ÍÀÌ ¾ø½À´Ï´Ù¸¸, ÇÁ·Î±×·¡¹ÖÀ» ÇÒ ¶§ °¡Àå Ȱ¿ëµµ°¡ ³ôÀº ¿ÀºêÁ§Æ®´Â °ú¿¬ ¹«¾ùÀϱî~¿ä? ¸Â½À´Ï´Ù! Range ¿ÀºêÁ§Æ® ÀÔ´Ï´Ù. À̹ø ½Ã°£¿¡´Â Range ¿ÀºêÁ§Æ®¸¦ »ý¼ºÇÏ´Â ¹æ¹ý Áß CurrentRegion°ú UsedRange ¼Ó¼º¿¡ ´ëÇØ »ìÆìº¸°Ú½À´Ï´Ù.


CurrentRegion ¼Ó¼º

CurrentRegionÀ̶õ '¼¿ Æ÷ÀÎÅͰ¡ ³õ¿© ÀÖ´Â À§Ä¡¸¦ Áß½ÉÀ¸·Î ÇÏ¿© ºó Çà°ú ºó ¿­·Î µÑ·¯½ÎÀÎ ¿µ¿ª'À» ÀǹÌÇÕ´Ï´Ù. Á» ´Ù¸£°Ô Ç¥ÇöÇÏÀÚ¸é, 'ÇöÀç ¼±ÅÃµÈ ¼¿À» Áß½ÉÀ¸·Î »óÇÏÁÂ¿ì ¹æÇâÀ¸·Î ÀÎÁ¢ÇØ ÀÖ´Â ¿µ¿ª'À» ¸»ÇÕ´Ï´Ù. ¸Õ ¼Ò¸°°¡ ÇÏ´Â ºÐµéÀ» À§ÇØ... ´ÙÀ½ ±×¸²À» º¸¼¼¿ä.

¼¿ Æ÷ÀÎÅͰ¡ A1 ¼¿¿¡ À§Ä¡Çϰí ÀÖ½À´Ï´Ù. ÀÌ °æ¿ì CurrentRegion, Áï ÇöÀç ¿µ¿ªÀº ¾îµð°¡ µÉ±î¿ä? À§Âʰú ¿ÞÂÊÀ¸·Î´Â ´õ ÀÌ»ó °¥ °÷ÀÌ ¾ø°í, ¿À¸¥Âʰú ¾Æ·¡ÂÊ ¹æÇâÀ¸·Î ºó Çà°ú ºó ¿­ÀÌ ³ª¿Ã ¶§±îÁö ÁÖ¿í µû¶ó°¡ º¸¸é... G¿­ ±×¸®°í 8ÇàÀ» ¸¸³ª°Ô µË´Ï´Ù. µû¶ó¼­ A1 ¼¿ÀÇ CurrentRegionÀº ºó Çà/¿­À» ¸¸³ª±â ¹Ù·Î Àü±îÁöÀÇ ¿µ¿ªÀÎ A1:F7 ¿µ¿ªÀÌ µÇ´Â °ÍÀÔ´Ï´Ù.

ƯÁ¤ ¼¿¿¡ ´ëÇÑ ÇöÀç ¿µ¿ªÀ» ¼±ÅÃÇÏ·Á¸é ´ÙÀ½°ú °°ÀÌ Ç¥ÇöÇÏ¸é µË´Ï´Ù.

Sub CurrentRegion_Property()
    Range("A1").CurrentRegion.Select
End Sub

ÀÌ ¶§ Range("A1") ºÎºÐÀº ±»ÀÌ A1 ¼¿ÀÌ ¾Æ´Ï´õ¶óµµ »ó°ü ¾ø½À´Ï´Ù. Å×ÀÌºí ³»ºÎÀÇ ¾Æ¹« ¼¿À̳ª ÁöÁ¤ÇÏ¸é µË´Ï´Ù. ±×³É ÇöÀç ¿µ¿ª¸¸ ´ú·· ¼±ÅÃÇÏ´Â ¿¹Á¦´Â º°·Î Àç¹Ì°¡ ¾øÀ¸´Ï±î ÇöÀç ¿µ¿ªÀÇ ¿Ü°û¿¡ ½Ç¼±À» ±×·Áº¸¸é Àç¹Ì°¡ ÀÖÀ»±î¿ä?

¸» ±×´ë·Î B3:E7 ¿µ¿ªÀÇ ¸ðµç Çàµé(±×·¯´Ï±î °á±¹Àº ÁöÁ¤ÇÑ ¿µ¿ª ³»ÀÇ ¸ðµç ¼¿µé)¿¡ 'Test' ¶ó´Â ¹®ÀÚ¿­À» ä¿ì°Ô µË´Ï´Ù. ¸¸¾à ƯÁ¤ÇÑ Çà Àüü¿¡ ¾î¶² °ªÀ» ÀÔ·ÂÇÏ·Á¸é ´ÙÀ½°ú °°ÀÌ Ç¥ÇöÇÕ´Ï´Ù.

Sub CurrentRegion_Property_2()
    Range("A1").CurrentRegion.BorderAround Weight:=xlMedium
End Sub

ÁöÁ¤ÇÑ ¹üÀ§¿¡ Å׵θ®¼±À» ±×¸± ¶§¿¡´Â BorderAround ¸Þ¼­µå¸¦ »ç¿ëÇÏ°í ¼±ÀÇ ±½±â´Â Weight Àμö¸¦ ÅëÇØ ÁöÁ¤ÇÕ´Ï´Ù. ¾Ñ! ÀÌ ½ÃÁ¡¿¡¼­ ÀÌ·± ź½ÄÀÌ ¾îµð¼±°¡ µé·Á¿À´Â µí ÇÕ´Ï´Ù.

'ÀÌ·± °ÍÀ» ¾î¶»°Ô ´Ù ¿Ü¿ö¼­ »ç¿ëÇÑ´Ü ¸»Àΰ¡?'

Àý´ë·Î ¸Ó¸® ½Î¸Å°í ¿Ü¿ï Çʿ䰡 ¾ø½À´Ï´Ù. ±×°ÍÀº ÀϺΠõÀçµéÀ̳ª ÇÒ ¹ýÇÑ Áþ(?)À̶ø´Ï´Ù. ¿ì¸®´Â ¸ÅÅ©·Î ±â·Ï±â¸¦ »ç¿ëÇÏ¿© ±¥¼±À» ±×¸®´Â °úÁ¤À» ±â·ÏÇÑ ´ÙÀ½, ÀÛ¼ºµÈ Äڵ带 º¸°í, '¾Æ, ÀÌ·± °æ¿ì¿¡´Â ÀÌ·± ¸Þ¼­µå³ª ¼Ó¼ºÀ» ±â·ÏÇÏ´Â ±º! ±×·¯´Ï±î ÀÌ ºÎºÐÀ» ÀÌ·¸°Ô, Àú ºÎºÐÀ» Àú·¸°Ô... °íÄ¡±â¸¸ ÇÏ¸é µÇ°Ú³×?' ÇÏ°í ´À³¢±â¸¸ ÇÏ¸é µË´Ï´Ù.

ÇöÀç ¿µ¿ª¿¡ ±¥¼±À» ±×¸®´Â °Íµµ ÇÏ°í º¸´Ï º°·Î Àç¹Ì°¡ ¾ø½À´Ï´Ù. ±×·¸´Ù¸é ÀÀ¿ë·ÂÀ» Á¶±Ý ¹ßÈÖÇØ¼­... Ç¥ÀÇ Å¸ÀÌÆ² ºÎºÐÀ» Á¦¿ÜÇÑ ¿µ¿ª¿¡¸¸ »ö»óÀ» ÁöÁ¤ÇÏ´Â °ÍÀ» ¸¸µé¾î º¼±î¿ä? ±×·¸°Ô ÇÏ·Á¸é CurrentRegion ¼Ó¼º ¿Ü¿¡µµ Offset, Resize ¼Ó¼º µîÀ» Á¶ÇÕÇØ¼­ »ç¿ëÇØ¾ß ÇÕ´Ï´Ù. ´ÙÀ½ Äڵ带 Àß º¸¼¼¿ä.

Sub CurrentRegion_Property_3()

¡¡

    Range("A1").CurrentRegion.Select

    MsgBox "ÇöÀç ¿µ¿ªÀ» ¼±ÅÃÇÏ¿´½À´Ï´Ù",,"www.iExceller.com"

¡¡

    Selection.Offset(0,1).Select

    MsgBox "ÇöÀç ¿µ¿ª Áß¿¡¼­ ŸÀÌÆ² ºÎºÐÀ» Á¦¿ÜÇÏ¿´½À´Ï´Ù",,"www.iExceller.com"

¡¡

    Selection.Resize(Selection.Rows.Count - 1, Selection.Columns.Count).Select

    MsgBox "ÀÌÁ¦ »öÄ¥À» ÇÕ´Ï´Ù.",, www.iExceller.com"

    Selection.Interior.ColorIndex = 44

¡¡

End Sub

À§ Äڵ带 ½ÇÇàÇÏ¸é ±×¸²°ú °°Àº °á°ú°¡ ³ªÅ¸³³´Ï´Ù. ÇѰá Àç¹ÌÀÖÁö¿ä? ^^


UsedRange ¼Ó¼º

CurrentRegion ¼Ó¼ºÀ» »ç¿ëÇÏ¸é Æ¯Á¤ÇÑ ¼¿¿¡ ÀÎÁ¢ÇØ ÀÖ´Â ¿µ¿ªÀ» ±¸ÇÒ ¼ö´Â ÀÖ½À´Ï´Ù¸¸, ¶³¾îÁ® ÀÖ´Â ¿µ¿ª¿¡ ´ëÇØ¼­´Â Á¢±ÙÇÒ ¼ö ¾ø½À´Ï´Ù. ´ÙÀ½°ú °°ÀÌ ¶³¾îÁ® ÀÖ´Â ¿µ¿ªÀ» Æ÷ÇÔÇÏ¿© '¿öÅ©½ÃÆ® Áß¿¡¼­ »ç¿ëµÈ ¸ðµç ¿µ¿ª'À» ¼±ÅÃÇÏ·Á¸é UsedRange ¼Ó¼ºÀ» ÀÌ¿ëÇÏ¸é µË´Ï´Ù. ¿©±â¼­ ÇÑ °¡Áö À¯ÀÇÇÒ Á¡! ¾Õ¿¡¼­ ¼³¸íµå¸° CurrentRegion ¼Ó¼ºÀº Range ¿ÀºêÁ§Æ®ÀÇ ¶Ê¸¶´Ï ¼Ó¼ºÀε¥ ºñÇØ UsedRange ¼Ó¼ºÀº Worksheet ¿ÀºêÁ§Æ®¿¡ µþ¸° ¼Ó¼ºÀÎ Á¡¿¡ ÁÖÀÇÇϽñ⠹ٶø´Ï´Ù. Áï, Range("A1:E100").Select ¿Í °°Àº ÇüÅ·δ »ç¿ëÇÒ ¼ö ¾ø´Ù´Â ¾ê±âÀÔ´Ï´Ù.

Sub UsedRange_Property()
    ActiveSheet.UsedRange.Select

    MsgBox "ÇöÀç ½ÃÆ®ÀÇ UsedRange´Â " & Selection.Address & "ÀÔ´Ï´Ù."
End Sub
¡¡

À§¿¡¼­ ¼Ò°³ÇØ µå¸° ÄÚµåµéÀº ÀÛ¾÷ÀÇ ÁøÇà »óȲÀ» ½Ã°¢ÀûÀ¸·Î º¸¿©µå¸®±â À§ÇØ ºÒÇÊ¿äÇÑ ±¸¹®µéÀÌ ´Ù¼Ò µé¾î ÀÖ½À´Ï´Ù. ½ÇÁ¦ ÇÁ·Î±×·¡¹Ö¿¡¼­ ÀÌ·¸°Ô Çß´Ù°¡´Â Àç¶³ÀÌ ³¯¾Æ¿Ã ¼ö ÀÖÀ¸´Ï±î ±âº»ÀûÀÎ ¿ø¸®¸¦ ÆÄ¾ÇÇϽŠ´ÙÀ½, Äڵ带 ÃÖÀûÈ­ ÇØ º¸½Ã±â ¹Ù¶ø´Ï´Ù.

´ÙÀ½ ½Ã°£¿¡ ¶Ç...


Previous

Next

Creative Commons License