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


9ÀÏ. ´Ã Ǫ¸¥ ¼Ò³ª¹«¿¡ °üÇÑ µÎ¹ø° À̾߱â

¢º ¿À´Ã ¹è¿ï ³»¿ë

ÄÚµå ÀÛ¼ºÀ» À§ÇÑ ¸î °¡Áö ½Ã½ÃÄÝÄÝÇÑ À̾߱â - »ó¼ö¿¡ ´ëÇÑ ÁÖÀú¸®ÁÖÀú¸®

¼¼»ó¿¡´Â ´Ã ÇÑ°á °°Àº °ÍÀÌ Àִ°¡ Çϸé...±×¶§±×¶§ º¯ÇÏ´Â °Íµéµµ ÀÖ´ä´Ï´Ù. ´Ã Ǫ¸¥ ¼Ò³ª¹«¿Í °°ÀÌ ÇÑ°á °°Àº °ÍÀ», ÇÁ·Î±×·¡¹Ö¿¡¼­´Â »ó¼ö¶ó°í ºÎ¸£°í, º½ ¿©¸§ °¡À» °Ü¿ï°ú °°ÀÌ Ã¶¸¶´Ù º¯ÇÏ´Â °ÍÀ» º¯¼ö¶ó°í ºÎ¸¥´Ù´Â ¼­Å÷ ¾ê±â¸¸ ²¨³Â´Ù°¡ Áö³­ ½Ã°£À» ³Ñ±ä °Í °°½À´Ï´Ù.*^_^*

¹Ì¸® ¸»¾¸ µå¸³´Ï´Ù¸¸...^^ º¯¼ö´Â ¿©·¯ºÐÀÌ VBA¸¦ ÀÌ¿ëÇØ ÇÁ·Î±×·¡¹ÖÇÏ´Â µ¥¿¡ ¹Ýµå½Ã ³Ñ¾î¾ß ÇÒ »ê°ú °°½À´Ï´Ù. ¿©·¯ºÐ°ú ÇÔ²² ±× »êÀ» ÀÌÁ¦ ³Ñ¾î º¸µµ·Ï ÇÏ°Ú½À´Ï´Ù. »êÀ» ³Ñ¾î °¡±â Àü¿¡ »ê ¼Ó¿¡ º¸À̴ Ǫ¸¥ ¼Ò³ª¹« Çϳª¸¦ ¸ÕÀú °¨»óÇϽõµ·Ï ÇÏ°Ú½À´Ï´Ù^^*

»ó¼ö(ßÈ⦠Constant) : »ó¼ö¶õ º¯ÇÏÁö ¾Ê°í ´Ã °°Àº °ªÀ» °¡Áö´Â °ÍÀ» °¡¸®Åµ´Ï´Ù. ´Ã º¯ÇÔÀÌ ¾ø´Â °ÍÀÌÁö¿ä. ¹Ù²îÁö ¾Ê´Â´Ù´Â °ÍÀÌ ¹Ù·Î »ó¼öÀÇ Æ¯Â¡ÀÔ´Ï´Ù. ±×·¯³ª º¯¼ö ¿ª½Ã Áß°£¿¡ ¹Ù²îÁö ¾Ê´Â´Ù¸é...¹Ù·Î »ó¼ö¿Í °°Àº ¿ªÇÒÀ» ÇϰԵ˴ϴÙ. µû¶ó¼­, VBAÇÁ·Î±×·¡¹Ö¿¡¼­´Â º¯¼ö¿¡ ºñÇØ »ó¼öÀÇ Á߿伺Àº ¾ÆÁÖ ´úÇÏ´Ù°í ÇÒ ¼ö ÀÖ½À´Ï´Ù. ÇÏÁö¸¸, ÇÁ·Î±×·¡¹Ö¿¡¼­ »ó¼ö¸¦ »ç¿ëÇÏ´Â °¡Àå Áß¿äÇÑ ÀÌÀ¯´Â Æí¸®ÇÔ ¶§¹®À̶ø´Ï´Ù. Çϳª´Â, ÇÁ·Î±×·¥ÀÇ °¡µ¶¼º(ÀÌÇØÇϱâ ÁÁ°Ô ¸¸µå´Â °Í)À» ³ôÀÌ°í, ´Ù¸¥ Çϳª´Â ÇÁ·Î±×·¥ÀÇ ¼öÁ¤À» ¿ëÀÌÇÏ°Ô Çϱâ À§Çؼ­ÀÔ´Ï´Ù.

³»Àå»ó¼ö : ³»Àå»ó¼ö¶õ ÀÌ¹Ì VBA³»ºÎ¿¡¼­ Á¤ÇسõÀº »ó¼öµéÀ» ¸»ÇÕ´Ï´Ù. ÀÌ ³»Àå»ó¼ö´Â ¾ÆÁÖ ¸¹¾Æ¼­ Çì¾Æ¸®±âÁ¶Â÷ ¾î·Æ´ä´Ï´Ù^^

°¡Àå ¸¹ÀÌ »ç¿ëÇÏ´Â MsgboxÇÔ¼öÀÇ ¿¹¸¦ µé¾îº¸°Ú½À´Ï´Ù.

Sub ¸Þ½ÃÁöÇÔ¼ö_1()
Dim i As Integer
i = MsgBox("¸Þ½ÃÁö¹Ú½º¶ó´Â ÇÔ¼ö´Â ¼ýÀÚ¸¦ µÇµ¹¸³´Ï´Ù", vbYesNo, "¿¢»ç¸ð")
If i = vbYes Then
    MsgBox "¿¹¸¦ ¼±ÅÃÇϼ̽À´Ï´Ù"
Else
    MsgBox "¾Æ´Ï¿À¸¦ ¼±ÅÃÇϼ̽À´Ï´Ù"
End If
End Sub

À§ÀÇ ÇÁ·Î½ÃÀú¸¦ ½ÇÇàÇϸé...

¿Í °°Àº ¸ÞÁöÁö ¹Ú½º°¡ ³ªÅ¸³³´Ï´Ù. (¸ÞÁö½Ã¹Ú½º ÇÔ¼öÀÇ µÎ¹ø° Àμö¿¡ VbYesNo¶ó´Â °ªÀ» Àü´ÞÇϸé, ¿¹¿Í ¾Æ´Ï¿À¶ó´Â µÎ°³ÀÇ ´ÜÃß°¡ ´Þ¸° »óÀÚ¸¦ Ç¥½ÃÇØÁÝ´Ï´Ù)¸¸¾à »ç¿ëÀÚ°¡ ¿¹¸¦ ´©¸¥´Ù¸é...¾Æ·¡¿Í °°Àº °á°ú¸¦ µÇµ¹·ÁÁÙ °ÍÀÔ´Ï´Ù

ÀÌ ¸ÞÁöÁö ¹Ú½º´Â ¾Æ¹«·± Àμöµµ Àü´ÞÇÏÁö ¾Ê¾ÒÀ¸¹Ç·Î ±âº»°ªÀÎ 0ÀÎ ¿ÀÁ÷ È®ÀδÜÃ߸¸ ÀÖ´Â ¸Þ½ÃÁö »óÀÚ¸¦ º¸¿©ÁÖ´Â °ÍÀÔ´Ï´Ù.

¾Æ·¡ÀÇ ¿¹Á¦´Â À§¿Í µ¿ÀÏÇÑ ÇÁ·Î½ÃÀúÀÔ´Ï´Ù¸¸, »ó¼ö¸¦ »ç¿ëÇÏÁö ¾Ê¾Æ,ÇÁ·Î±×·¥À» ´õ¿í ÀÌÇØÇϱ⠾î·Æ½À´Ï´Ù. »ç½Ç Àúµµ ÀÌ °­Á¸¦ ¸¸µé±â À§ÇØ µµ¿ò¸»À» Âü°íÇØ °Ü¿ì(^^) ¸¸µé¾ú´ä´Ï´Ù.

Sub ¸Þ½ÃÁöÇÔ¼ö_2()
Dim i As Integer
i = MsgBox("¸Þ½ÃÁö¹Ú½º¶ó´Â ÇÔ¼ö´Â ¼ýÀÚ¸¦ µÇµ¹¸³´Ï´Ù", 4)
If i = 6 Then
    MsgBox "¿¹¸¦ ¼±ÅÃÇϼ̽À´Ï´Ù"
Else
    MsgBox "¾Æ´Ï¿À¸¦ ¼±ÅÃÇϼ̽À´Ï´Ù"
End If
End Sub

vbMagboxstyleÀ̶õ Àμö, Áï ¸Þ½ÃÁö »óÀÚÀÇ ½ºÅ¸ÀÏÀº ¸î °¡Áö Á¤ÇØÁø ƲÀÌ ÀÖÀ¸¸ç ¸î ¹ø ½ºÅ¸ÀÏÀ̶ó°í Á¤ÇØÁø Àμö¸¦ Àü´ÞÇϸé, VBA´Â °Å±â¿¡ ÇÕ´çÇÑ ¸ð¾çÀÇ ¸Þ½ÃÁö »óÀÚ¸¦ »ç¿ëÀÚ¿¡°Ô º¸¿©ÁÖ°Ô²û µÇ¾î Àִµ¥, 4¶ó´Â Àμö¸¦ Àü´ÞÇϸé À§¿Í °°Àº ¿¹¿Í ¾Æ´Ï¿À¶ó´Â µÎ °³ÀÇ ´ÜÃ߸¦ °®´Â ¸Þ½ÃÁö »óÀÚ¸¦ ³ªÅ¸³»°Ô µË´Ï´Ù. ÀÌ ¶§, »ç¿ëÀÚ°¡ ¿¹¶ó´Â ´ÜÃ߸¦ ´©¸£¸é, ÀÌ ¸Þ½ÃÁö »óÀÚ ÇÔ¼ö´Â 6À̶õ ¼ýÀÚ¸¦ µÇµ¹·ÁÁÖ°Ô µÇ´Â °ÍÀÔ´Ï´Ù. ±×·±µ¥, 4³ª 6À̶ó´Â ¼ýÀÚ´Â »ç¶÷µéÀÌ Á÷°üÀûÀ¸·Î ÀÌÇØÇϱ⠾î·Æ½À´Ï´Ù. ±×·¡, vbYesNo, vbYes¿Í °°Àº ³»Àå »ó¼ö¸¦ ÀÌ¿ëÇØ ÇÁ·Î±×·¡¹ÖÇϵµ·Ï ÇÏ´Â °ÍÀ̶ø´Ï´Ù. µÚ¿¡ ¼³¸íÇÏ°Ú½À´Ï´Ù¸¸, ÀÌ·± ³»Àå»ó¼öµéÀº ¸ðµÎ ¿­°ÅÇü »ó¼öÀÇ ÀÏÁ¾À̶ø´Ï´Ù.

¿¢¼¿ µµ¿ò¸» ¿³º¸±â : ¿¢¼¿ µµ¿ò¸»¿¡¼­´Â »ó¼ö¸¦ ¾Æ·¡¿Í °°ÀÌ ¼³¸íÇÏ°í ÀÖ½À´Ï´Ù.

ÇÁ·Î±×·¥À» ½ÇÇàÇÏ´Â µ¿¾È »ó¼ö °ªÀ» º¸À¯ÇÏ´Â ÁöÁ¤ Ç׸ñÀ» ÀǹÌÇÕ´Ï´Ù. »ó¼ö·Î¼­ ¹®ÀÚ¿­À̳ª ¼ýÀÚ ¸®ÅÍ·², ´Ù¸¥ »ó¼ö, ¶Ç´Â Is¿Í Áö¼ö¸¦ Á¦¿ÜÇÑ Áö¼ö¿Í ³í¸® ¿¬»êÀÚÀÇ ¸ðµç Á¶ÇÕÀÌ °¡´ÉÇÕ´Ï´Ù. °¢°¢ÀÇ È£½ºÆ® ÀÀ¿ë ÇÁ·Î±×·¥Àº °íÀ¯ÀÇ »ó¼ö Áý´ÜÀ» Á¤ÀÇÇÒ ¼ö ÀÖ½À´Ï´Ù. »ç¿ëÀÚ´Â Ãß°¡ÀûÀÎ »ó¼ö¸¦ Const ¹®À» »ç¿ëÇÏ¿© Á¤ÀÇÇÒ ¼ö ÀÖ½À´Ï´Ù. »ç¿ëÀÚ´Â ÄÚµåÀÇ ¾î´À °÷¿¡³ª ½ÇÁ¦ °ª ´ë½Å »ó¼ö¸¦ »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù

°¢°¢ÀÇ È£½ºÆ® ÀÀ¿ëÇÁ·Î±×·¥Àº °íÀ¯ÀÇ »ó¼ö Áý´ÜÀ» Á¤ÀÇÇÒ ¼ö ÀÖ½À´Ï´Ù¶ó´Â ´ë¸ñÀ» ´«¿©°Ü º¸½Ê½Ã¿À. ¾Ë½ö´Þ½öÇϽôٱ¸¿ä^^*

ÀÌ·± °ÍÀ̶ø´Ï´Ù...

¡¡

À§ÀÇ ±×¸²Àº ¼±ÅÃÇÑ ¹üÀ§¿¡ ¾Æ·¡ÂÊ Å׵θ®¸¦ ±×¸° °ÍÀ» ¸ÅÅ©·Î ±â·Ï±â·Î ±â·ÏÇÑ ³»¿äÀ̶ø´Ï´Ù. Á¤ÀÛ ÇÊ¿äÇÑ °ÍÀº 
With Selection.Borders(xlEdgeBottom)
     .LineStyle = xlContinuous
     .Weight = xlThin
     .ColorIndex = xlAutomatic
End With
¿Í °°Àº ºÎºÐ»ÓÀÔ´Ï´Ù¸¸. ÀÌ ¾ÆÁÖ  Ä£ÀýÇÑ ±â·Ï±â´Â ¿©·¯ °¡Áö °ÍÀ» ÇѲ¨¹ø¿¡ °¡¸£ÃÄ ÁÖ°í ÀÖ½À´Ï´Ù^^

ÀÚ ¿©±â¼­ ¿©·¯ºÐÀÌ ´«¿©°Ü º¸½Ç ´ë¸ñÀº À§ÀÇ ±×¸²¿¡¼­ »ç°¢Çü, ¸¶¸§¸ð ±×¸®°í Ÿ¿øÇüÀ¸·Î Ç¥½ÃÇÑ ºÎºÐÀÔ´Ï´Ù. ±×°ÍµéÀÇ °øÅëÁ¡Àº, ÀÌ¹Ì ¾Ë¾Æº¸¼Ì°Ú½À´Ï´Ù¸¸, xlÀ̶ó´Â Á¢µÎ»ç¸¦ °¡Áö°í ÀÖ´Ù´Â °ÍÀÔ´Ï´Ù. ¿¢¼¿ÀÇ ¼¿Àº Å׵讶ó´Â ¼Ó¼ºÀ» °¡Áö°í ÀÖ½À´Ï´Ù. ÀÌ Å׵讶ó°í ÇÏ´Â °ÍÀº ¿ÞÂÊ, ¿À¸¥ÂÊ, À§, ¾Æ·¡ ±×¸®°í ¿ÞÂÊ »ç¼±, ¿À¸¥ÂÊ »ç¼±µé·Î ÀÌ·ç¾îÁ® ÀÖ½À´Ï´Ù. »ç¶÷µéÀÇ ±âÁØÀ¸·Î º¸ÀÚ¸é ¿ÞÂÊ ¿À¸¥ÂÊÀ̶õ ±ÔÁ¤ÀÌ Æí¸®ÇÏ°Ú½À´Ï´Ù¸¸, ÄÄÇ»ÅÍ´Â ¸ðµÎ ÀÌ°ÍÀ» ¸î ¹ø° ¿ä¼Ò¶ó°í °ÍÀ¸·Î ±ÔÁ¤ÇÏ°Ô µË´Ï´Ù. Áï, ¸ðµç °ÍÀÌ ¼ö·Î ÀÌ·ç¾îÁ® ÀÖ´Â °ÍÀÌÁö¿ä. ÀÌ·² ¶§ »ó¼ö´Â »ç¶÷°ú ÄÄÇ»ÅÍÀÇ Áß°£¿¡¼­ ±³·® ¿ªÇÒÀ» ÇØÁÖ´Â °ÍÀÔ´Ï´Ù.

Borders(xlEdgeBottom)¶ó´Â Ç¥ÇöÀº, Á¶±Ý º¹ÀâÇÏ°Ô »ç¿ëÇϸé...
Borders.Item(9)¶ó°í ÇÏ´Â °Í°ú °°Àº °ÍÀÔ´Ï´Ù.

Áï, Å׵θ® Ä÷º¼ÇÀÇ 9¹ø° ¿ä¼Ò°¡ xlEdgeBottomÀ̶õ °ÍÀÌÁö¿ä. ÇÏÁö¸¸, ¿¢¼¿Àº ¼ö ¸¹Àº °³Ã¼µé·Î ÀÌ·ç¾îÁ® ÀÖÀ¸¸ç ±× °³Ã¼µéÀÇ ¼Ó¼º ¶ÇÇÑ Çϳª µÑÀÌ ¾Æ´Ï¶ø´Ï´Ù. ƯÈ÷, ¿ÀÇǽº ÇÁ·Î±×·¥ °¡¿îµ¥ ¿¢¼¿Àº °¡Àå º¹ÀâÇÏ°í ´Ù¾çÇÑ ±¸¼º¿ä¼Ò·Î ÀÌ·ç¾îÁ® ÀÖ½À´Ï´Ù. ¿©·¯ºÐÀÌ º¹ÀâÇÏ´Ù°í ´À³¢½Ã´Â ¿¢¼¼½º¿Í ºñ±³Çغ¸´õ¶óµµ, ¿¢¼¼½º¸¦ ÀÌ·ç´Â ±¸¼º¿ä¼ÒÀÇ ¼ö´Â ¿¢¼¿ÀÇ Àý¹ÝÀ» °Ü¿ì ³Ñ´Â Á¤µµÀÔ´Ï´Ù. ÀÚ ÀÌ º¹ÀâÇÑ ¿ä¼ÒµéÀº ¸ðµÎ ¼ýÀڷΠǥÇöµË´Ï´Ù. ±×·¸´Ù¸é, ÀÌ ¸ðµç °ÍÀ» ¾î¶»°Ô Á¢±ÙÇÒ ¼ö ÀÖÀ»±î¿ä. ÀÌ·² ¶§ ¿¢¼¿À» ¸¸µç ÇÁ·Î±×·¡¸ÓµéÀÌ Á¤ÀÇÇÑ ³»Àå »ó¼ö¸¦ ÀÌ¿ëÇØ ¼Õ½±°Ô ¿ì¸®´Â ¿¢¼¿ °³Ã¼¿Í ¼Ó¼º¿¡ Á¢±ÙÀÌ °¡´ÉÇÑ °ÍÀÔ´Ï´Ù. VB¿¡¼­ »ç¿ëÇÑ »ó¼öµéÀº vb¶ó´Â Á¢µÎ»ç¸¦, ¿¢¼¿¿¡¼­ »ç¿ëÇÏ´Â ³»Àå»ó¼öµéÀº xlÀ̶ó´Â Á¢µÎ»ç¸¦ ÀÌ¿ëÇÕ´Ï´Ù. wd¶ó´Â Á¢µÎ»ç´Â ¿öµå¿¡¼­, »ç¿ëÇϸç, ac¶ó´Â Á¢µÎ»ç´Â ¿¢¼¼½º¿¡¼­, pp´Â ÆÄ¿öÆ÷ÀÎÆ®¿¡ »ç¿ëÇÕ´Ï´Ù. mso´Â µµ±¸ ¸ðÀ½°ú °°ÀÌ ¿ÀÇǽº¿¡ °øÅëÀ¸·Î Àû¿ëµÇ´Â »ó¼öµéÀÇ Á¢µÎ»çÀÔ´Ï´Ù. °¢°¢ÀÇ È£½ºÆ® ÀÀ¿ë ÇÁ·Î±×·¥Àº °íÀ¯ÀÇ »ó¼ö Áý´ÜÀ» Á¤ÀÇÇÒ ¼ö ÀÖ½À´Ï´Ù¶ó´Â µµ¿ò¸»ÀÇ Àǹ̴ ¹Ù·Î ÀÌ¿Í °°ÀÌ °¢°¢ÀÇ ÀÀ¿ëÇÁ·Î±×·¥Àº °íÀ¯ÇÑ »ó¼ö¸¦ Á¤ÀÇÇØ »ç¿ëÇÑ´Ù´Â ¶æÀ̶ø´Ï´Ù. Á¤¸» Áß¿äÇÑ °ÍÀº ÀÌ ¸ðµç °ÍÀ» ¾Ë°í °è½ÃÁö ¾Ê¾Æµµ µÈ´Ù´Â °ÍÀÔ´Ï´Ù. ÇÊ¿äÇÒ ¶§¸¶´Ù µµ¿ò¸»À» ã¾Æ º¸½Ã¸é µË´Ï´Ù. ¹°·Ð ºó¹øÇÏ°Ô »ç¿ëÇÑ´Ù¸é, Çϳª µÑ Á¤µµ ¾Ë°í À־ ¹«¹æÇÏ°ÚÁö¿ä...Á¦°¡ °¡Àå ºó¹øÇÏ°Ô »ç¿ëÇÏ´Â VBA³»Àå »ó¼ö´Â vbCrÀÔ´Ï´Ù. ij¸®Áö¸®ÅÏÀ̶õ ¶æÀ̶ø´Ï´Ù. ¾Æ½ºÅ° ¹®ÀÚ 13°ú °°Àº ÀǹÌÀÔ´Ï´Ù. ÀÌ ¹®ÀÚ´Â ´«¿¡ º¸ÀÌÁö ¾Ê´Â ¹®ÀÚÀ̹ǷÎ...³»Àå »ó¼ö¸¦ ÀÌ¿ëÇÏ´Â °ÍÀÌ ¾ÆÁÖ Æí¸®ÇÕ´Ï´Ù.

ÀÚ, ¿Ö ÀÌ·± ³»Àå »ó¼ö¸¦ »ç¿ëÇØ¾ß ÇÏ´ÂÁö ÇÑ°¡Áö ¿¹¸¦ µé¾î º¸µµ·Ï ÇÏ°Ú½À´Ï´Ù. ´Ù½Ã ¸ÅÅ©·Î ±â·Ï±â¸¦ ÀÌ¿ëÇغ¾´Ï´Ù^^

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

'

     With Selection.Interior
           .ColorIndex = 6
           .Pattern = xlSolid
      End With
End Sub
¹«¾ùÀ» ±â·ÏÇÑ ³»¿ëÀÎÁö ¾Æ½Ã°Ú½À´Ï±î? ¼­½Ä µµ±¸ ¸ðÀ½¿¡ ÀÖ´Â »ö ä¿ì±â ´ÜÃ߸¦ ÀÌ¿ëÇØ ¼¿ ¹üÀ§¿¡ ³ë¶û»ö¸¦ ÀÔÈù °ÍÀ» ¸ÅÅ©·Î·Î ±â·ÏÇÑ °ÍÀÔ´Ï´Ù. ¸ÅÅ©·Î ±â·Ï±â·Î ±â·ÏÇϸé Interiror¼Ó¼ºÀÇ ColorIndex¼Ó¼ºÀ» 6À¸·Î ¼³Á¤ÇÑ´Ù´Â ÀÌÇØÇϱ⠾î·Á¿î Äڵ尡 ±â·ÏµË´Ï´Ù. ÀÌ°ÍÀº ¾Æ·¡¿Í °°Àº ÄÚµå·Î ¹Ù²Ü ¼ö ÀÖ½À´Ï´Ù. ¼±ÅÃÇÑ °³Ã¼ÀÇ ³»ºÎ »ö»óÀ» ³ë¶õ»öÀ¸·Î ÇÒ´çÇ϶ó´Â ÄÚµåÀÎ °ÍÀÔ´Ï´Ù.

Sub dhYellowRagne_1()
      Selection.Interior.Color = vbYellow
End Sub

Sub dhYellowRagne_2()
      Selection.Interior.Color = 65535
End Sub
¿ì¸®´Â »¡°²´Ù ÆĶþ´Ù ³ë¶þ´Ù°í ÇÏ´Â °ÍÀ» ÄÄÇ»ÅÍ´Â ¸ðµÎ ¼ýÀڷΠǥ½ÃÇÕ´Ï´Ù. ³ë¶õ»öÀº »ö»óÇ¥ °¡¿îµ¥ 65535¹ø° »öÀÎ °ÍÀÔ´Ï´Ù. dhYellowRagne_1°ú dhYellowRagne_2Àº ¸ðµÎ °°Àº °á°ú¸¦ µÇµ¹¸³´Ï´Ù¸¸, ¿©·¯ºÐÀ̶ó¸é ¾î¶² Äڵ带 »ç¿ëÇϽðڽÀ´Ï±î^^* 

»ç¿ëÀÚ Á¤ÀÇ »ó¼ö ÀÚ ÀÌÁ¦ »ç¿ëÀÚ Á¤ÀÇ »ó¼ö¿¡ ´ëÇØ ¾Ë¾Æ º¸µµ·Ï ÇÏ°Ú½À´Ï´Ù. »ç¿ëÀÚ Á¤ÀǶó´Â ¸»¿¡¼­ ¾Ë ¼ö ÀÖµíÀÌ, ÀÌ »ç¿ëÀÚ°¡ Á¤ÀÇÇÑ »ó¼ö°¡ »ç¿ëÀÚ Á¤ÀÇ »ó¼ö¶ø´Ï´Ù. ÇÏ°í º¸´Ï Çϳª¸¶³ª ÇÑ ¾ê±â±º¿ä^^ Á¦°¡ ¿äÁò ÇÁ·Î±×·¡¹Ö ÇÒ ¶§ ÀÚÁÖ »ç¿ëÇÏ´Â »ó¼ö´Â EsÀÔ´Ï´Ù...¹¹ Ưº°ÇÑ Àǹ̰¡ ÀÖ´Â °ÍÀº ¾Æ´Õ´Ï´Ù. ±×³É Á¦ ¸¾´ë·Î ºÙ¿© º» °ÍÀ̶ø´Ï´Ù. »ç¿ëÀÚ Á¤ÀǶõ »ç¿ëÀÚ ¸¾´ë·Î¶õ ¶æµµ ¾î´À Á¤µµ ÀÖÁö ¾Ê°Ú½À´Ï±î?(Âü°í : Const ¹®À¸·Î ¼±¾ðÇÑ »ó¼ö¸¦ ±âÈ£»ó¼ö¶ó´Â ¸»·Î ¹Ù²Ù¾î ºÎ¸£´Â °æ¿ìµµ ÀÖ½À´Ï´Ù)

»ç¿ëÀÚ Á¤ÀÇ »ó¼ö¸¦ ÀÌ¿ëÇϽ÷Á¸é Const ¹®À» ÀÌ¿ëÇÕ´Ï´Ù.

´Ù½Ã ¿¢¼¿ µµ¿ò¸»À» º¸µµ·Ï ÇÕ´Ï´Ù...^^(Ȥ, ¾Ë°í °è½ÅÁö ¸ð¸£°Ú½À´Ï´Ù¸¸, ÄÄÇ»ÅÍ °ü·Ã Ã¥µéÀº µµ¿ò¸»À» Â¥Áý±âÇÑ ¼öÁØÀÇ °ÍÀÌ ´ëºÎºÐÀ̶ø´Ï´Ù. ¿¹Á¦³ª ÄÚµå ¿ª½Ã µµ¿ò¸»À» ±×´ë·Î º£³¤ °ÍÀÌÁö¿ä. ±×·±µ¥ º£²¼´Ù´Â À̾߱â´Â ¸¹Áö ¾Ê´õ±º¿ä^^*)

±¸¹®
[Public | Private] Const constname [As type] = expression
Const ¹®Àº ´ÙÀ½°ú °°Àº ±¸¼º ¿ä¼Ò·Î µÇ¾î ÀÖ½À´Ï´Ù.

±¸¼º¿ä¼Ò ¼³¸í
Public ¼±ÅÃÀûÀÎ ¿ä¼Ò. »ó¼ö¸¦ ¼±¾ðÇϱâ À§ÇØ ¸ðµâ ¼öÁØ¿¡¼­ »ç¿ëµÈ Å°¿öµå´Â ¸ðµç ¸ðµâ ³»ÀÇ ¸ðµç ÇÁ·Î½ÃÀú¿¡¼­ »ç¿ëÇÒ ¼ö ÀÖÁö¸¸ ÇÁ·Î½ÃÀú ³»¿¡¼­´Â »ç¿ëÇÒ ¼ö ¾ø½À´Ï´Ù.
Private ¼±ÅÃÀûÀÎ ¿ä¼Ò. »ó¼ö¸¦ ¼±¾ðÇϱâ À§ÇØ ¸ðµâ ¼öÁØ¿¡¼­ »ç¿ëµÈ Å°¿öµå´Â ¼±¾ðÀÌ ¸¸µé¾îÁø ¸ðµâ ³»¿¡¼­¸¸ »ç¿ëÇÒ ¼ö ÀÖÀ¸¸ç, ÇÁ·Î½ÃÀú ³»¿¡¼­´Â »ç¿ëÇÒ ¼ö ¾ø½À´Ï´Ù.
constname ÇʼöÀûÀÎ ¿ä¼Ò. »ó¼öÀÇ À̸§Àº Ç¥ÁØ º¯¼ö ¸í¸í ±ÔÄ¢¿¡ µû¸¨´Ï´Ù.
type ¼±ÅÃÀûÀÎ ¿ä¼Ò. »ó¼öÀÇ µ¥ÀÌÅÍ Çü½ÄÀº ´ÙÀ½°ú °°½À´Ï´Ù.

Byte, Boolean, Integer, Long, Currency, Single, Double, Decimal(ÇöÀç Áö¿ø ¾ÈµÊ), Date, String, Variant.

¼±¾ðµÈ °¢°¢ÀÇ »ó¼ö¿¡ ´ëÇÏ¿© µ¶¸³ÀûÀÎ As type ÀýÀ» »ç¿ëÇÕ´Ï´Ù.

expression ÇʼöÀûÀÎ ¿ä¼Ò. Is¸¦ Á¦¿ÜÇÑ ¸ðµç ¼ýÀÚ³ª ³í¸® ¿¬»êÀÚ¸¦ Æ÷ÇÔÇÏ´Â ¹®ÀÚ¿­, ´Ù¸¥ »ó¼ö ¶Ç´Â ¸ðµç Á¶ÇÕÀÔ´Ï´Ù.

À§ÀÇ ±¸¹®¿¡¼­ []·Î Ç¥½Ã ÇÑ °ÍÀº »ý·« °¡´ÉÇÏ´Ù(¼±ÅÃÀûÀ̶ó)´Â ¶æÀÔ´Ï´Ù. Áï, ¾Æ·¡ÀÇ ¿©·¯ ±¸¹®À» ºñ±³ÇØ º¸¼¼¿ä.

Public Const Es As String = "MgicSheet & ¿¢»ç¸ð"
Private Const Es As String = "MgicSheet & ¿¢»ç¸ð"
Public Const Es = "MgicSheet & ¿¢»ç¸ð"
Private Const Es = "MgicSheet & ¿¢»ç¸ð"
Const Es As String = "MgicSheet & ¿¢»ç¸ð"
Const Es = "MgicSheet & ¿¢»ç¸ð"
ª°Ô ¸»Çϸé, À§¿¡ ¿­°ÅÇÑ ¿¹Á¦´Â ¸ðµÎ Es¶õ »ó¼ö¸¦ ÀÌ¿ëÇØ " MagicSheet & ¿¢»ç¸ð¶ó"´Â ¹®ÀÚ¿­À» ´ë½ÅÇÏ°Ú´Ù´Â ¼±¾ðÀÔ´Ï´Ù. ÀÌ·¸°Ô Const¹®À» ÀÌ¿ëÇØ »ó¼ö¸¦ ¼±¾ðÇØ µÎ¸é, VBA´Â ¾ÕÀ¸·Î ÇÁ·Î½ÃÀú¿¡¼­ ¸¸³ª´Â Es »ó¼ö¸¦ ¸ðµÎ " MgicSheet & ¿¢»ç¸ð"¶ó´Â ¹®ÀÚ¿­·Î Çؼ®ÇÏ°í ¹Ù²Ù°Ô µÇ´Â °ÍÀÔ´Ï´Ù.

ÀÌ »ó¼ö¸¦ ÀÌ¿ëÇÏ´Â ÀÌÀ¯´Â ¾Õ¼­ ¸»¾¸µå¸° ´ë·Î(»ç½Ç, º¯¼ö¸¦ ¼±¾ðÇÏ°í °ªÀ» ´ëÀÔÇÑ µÚ, ÀÌ º¯¼öÀÇ °ªÀ» º¯°æÇÏÁö ¾ÊÀ¸¸é ÀÌ º¯¼ö´Â »ó¼öÀÇ ¿ªÇÒÀ» ¸¶Âù°¡Áö·Î ¼öÇàÇÕ´Ï´Ù) Æí¸®ÇÔ ¶§¹®À̶ø´Ï´Ù. ÇϳªÀÇ ¸ðµâÀ̳ª ÇÁ·Î½ÃÀú ³»¿¡¼­ °øÅëÀûÀ¸·Î ¿©·¯¹ø »ç¿ëÇØ¾ß ÇÒ ³»¿ëÀÌ ÀÖ´Ù¸é »ó¼ö¸¦ ¼±¾ðÇØ µÎ¾î ÇѲ¨¹ø¿¡ ġȯÀÌ °¡´ÉÇÑ °ÍÀ̴ϱî¿ä.

¿­°ÅÇü »ó¼ö ¿­°ÅÇü »ó¼ö´Â º°·Î Àß »ç¿ëÇÏÁö ¾Ê´Â °ÍÀÔ´Ï´Ù¸¸, ¾Ë¾ÆµÎ½Ã¸é ¸¹Àº °æ¿ì À¶Å뼺À» ¹ß°ßÇÏ½Ç ¼ö ÀÖ´ä´Ï´Ù. »ç½Ç ¾Õ¼­ ¸»¾¸ µå¸° ³»Àå»ó¼öµé ´ëºÎºÐ ÀÌ·± ¿­°ÅÇü »ó¼ö¶ø´Ï´Ù. ¾Æ·¡ÀÇ °£´ÜÇÑ(¾Æ´Ï º¹ÀâÇÑ°¡¿ä^^* ÄÚµåâ¿¡ º¹»çÇØ ºÙ¿©³ÖÀ¸½Ã¸é µË´Ï´Ù) ¿¹Á¦¸¦ º¸µµ·Ï ÇÕ´Ï´Ù.

Option Explicit
Enum Escolor

°ËÁ¤ = 1
Èò»ö = 2
»¡°­ = 3
¹àÀº³ì»ö = 4
ÆĶû = 5
³ë¶û = 6
ºÐÈ« = 7
¹àÀº¿Á»ö = 8
ÁøÇÑ»¡°­ = 9
³ì»ö = 10
ÁøÇÑÆĶû = 11
ÁøÇѳë¶û = 12
º¸¶ó = 13
ÁøÇÑû·Ï = 14
ȸ»ö25 = 15
ȸ»ö50 = 16
Çϴûö = 33
¿¬ÇÑ¿Á»ö = 34
¿¬³ì»ö = 35
¿¬³ë¶û = 36
È帰ÆĶû = 37
Àå¹Ì»ö = 38
¿¬º¸¶ó = 39
ȓȚ = 40
¿¬ÇÑÆĶû = 41
¿¬Çѳìû = 42
¶óÀÓ = 43
±Ý»ö = 44
¿¬ÇÑÁÖȲ = 45
ÁÖȲ = 46
ûȸ»ö = 47
ȸ»ö40 = 48
ÁøÇÑ¿Á»ö = 49
ÇØ·Ï»ö = 50
ÁøÇѳì»ö = 51
Ȳ·Ï»ö = 52
°¥»ö = 53
ÀÚÁÖ = 54
³²»ö = 55
ȸ»ö = 56

End Enum
Sub dhDoThis()
   dhEnumSample ³ë¶û
   'dhEnumSample Escolor.³ë¶û 'À§ÀÇ ÄÚµå¿Í °°Àº °á°úÀÔ´Ï´Ù
End Sub
Sub dhEnumSample(LngColor As Long)
   Selection.Interior.ColorIndex = intColor
End Sub

EnumÀ̶õ Emumeration(¿­°Å)ÀÇ ÁÙÀÓ¸»ÀÔ´Ï´Ù. ¿ì¸®´Â ¸ðµâ¿¡ À§¿Í °°ÀÌ Enum ¹®À» ÀÌ¿ëÇØ »ó¼ö¸¦ Á¤ÀÇÇÏ°í À̸¦ »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù.(ÁÖÀÇ :  Const ¹®°ú´Â ´Ù¸£°Ô Enum »ó¼ö´Â ¿À·ÎÁö LongŸÀÔÀÇ »ó¼ö¸¸À» Á¤ÀÇÇÒ ¼ö ÀÖ½À´Ï´Ù) ¿¢¼¿¿¡¼­´Â °£´ÜÇÑ »ö»óÇ¥¸¦ Á¤ÀÇÇÏ¿© À̸¦ »ç¿ëÇÕ´Ï´Ù¸¸ ¿©±â¿¡ ´ëÇÑ »ó¼ö´Â Á¦°øµÇÁö ¾Ê´Â µí ½Í½À´Ï´Ù.(À§ÀÇ ¿¹Á¦¿¡¼­ Áß°£Áß°£ ¿¬¼ÓµÇÁö ¾Ê´Â ¼ýÀÚ¸¦ ¹ß°ßÇÏ½Ç ¼ö ÀÖÀ» °ÍÀÔ´Ï´Ù. ÀÌ°ÍÀº Á¦°¡ »ö»ó À̸§À» ¹¹¶ó°í ÇؾßÇÒÁö Àß ¸ô¶ó ºÙÀÌÁö ¸øÇÑ °ÍÀ̶ø´Ï´Ù^^)
À§ÀÇ ¿¹Á¦´Â ¿­°ÅÇü »ó¼ö¸¦ ¼±¾ðÇÏ°í À̸¦ ÀÌ¿ëÇÏ¿© ¼¿ÀÇ ³»ºÎ »ö»óÀ» º¯°æÇϵµ·Ï ÇÑ ¿¹Á¦ÀÔ´Ï´Ù. ¶ÇÇÑ ¿­°ÅÇü »ó¼ö¸¦ ¼±¾ðÇÏ¸é ¾Æ·¡¿Í °°ÀÌ VBAÆíÁý±â¿¡¼­ ÀÌ »ó¼ö ¸ñ·ÏÀ» ½±°Ô ÀÌ¿ëÇÒ ¼ö ÀְԵ˴ϴÙ.

¿À´ÃÀº ¾Õ¼­ ¸»¾¸µå¸° ´ë·Î, ¼Ò³ª¹« ÇÑ ±×·ç¸¦ °¨»óÇϼ̽À´Ï´Ù. ¾ÆÁÖ ÀÌ»óÇÑ ¼Ò³ª¹«¶ó±¸¿ä..Á˼ÛÇÕ´Ï´Ù^^* ´ÙÀ½ ½Ã°£¿¡´Â, ÇÁ·Î±×·¡¹Ö¿¡¼­ °¡Àå Áß¿äÇÑ ¿ä¼Ò °¡¿îµ¥ ÇϳªÀÎ º¯¼ö¿¡ ´ëÇØ ¸»¾¸µå¸®±â·Î ÇÏ°Ú½À´Ï´Ù.

±×·³...´ÙÀ½¿¡ ¶Ç*^_^*

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

¡¡

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