±³À°°úÁ¤ ³ªÀÇÇнÀ ¿ÀÇǽºÆÁ °Ë»ö ¹«·á°­ÁÂ
Home ·Î±×ÀΠȸ¿ø°¡ÀÔ °í°´¼¾ÅÍ »çÀÌÆ®¸Ê
¿ÀÇǽºÆ©ÅÍ ±â¾÷ASP¼­ºñ½º > ¹«·á°­ÁÂ
¿¢¼¿ 2000 µû¶óÇϱâ
Ȩ·¯´× ¿¢¼¿ 2000°­ÁÂ
À繫 ÇÔ¼ö °­ÁÂ
¿¢¼¿ 2002 »õ·Î¿î ±â´É
Ȳ±â¼º´ÔÀÇ VBA°­ÁÂ
°û½ÂÁÖ´ÔÀÇ VBAÀ̾߱â
Home > ¹«·á°­Á > ¿¢¼¿
¿¢¼¿ 2000, Ȳ±â¼º´ÔÀÇ ¿¢¼¿VBA 2ÀÏ, Excel 2000
excelvbalogo.gif (3602 bytes)
°í±ÞÇÊÅ͸¦ ÀÌ¿ëÇÑ µ¥ÀÌÅÍ °Ë»ö±â´ÉÀ» VBA·Î ÀÚµ¿È­ Çϱâ (3)

¡¡


(16) ¸ÅÅ©·Î·Î ±â·ÏÇÒ ³»¿ëÀÌ ³¡³µÀ¸¹Ç·Î, [±â·ÏÁßÁö] µµ±¸ ¸ðÀ½¿¡¼­ [±â·ÏÁßÁö] ´ÜÃà ¾ÆÀÌÄÜÀ» ´©¸£°Å³ª, [µµ±¸] ¸ðÀ½¿¡¼­ [¸ÅÅ©·Î] [±â·ÏÁßÁö]¸¦ Â÷·Ê·Î ¼±ÅÃÇÕ´Ï´Ù.

d_18.gif(20757¹ÙÀÌÆ®)

°­Á¿¡ Æ÷ÇÔµÈ Ãà¼ÒµÈ ±×¸²Àº Ŭ¸¯ÇϽøé È®´ëÇؼ­ º¸½Ç ¼ö ÀÖ½À´Ï´Ù.

(17)±â·ÏÇÑ ¸ÅÅ©·ÎÀÇ ³»¿ëÀ» »ìÆ캸±â À§ÇØ [µµ±¸]¸Þ´º¿¡¼­ [¸ÅÅ©·Î]¢Ñ[Visual Basic Editor(V)]¸¦ Â÷·Ê·Î ¼±ÅÃÇϰųª, Alt + F11Å°¸¦ ´­·¯ VB ÆíÁý±â âÀ» ¿±´Ï´Ù.

d_19.gif(17906¹ÙÀÌÆ®)

(18) ¾Æ¸¶µµ µ¶ÀÚµéÀº ¾Æ·¡¿Í ºñ½ÁÇÑ VBA Äڵ尡 ±â·ÏµÇ¾î ÀÖ´Â °ÍÀ» È®ÀÎÇÒ ¼ö ÀÖÀ» °ÍÀÔ´Ï´Ù. ÀÌ Äڵ带 È®ÀÎÇÏ°í ´Ù½Ã, ¿¢¼¿·Î µ¹¾Æ°¡±â À§ÇØ Alt + Q¸¦ ´©¸£°Å³ª, Alt + F11Å°¸¦ ´©¸¨´Ï´Ù.

Sub Macro1()
' Macro1 Macro' Ȳ±â¼ºÀÌ(°¡) 2000-05-11¿¡ ±â·ÏÇÑ ¸ÅÅ©·Î

 Sheets("µ¥ÀÌÅÍ").Range("A1:U69").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Sheets("Á¶°Ç").Range("D1:D2"), CopyToRange:=Range("A7"), _ Unique:=False
End Sub

¸¸¾à ÀÌ·¯ÇÑ ³»¿ë ÀÌ¿Ü¿¡ ´Ù¸¥ °ÍÀÌ ±â·ÏµÇ¾î ÀÖ´Ù¸é, Ȥ ºÒÇÊ¿äÇÏ°Ô ±â·ÏÇÑ ³»¿ëÀº ¾ø´ÂÁö »ìÆ캸¼¼¿ä.

(19) '°Ë»ö'½ÃÆ®¿¡¼­, ´Ù½Ã [¾ç½Ä µµ±¸]¿¡¼­ [´ÜÃß]¸¦ ¼±ÅÃÇÏ°í, »ðÀÔÇÏ·Á´Â ¿öÅ©½ÃÆ®ÀÇ À§Ä¡¸¦ °áÁ¤ÇÑ µÚ, ¸¶¿ì½º ¿ÞÂÊ ´ÜÃ߸¦ ´©¸¥ ä ¿øÇÏ´Â Å©±â ¸¸Å­ µå·¡±× ÇÑ ´ÙÀ½, ¸¶¿ì½º ¹öÆ°À» ¶¼¸é ´ÜÃß°¡ ¿öÅ© ½ÃÆ®¿¡ »ðÀԵǸ鼭, [¸ÅÅ©·Î ÁöÁ¤] ´ëÈ­ »óÀÚ°¡ ³ªÅ¸³³´Ï´Ù. ÀÌ ¶§, ¿ì¸®°¡ ¾Õ¼­ ±â·ÏÇÑ Macro1À̶ó´Â ¸ÅÅ©·Î¸¦ ¼±ÅÃÇØ, ÀÌ ´ÜÃß¿Í Macro1À» ¿¬°áÇÕ´Ï´Ù.

d_20.gif(20351¹ÙÀÌÆ®)

(20) ÀÌÁ¦ ¿öÅ©½ÃÆ®¿¡ »ðÀÔÇÑ ´ÜÃß¿¡ ¸ÅÅ©·Î ¿¬°áµÇ¾úÀ¸¹Ç·Î, ´ÜÃ߸¦ ´©¸£¸é ¸ÅÅ©·Î°¡ ½ÇÇàµÇ°Ô µË´Ï´Ù. ±× Àü¿¡, ´ÜÃßÀÇ Ä¸¼ÇÀ» º¯°æÇØ º¸±â ÁÁ°Ô ¸¸µé¾î º¸ÀÚ. ¿ä·ÉÀº ¾Õ¼­ ¿É¼Ç ¹öÆ°ÀÇ Ä¸¼ÇÀ» º¯°æÇÑ °Í°ú µ¿ÀÏÇÕ´Ï´Ù. ¸¶¿ì½º ¿À¸¥ÂÊ ¹öÆ°À» ´­·¯ °³Ã¼¸¦ ¼±ÅÃÇÏ°í, ´Ù½Ã ¿À¸¥ÂÊ ¸¶¿ì½º ¹öÆ°À» ´­·¯ ºü¸¥ ¸Þ´º¿¡¼­ [ÅؽºÆ® ÆíÁý(X)]À» ¼±ÅÃÇÑ´Ù. ´ÜÃßÀÇ Ä¸¼ÇÀ» '°Ë»öÇÕ´Ï´Ù'·Î º¯°æÇÕ´Ï´Ù.

d_21.gif(21561¹ÙÀÌÆ®)

(21) ¸ÅÅ©·Î°¡ Á¦´ë·Î µ¿ÀÛÇϴ°¡¸¦ È®ÀÎÇϱâ À§ÇØ '°è¾àÀÚ·Î °Ë»ö'À̶ó´Â ¿É¼Ç ¹öÆ°À» ¼±ÅÃÇÏ°í, D2¼¿¿¡´Â 'ÀÏ'À» ÀÔ·ÂÇÏ°í °Ë»öÇÕ´Ï´Ù ´ÜÃ߸¦ ´­·¯º¸ÀÚ. ¾Æ¸¶µµ, ¿øÇÏ´Â °á°ú°¡ ¸¸Á·½º·´°Ô ³ªÅ¸³ªÁö ¸øÇßÀ» °ÍÀÔ´Ï´Ù.

d_22.gif(21681¹ÙÀÌÆ®)

(22) ÀÌ ¸ÅÅ©·Î¸¦ À¯¿¬ÇÏ°Ô »ç¿ëÇϱâ À§Çؼ­, ´Ù½Ã Alt + F11Å°¸¦ ´­·¯ VBÆíÁý±â¸¦ ¿¬ ´ÙÀ½, Macro1À» ¾Æ·¡¿Í °°ÀÌ ¼öÁ¤ÇØ º¾´Ï´Ù.

Sub Macro1()
' Macro1 Macro' Ȳ±â¼ºÀÌ(°¡) 2000-05-11¿¡ ±â·ÏÇÑ ¸ÅÅ©·Î

Application.DisplayAlerts = False Sheets("µ¥ÀÌÅÍ").Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
 CriteriaRange:=Sheets("Á¶°Ç").Range("D1:D2"), CopyToRange:=Range("A7").CurrentRegion, _
 Unique:=False
Application.DisplayAlerts = True
End Sub

Application.DisplayAlerts = False¶õ, ¿¢¼¿ÀÇ °æ°í ¸Þ½ÃÁö¸¦ ³ªÅ¸³ªÁö ¾Êµµ·Ï Çϱâ À§ÇÑ °ÍÀÌ´Ù. ¸¸¾à ÀÌ ±¸¹®À» ³ÖÁö ¾ÊÀ¸¸é, °¡²û¾¿ ¾Æ·¡¿Í °°Àº °æ°í ¸Þ½ÃÁö°¡ ³ªÅ¸³¯ ¼ö ÀÖÀ¸¹Ç·Î À̸¦ ¸·µµ·Ï ÇÑ °ÍÀÔ´Ï´Ù.

d_23.gif(2829¹ÙÀÌÆ®)

ÁÖÀÇ! Application.DisplayAlerts = FalseÀ¸·Î °æ°í ¸Þ½ÃÁö ¼Ó¼ºÀ» º¯°æÇÑ °æ¿ìApplication.DisplayAlerts = True´Ù½Ã True·Î ¼³Á¤ÇØ ÁÖ¾î¾ß ÇÕ´Ï´Ù. ±×·¸Áö ¾ÊÀº °æ¿ì, ¿¢¼¿ÀÌ ¿©·¯ºÐÀÌ Áß¿äÇÑ ¿À·ù¸¦ ÃÊ·¡ÇÒ ¼ö ÀÖ´Â ÀÛ¾÷À» ÇÏ·Á°í ÇÒ ¶§ °æ°í ¸Þ½ÃÁö¸¦ ³ªÅ¸³»Áö ¾Ê°Ô µË´Ï´Ù. 

À§ÀÇ ±¸¹®Àº, ¸ÅÅ©·Î ±â·Ï±â·Î ±â·ÏÇÑ ³»¿ë °¡¿îµ¥, ´ÜÁö µÎ ¼¼ °÷ Á¤µµ¸¦ ¼öÁ¤ÇÑ °ÍÀÔ´Ï´Ù.(ÀϹÝÀûÀ¸·Î´Â °í±Þ ÇÊÅÍ¿Í °°Àº ¸ÅÅ©·Î¸¦ VBA·Î ÄÚµùÇÒ °æ¿ì, °³Ã¼ º¯¼ö¶ó´Â °ÍÀ» ¼±¾ðÇÏ°í, ÀÌ º¯¼ö¸¦ ÀÌ¿ëÇØ ÀÛ¾÷ÇÕ´Ï´Ù. ´ÜÁö ¿¹¸¦ µé±â À§ÇÑ °ÍÀ̹ǷΠ¿©±â¼­´Â ÀÌ·¸°Ô ÄÚµùÇÑ °ÍÀÔ´Ï´Ù.)

¸ÅÅ©·Î ±â·Ï±â°¡ ±â·ÏÇÑ ³»¿ëÀ» ¼öÁ¤Çϱâ À§ÇØ »ç¿ëÇÑ ¼Ó¼º °¡¿îµ¥, Çϳª°¡ CurrentRegionÀÌÀÔ´Ï´Ù. ÀÌ°ÍÀº ¿©·¯ºÐÀÌ ÇöÀç ¼¿ÀÌ À§Ä¡ÇÑ µ¥ÀÌÅÍ¿Í ¿¬¼ÓÇØ ÀÖ´Â ¸ðµç µ¥ÀÌÅ͸¦ ¼±ÅÃÇϱâ À§ÇØ, Ctrl + Shift + 8(*)À» ´©¸£´Â °Í°ú °°Àº °ÍÀÌ´Ù. µ¥ÀÌÅͺ£À̽ºÀÇ ¸ñ·ÏÀÌ °è¼Ó È®ÀåµÉ ¼ö ÀÖÀ¸¹Ç·Î ÀÌ·¸°Ô µ¥ÀÌÅÍ°¡ ¼ÓÇØ ÀÖ´Â ¿¬¼ÓµÈ µ¥ÀÌÅÍ ¹üÀ§¸¦ ÁöÁ¤ÇÏ¿© ÄÚµùÇÏ´Â °ÍÀÌ ´É·üÀûÀÓÀ» ¾Ë ¼ö ÀÖÀ» °ÍÀÔ´Ï´Ù.

(23) ÀÚ ÀÌÁ¦ ¸ðµç ÀÛ¾÷Àº Àϴܶô µÇ¾ú½À´Ï´Ù, °Ë»ö½ÃÆ®¿¡¼­ ¿É¼Ç ¹öÆ°À» ÀÌ¿ëÇØ °Ë»öÇÏ·Á´Â Çʵ带 ¸ÕÀú ¼±ÅÃÇÏ°í, D2¼¿¿¡ Á¶°ÇÀ» ÀÔ·ÂÇϸé, Á¶°ÇÀ» ¸¸Á·ÇÏ´Â µ¥ÀÌÅ͸¸À» ÃßÃâÇØ º¸¿©ÁÙ °ÍÀÔ´Ï´Ù.

d_24.gif(28436¹ÙÀÌÆ®)


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

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