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