[¸ÅÅ©·Î/VBA 020] µ¥ÀÌÅÍ ÀÔ·Â ÇÁ·Î½ÃÀú °ÀÇ Èï¹ÌÀÖ°Ô º¸°í ÀÖ½À´Ï´Ù.
Áú¹® »çÇ×Àº À§ °Á¿¡¼´Â µ¿ÀÏ Sheet¿¡¼ÀÇ ÀÔ·ÂÀ» ¼³¸íÇÏ°í Àִµ¥ Àú´Â ÆÄÀϸíÀÌ Æ²¸° ¿¢¼¿¿¡¼ ÀÔ·ÂÇÏ¿©
Ÿ ÆÄÀϸíÀÇ ÁöÁ¤µÈ sheet·Î ÀÔ·ÂÇÏ°í ½Í½À´Ï´Ù.
Áï, ÀÔ·ÂÇÏ´Â ¿¢¼¿ ÆÄÀϸíÀº PR.XLSÀÇ Sheet¸í Data ÀÔ´Ï´Ù. ¿©±â¼ ÀÔ·ÂÇؼ ¿¢¼¿ ÆÄÀϸí PR1.XLSÀÇ Sheet¸í
Data·Î ÀÔ·ÂÇÏ°í ½Í½À´Ï´Ù. ¾Æ·¡´Â Á¦°¡ Á¶±Ý ÀÀ¿ëÇؼ Çغ¸¾Ò´Âµ¥ Àß ¾ÈµÇ³×¿ä. ¾îµð°¡ Ʋ·È´ÂÁö ÁöÀû ºÎŹÇÕ´Ï´Ù.
Sub Data_Input() Range("A6:O6").Copy Range("'[PR1.XLS]Data'!B" & Range("'[PR1.XLS]Data'!E3") + 5) Range("A6:O6").ClearContents Range("A6").Select End Sub
ÃÖ¿ë¼® ¿Ã¸²
Ã߽Š: ¾îÁ¦ ´äº¯¿¡ °¨»çµå¸³´Ï´Ù.
|