°¡Àå ÈçÇÑ Áú¹® °¡¿îµ¥ Çϳª°¡, ¿öµåÀÇ ¹®¼ º´ÇÕ
±â´É°ú °°Àº °ÍÀ» ¿¢¼¿¿¡´Â ¾ø´À³Ä ÇÏ´Â °ÍÀÔ´Ï´Ù.
¿¢¼¿ÀÇ ±âº»ÀûÀ¸·Î ±×·± º´ÇÕ ±â´ÉÀº Á¦°øÇÏÁö
¾Ê½À´Ï´Ù. ÇÏÁö¸¸, ¿¢¼¿ÀÇ ±âº» ±â´ÉÀ» Á¶±Ý¸¸
ÀÌ¿ëÇÏ°í, VBA¸¦ µ¡ºÙÀÌ¸é ±× ¾î¶² °Íº¸´Ù Æí¸®ÇÏ°Ô
¹®¼ º´ÇÕÀ» ÇÒ ¼ö ÀÖ´Â ÇÁ·Î±×·¥ÀÌ ¹Ù·Î ¿¢¼¿ÀÔ´Ï´Ù.
VBA¸¦ ¹è¿ì½Ã°Ú´Ù´Â ºÐµéÀº ¾î´À Á¤µµ ¿¢¼¿ÀÇ
±âº» ±â´É¿¡ Àͼ÷ÇÏ½Ç °ÍÀ̹ǷÎ, ÀÌ¿¡ ´ëÇÑ ¼Ò°³´Â
ÁÙÀÌ°í, ´ë½Å, ¾ÆÁÖ °£´ÜÇÑ ¿¹Á¦¸¦ °¡Áö°í ¹®¼
º´ÇÕ ¸¶¹ý»ç¸¦ ¸¸µé¾î °¡´Â °úÁ¤À» Â÷·Ê·Î ¾È³»Çϵµ·Ï
ÇÏ°Ú½À´Ï´Ù.
ºÎµð ÀÌ ¿¹Á¦¸¦ ÅëÇØ, VBA ÇÁ·Î±×·¥¿¡ ´ëÇÑ °¨À»
ÀâÀ¸½Ã±æ ¹Ù¶ø´Ï´Ù. ±×·³, ½ÃÀÛÇÕ´Ï´Ù^^*
¸¶¹ý»ç
¿¹Á¦ ÆÄÀÏÀº µÎ °³ÀÇ ½ÃÆ®·Î ±¸¼ºµÇ¾î ÀÖ½À´Ï´Ù.
À̼öÁõÀ̶õ À̸§ÀÇ ¾ç½Ä ½ÃÆ®°¡ ±× Çϳª°í,
¸í´ÜÀ̶ó°í ÇÏ´Â À̸§ÀÇ µ¥ÀÌÅÍ ¸ñ·ÏÀÌ ÀÖ´Â
½ÃÆ®°¡ ±× ÇϳªÀÔ´Ï´Ù.
¸í´ÜÀ̶ó´Â ½ÃÆ®¿¡ ÀÖ´Â ¸ñ·ÏÀÇ ¹üÀ§¸¦
¼±ÅÃÇØ 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
(ÀÌ °ÍÀº ÇʼöÀûÀ¸·Î ¿äûµÇ´Â
°ÍÀÌ ¾Æ´Ï¶ó ¼±ÅÃÀûÀÎ °ÍÀÔ´Ï´Ù¸¸, ÀÛ¾÷ÀÇ ÆíÀǸ¦
À§ÇØ ¸ñ·ÏÀ̳ª ¿¬°áÇÒ ¼¿¿¡´Â À̸§À» ºÙ¿©µÎ½Ã´Â
°ÍÀÌ ÁÁ½À´Ï´Ù)
±×·³, ´ÙÀ½ ½Ã°£¿¡ º»°ÝÀûÀ¸·Î ¹®¼ º´ÇÕ Àμâ
¸¶¹ý»ç¸¦ ¸¸µé¾î º¸µµ·Ï ÇÏ°Ú½À´Ï´Ù*^_^*
¸ñÂ÷ |
ÀÌÀü
| ´ÙÀ½
|