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

10. ÇÏÀÌÆÛ¸µÅ© »èÁ¦

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

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

¿À´ÃÀº ÇÏÀÌÆÛ¸µÅ©¸¦ »èÁ¦ÇÏ´Â ±â´ÉÀ» Ãß°¡ÇÏ·Á°í ÇÕ´Ï´Ù. ÇÏÀÌÆÛ¸µÅ©¸¦ »èÁ¦Çϱâ Àü¿¡ Âü°í·Î ¸¸µå´Â ¹æ¹ýÀ» »ìÆ캸ÁÒ(Âü°í·Î ¿ÀÇǽº97¹öÀüÀ» ±âÁØÀ¸·Î ¼³¸íÇÕ´Ï´Ù) ¸ÅÅ©·Î ±â·Ï±â¸¦ »ç¿ëÇÏ¿© ÇÏÀÌÆÛ¸µÅ©¸¦ Ãß°¡ÇÏ¸é ´ÙÀ½°ú °°Àº Äڵ带 º¼ ¼ö ÀÖ½À´Ï´Ù. 

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
http://www.officetutor.co.kr/ 

ÇöÀç½ÃÆ®ÀÇ ÇÏÀÌÆÛ¸µÅ©°³Ã¼¿¡¼­ Add¸Þ¼Òµå¸¦ »ç¿ëÇÏ¿© Ãß°¡Çϴµ¥, ÇÏÀÌÆÛ¸µÅ©¸¦ Ãß°¡Çϱâ À§ÇÑ Á¤º¸´Â Anchor¿Í Address ÀÔ´Ï´Ù. Anchor´Â ÇÏÀÌÆÛ¸µÅ©¸¦ °¡Áö´Â ºÎºÐÀÌ°í Address´Â ÇÏÀÌÆÛ¸µÅ©ÀÇ ´ë»óÀÔ´Ï´Ù. ¹°·Ð Anchor´Â Range ¶Ç´Â Shape°³Ã¼¸¦ ÁöÁ¤ÇØ¾ß Çϸç, Address ´Â ¹®ÀÚ¿­·Î¼­ ÀÎÅͳÝÁÖ¼Ò, ¸ÞÀÏÁÖ¼Ò, ¹®¼­ÀÇ À§Ä¡ µîÀÌ µÉ ¼ö ÀÖ½À´Ï´Ù. µµ¿ò¸»À» ã¾Æº¸´Ï Àç¹ÌÀÖ´Â ¿¹Á¦°¡ ÀÖ±º¿ä. Çѹø º¼±î¿ä!

                  For Each h in Worksheets(1).Hyperlinks
                       If Instr(h.Name, "microsoft") <> 0 Then h.Follow
                  Next


À§ÀÇ ¿¹´Â 1¹ø ¿öÅ©½ÃÆ®³»ÀÇ ¸ðµç ÇÏÀÌÆÛ¸µÅ©¸¦ °¢°¢ °Ë»çÇÏ¿© "microsoft"¶ó´Â ´Ü¾î¸¦ °¡Áö¸é Follow¸Þ¼Òµå¸¦ »ç¿ëÇÏ¿© ÇØ´çURL·Î À̵¿ÇÏ´Â ¿¹ÀÔ´Ï´Ù. ÀÌÁ¦ ÇÏÀÌÆÛ¸µÅ©¸¦ »èÁ¦Çغ¸µµ·Ï ÇսôÙ. À§ÀÇ Äڵ带 ±â¹ÝÀ¸·Î ¾Æ·¡¿Í °°ÀÌ Delete¸Þ¼Òµå¸¦ »ç¿ëÇÏ¸é µÉ °Í °°½À´Ï´Ù.

                 Sub DeleteHyperLink()
                          Dim h As Hyperlink

                          For Each h In ActiveSheet.Hyperlinks
                                    h.Delete
                          Next
                End Sub


¸Å¿ì °£´ÜÇÕ´Ï´Ù. ¿©±â¿¡ ±â´ÉÀ» ´õ¿í ºÎ°¡ÇÏÀÚ¸é MsgBoxÇÔ¼ö¸¦ »ç¿ëÇÏ¿© ÀÏÀÏÀÌ »ç¿ëÀÚÀÇ È®ÀÎÀ» ¹Þ°Ô ÇÒ ¼öµµ ÀÖÁÒ. 

¿À´ÃÀº ¿©±â±îÁöÀÔ´Ï´Ù. 

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

¡¡

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