¾È³çÇϼ¼¿ä..
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) À̶ó°í Á¶°ÇÀ» ÁÙ ¼öµµ ÀÖÀ» °Í °°¾Æ¿ä.
²ÙÁØÈ÷ °øºÎ ÁßÀ̽ñº¿ä. ¿°øÇϽðí... ÇÑ ÇØ ¸¶¹«¸® Àß Çϼ¼¿ä. °¨»çÇÕ´Ï´Ù.
|