ȸ¿ø°¡ÀÔ °øÁö»çÇ×
·Î±×ÀÎ
ºñ¹Ð¹øÈ£
´ëÇаæÀï·ÂºÐ¼®½Ã½ºÅÛ(U-CAS) ÇаúÆò°¡ ¹× Çٽɼº°úÁöÇ¥ ºÐ¼®(U-CAS+)
[¿¢¼¿ÀÚµ¿È­±â¼ú] ¸Þ´º [¿¢¼¿°­ÁÂ] ¸Þ´º [ÀÚ°ÝÁõ/¹®Á¦ÀºÇà] ¸Þ´º
 È¸¿ø ¹æ¹® ¼ö    8,351,586 ¸í  
 Á¢¼Ó Àοø ¼ö    3,482 ¸í  
  Ȩ > ¹¯°í´äÇϱ⠠  

   [Re]´Ù½Ã±Ý °¡¸£Ä§À» ±¸ÇÏ·¯ ¿Ó½À´Ï´Ù. ¤¾¤¾
   µÎµå¸²
2010-12-06 Á¶È¸: 2,430

¾È³çÇϼ¼¿ä..

 

1) range("c3")="=sum(a1:a8)"

 

¼¿¿¡ ÀÔ·ÂÇÒ °ªÀÌ µû¿ÈÇ¥·Î ¹­¿©ÀÖÁÒ? ÀÌ°ÍÀº String °ªÀ¸·Î ½ÄÀÇ ÇüŸ¦ Á¶ÀÛÇÒ ¼ö ÀÖ´Ù´Â ¶æÀä.

À§ÀÇ ¼ö½ÄÀ» ÀÌ·± ½ÄÀ¸·Îµµ ¾µ ¼ö ÀÖ½À´Ï´Ù.

range("c3") = "=sum(a" & 1 & ":a" & 8 & ")"

 

±×·¯´Ï±î À§ÀÇ ½Ä¿¡ ¼ýÀÚ 1À̳ª 8 ´ë½Å º¯¼ö¸¦ ´ë½Å ½áµµ µÈ´Ù´Â À̾߱Ⱑ µÇ³×¿ä.

Àß ¿¬±¸Çؼ­ È°¿ëÇϼ¼¿ä.

 

 

2) if range("a11")=¹®ÀÚ¶ó¸é  then

 

VBA ÇÔ¼ö¿¡´Â ¼¿ °ªÀÌ ¹®ÀÚÀÎÁö¸¦ üũÇÏ´Â ³à¼®ÀÌ ¾ø³×¿ä. ¼ýÀÚ³ª ³¯Â¥¸¦ üũÇÏ´Â

IsNumeric À̳ª IsDate µîÀÇ ÇÔ¼ö´Â Àִµ¥ ¸»ÀÌÁÒ.

±×·¡¼­ ¿öÅ©½ÃÆ® ÇÔ¼öÀÎ IsText ÇÔ¼ö¸¦ ½á¾â °Í °°½À´Ï´Ù.

 

If WorksheetFunction.IsText(Range("A11")) Then ....

 

ÀÌ·¸°Ô¿ä. ±»ÀÌ VBA ÇÔ¼ö¸¦ ¾²°í ½Í´Ù¸é

 

If Not IsNumeric(Range("A11")) Then ...

 

ÀÌ·¸°Ô ¾Æ½¬¿î´ë·Î ¼ýÀÚ°¡ ¾Æ´Ï¸é(Not) À̶ó°í Á¶°ÇÀ» ÁÙ ¼öµµ ÀÖÀ» °Í °°¾Æ¿ä.

 

²ÙÁØÈ÷ °øºÎ ÁßÀ̽ñº¿ä. ¿­°øÇϽðí... ÇÑ ÇØ ¸¶¹«¸® Àß Çϼ¼¿ä. °¨»çÇÕ´Ï´Ù.






ÀÛ¼ºµÈ ÄÚ¸àÆ®°¡ ¾ø½À´Ï´Ù.

¡Ø ÀÌ °Ô½Ã¹°¿¡ ´ëÇÑ ÀÇ°ßÀ» ÀÔ·ÂÇØ ÁÖ¼¼¿ä(4,000ÀÚ À̳»).
¿¢¼¿¿¬¸»Á¤»êÀÚµ¿°è»ê
¿¢¼¿ 2007 ±³À°
¿öµåÇÁ·Î¼¼¼­ ±âÃâ¹®Á¦
ÄÄÇ»ÅÍÈ°¿ë ±âÃâ¹®Á¦
2013³â ±Þ¿© ÀÚµ¿°è»ê
´Ü¿øº° ±âÃâ¹®Á¦ °Ë»ö
¿¢¼¿ÀÚµ¿È­ ¼­½Ä
¿¢¼¿ÀÚµ¿È­ ¹æ¹ý
¿¢¼¿½Ç¹« ÆÁ
µÎµå¸² ÅëÇÕ °Ë»ö
¿¢¼¿ÀÚµ¿È­¼­½ÄÁ¦ÀÛ¿äû
»óÈ£ : µÎµå¸²±âȹ | »ç¾÷ÀÚµî·Ï¹øÈ£ : 105-20-55088 | Åë½ÅÆǸž÷½Å°í¹øÈ£ : ¸¶Æ÷Åë½Å Á¦5343È£ | ´ëÇ¥ : ÀÌÇü¹ü |
°í°´Á¤º¸°ü¸®Ã¥ÀÓÀÚ : À̼ҿ¬ | ÁÖ¼Ò : ¼­¿ïƯº°½Ã ¸¶Æ÷±¸ ¿ùµåÄÅ·Î16±æ 47 201È£(¼­±³µ¿) | ÀüÈ­: 02)323-7705 |
Fax: 0504)446-5419 | ÀԱݰèÁ : ±¹¹ÎÀºÇà(543001-01-213514) | E-Mail :
Copyright 2006 µÎµå¸²±âȹ(www.edodream.com) All Rights Reseved.