[¼ö°­±â°£] 2010. 11. 1 ~ 2011. 10. 31
½Åû¹®ÀÇ : À¥Å¸ÀÓ±³À°¼¾ÅÍ 02-3477-8300, ¿î¿µ°ü¸® : ¿ÀÇǽºÆ©ÅÍ 070-7098-2554

±³À°°úÁ¤ ³ªÀÇÇнÀ ¿ÀÇǽºÆÁ °Ë»ö ¹«·á°­ÁÂ
Home ·Î±×ÀΠȸ¿ø°¡ÀÔ °í°´¼¾ÅÍ »çÀÌÆ®¸Ê
¿ÀÇǽºÆ©ÅÍ ±â¾÷ASP¼­ºñ½º > ¹«·á°­ÁÂ
¿¢¼¿ 2000 µû¶óÇϱâ
Ȩ·¯´× ¿¢¼¿ 2000°­ÁÂ
À繫 ÇÔ¼ö °­ÁÂ
¿¢¼¿ 2002 »õ·Î¿î ±â´É
Ȳ±â¼º´ÔÀÇ VBA°­ÁÂ
°û½ÂÁÖ´ÔÀÇ VBAÀ̾߱â
Home > ¹«·á°­Á > ¿¢¼¿
¿¢¼¿, °û½ÂÁÖ´ÔÀÇ ¿ÀÆ©°ø±¸ÇÔ Á¦ÀÛÀ¸·Î ¹è¿öº¸´Â VBA À̾߱â, Excel

8. ¿¢¼¿ ¿É¼ÇÀÇ º¯°æ (2)

ÀÚ·á´Ù¿î·Îµå : ¿ÀÆ©°ø±¸ÇÔ008.xls 

¾È³çÇϼ¼¿ä ¿ÀÆ©°¡Á· ¿©·¯ºÐ!

¹ú½á Ãß¼®ÀÌ ´ÙÀ½ ÁÖÀÔ´Ï´Ù. À̹ø Ãß¼®Àº ÈÞÀÏÀÌ ±æ¾î ¿©´À Ãß¼®º¸´Ù ¹Ý°©±º¿ä. ¸ðµÎ ÁÁÀº Ãß¼®ÀÌ µÇ½Ã±æ ¹Ì¸® Àλçµå¸³´Ï´Ù. 

Áö³­ ÁÖ¸»¿¡´Â PC¸¦ Çϳª À常ÇÏ·Á°í ¼­Ãʵ¿ÀÇ ±¹Á¦ÀüÀÚ½ëÅ͸¦ ´Ù³à¿Ô½À´Ï´Ù. ¿ë»êÀ̳ª Å×Å©³ë¸¶Æ® µîÀ» Á¦ÃÄµÎ°í °Å±æ °¡´Â ÀÌÀ¯´Â »ç¶÷ÀÌ Àû±â ¶§¹®¿¡ õõÈ÷ ´Ù¸®Ç° ÆÈ¸ç ¿©À¯ÀÖ°Ô ±¸°æÇÒ ¼ö Àֱ⠶§¹®ÀÌÁÒ. ±×¸®°í °Å±â¿£ ´Ü°ñ°¡°Ô°¡ ÀÖ½À´Ï´Ù. PC°¡°ÝÀÌ ´Ù¸¥ °÷¿¡ ºñÇØ ½Ñ °ÍÀÎÁö ¾Æ´ÑÁö ¸ð¸£°ÚÁö¸¸ ¸î ¹ø PC¸¦ ÁÖ¹®Çغ¸´Ï PC°¡ ¾ÈÁ¤ÀûÀ̶ó ¹Ï°í ¸Ã±âÁÒ. ¶Ç 9Ãþ¿¡´Â ¿¹¿ø¼­Á¡À̶ó´Â °÷ÀÌ Àִµ¥ ¿Â¶óÀÎ »Ó¸¸ ¾Æ´Ï¶ó Á÷Á¢ ã¾Æ°¡¼­ »çµµ Ã¥°ªÀ» ±ï¾Æ Áֱ⠶§¹®¿¡ ÀúÀÇ ´Ü°ñÄÚ½ºÀÌÁÒ. Àá½Ã ¾ê±â°¡ µý °÷À¸·Î »ü±º¿ä! 

°Å±â¿¡¼­ PCÄ«¸Þ¶ó¸¦ µÎ °³ »ò½À´Ï´Ù. Çϳª´Â Á¦°¡ ¾²°í ³ª¸ÓÁö´Â ºÐ´ç¿¡ ¼³Ä¡ÇÏ¿© ºÎ¸ð´Ô°ú ¾ó±¼º¸¸ç ¾ê±â¸¦ Çغ¼·Á±¸¿ä. ÀÌ°Ô Àß µÉ·ÃÁö ¸ð¸£°Ú½À´Ï´Ù. Áö¹æ¿¡ ºÎ¸ð´ÔÀÌ °è½Å ºÐµéÀº ¿©°ÇÀÌ Çã¶ôµÈ´Ù¸é À̹ø Ãß¼®¿¡ ³»·Á°¡¼Å¼­ ÀÌ·± °É Çѹø Çغ¸½Ã´Â °ÍÀÌ ¾î¶³·ÃÁö¡¦ 

¿À´ÃÀº Áö³­ ¹ø ¿¢¼¿ÀÇ ¿É¼Ç´ëÈ­»óÀÚ¿¡¼­ Á¶Á¤ÇÒ ¼ö ÀÖ´Â ¿É¼ÇÁß [Çà&¿­¸Ó¸®±Û]°ú [R1C1ÂüÁ¶À¯Çü] ¿É¼ÇÀ» ÇÁ·Î±×·¡¹ÖÀ¸·Î ´Ù·ê ¼ö ÀÖ´Â Äڵ带 ¸ÕÀú ¼Ò°³ÇÏ°Ú½À´Ï´Ù. »ç½Ç ¿É¼Ç¸¸ ´Ù¸¦ »ÓÀÌÁö Áö³­ ¹øÀÇ [¼¿±¸ºÐ¼±]¿É¼ÇÀ» ´Ù·ç´Â °Í°ú ´Ù¸¥ °Ô ¾ø¾î Å« ¼³¸íÀ» µé¸± °ÍÀº ¾ø½À´Ï´Ù.

Çà¿­¸Ó¸®±ÛÀ̶õ ½ÃÆ®ÀÇ ¿­°ú Çà¿¡¼­ A,B,C,D,¡¦ 1,2,3,4,¡¦µîÀ¸·Î Ç¥½ÃµÈ °÷À» ¸»ÇÕ´Ï´Ù. °æ¿ì¿¡ µû¶ó¼­´Â ´õ ¸¹Àº ¼¿À» º¸±â À§ÇØ ÀÌ°É °¨Ã߰ųª ÀÚ½ÅÀÇ ÇÁ·Î±×·¥À» ¸¸µé¶§ ¹Ì°ü»ó º¸±â½È°Å³ª ÇÁ·Î±×·¥»ó ÇÊ¿äÇÑ ºÎºÐÀ» »ç¿ëÀÚ°¡ ÇàÀ̳ª ¿­¸Ó¸®±ÛÀ» ¼±ÅÃÇÏ°í Áö¿ïÁö ¾ÊÀ»±î ½Í¾î Çà¿­¸Ó¸®±ÛÀ» ¼û±â±âµµ ÇÕ´Ï´Ù(±×·¡µµ ¸·À» ¼ö´Â ¾ø°ÚÁö¸¸)

ActiveWindow.DisplayHeadings
Application.ReferenceStyle

À§¿¡¼­ º¸½Ã´Ù½ÃÇÇ DisplayHeadings¶ó´Â ¼Ó¼ºÀº ¿öÅ©½ÃÆ®¿¡ ¼ÓÇÏ´Â ¼Ó¼ºÀÌ ¾Æ´Õ´Ï´Ù. ÇöÀçâÀ» °¡¸®Å°´Â ActiveWindow°³Ã¼¿¡ ¼ÓÇÏ´Â °ÍÀÔ´Ï´Ù. Áö³­ ½Ã°£¿¡ ¼³¸íµå¸° DisplayGridlines ¿ª½Ã ActiveWindow°³Ã¼ ¼Ò¼ÓÀÔ´Ï´Ù. ÀÌ·¯ÇÑ ¼Ó¼ºÀ» º¸¸é ¿öÅ©½ÃÆ®´Â Ãß»óÀûÀÎ °ÍÀÔ´Ï´Ù. Á¸ÀçÇÏÁö¸¸ ´«¿¡ º¸ÀÌÁö ¾Ê´Â °ÍÀÔ´Ï´Ù. ´Ù¸¸ ÀÌ°ÉÀ» º¸·Á¸é ActiveWindow°³Ã¼¸¦ ÅëÇؼ­ º¸´Â °ÍÀ̸ç Ç¥½ÃÇÏ´Â ¹æ¹ý ¿ª½Ã ActiveWindow°³Ã¼ÀÇ ¼Ó¼º¿¡ µû¸£´Â °ÍÀÔ´Ï´Ù. ±×¸²À» ÅëÇØ ¼³¸íµå¸®ÀÚ¸é ÀÌ·±°ÅÁÒ.

À§ÀÇ ±×¸²À» º¸½Ã¸é ¿À¸¥ÂÊÀÇ ÇϳªÀÇ ¿öÅ©ºÏÀÇ "Sheet1"À̶ó´Â ¿öÅ©½ÃÆ®¸¦ µÎ °¡ÁöÀÇ ¹æ¹ýÀ¸·Î º¸°í ÀÖ½À´Ï´Ù. ÇϳªÀÇ Çà¿­¸Ó¸®±Û°ú ¼¿±¸ºÐ¼±À» °¡Áö°í ÀÖÀ¸¸ç ³ª¸ÓÁö Çϳª´Â Çà¿­¸Ó¸®±Û°ú ¼¿±¸ºÐ¼±À» ¼û±â°í ÀÖ½À´Ï´Ù. µ¿ÀÏÇÑ ÀÚ·á( "1", "2", "3" )¸¦ °¡Áö°í ÀÖÁö¸¸ âÀÇ Ç¥½Ã¹æ¹ýÀ» ´Þ¸®ÇÑ °ÍÀÔ´Ï´Ù. ±×·¯³ª ´ÙÀ½¿¡ ³ª¿À´Â ¼Ó¼ºÀÎ . ReferenceStyleÀº ActiveWindow °³Ã¼°¡ ¾Æ´Ñ Application °³Ã¼ÀÇ °ÍÀÔ´Ï´Ù. ÀÌ°ÍÀº ¼ö½Ä°è»ê°ú °ü·ÃµÈ °ÍÀÌ°í ¼ö½Ä°è»êÀÇ ÁÖü´Â ÅëÇÕ¹®¼­³ª ¿öÅ©½ÃÆ®°¡ ¾Æ´Ñ ¿¢¼¿ Áï Application °³Ã¼À̱⠶§¹®ÀÔ´Ï´Ù(ÀúÀÇ ÁÖ°üÀûÀÎ »ý°¢ÀÔ´Ï´Ù)

Çà¿­ ¸Ó¸®±Û
Public Sub ShowHideHeading()
     Dim cmdBtn As CommandBarButton
     Dim cmdbarPopup As CommandBarPopup

     ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings

     Set cmdbarPopup = Application.CommandBars("Worksheet Menu Bar") _
          .FindControl(Type:=msoControlPopup, Tag:=USER_TAG)
     Set cmdbarPopup = cmdbarPopup.Controls("Çà°ú ¿­")

     For Each cmdBtn In cmdbarPopup.Controls
          If cmdBtn.Caption = "Çà¿­¸Ó¸®±Û" Then
               If ActiveWindow.DisplayHeadings Then
                    cmdBtn.State = msoButtonDown
               Else
                    cmdBtn.State = msoButtonUp
               End If
               Exit For
         End If
     Next
     Set cmdBtn = Nothing
     Set cmdbarPopup = Nothing
End Sub

R1C1ÂüÁ¶À¯ÇüÀ̶õ ¼¿ÁÖ¼ÒÇ¥±â¹æ½ÄÀ» ÀǹÌÇÕ´Ï´Ù. ÈçÈ÷ º¼ ¼ö ÀÖ´Â $A$1°°Àº °ÍÀ»A1ÂüÁ¶¶ó°í ÇÏ°í R8C3°°Àº °ÍÀ» R1C1ÂüÁ¶¶ó°í ÇÕ´Ï´Ù. ÇÁ·Î±×·¡¹ÖÇÒ¶§ Cell(¡¦)À» ÀÚÁÖ »ç¿ëÇÏ´Â °æ¿ì H¿­ÀÌ ¸î¹ø°Àΰ¡ ÀÏÀÏÀÌ ¼¼¾îº¸°ï ÇÕ´Ï´Ù. ±×·¡¼­ R1C1ÂüÁ¶À¯ÇüÀ¸·Î Ç¥½ÃÇϱ⵵ ÇÕ´Ï´Ù. 

R1C1ÂüÁ¶À¯Çü
Public Sub R1C1Reference()
     Dim cmdBtn As CommandBarButton
     Dim cmdbarPopup As CommandBarPopup

     Application.ReferenceStyle = IIf(Application.ReferenceStyle = xlR1C1,
     xlA1, xlR1C1)


     Set cmdbarPopup = Application.CommandBars("Worksheet Menu Bar") _
          .FindControl(Type:=msoControlPopup, Tag:=USER_TAG)
     Set cmdbarPopup = cmdbarPopup.Controls("Çà°ú ¿­")

     For Each cmdBtn In cmdbarPopup.Controls
          If cmdBtn.Caption = "R1C1ÂüÁ¶À¯Çü" Then
               If Application.ReferenceStyle = xlR1C1 Then
                    cmdBtn.State = msoButtonDown
               Else
                    cmdBtn.State = msoButtonUp
               End If
               Exit For
          End If
     Next
     Set cmdBtn = Nothing
     Set cmdbarPopup = Nothing
End Sub

ÀÌÁ¦´Â À̸§À» »èÁ¦ÇÏ´Â ±â´ÉÀ» »ìÆ캸µµ·Ï ÇÏ°Ú½À´Ï´Ù. ¿©±â¼­ ¸»ÇÏ´Â À̸§À̶õ ¼¿¹üÀ§¸¦ ÂüÁ¶Çϱâ À§ÇØ ÁÖ¼Ò ´ë½Å »ç¿ëÀÚ°¡ ÁöÁ¤ÇÑ À̸§À» ¸»ÇÏ´Â °ÍÀÔ´Ï´Ù. ¿ì¸®°¡ ¸¸µé·Á´Â À̸§ »èÁ¦±â´ÉÀº ÅëÇÕ¹®¼­³» À̸§À» Áö¿ì´Â °ÍÀÔ´Ï´Ù. ¸ÕÀú À̸§ÀÌ ¾î¶»°Ô ¸¸µé¾î Áö°í ¾î¶»°Ô »èÁ¦µÇ´Â °¡¸¦ ¸ÅÅ©·Î±â·Ï±â¸¦ ÅëÇØ ¾Ë¾Æº¸°Ú½À´Ï´Ù.

¸ÅÅ©·Î±â·Ï±â·Î ¸¸µç À̸§Á¤ÀÇ¿Í À̸§»èÁ¦ ¸ÅÅ©·Î
Sub ¸ÅÅ©·Î5()
'
' ¸ÅÅ©·Î5 Macro
' ½ÂÁÖÀÌ(°¡) 01-09-24¿¡ ±â·ÏÇÑ ¸ÅÅ©·Î
'

' À̸§Á¤ÀÇ ¸ÅÅ©·Î
     ActiveWorkbook.Names.Add Name:="¿ÀÇǽºÆ©Å͵µ±¸", RefersToR1C1:="=Sheet1!R2C3"
' À̸§»èÁ¦ ¸ÅÅ©·Î
     ActiveWorkbook.Names("¿ÀÇǽºÆ©Å͵µ±¸").Delete
End Sub

ÀÏ´Ü À§ÀÇ Äڵ忡¼­ º¸µíÀÌ À̸§À» °¡¸®Å°´Â °ÍÀº Names¶ó´Â °³Ã¼°¡ »ç¿ëµÈ °ÍÀ» º¼ ¼ö ÀÖÀ¸¸ç ÀÌ°ÍÀº ÅëÇÕ¹®¼­( Workbook )ÀÇ °³Ã¼ÀÔ´Ï´Ù. NameÀ» Ãß°¡ÇÏ´Â ¸Þ¼Òµå´Â .AddÀÔ´Ï´Ù. ±×¸®°í NameÀ» Çϳª ¸¸µé ¶§ ÇÊ¿äÇÑ Á¤º¸°¡ 2°³ ÀÖ½À´Ï´Ù. Çϳª´Â NameÀÇ À̸§ÀÌ°í ³ª¸ÓÁö´Â ¾î¶² ¿µ¿ªÀ» À̸§À¸·Î ÁöÁ¤ÇÒ °ÍÀΰ¡ ÀÔ´Ï´Ù. ±×·¡¼­ .Add¸Þ¼Òµå¸¦ º¸¸é Name Àμö¿Í RefersToR1C1¶ó´Â Àμö¸¦ ÁöÁ¤ÇØ¾ß ÇÕ´Ï´Ù. ±×·¯³ª ÀÌ°ÍÀº Çϳª ÇϳªÀÇ ¼¿ ¿µ¿ª¿¡ À̸§À» °¢°¢ ÁöÁ¤ÇÏ´Â °æ¿ìÀÔ´Ï´Ù. ¿¢¼¿ÀÇ À̸§¸Þ´º¿¡¼­ º¸¸é ¼±ÅÃÇÑ ¿µ¿ªÀÇ °¢ ¼¿¿¡ À̸§À» Çѹø¿¡ À̸§À» ÁöÁ¤ÇÏ´Â [ÀÛ¼º]¸Þ´º¸í·ÉÀÌ ÀÖ½À´Ï´Ù. ÀÌ°ÍÀ» ¸ÅÅ©·Î±â·Ï±â·Î »ìÆ캸µµ·Ï ÇÏÁÒ.

[»ðÀÔ]-[À̸§]-[ÀÛ¼º]¸í·ÉÀ¸·Î À̸§À» ÀÛ¼ºÇÏ´Â °æ¿ì ±â·ÏÇÑ ¸ÅÅ©·Î
Sub ¸ÅÅ©·Î6()
'
' ¸ÅÅ©·Î6 Macro
' ½ÂÁÖÀÌ(°¡) 01-09-25¿¡ ±â·ÏÇÑ ¸ÅÅ©·Î
'

'
     Range("B3:C10").Select
     Selection.CreateNames Top:=False, Left:=True, Bottom:=False, Right:= _
          False
End Sub

À§ÀÇ ¸ÅÅ©·Î´Â "B3:C10"¿µ¿ªÀ» ¼±ÅÃÇÏ°í Selection°³Ã¼ÀÇ .CreateNames ¸Þ¼Òµå¸¦ »ç¿ëÇÏ°í ÀÖ½À´Ï´Ù. ¼±Åÿµ¿ªÀÇ ¿ÞÂÊ(B¿­)À» À̸§À¸·Î, ¿À¸¥ÂÊ(C¿­)À» ÂüÁ¶¿µ¿ªÀ¸·Î »ç¿ëÇÏ´Â °ÍÀÌÁÒ

±×·¯¸é ÅëÇÕ¹®¼­ÀÇ À̸§À» Áö¿ì´Â Äڵ带 »ìÆ캸ÁÒ

ÅëÇÕ¹®¼­ÀÇ À̸§À» Áö¿ì´Â ÄÚµå
Sub DeleteNames()
     Dim nmeUser As Name

     For Each nmeUser In ActiveWorkbook.Names
          nmeUser.Delete
     Next
End Sub

»ý°¢º¸´Ù °£´ÜÇÕ´Ï´Ù. Naem°³Ã¼º¯¼ö¸¦ ¸¸µé°í NamesÄ÷º¼ÇÀ» For Each~Next·çÇÁ¸¦ µ¹¸é¼­ .Delete ¸Þ¼Òµå¸¦ »ç¿ëÇÏ°í ÀÖ½À´Ï´Ù. ¹°·Ð ÀÛ¾÷´ë»óÀº ActiveWorkbookÀÔ´Ï´Ù. 

¿À´ÃÀº ¿©±â±îÁöÀÔ´Ï´Ù. Áñ°Å¿î Ãß¼®À» º¸³»½Ã±â ¹Ù¶ø´Ï´Ù. 

¡¡

¸ñÂ÷ | ÀÌÀü | ´ÙÀ½

¡¡

¿ÀÇǽºÆ©ÅÍ ±â¾÷ASP¼­ºñ½º 135-880 ¼­¿ï½Ã °­³²±¸ »ï¼ºµ¿ 157-3 ¿¤ÁöÆ®À©ÅÚ 2Â÷ 1603È£ ¢Ï070-7098-2554
Copyright ¨Ï 1999-2008 Officetutor.com All rights reserved
¡¡