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

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

19. ¼ö½Ä°ú Â÷Æ® ¸ÅÅ©·Î

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

¾È³çÇϼ¼¿ä, ¿ÀÆ© °¡Á· ¿©·¯ºÐ! µåµð¾î ¿À´Ã·Î½á ¿ÀÆ©°ø±¸ÇÔ ¿¬À縦 ¸¶Ä¡°Ô µÇ¾ú½À´Ï´Ù. ±×·¡¼­ °­ÀÇ¿¡ ¾Õ¼­ ¹Ì¸® ³¡³»´Â Àλ縦 µå¸³´Ï´Ù. À۳⿡ ½ÃÀÛÇÑ °É ÀÌÁ¦ ³¡³»°í ³ª´Ï °¨È¸°¡ »õ·Ó½À´Ï´Ù. ÀúÀÇ ´É·Â°ú ³ë·Â ºÎÁ·À¸·Î ¿Ï¼ºÇÏÁö ¸øÇÑ ±â´ÉÀÌ ÀÖ±ä ÇÏÁö¸¸ ¿©·¯ºÐ¿¡°Ô ¸¹Àº µµ¿òÀÌ µÇ¾úÀ¸¸é ÇÕ´Ï´Ù.

¿À´ÃÀº ¼ö½Ä°ú Â÷Æ®¿¡ °üÇÑ ¸ÅÅ©·Î¸¦ ´Ù·ïº¸·Á°í ÇÕ´Ï´Ù. ¹Ì¸® ¾çÇØÀÇ ¸»¾¸À» µå¸± °ÍÀÌ Àִµ¥, ¼ö½ÄºÎºÐ¿¡¼­ Áߺ¹IF¹®°ú ¼¿¾È¿¡¼­ ¹Ýº¹¹®À» ¸¸µå´Â °É Çغ¸°í ½Í¾ú´Âµ¥, ¾öµÎ°¡ ³ªÁú ¾Ê¾Æ »©µÎ¾ú½À´Ï´Ù.

¸ÕÀú µ¿ÀÏ ¼¿¿¡ ¼ö½ÄÀÌ ¾Æ´Ñ °á°ú°ªÀ» º¹»çÇÏ¿© ºÙ¿©³Ö´Â ±â´ÉÀÔ´Ï´Ù. ¿¢¼¿ÀÇ [¼±ÅÃÇÏ¿© ºÙ¿©³Ö±â]±â´É¿¡¼­ [°ª]À» ¼±ÅÃÇÏ¿© ºÙ¿©³Ö±â Çغ¸¼Ì´Ù¸é ½±°Ô ¾Æ½Ç °Ì´Ï´Ù.

User_Procedures.Bas
Sub ConvertValues()
     ActiveCell.Select
     Selection.Copy
ÇöÀçÀÇ ¼¿(ActiveCell)À» ¼±ÅÃÇÏ°í ±× ³»¿ëÀ» Ŭ¸³º¸µå·Î º¹»çÇÕ´Ï´Ù.
     Selection.PasteSpecial Paste:=xlValues, operation:=xlNone, skipblanks:=False, Transpose:=False
¼±ÅÃÇÏ¿© ºÙ¿©³Ö±â ±â´ÉÀ» ¸ÅÅ©·Î·Î Ç¥ÇöÇϸé PasetSpecial¸Þ¼ÒµåÀÔ´Ï´Ù.

Paste¸Å°³º¯¼ö´Â ºÙ¿©³Ö±âÀÇ ´ë»óÀ» °¡¸®Åµ´Ï´Ù. ¿©±â¿¡¼± °ªÀ» ºÙ¿©³ÖÀ» °ÍÀ̹ǷΠxlValue¸¦ ¼±ÅÃÇÏ¿´½À´Ï´Ù. OperationÀº À§ÀÇ ´ëÈ­»óÀÚ¿¡¼­ [¿¬»ê]¿¡ ÇØ´çÇÏ´Â °ÍÀÔ´Ï´Ù. ¾Æ¹« ¿¬»êÀÌ ¾øÀ¸¹Ç·Î xlNoneÀ¸·Î ÇÕ´Ï´Ù. SkipBlanks´Â À§ÀÇ ´ëÈ­»óÀÚ¿¡¼­ [³»¿ëÀÖ´Â ¼¿¸¸ ºÙ¿©³Ö±â]¿¡ ÇØ´çÇÕ´Ï´Ù. Transpose´Â ¼³¸í ¾Èµå·Áµµ ¾Æ½Ã°ÚÁÒ~
     Application.CutCopyMode = False
CutCopyMode ÇÁ·ÎÆÛƼ´Â Application°³Ã¼ÀÇ °ÍÀ¸·Î À߶󳻱⠻óÅÂÀÎÁö º¹»ç»óÅÂÀÎÁö¸¦ Ç¥½ÃÇÏ´Â °ÍÀÔ´Ï´Ù. »ç¿ëÀÚ°¡ <Ctrl+C>Å°¸¦ ´©¸£¸é xlCopy°ª(1)À», <Ctrl+X>Å°¸¦ ´©¸£¸é xlCut°ª(2)À» °¡Áý´Ï´Ù. ¹É·Ð ¾Æ¹« µ¿ÀÛÀ» ÇÏÁö ¾Ê¾Ò´Ù¸é False°ª(0)À» µ¹·ÁÁÝ´Ï´Ù.
±×·±µ¥ ¿©±â¿¡ False°ªÀ» À§ÀÇ ÄÚµåó·³ ´ëÀÔÇϸé <Ctrl+C>Å° ¶Ç´Â <Ctrl+X>Å°¸¦ ´©¸¦ ¶§ Ç¥½ÃµÇ´Â ¿òÁ÷ÀÌ´Â Á¡¼±(ÀÌ°ÍÀ» ¡°À̵¿ Å׵θ®¡±¶ó°í ÇÕ´Ï´Ù)ÀÌ »ç¶óÁö°í [ºÙ¿©³Ö±â] ±â´Éµµ »ç¿ëÇÒ ¼ö ¾ø°Ô µË´Ï´Ù. Áï ¾Æ¹« °Íµµ ÇÏÁö ¾ÊÀº »óÅ·ΠµË´Ï´Ù.
End Sub

Á¾Á¾ ¼ö½ÄÀÌ º¹ÀâÇϰųª óÀ½ º¸´Â ½ÃÆ®¿¡¼­ ¾î¶»°Ô ¼ö½ÄÀÌ ±¸¼ºµÇ¾ú´ÂÁö º¸°í ½Í´Ù¸é ¼ö½ÄÀÇ °á°ú°ªÀÌ ¾Æ´Ñ ¼ö½Ä ÀÚü°¡ º¸À̵µ·Ï ÇÏ´Â °ÍÀÌ ÆíÇÒ °ÍÀÔ´Ï´Ù. ÀÌ·¯ÇÑ ¼³Á¤Àº [µµ±¸]-[¿É¼Ç]À» Ŭ¸¯ÇÏ¿© [¿É¼Ç]´ëÈ­»óÀÚ¿¡¼­ ÇÕ´Ï´Ù.

À§ÀÇ ´ëÈ­»óÀÚ¿¡¼­ º¸½Ã¸é [È­¸é Ç¥½Ã]ÅÇÆäÀÌÁö¿¡¼­ [⠿ɼÇ]ÀÇ [¼ö½Ä]À̶ó´Â üũ»óÀÚ°¡ º¸ÀÏ °ÍÀÔ´Ï´Ù. À̸¦ ¼±ÅÃÇÏ¸é ´ÙÀ½ ó·³ µË´Ï´Ù.

¡¡
[¼ö½Ä]À» ¼±ÅÃÇÏÁö ¾ÊÀº °æ¿ì ¡¡ [¼ö½Ä]À» ¼±ÅÃÇÑ °æ¿ì

ÀÌ°ÍÀº VBA¿¡¼­ ActiveWindow°³Ã¼ÀÇ DisplayFormulasÇÁ·ÎÆÛƼÀÔ´Ï´Ù.

User_Procedures.Bas
Sub DisplayFormula()
     ActiveWindow.DisplayFormulas = Not ActiveWindow.DisplayFormulas
¼±ÅÃÇÒ‹š¸¶´Ù ÀÌÀü °ª°ú ¹Ý´ë·Î ¼³Á¤ÇϹǷΠNot¿¬»êÀÚ¸¦ »ç¿ëÇÕ´Ï´Ù. Áï ÇöÀç°¡ Âü(°ÅÁþ)ÀÌ¸é °ÅÁþ(Âü)À¸·Î °°Àº ÇÁ·ÎÆÛƼ°¡ ¼³Á¤µË´Ï´Ù.

     If ActiveWindow.DisplayFormulas = True Then
          CheckMarkOntheMenu "¼ö½Äº¸À̱â/¼û±â±â", msoButtonDown
     Else
          CheckMarkOntheMenu "¼ö½Äº¸À̱â/¼û±â±â", msoButtonUp
     End If
ÀÌ·¯ÇÑ ¼³Á¤»óŸ¦ ¸Þ´º¿¡ Ç¥½ÃÇØµÖ¾ß ÇÕ´Ï´Ù. ±×·¡¼­ CheckMarkOntheMenu(...)¶ó´Â ÇÁ·Î½ÃÁ®¿¡ Ç¥½ÃÇÒ ¸Þ´ºÀ̸§(Caption)°ú »óŸ¦ ³Ñ°ÜÁÝ´Ï´Ù. (CheckMarkOntheMenu(...)´Â user_menu.bas ¸ðµâ¿¡ ÀÖ½À´Ï´Ù)

End Sub

ÀÌÁ¦ Â÷Æ®¿¡ ´ëÇÑ ¸ÅÅ©·Î¸¦ »ìÆ캸µµ·Ï ÇÏ°Ú½À´Ï´Ù. ¸ÕÀú Â÷Æ®°³Ã¼¿¡ ´ëÇØ »ìÆ캸´Â °ÍÀÌ ¼ø¼­ÀÏ µíÇÕ´Ï´Ù. Â÷Æ®°³Ã¼´Â µÎ°¡Áö°¡ ÀÖ½À´Ï´Ù. Çϳª´Â ¿öÅ©½ÃÆ®¿¡ »ðÀÔµÈ °³Ã¼, ¶Ç Çϳª´Â µ¶¸³µÈ Â÷Æ®½ÃÆ®·Î ¸¸µé¾îÁø Â÷Æ®°³Ã¼ÀÔ´Ï´Ù. ¿öÅ©½ÃÆ®¿¡ »ðÀÔµÈ Â÷Æ®´Â ´ÙÀ½°ú °°Àº ¼ø¼­ÀÇ °³Ã¼¸ðµ¨À» °¡Áý´Ï´Ù.
     Application.Workbook.Worksheet.ChartObject.Chart...

Â÷Æ®½ÃÆ® ¾ÈÀÇ Â÷Æ®´Â ´ÙÀ½°ú °°Àº ¼ø¼­ÀÇ °³Ã¼¸ðµ¨À» °¡Áý´Ï´Ù.
     Application.Workbook.ChartObject.Chart...

Â÷Æ®°³Ã¼¿¡ ´ëÇÑ ÀÚ¼¼ÇÑ »çÇ×Àº µµ¿ò¸»À̳ª °ü·Ã ¼­ÀûÀ» ÂüÁ¶ÇϽðí, ¿©±â¿¡¼­´Â ¿öÅ©½ÃÆ®¿¡ ³»ÀåµÈ ¸ðµç Â÷Æ®¸¦ À̹ÌÁöÆÄÀÏ·Î ÀúÀåÇÏ´Â ±â´ÉÀ» ¸¸µé °ÍÀÔ´Ï´Ù. ±×¸®°í Export¸Þ¼Òµå¸¸À» »ç¿ëÇÕ´Ï´Ù.

User_Procedures.Bas
Sub ExportChartAsImage()
     Dim oChart      As ChartObject
Â÷Æ®¸¦ ´ë½ÅÇÒ Â÷Æ®°³Ã¼º¯¼öÀÔ´Ï´Ù.
     Dim strChartName As String
±âº»À¸·Î ÁÖ¾îÁú ÆÄÀÏÀ̸§À¸·Î Â÷Æ®ÀÇ Á¦¸ñÀ» ´ãÀ» ½ºÆ®¸µº¯¼ö
     Dim SaveFileName
ÀúÀåÇϱ⠴ëÈ­»óÀÚ¿¡¼­ »ç¿ëÀÚ°¡ ÀÔ·ÂÇÏ´Â Â÷Æ®À̹ÌÁö À̸§
     Dim strFilter As String
¿©·¯ À̹ÌÁöÆÄÀÏÆ÷¸ËÀ» ³Ö¾îµÎ±â À§ÇÑ º¯¼ö

     strFilter = "GIF Files (*.gif), *.gif,JPEG Files (*.jpg), *.jpg,PNG Files (*.png), *.png,TIFF Files (*.tif), *.tif"
Â÷Æ®¸¦ ÀúÀåÇϱâ Àü¿¡ ´ëÈ­»óÀÚ¸¦ ¶ç¿ö ¾î¶°ÇÑ Çü½ÄÀÇ À̹ÌÁöÆÄÀÏÀ» »ç¿ëÇÒ °ÍÀÎÁö¸¦ ¼±ÅÃÇϵµ·Ï ÇÒ °ÍÀÔ´Ï´Ù. À̸¦ ÇÊÅͶó°í Çϴµ¥, Export¸Þ¼Òµå°¡ Áö¿øÇÏ´Â 4°¡Áö À̹ÌÁöÇü½ÄÀ» ÁöÁ¤ÇÕ´Ï´Ù.

´ÙÀ½Àº ÇÊÅÍ¿¡ ´ëÇÑ ¿¢¼¿µµ¿ò¸»À» ¿Å°Üº» °ÍÀÔ´Ï´Ù.
ÀÌ ¹®ÀÚ¿­Àº ÆÄÀÏ ÇÊÅÍ ¹®ÀÚ¿­ÀÇ ½ÖÀ¸·Î ÀÌ·ç¾îÁö°í µÚ¿¡´Â MS-DOS ¿ÍÀϵåÄ«µå ¹®ÀÚ ÆÄÀÏ ÇÊÅÍ Çü½ÄÀÌ ³ªÅ¸³ª¸ç, °¢ ºÎºÐ°ú ½ÖÀº ½°Ç¥·Î ±¸ºÐµË´Ï´Ù. °¢ ½ÖÀº ÆÄÀÏ Çü½Ä µå·Ó´Ù¿î ¸ñ·Ï »óÀÚ¿¡ ³ª¿­µË´Ï´Ù. ¿¹¸¦ µé¸é "ÅؽºÆ® ÆÄÀÏ(*.txt),*.txt,Ãß°¡ ±â´É(*.xla),*.xla"´Â µÎ °³ÀÇ ÆÄÀÏ, Áï ÅؽºÆ® ÆÄÀÏ°ú Ãß°¡ ±â´É ÆÄÀÏ¿¡ ´ëÇÑ ÇÊÅ͸¦ ÁöÁ¤ÇÕ´Ï´Ù.
ÇϳªÀÇ ÆÄÀÏ ÇÊÅÍ Á¾·ù¿¡ ¿©·¯ °³ÀÇ MS-DOS ¿ÍÀϵåÄ«µå ¹®ÀÚ ½ÄÀ» »ç¿ëÇÏ·Á¸é "Visual Basic Files(*.bas; *.txt),*.bas;*.txt"¿Í °°ÀÌ ¿ÍÀϵåÄ«µå ¹®ÀÚ »çÀ̸¦ ¼¼¹ÌÄÝ·ÐÀ¸·Î ±¸ºÐÇÕ´Ï´Ù. Àμö¸¦ »ý·«ÇÏ¸é ±âº»°ªÀº "¸ðµç ÆÄÀÏ(*.*),*.*"ÀÔ´Ï´Ù

     For Each oChart In ActiveSheet.ChartObjects
ÇöÀç ½ÃÆ®¿¡¼­ ÀÖ´Â Â÷Æ®¸¦ ¹Ýº¹ÇÕ´Ï´Ù
          If oChart.Chart.HasTitle Then
               strChartName = oChart.Chart.ChartTitle
          End If
¸¸ÀÏ Â÷Æ®À̸§ÀÌ ÀÖ´Ù¸é ÀÌ°ÍÀ» strChartName¿¡ ³Ö¾î µÎ°í ´ëÈ­»óÀÚÀÇ ±âº»ÆÄÀÏÀ̸§À¸·Î »ç¿ëÇÕ´Ï´Ù.
     SaveFileName = Application.GetSaveAsFilename ( _
InitialFileName:=strChartName, _
À§ÀÇ ´ëÈ­»óÀÚ¿¡¼­ óÀ½¿¡ Ç¥½ÃÇÏ´Â ÆÄÀÏÀ̸§
FileFilter:=strFilter, _
ÆÄÀÏÇü½Ä ÇÊÅÍ
FilterIndex:=1, _
1¹ø ÇÊÅ͸¦ µðÆúÆ®°ªÀ¸·Î ¼³Á¤(Áï GIFÆ÷¸Ë)
Title:="Chart Save As" )
´ëÈ­»óÀÚÀÇ À̸§

          If SaveFileName <> False Then
»ç¿ëÀÚ°¡ Ãë¼Ò¸¦ ÇÏÁö ¾ÊÀº °æ¿ì ÀúÀåÀ» ÇÕ´Ï´Ù.

               oChart.Chart.Export _
Export¸Þ¼Òµå¸¦ »ç¿ëÇÕ´Ï´Ù.

FileName:=SaveFileName, _
ÀúÀåÇÒ À̹ÌÁö ÆÄÀÏÀ̸§ÀÔ´Ï´Ù.

FilterName:=Right(SaveFileName, 3)
ÆÄÀÏÀ̸§ µÚ¿¡´Â È®ÀåÀÚ 3±ÛÀÚ°¡ ºÙ´Âµ¥ ÀÌ°É µû¼­ ÀúÀåÇÒ ÆÄÀÏÇü½ÄÀ¸·Î ÁöÁ¤ÇÕ´Ï´Ù.
          End If
     Next
End Sub

µåµð¾î ³¡ÀÔ´Ï´Ù. ¿¬Àç Ãʹݿ¡ ¼³Ä¡ÇÁ·Î±×·¥À» ¸¸µé¾î º¼±î Çߴµ¥, »ç½Ç ÀÌ°ÍÀº xlStartÆú´õ¿¡ º¹»çÇصδ °ÍÀÌ ÀüºÎ¶ó ¼³Ä¡ÇÁ·Î±×·¥ÀÌ ÇÊ¿ä¾ø½À´Ï´Ù. º¸Åë ¾ÖÇø®ÄÉÀ̼ÇÀÇ °æ¿ì ¼³Ä¡ÇÁ·Î±×·¥Àº ¾ÐÃàµÈ ¿øº»À» Ç®°í, À̸¦ »ç¿ëÀÚ°¡ ÁöÁ¤ÇÑ Á¶°Ç¿¡ µû¶ó µð½ºÅ©¿¡ º¹»çÇÕ´Ï´Ù. ±×¸®°í ·¹Áö½ºÆ®¸®¿¡ ÇÁ·Î±×·¥¿¡ ´ëÇÑ ³»¿ëÀ» ±â·ÏÇÏ°í À©µµ¿ìÀÇ ½ÃÀÛ¸Þ´º¿Í ¹ÙÅÁÈ­¸é¿¡ ´ÜÃà¾ÆÀÌÄÜÀ» ¸¸µì´Ï´Ù. ¼³Ä¡ÇÁ·Î±×·¥Àº °³¹ßÅø ÀÚü¿¡¼­ Áö¿øÇÏ´Â °É »ç¿ëÇϰųª(ºñÁÖ¾óº£ÀÌÁ÷) InstallShield¿Í °°Àº Àü¹® À¯Æ¿¸®Æ¼¸¦ »ç¿ëÇÏ¿© ¸¸µé ¼ö ÀÖ½À´Ï´Ù.

ÈÞ~ ÀÌÁ¦ ³¡³µ½À´Ï´Ù. ±×°£ ºÎ½ÇÇÑ ÀúÀÇ ¿¬À縦 ³Ê±×·´°Ô º¸¾ÆÁֽŠ¿©·¯ºÐ²¾ °¨»çµå¸³´Ï´Ù. ±×·³ ¾È³çÈ÷ °è¼¼¿ä~ ^^
¡¡

¸ñÂ÷ | ÀÌÀü

¡¡

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