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

¿¹Á¦ÆÄÀÏ ³»·Á¹Þ±â

¹®¼­º´ÇÕ¸¶¹ý»ç¿¹Á¦ÆÄÀÏ

¹®¼­º´ÇÕ¸¶¹ý»ç


Ưº°°­Á : ¿¢¼¿ ¹®¼­ º´ÇÕ Àμ⠸¶¹ý»ç ¸¸µé±â

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

¿¢¼¿ ¹®¼­ º´ÇÕ Àμ⠸¶¹ý»ç ¸¸µé±â -1

°¡Àå ÈçÇÑ Áú¹® °¡¿îµ¥ Çϳª°¡, ¿öµåÀÇ ¹®¼­ º´ÇÕ ±â´É°ú °°Àº °ÍÀ» ¿¢¼¿¿¡´Â ¾ø´À³Ä ÇÏ´Â °ÍÀÔ´Ï´Ù. ¿¢¼¿ÀÇ ±âº»ÀûÀ¸·Î ±×·± º´ÇÕ ±â´ÉÀº Á¦°øÇÏÁö ¾Ê½À´Ï´Ù. ÇÏÁö¸¸, ¿¢¼¿ÀÇ ±âº» ±â´ÉÀ» Á¶±Ý¸¸ ÀÌ¿ëÇÏ°í, VBA¸¦ µ¡ºÙÀÌ¸é ±× ¾î¶² °Íº¸´Ù Æí¸®ÇÏ°Ô ¹®¼­ º´ÇÕÀ» ÇÒ ¼ö ÀÖ´Â ÇÁ·Î±×·¥ÀÌ ¹Ù·Î ¿¢¼¿ÀÔ´Ï´Ù.

VBA¸¦ ¹è¿ì½Ã°Ú´Ù´Â ºÐµéÀº ¾î´À Á¤µµ ¿¢¼¿ÀÇ ±âº» ±â´É¿¡ Àͼ÷ÇÏ½Ç °ÍÀ̹ǷÎ, ÀÌ¿¡ ´ëÇÑ ¼Ò°³´Â ÁÙÀÌ°í, ´ë½Å, ¾ÆÁÖ °£´ÜÇÑ ¿¹Á¦¸¦ °¡Áö°í ¹®¼­ º´ÇÕ ¸¶¹ý»ç¸¦ ¸¸µé¾î °¡´Â °úÁ¤À» Â÷·Ê·Î ¾È³»Çϵµ·Ï ÇÏ°Ú½À´Ï´Ù.

ºÎµð ÀÌ ¿¹Á¦¸¦ ÅëÇØ, VBA ÇÁ·Î±×·¥¿¡ ´ëÇÑ °¨À» ÀâÀ¸½Ã±æ ¹Ù¶ø´Ï´Ù. ±×·³, ½ÃÀÛÇÕ´Ï´Ù^^*

¿¹Á¦´Â ¿öµå À¯Àú Ŭ·´¿¡¼­ Á¦°øÇÑ ¸ÚÁø °­Á¿¡¼­ µû¿Ô½À´Ï´Ù. ¿¢¼¿ÀÌ ¾î¶»°Ô ¿öµå ±× ÀÌ»óÀÇ ¿öµå ±â´ÉÀ» ¹ßÈÖÇÒ ¼ö ÀÖ´ÂÁö º¸¿©ÁÖ±â À§Çؼ­°¡ ¾Æ´Ï¶ó...ÀÌ·± °Íµµ °¡´ÉÇÔÀ» º¸¿©ÁÖ±â À§ÇÑ °ÍÀ»ÀÓÀ» ¸ÕÀú Çì¾Æ·ÁÁֽʽÿÀ. ¿öµå À¯Àú Ŭ·´ °­Á´ ¾Æ·¡¿Í °°½À´Ï´Ù. ¾ÆÁ÷, ¸øº¸½Å ºÐÀ̶ó¸é ¾Æ·¡ ¸µÅ©¸¦ Âü°íÇϽʽÿÀ.

ÆíÁý º´ÇÕÀ» ÀÌ¿ëÇÑ ±³À° À̼öÁõ ¸¸µé±â(1)
ÆíÁý º´ÇÕÀ» ÀÌ¿ëÇÑ ±³À° À̼öÁõ ¸¸µé±â(2)
ÆíÁý º´ÇÕÀ» ÀÌ¿ëÇÑ ±³À° À̼öÁõ ¸¸µé±â(3)


¸¶¹ý»ç ¿¹Á¦ ÆÄÀÏÀº µÎ °³ÀÇ ½ÃÆ®·Î ±¸¼ºµÇ¾î ÀÖ½À´Ï´Ù. À̼öÁõÀ̶õ À̸§ÀÇ ¾ç½Ä ½ÃÆ®°¡ ±× Çϳª°í, ¸í´ÜÀ̶ó°í ÇÏ´Â À̸§ÀÇ µ¥ÀÌÅÍ ¸ñ·ÏÀÌ ÀÖ´Â ½ÃÆ®°¡ ±× ÇϳªÀÔ´Ï´Ù.

¸í´ÜÀ̶ó´Â ½ÃÆ®¿¡ ÀÖ´Â ¸ñ·ÏÀÇ ¹üÀ§¸¦ ¼±ÅÃÇØ Database¶ó´Â À̸§À» ºÙ¿©µÎ¾ú½À´Ï´Ù.(ÆÁ! À̸§¿¡ ¼ö½ÄÀ» ÀÌ¿ëÇϸé, µ¿ÀûÀ¸·Î µ¥ÀÌÅÍ ¹üÀ§¸¦ È®ÀåÇÒ ¼ö ÀÖ½À´Ï´Ù. ¿¹Á¦ ÆÄÀÏ¿¡´Â Database¶ó´Â À̸§ÀÇ ÂüÁ¶¹üÀ§°¡ =¸í´Ü!$A$2:$F$13·Î °íÁ¤µÇ¾î ÀÖ½À´Ï´Ù. ÀÌ ÂüÁ¶¸¦ ´ÙÀ½°ú °°Àº ¼ö½ÄÀ» ÀÔ·ÂÇØ º¯°æÇØ º¸½Ê½Ã¿À. = OFFSET(¸í´Ü!$A$1,1,0,COUNTA(¸í´Ü!$A:$A)-1,COUNTA(¸í´Ü!$1:$1)) µ¥ÀÌÅÍ°¡ Ãß°¡µÇ´õ¶óµµ µ¿ÀûÀ¸·Î ±× ¹üÀ§¸¦ ÀÚµ¿À¸·Î È®ÀåÇÏ°Ô µÉ °ÍÀÔ´Ï´Ù. ÀÚ¼¼ÇÑ °ÍÀº ¿¢»ç¸ð ÀϹÝÆÁ¶õÀÇ À̸§ÀǼ¼°è¸¦ Âü°íÇϽʽÿÀ)

ÀÌ ¾ç½Ä ½ÃÆ®¿¡¼­´Â ¿öÅÍ ¸¶Å© È¿°ú¸¦ ³»±â À§ÇØ ¾à°£ÀÇ Æ®¸¯À» »ç¿ëÇÏ¿´½À´Ï´Ù. ¿öÅ©½ÃÆ®¿¡ ±×¸²À» »ðÀÔÇϸé, ÀÌ ±×¸²Àº ¾ðÁ¦³ª ¼¿ À§¿¡ À§Ä¡ÇÏ°Ô µÇ¹Ç·Î ÀÏ¹Ý ¿öµå ÇÁ·Î±×·¥¿¡¼­ Á¦°øÇϴ¹è°æ ±×¸²ÀÇ È¿°ú¸¦ °ÅµÑ ¼ö ¾ø½À´Ï´Ù(Àß ¾Æ½Ã°Ú½À´Ï´Ù¸¸, ½ÃÆ® ¹è°æÀ» ±×¸²À¸·Î ³ÖÀ» ¼ö´Â ÀÖÀ¸³ª ÀμⰡ µÇÁö ¾Ê½À´Ï´Ù) ±×·¡, ¾à°£ÀÇ Æ®¸¯À» ÀÌ¿ëÇØ ¿öÅÍ ¸¶Å© È¿°ú¸¦ °ÅµÑ ¼ö ÀÖµµ·Ï Çß½À´Ï´Ù. ÀÌ¿¡ ´ëÇؼ­´Â ¾Æ·¡ÀÇ ÆÁÀ» Âü°íÇϽʽÿÀ.


ÆÁ! ±×¸®±â °³Ã¼¿¡ ¿öÅ©½ÃÆ® ¼¿ ¿¬°áÇϱâ : ¾Æ·¡ÀÇ ±×¸²°ú °°ÀÌ ±×¸®±â °³Ã¼¿Í ¿öÅ©½ÃÆ®ÀÇ ¼¿À» ¼ö½ÄÀ» ÀÌ¿ëÇØ ¿¬°áÇÏ¸é ¼¿ÀÇ ³»¿ëÀÌ º¯µ¿ÇÏ¸é ±×¸®±â °³Ã¼¿¡ Ç¥½ÃµÈ ÅؽºÆ®·Î ¿¬µ¿µÇ¾î º¯ÇÏ°Ô µÈ´Ù

¡¡


ÇÔ¼ö¸¦ ÀÌ¿ëÇÏ¿© ¸ñ·Ï°ú ¾ç½ÄÀ» ¿¬°áÇϱâ : ¿¢¼¿ Ãʺ¸¸¦ Å»ÃâÇϽŠºÐÀ̽öó¸é ´©±¸³ª ¾Ë°í °è½Ç indexÇÔ¼ö¸¦ ÀÌ¿ëÇÏ¿©, À̼öÁõÀ̶ó´Â ¾ç½Ä½ÃÆ®¿Í µ¥ÀÌÅÍ ¸ñ·ÏÀÌ µé¾î ÀÖ´Â ¸í´Ü ½ÃÆ®¸¦ ¾Æ·¡¿Í °°ÀÌ ¿¬°áÇÏ¿´½À´Ï´Ù.

B2¼¿¿¡´Â =INDEX(Database,$A$2,1)
A7¼¿¿¡´Â ="Microsoft " & INDEX(Database,$A$2,2) & "±âÃÊ °úÁ¤"
A8¼¿¿¡´Â =INDEX(Database,$A$2,3) & "Çгâ " & INDEX(Database,$A$2,4) & "¹Ý " & INDEX(Database,$A$2,5) & "¹Ý"
A9¼¿¿¡´Â =INDEX(Database,$A$2,6)
À̶ó´Â ¼ö½ÄÀ» ÀÔ·ÂÇÏ°í, 3°³ÀÇ ÅؽºÆ® ¹Ú½º¿¡ A7, A8, A9¼¿À» À§¿¡ ¼Ò°³ÇÑ ÆÁÀÇ ¹æ¹ýÀ» ÀÌ¿ëÇØ ¿¬°áÇÏ¿´½À´Ï´Ù.

A2¼¿ÀÇ °ªÀÌ À妽ºÀÇ Å°°ªÀÌ µË´Ï´Ù. ±×¸®°í ÀÌ A2¼¿¿¡´Â _linkedcellÀ̶ó´Â À̸§À» ºÙ¿©µÎ¾ú½À´Ï´Ù. A2¼¿¿¡ ÀÔ·ÂµÈ °ª¿¡ µû¶ó ¸ñ·ÏÀÇ °ªÀÌ Â÷·Ê·Î À̼öÁõÀ̶õ ¾ç½Ä ½ÃÆ®¿¡ Ç¥½ÃµÇ°Ô µË´Ï´Ù. Ãʺ¸ÀںР°¡¿îµ¥ ÀÌ °úÁ¤À» ¾ÆÁ÷ µû¶óÇÏÁö ¾ÊÀ¸½Å ºÐÀÌ °è½Ã´Ù¸é, ¸ÕÀú ¹Ýµå½Ã ÀÌ À̼öÁõ ¾ç½ÄÀ» µû¶ó ¸¸µé¾î º¸½Ã±æ ¹Ù¶ø´Ï´Ù.


ÀÌ ¿¹Á¦ ÆÄÀÏÀ» À§ÇÑ ÀÏ°ý Àμ⠸ÅÅ©·Î´Â ¾Æ·¡¿Í °°½À´Ï´Ù

Sub dhSample()
Dim i As Integer
Dim j As Integer
j = Range("database").Rows.Count
If MsgBox("Á¤¸»·Î ÀμâÇϽðڽÀ´Ï±î?", vbYesNo + vbDefaultButton2, "¿¬½À¿¹Á¦") = vbNo Then End
For i = 1 To j
Range("_linkedcell") = i
ActiveSheet.PrintOut
Next i
End Sub

°£´ÜÇÑ For Next¹®À» ÀÌ¿ëÇÏ¿© µ¥ÀÌÅͺ£À̽ºÀÇ ÇàÀÇ ¼ö¸¸Å­(Range("database").Rows.Count¸¦ ÀÌ¿ëÇØ j¶ó´Â º¯¼ö¿¡ °ªÀ» ´ã¾Ò½À´Ï´Ù) ¼øȯÇϸ鼭, Range("_linkedcell")¿¡ ¿¬°áÀ» À§ÇÑ °ªÀ» ³Ö¾îÁØ µÚ, ÀμâÇÏ´Â °ÍÀÔ´Ï´Ù.(³ª¸ÓÁö´Â INDEX¶ó´Â ¿¢¼¿ ¿öÅ©½ÃÆ® ÇÔ¼ö¸¦ ÀÌ¿ëÇØ ÀÌ¹Ì ÀÛ¾÷ÇØ µÎ¾ú½À´Ï´Ù)

ÀÌ ¸ÅÅ©·Î´Â ¾Æ¸¶µµ ÀÌ ¿¹Á¦ ÆÄÀÏ¿¡¼­´Â ÈǸ¢ÇÏ°Ô µ¿ÀÛÇÒ °ÍÀÔ´Ï´Ù¸¸, ¹ü¿ëÀûÀ¸·Î »ç¿ëÇÏ´Â µ¥¿¡´Â Àû´çÇÏÁö ¾Ê½À´Ï´Ù. ¹°·Ð »ç¿ëÀÚ°¡ ¾ðÁ¦³ªdatabase¶õ À̸§ÀÇ ¸ñ·Ï°ú _linkedcellÀ̶ó´Â À̸§ÀÇ ¿¬°á¼¿À» ÀÌ¿ëÇØ ÀÛ¾÷ÇÑ´Ù¸é °¡´ÉÇÑ ÀÏÀ̱ä ÇÕ´Ï´Ù¸¸.

À§ÀÇ ¿¹Á¦¸¦ Á÷Á¢ ½ÇÇàÇØ º¸½Ã·Á¸é, ActiveSheet.PrintOut ´ë½Å, ActiveSheet.PrintPreView ¸Þ¼­µå¸¦ ÀÌ¿ëÇϽʽÿÀ. Á¾ÀÌ¿Í À×Å©¸¦ Àý¾àÇϱâ À§Çؼ­´Â, ²¿¿Á^^*

ÀÌÁ¦ ¹®¼­ º´ÇÕ Àμ⠸¶¹ý»ç¸¦ ¸¸µé±â Àü¿¡ Áغñ ÀÛ¾÷À¸·Î, ¹®¼­¸¦ º´ÇÕÇؾßÇÒ ¿¹Á¦ ÆÄÀÏÀ» ¸¸µé¾î º¸¾Ò½À´Ï´Ù.

±â¾ïÇÏ½Ç °ÍÀº, ÀÌ ¹®¼­ º´ÇÕ Àμ⠸¶¹ý»ç¸¦ ÀÌ¿ëÇϱâ À§Çؼ­´Â

1. ¾ç½Ä°ú ÀÌ ¾ç½Ä¿¡ º´ÇÕÇÒ µ¥ÀÌÅÍ ¸ñ·ÏÀÌ ±âº»ÀûÀ¸·Î °®Ãß¾îÁ® ÀÖ¾î¾ß Çϸç
2. ¾ç½Ä°ú µ¥ÀÌÅÍ ¸ñ·ÏÀº indexÇÔ¼ö³ª vlookupÇÔ¼ö¿Í °°Àº ¿¢¼¿ÀÇ Ã£±â ÂüÁ¶ÇÔ¼ö¸¦ ÀÌ¿ëÇØ ¿¬°áµÇ¾î ÀÖ¾î¾ß Çϸç
3. indexÇÔ¼ö¿Í vlookupÇÔ¼öÀÇ Å°°ª ȤÀº ãÀ» °ªÀ¸·Î ¹Ýµå½Ã ÇϳªÀÇ ¿¬°áµÉ ¼¿(À§¿¡¼­´Â _linkedcellÀ̶ó°í À̸§ºÙÀÎ À̼öÁõ!$A$2¼¿)ÀÌ ÀÖ¾î¾ß ÇÑ´Ù´Â °ÍÀÔ´Ï´Ù.
4. ³¡À¸·Î ÀμâÇÒ ¾ç½Ä ¹üÀ§, µ¥ÀÌÅÍ ¸ñ·Ï ±×¸®°í ¿¬°áÇÒ ¼¿¿¡´Â Â÷·Ê·Î ¾Æ·¡¿Í °°ÀÌ ¾à¼ÓµÈ À̸§À» »ç¿ëÇѵµ·Ï ÇÕ´Ï´Ù

ÀμâÇÒ ¾ç½Ä : _PRINTAREA
µ¥ÀÌÅÍ ¸ñ·Ï : database
¿¬°áµÈ ¼¿¹üÀ§ :_linkedcell

(ÀÌ °ÍÀº ÇʼöÀûÀ¸·Î ¿äûµÇ´Â °ÍÀÌ ¾Æ´Ï¶ó ¼±ÅÃÀûÀÎ °ÍÀÔ´Ï´Ù¸¸, ÀÛ¾÷ÀÇ ÆíÀǸ¦ À§ÇØ ¸ñ·ÏÀ̳ª ¿¬°áÇÒ ¼¿¿¡´Â À̸§À» ºÙ¿©µÎ½Ã´Â °ÍÀÌ ÁÁ½À´Ï´Ù)

±×·³, ´ÙÀ½ ½Ã°£¿¡ º»°ÝÀûÀ¸·Î ¹®¼­ º´ÇÕ Àμ⠸¶¹ý»ç¸¦ ¸¸µé¾î º¸µµ·Ï ÇÏ°Ú½À´Ï´Ù*^_^*

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

¡¡

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