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

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

7. ¿¢¼¿ ¿É¼ÇÀÇ º¯°æ (1)

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

¾È³çÇϼ¼¿ä, ¹ú½á Áö³­ ÁÖ¿¡ ±ÛÀ» ¿Ã·È´Âµ¥ ±Ý»õ ±ÛÀ» ¿Ã¸± Â÷·Ê°¡ µÇ¾ú±º¿ä. 

¿äÁò ½Å¹®À» º¸´Ï ¸Þ¸ð¸®°¡°Ýµµ ¸¹ÀÌ ¶³¾îÁö°í Pentium4°¡°ÝÀÌ ¸¹ÀÌ ³»·Á°¡ ±¸ÀÔÇÒ ±âȸ¶ó°í ÇÏ´õ±º¿ä. Àú´Â PC¸¦ 3´ë, ³ëÆ®ºÏ1´ë¸¦ °¡Áö°í ÀÖ½À´Ï´Ù. ÀÌ·± ¼Ò¸®¸¦ ÇÏ¸é ³²µéÀÌ ºÎÀÚÀÎÁÙ ¾Ð´Ï´Ù. ±×·¯³ª Pentium60, Pentium133, Pentium166, Pentium133³ëÆ®ºÏÀÔ´Ï´Ù. ±× Áß¿¡ 2´ë´Â Ä£±¸µéÀÌ ¾÷±×·¹À̵åÇϸ鼭 Á¦°Ô ÁØ °ÍÀÔ´Ï´Ù. 

ÀÌ·¸°Ô °í¹°µéÀ» ¸ð¾ÆµÐ °ÍÀº ³×Æ®¿öÅ©·Î ¿¬°áÇÏ´Â °øºÎ¸¦ ÇÏ°íÀÚ ÇÏ´Â °ÍÀε¥ ÁýÀÌ Á¼¾Æ ¾ÆÁ÷ µÎ´ë ¹Û¿¡ ¿¬°á ¸øÇÏ°í ÀÖÁÒ. ³×Æ®¿öÅ©·Î ¿¬°áµÇ¸é °í¹°À̶ó°í Çصµ ¾µ¸ð°¡ ÀÖ½À´Ï´Ù. ÆÄÀϼ­¹ö, ÇÁ¸°Æ®¼­¹ö, Æѽº¼­¹ö·Î È°¿ëÇÏ¸é ºñ½Ñ Àåºñ¸¦ »çÁö ¾Ê¾Æµµ µË´Ï´Ù. ´õ¿íÀÌ ÃÖ±Ù¿¡´Â "¸®¶ó"¸¦ ¸¸µé ¼ö ÀÖ½À´Ï´Ù. "¸®¶ó"°¡ ¹¹³Ä±¸¿ä? ¸®´ª½º¶ó¿ìÅÍÀÇ ÁÙÀÓ¸»ÀÌÁÒ. 486Á¤µµÀÇ PC¿¡ ¸®´ª½º¸¦ ¼³Ä¡ÇÏ¿© ¶ó¿ìÅÍ´ë¿ëÀ¸·Î »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù. ±×·¯¹Ç·Î ¾÷±×·¹À̵带 Çϸ鼭 ¿¹Àü PC¸¦ ¹ö¸®Áö ¸¶½Ã°í ÀÌ·±Àú·± ¿ëµµ·Î »ç¿ëÇغ¸½Ã±æ¡¦ 

¿À´ÃÀº °£´ÜÇÏ°Ô ¿É¼Ç ´ëÈ­ »óÀÚÀÇ ³»¿ë ÀϺθ¦ ¸ÅÅ©·Î·Î »ìÆ캸±â·Î ÇÏ°Ú½À´Ï´Ù. ¸ðµç °É ´Ù·çÀÚ´Ï ¾î·Á¿î °Íµµ ¾Æ´Ñ °ÍÀÌ ³Ê¹« ±æ¾î¼­ [¿É¼Ç]´ëÈ­ »óÀÚÀÇ [È­¸éÇ¥½Ã]ÅÇ ÆäÀÌÁö¿¡¼­ [⠿ɼÇ]ºÎºÐ¸¸ »ìÆ캸µµ·Ï ÇÏ°Ú½À´Ï´Ù. 

»ç½Ç ÇÁ·Î±×·¡¹ÖÀ» ÇÒ °ÍÀº ¾ø½À´Ï´Ù. ¸ÅÅ©·Î ±â·Ï±â¸¦ ÄÑµÎ°í ¿É¼Ç´ëÈ­»óÀÚÀÇ ÀÌ·± Àú·± ¿É¼ÇÀ» ¸¸ÁöÀÛ °Å¸®¸é Äڵ尡 ¸¸µé¾î Áý´Ï´Ù. ±×¸®°í ¸¸µé¾îÁø Äڵ带 ¾à°£ ¼Õ¸¸ º¸¸é µÉ °Í´Ï´Ù. 

With ActiveWindow
     .DisplayFormulas = True
     .DisplayGridlines = True
     .GridlineColorIndex = 55
     .DisplayHeadings = False
     .DisplayOutline = False
     .DisplayZeros = False
     .DisplayHorizontalScrollBar = False
     .DisplayVerticalScrollBar = False
     .DisplayWorkbookTabs = False
End With

º¸½Ã´Ù½ÃÇÇ ÇöÀç âÀ» ³ªÅ¸³»´Â °³Ã¼´Â ActiveWindowÀÔ´Ï´Ù.
With ActiveWindow

     .DisplayFormulas = True

¼¿ ±¸ºÐ¼±°ú ±¸ºÐ¼±ÀÇ »ö»óÀ» ÁöÁ¤ÇÏ´Â ºÎºÐÀÌÁÒ. Á¾Á¾ ½ÃÆ®¸¦ ±ò²ûÇÏ°Ô ¸¸µå´À¶ó ÀÌ°É °¡²û ²¨µÓ´Ï´Ù.
     .DisplayGridlines = True
     .GridlineColorIndex = 55

Headings À̶õ ½ÃÆ®¿¡¼­ "Çà¿­ ¸Ó¸®±Û"À̶ó°íµµ ÇÕ´Ï´Ù. ¿­À̸§¿¡´Â A,B,C,D,E,F,G,¡¦ ÇàÀº 1,2,3,4,¡¦µîÀÌ ºÙ¾î Àִµ¥ ÀÌ°É º¸À̰ųª ¼û±â·Á´Â °æ¿ì »ç¿ëÇÕ´Ï´Ù.
     .DisplayHeadings = False

OutlineÀ̶õ "À±°û"À̶ó°í Çϴµ¥, ´ÙÀ½ ±×¸²°ú °°Àº À± °û¹öÆ°À» º¸±â°Å³ª ¼û±é´Ï´Ù.

     .DisplayOutline = False
¼¿¿¡ "0"À» º¸¿©ÁÙ °ÍÀÎÁö¸¦ °áÁ¤ÇÕ´Ï´Ù.
     .DisplayZeros = False

¼öÆò ½ºÅ©·Ñ¹Ù¿Í ¼öÁ÷ ½ºÅ©·Ñ¹Ù¸¦ º¸¿©Áְųª ¼û±ä´Ù.
     .DisplayHorizontalScrollBar = False
     .DisplayVerticalScrollBar = False

½ÃÆ®ÅÇÀ» º¸¿©Áְųª ¼û±é´Ï´Ù.
     .DisplayWorkbookTabs = False
End With

ÀÌÁ¦ ¼¿±¸ºÐ¼±À» º¸¿©Áְųª ¼û±â´Â ActiveWindow .DisplayGridlines¸¦ ¿ÀÆ©°ø±¸ÇÔ ¸Þ´º¿¡¼­ ´Ù·ç´Â ¹æ¹ýÀ» º¸ÀÏ Â÷·ÊÀÌ´Ù. [¿ÀÇǽºÆ©Å͵µ±¸] ¸Þ´ºÀÇ [¼¿°ú ¹üÀ§]¸¦ ¼±ÅÃÇÏ¸é ´ÙÀ½°ú °°Àº ¸Þ´º°¡ º¸ÀÏ °ÍÀÔ´Ï´Ù.

À§ÀÇ ¸Þ´º¿¡¼­ [¼¿±¸ºÐ¼±]À» Ŭ¸¯ÇÒ ¶§ ¸¶´Ù ±¸ºÐ¼±À» º¸À̰ųª ¼û±â·Á¸é ´ÙÀ½°ú °°Àº Äڵ带 ÀÛ¼ºÇÕ´Ï´Ù.

     If ActiveWindow.DisplayGridlines=TRUE Then
          ActiveWindow.DisplayGridlines=FALSE
     Else
          ActiveWindow.DisplayGridlines=TRUE
     End If

±×·¯³ª ÀÌ Á¤µµ´Â Ãʺ¸¼öÁØÀÌ´Ù. IIf()ÇÔ¼ö¸¦ »ç¿ëÇÏ¿© ´õ¿í °£´ÜÈ÷ Çغ¸ÁÒ

     ActiveWindow.DisplayGridlines=IIf(ActiveWindow.DisplayGridlines,FALSE,TRUE)

À̹ø¿¡ Not ¿¬»êÀÚ¸¦ »ç¿ëÇÏ¿© ´õ´õ¿í °£´ÜÈ÷ Çغ¸ÁÒ!!!

     ActiveWindow.DisplayGridlines = Not ActiveWindow.DisplayGridlines

ÄÚµùÀÇ ¼öÁØÀ» ±»ÀÌ µûÁø´Ù¸é ¸¶Áö¸·ÀÇ ÄÚµùÀÌ ÇÑ°á °£´ÜÇÏ°í ºü¸¦ °ÍÀÔ´Ï´Ù. ÄÚµùÀº Çѹø¿¡ ¸¸µé¾î ÁöÁö ¾Ê½À´Ï´Ù. ¸¹Àº ´Ü°è¸¦ °£´ÜÈ÷ ÇÏ°í ÇÑ ÁÙÀÌ¶óµµ ÁÙ¿© º¸·Á´Â ³ë·ÂÀÌ ÇÊ¿äÇÑ °ÅÁÒ. ÀÌ·¯ÇÑ °ÍÀÌ ÇÁ·Î±×·¡¹ÖÀÇ Áñ°Å¿òÀÌÀÚ ¹¦¹ÌÀÌÁÒ.

±×·¯³ª ÀÌ Á¤µµ¿¡¼­ ¸¸Á·ÇÒ ¼ö ´Â ¾øÁÒ. [¼¿±¸ºÐ¼±]¸Þ´ºÀÇ ¿ÞÂÊÀ» º¸¸é ´­·ÁÁø üũǥ½Ã°¡ º¸ÀÏ °ÍÀÔ´Ï´Ù. Áï ¼¿±¸ºÐ¼±ÀÌ Ç¥½ÃµÇ¾î ÀÖ´Ù´Â ¶æÀÌ µË´Ï´Ù. ¹Ý´ë·Î üũǥ½Ã°¡ »ç¶óÁö¸é ¼¿ ±¸ºÐ¼±ÀÌ ¾øÀ½À» ÀǹÌÇÒ °ÍÀÔ´Ï´Ù. À̸¦ Åä±ÛÇØÁÖ±â À§ÇØ ´ÙÀ½°ú °°ÀÌ ¼¿±¸ºÐ¼±¸Þ´ºÀÇ »óŸ¦ ¹Ù²Ù¾î ÁÖ¾î¾ß ÇÕ´Ï´Ù.

¾Æ·¡ÀÇ ÇÁ·Î½ÃÁ®´Â [¼¿±¸ºÐ¼±]¸Þ´º¹öÆ°ÀÇ »óŸ¦ º¯°æÇÑ ÈÄ ¸Þ´º¸¦ Ž»öÇÏ¿© ActiveWindow.DisplayGridlinesÀÇ °ª¿¡ µû¶ó »óŸ¦ msoButtonDown ȤÀº msoButtonUpÀ¸·Î º¯°æÇÕ´Ï´Ù. ¸Þ´º¸¦ ã¾Æ Ž»öÇÏ´Â °ÍÀº ÀÌ¹Ì ¾Õ½Ã°£¿¡ ¼³¸íÇÑ ¹Ù°¡ ÀÖ¾î ³Ñ¾î°¡°Ú½À´Ï´Ù.

Public Sub DisplayGrid()
     Dim cmdBtn As CommandBarButton
     Dim cmdbarPopup As CommandBarPopup

     ActiveWindow.DisplayGridlines = Not ActiveWindow.DisplayGridlines

     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.DisplayGridlines Then
                    cmdBtn.State = msoButtonDown
               Else
                    cmdBtn.State = msoButtonUp
               End If
               Exit For
          End If
     Next

     Set cmdbarPopup=Nothing
     Set cmdBtn=Nothing
End Sub

¿À´ÃÀº ¿©±â±îÁö ÀÔ´Ï´Ù. ±×·³ ´ÙÀ½½Ã°£¿¡ ¸¸³ªµµ·Ï ÇÏÁÒ.

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

¡¡

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