(16) ¸ÅÅ©·Î·Î ±â·ÏÇÒ ³»¿ëÀÌ ³¡³µÀ¸¹Ç·Î, [±â·ÏÁßÁö]
µµ±¸ ¸ðÀ½¿¡¼ [±â·ÏÁßÁö] ´ÜÃà ¾ÆÀÌÄÜÀ» ´©¸£°Å³ª, [µµ±¸]
¸ðÀ½¿¡¼ [¸ÅÅ©·Î] [±â·ÏÁßÁö]¸¦ Â÷·Ê·Î ¼±ÅÃÇÕ´Ï´Ù.
°Á¿¡ Æ÷ÇÔµÈ Ãà¼ÒµÈ ±×¸²Àº
Ŭ¸¯ÇϽøé È®´ëÇؼ º¸½Ç ¼ö ÀÖ½À´Ï´Ù.
(17)±â·ÏÇÑ ¸ÅÅ©·ÎÀÇ ³»¿ëÀ» »ìÆ캸±â À§ÇØ [µµ±¸]¸Þ´º¿¡¼
[¸ÅÅ©·Î]¢Ñ[Visual Basic Editor(V)]¸¦ Â÷·Ê·Î ¼±ÅÃÇϰųª, Alt +
F11Å°¸¦ ´·¯ VB ÆíÁý±â âÀ» ¿±´Ï´Ù.
(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À» ¿¬°áÇÕ´Ï´Ù.
(20) ÀÌÁ¦ ¿öÅ©½ÃÆ®¿¡ »ðÀÔÇÑ ´ÜÃß¿¡ ¸ÅÅ©·Î
¿¬°áµÇ¾úÀ¸¹Ç·Î, ´ÜÃ߸¦ ´©¸£¸é ¸ÅÅ©·Î°¡ ½ÇÇàµÇ°Ô
µË´Ï´Ù. ±× Àü¿¡, ´ÜÃßÀÇ Ä¸¼ÇÀ» º¯°æÇØ º¸±â ÁÁ°Ô
¸¸µé¾î º¸ÀÚ. ¿ä·ÉÀº ¾Õ¼ ¿É¼Ç ¹öÆ°ÀÇ Ä¸¼ÇÀ» º¯°æÇÑ
°Í°ú µ¿ÀÏÇÕ´Ï´Ù. ¸¶¿ì½º ¿À¸¥ÂÊ ¹öÆ°À» ´·¯ °³Ã¼¸¦
¼±ÅÃÇÏ°í, ´Ù½Ã ¿À¸¥ÂÊ ¸¶¿ì½º ¹öÆ°À» ´·¯ ºü¸¥
¸Þ´º¿¡¼ [ÅؽºÆ® ÆíÁý(X)]À» ¼±ÅÃÇÑ´Ù. ´ÜÃßÀÇ Ä¸¼ÇÀ» '°Ë»öÇÕ´Ï´Ù'·Î
º¯°æÇÕ´Ï´Ù.
(21) ¸ÅÅ©·Î°¡ Á¦´ë·Î µ¿ÀÛÇϴ°¡¸¦ È®ÀÎÇϱâ À§ÇØ '°è¾àÀÚ·Î
°Ë»ö'À̶ó´Â ¿É¼Ç ¹öÆ°À» ¼±ÅÃÇÏ°í, D2¼¿¿¡´Â 'ÀÏ'À»
ÀÔ·ÂÇÏ°í °Ë»öÇÕ´Ï´Ù ´ÜÃ߸¦ ´·¯º¸ÀÚ. ¾Æ¸¶µµ, ¿øÇÏ´Â
°á°ú°¡ ¸¸Á·½º·´°Ô ³ªÅ¸³ªÁö ¸øÇßÀ» °ÍÀÔ´Ï´Ù.
(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¶õ, ¿¢¼¿ÀÇ °æ°í ¸Þ½ÃÁö¸¦
³ªÅ¸³ªÁö ¾Êµµ·Ï Çϱâ À§ÇÑ °ÍÀÌ´Ù. ¸¸¾à ÀÌ ±¸¹®À»
³ÖÁö ¾ÊÀ¸¸é, °¡²û¾¿ ¾Æ·¡¿Í °°Àº °æ°í ¸Þ½ÃÁö°¡ ³ªÅ¸³¯
¼ö ÀÖÀ¸¹Ç·Î À̸¦ ¸·µµ·Ï ÇÑ °ÍÀÔ´Ï´Ù.
ÁÖÀÇ! Application.DisplayAlerts = FalseÀ¸·Î °æ°í
¸Þ½ÃÁö ¼Ó¼ºÀ» º¯°æÇÑ °æ¿ìApplication.DisplayAlerts =
True´Ù½Ã True·Î ¼³Á¤ÇØ ÁÖ¾î¾ß ÇÕ´Ï´Ù. ±×·¸Áö ¾ÊÀº
°æ¿ì, ¿¢¼¿ÀÌ ¿©·¯ºÐÀÌ Áß¿äÇÑ ¿À·ù¸¦ ÃÊ·¡ÇÒ ¼ö
ÀÖ´Â ÀÛ¾÷À» ÇÏ·Á°í ÇÒ ¶§ °æ°í ¸Þ½ÃÁö¸¦ ³ªÅ¸³»Áö
¾Ê°Ô µË´Ï´Ù. |
À§ÀÇ ±¸¹®Àº, ¸ÅÅ©·Î ±â·Ï±â·Î ±â·ÏÇÑ ³»¿ë °¡¿îµ¥,
´ÜÁö µÎ ¼¼ °÷ Á¤µµ¸¦ ¼öÁ¤ÇÑ °ÍÀÔ´Ï´Ù.(ÀϹÝÀûÀ¸·Î´Â
°í±Þ ÇÊÅÍ¿Í °°Àº ¸ÅÅ©·Î¸¦ VBA·Î ÄÚµùÇÒ °æ¿ì, °³Ã¼
º¯¼ö¶ó´Â °ÍÀ» ¼±¾ðÇÏ°í, ÀÌ º¯¼ö¸¦ ÀÌ¿ëÇØ ÀÛ¾÷ÇÕ´Ï´Ù.
´ÜÁö ¿¹¸¦ µé±â À§ÇÑ °ÍÀ̹ǷΠ¿©±â¼´Â ÀÌ·¸°Ô ÄÚµùÇÑ
°ÍÀÔ´Ï´Ù.)
¸ÅÅ©·Î ±â·Ï±â°¡ ±â·ÏÇÑ ³»¿ëÀ» ¼öÁ¤Çϱâ
À§ÇØ »ç¿ëÇÑ ¼Ó¼º °¡¿îµ¥, Çϳª°¡ CurrentRegionÀÌÀÔ´Ï´Ù.
ÀÌ°ÍÀº ¿©·¯ºÐÀÌ ÇöÀç ¼¿ÀÌ À§Ä¡ÇÑ µ¥ÀÌÅÍ¿Í ¿¬¼ÓÇØ
ÀÖ´Â ¸ðµç µ¥ÀÌÅ͸¦ ¼±ÅÃÇϱâ À§ÇØ, Ctrl
+ Shift + 8(*)À» ´©¸£´Â °Í°ú °°Àº °ÍÀÌ´Ù.
µ¥ÀÌÅͺ£À̽ºÀÇ ¸ñ·ÏÀÌ °è¼Ó È®ÀåµÉ ¼ö ÀÖÀ¸¹Ç·Î
ÀÌ·¸°Ô µ¥ÀÌÅÍ°¡ ¼ÓÇØ ÀÖ´Â ¿¬¼ÓµÈ µ¥ÀÌÅÍ ¹üÀ§¸¦
ÁöÁ¤ÇÏ¿© ÄÚµùÇÏ´Â °ÍÀÌ ´É·üÀûÀÓÀ» ¾Ë ¼ö ÀÖÀ»
°ÍÀÔ´Ï´Ù. |
(23) ÀÚ ÀÌÁ¦ ¸ðµç ÀÛ¾÷Àº Àϴܶô µÇ¾ú½À´Ï´Ù,
°Ë»ö½ÃÆ®¿¡¼ ¿É¼Ç ¹öÆ°À» ÀÌ¿ëÇØ °Ë»öÇÏ·Á´Â Çʵ带
¸ÕÀú ¼±ÅÃÇÏ°í, D2¼¿¿¡ Á¶°ÇÀ» ÀÔ·ÂÇϸé, Á¶°ÇÀ»
¸¸Á·ÇÏ´Â µ¥ÀÌÅ͸¸À» ÃßÃâÇØ º¸¿©ÁÙ °ÍÀÔ´Ï´Ù.
|