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

9. ³¯Â¥ ¼­½Ä º¯°æ

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

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

¿À´ÃÀº ³¯Â¥¼­½ÄÀ» º¯°æÇÏ´Â ¸ðµâÀ» ¸¸µé Â÷·ÊÀÔ´Ï´Ù. Ç¥½ÃÇü½ÄÀ» ¹Ù²Ù´Â ÇÙ½ÉÄÚµå´Â .NumberFormat ¼Ó¼ºÀÔ´Ï´Ù. ¸¶ÀÌÅ©·Î¼ÒÇÁÆ® ¿¢¼¿ÀÇ µµ¿ò¸»À» »ìÆ캸¸é ´ÙÀ½°ú °°Àº ¿¹Á¦Äڵ尡 ÀÖ½À´Ï´Ù.
Worksheets("Sheet1").Range("A17").NumberFormat = "ÀϹÝ"
Worksheets("Sheet1").Rows(1).NumberFormat = "hh:mm:ss"
Worksheets("Sheet1").Columns("C"). NumberFormat = "$#,##0.00_);[»¡°­]($#,##0.00)"

1¹ø° ¿¹Á¦ÄÚµå´Â [¼¿ ¼­½Ä]´ëÈ­»óÀÚÀÇ [Ç¥½Ã Çü½Ä]ÅÇ¿¡¼­ "ÀϹÝ"À» ¼±ÅÃÇÑ °Í°ú °°Àº È¿°ú¸¦ ÁÝ´Ï´Ù. 2¹ø° ¿¹Á¦ÄÚµå´Â ½Ã°£À» Ç¥½ÃÇÏ´Â ¿¹ÀÔ´Ï´Ù. 3¹ø° ¿¹Á¦ÄÚµå´Â ¼Ò¼öÁ¡2ÀÚ¸®¸¦ °¡Áö°í õ´ÜÀ§¸¶´Ù Äĸ¶¸¦ Âï°í ÅëÈ­Ç¥½Ã(´Þ·¯)¸¦ ÇÕ´Ï´Ù. ±×¸®°í À½¼öÀÎ °æ¿ì »¡°­»öÀ¸·Î Ç¥½ÃÇÏ°í °ýÈ£¾È¿¡ Ç¥½ÃÇÕ´Ï´Ù.

¿©±â¿¡¼­´Â ³¯Â¥¼­½ÄÀ» º¯°æÇÒ °ÍÀÔ´Ï´Ù. ³¯Â¥ ¼­½ÄÀ» º¯°æÇÏ·Á¸é ¿¬µµ¸¦ ÀǹÌÇÏ´Â "Y", ¿ùÀ» ÀǹÌÇÏ´Â "M", ÀÏÀÚ¸¦ ÀǹÌÇÏ´Â "D"¸¦ »ç¿ëÇÏ¿© ¼­½ÄÀ» ¸¸µé°Ô µË´Ï´Ù. µû¶ó¼­ "YYYY"´Â ¿¬µµ¸¦ ³×ÀÚ¸®(1999,2000,2001µîµî)·Î Ç¥½ÃÇÏ°í "YY"ÀÌ¸é ¿¬µµÀÇ ³¡ µÎÀÚ¸®¸¸ Ç¥½ÃÇÏ°Ô µË´Ï´Ù. "MM"ÀÌ¸é µÎÀÚ¸® ¼ýÀÚ·Î ¿ùÀ» Ç¥½ÃÇÕ´Ï´Ù. "MMM"À̸é Jan,Feb,Marµîµî ¿µ¹®¾àÀÚ ¼¼ ÀÚ¸®·Î ¿ùÀ» Ç¥½ÃÇÕ´Ï´Ù.

frmDateÀ¯ÀúÆûÄÚµå
Option Explicit

Private Sub InitDateType()
     With lstDateType
          .AddItem "YYYY-MM-DD"
          .AddItem "YYYY-M-D"
          .AddItem "YYYY³â MM¿ù DDÀÏ"
          .AddItem "YYYY³â MMêÅ DDìí"
          .AddItem "YY-MM-DD"
          .AddItem "YY-M-D"
          .AddItem "YY³â MM¿ù DDÀÏ"
          .AddItem "YY³â MMêÅ DDìí"
     End With
End Sub

Private Sub btnCancel_Click()
     Unload Me
End Sub

Private Sub lstDateType_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
     Selection.NumberFormat = lstDateType.Text
End Sub

Private Sub UserForm_Initialize()
     InitDateType
End Sub

À§ÀÇ Äڵ尡 ÀüºÎÀε¥ »ó´çÈ÷ °£´ÜÇÏÁÒ! ÁÖ¿ä ÇÁ·Î½ÃÁ®¸¦ ¼³¸íµå¸®ÀÚ¸é 
Private Sub InitDateType()´Â AddItem¸Þ¼Òµå¸¦ »ç¿ëÇÏ¿© ¸ñ·Ï»óÀÚ¿¡ ³¯Â¥¼­½ÄÇ׸ñÀ» Ãß°¡ÇÏ´Â ÇÁ·Î½ÃÁ®ÀÔ´Ï´Ù. ÀÌ·¯ÇÑ ÇÁ·Î½ÃÁ®´Â Private Sub UserForm_Initialize()¿¡¼­ »ç¿ëÇÕ´Ï´Ù. 

Private Sub InitDateType()
     With lstDateType
          .AddItem "YYYY-MM-DD"
          .AddItem "YYYY-M-D"
          .AddItem "YYYY³â MM¿ù DDÀÏ"
          .AddItem "YYYY³â MMêÅ DDìí"
          .AddItem "YY-MM-DD"
          .AddItem "YY-M-D"
          .AddItem "YY³â MM¿ù DDÀÏ"
          .AddItem "YY³â MMêÅ DDìí"
     End With
End Sub

Private Sub UserForm_Initialize()´Â À¯ÀúÆûÀÌ Ã³À½ ½ÇÇàµÇ¸é¼­ ½ÃÀ۵Ǵ À̺¥Æ®ÇÁ·Î½ÃÁ®ÀÔ´Ï´Ù. 
Private Sub UserForm_Initialize()
     InitDateType
End Sub

Private Sub lstDateType_DblClick()´Â ¸ñ·Ï»óÀÚ(»óÀÚÀ̸§Àº lstDateTypeÀÔ´Ï´Ù) ÀÇ Ç׸ñÀ» ´õºí Ŭ¸¯ÇÒ‹š ½ÇÇàµÇ´Â ÇÁ·Î½ÃÁ®ÀÔ´Ï´Ù. ÀÌ ÇÁ·Î½ÃÁ®´Â ÀÌ À¯ÀúÆûÀÇ ÇÙ½ÉÀÔ´Ï´Ù.
Private Sub lstDateType_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
     Selection.NumberFormat = lstDateType.Text
End Sub
ÇÁ·Î½ÃÁ®ÀÇ ³»¿ëÀ» »ìÆ캸¸é ¼±ÅÃÇÑ ¼­½ÄÇ׸ñ(lstDateType.Text)ÀÇ ÅؽºÆ®¸¦ ÇöÀç ¼±Åÿµ¿ªÀÇ NumberFormat¼Ó¼º¿¡ ÁöÁ¤ÇÏ°Ô µË´Ï´Ù. 

¿©±â¿¡ Ãß°¡ÇÏÀÚ¸é Private Sub InitDateType()¿¡ ÀÚ½ÅÀÌ ÀÚÁÖ »ç¿ëÇÏ´Â ¿©·¯ °¡Áö ¼­½Ä(³¯Â¥¼­½ÄÀÌ ¾Æ´Ï´õ¶óµµ »ó°ü¾ø½À´Ï´Ù)À» ³Ö¾îµÎ¸é ÀÚ½ÅÀÌ ¾Ö¿ëÇÏ´Â ¼­½ÄÀ» ½±°Ô Àû¿ëÇÒ ¼ö µµ ÀÖÀ» °Ì´Ï´Ù.

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

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

¡¡

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