AutoCAD ActiveX ¸Àº¸±â °ÁÂ(12) |
¼±ÅÃµÈ ¼¿µéÀ» ´õÇÏ¿© º¸¿©ÁÖ±â
selection¼Ó¼º°ú cells¼Ó¼º¿¡ ´ëÇؼ ¾Ë¾ÒÀ¸´Ï ÀÌÁ¦ ¼±ÅÃµÈ ¼¿µéÀ» ´õÇÏ¸é µÇ°ÚÁö¿ä? ´õÇÏ´Â °ÍÀº ¹Ýº¹ÇÏ´Â °ÍÀÌ´Ï Áö³¹ø¿¡ ÀÍÈù for¹®À» »ç¿ëÇϸé
µÉ°Í °°´Ù°í »ý°¢ÇϽŠºÐÀº ¸Å¿ì ´«Ä¡°¡ ºü¸¥ ºÐÀ̱º¿ä. ±×·¸½À´Ï´Ù. for¹®À» »ç¿ëÇؼ ´õÇÏ¸é µË´Ï´Ù. ÇÏÁö¸¸ ¼±ÅÃµÈ ¼¿ÀÌ ¸î°³ÀÎÁö ¾Ë¾Æ¾ß for¹®À»
»ç¿ëÇÒÅÙµ¥, ±×°ÍÀ» ¾î¶»°Ô ¾Ë¾Æ³¾±î¿ä? »ç¿ëÀÚ°¡ 10°³¸¦ ¼±ÅÃÇÒ ¼öµµ ÀÖ°í 5°³¸¦ ¼±ÅÃÇÒ ¼öµµ ÀÖ´Â ¹®Á¦À̱⠶§¹®¿¡ ¿ì¼± »ç¿ëÀÚ°¡ ¼±ÅÃÇÑ ¼¿ÀÇ °¹¼ö¸¦
¾Ë¾Æ³»´Â °Ô ±Þ¼±¹« ÀÔ´Ï´Ù. °¢ÀÚ help¸¦ ÀÌ¿ëÇؼ Çѹø ã¾Æº¼±î¿ä? ÀÏ´Ü selectionºÎÅÍ ½ÃÀÛÇÏÁö¿ä.
»ý°¢º¸´Ù ½ä··ÇÑ µµ¿ò¸»À̳׿ä. ´ÜÁö Áß¿äÇÑ °ÍÀº selection¼Ó¼ºÀº applicationÀÇ ¼Ó¼ºÀÌ°í range°³Ã¼¸¦ µ¹·ÁÁشٴ ¸»ÀÔ´Ï´Ù. selectionÀº °³Ã¼°¡ ¾Æ´Ï¶ó
°³Ã¼¸¦ µ¹·ÁÁÖ´Â ¼Ó¼ºÀ̾ú½À´Ï´Ù. ±×·¡¼ ?selectionÀ̶ó°í Ä¡¸é $A$1:4A$10°ú °°ÀÌ range¸¦ µ¹·ÁÁÖ¾ú´ø °ÍÀÔ´Ï´Ù. ±×·¸´Ù¸é ¾î¶»°Ô Çؼ selection.cells()¿Í
°°ÀÌ Á¦ÀÏ ¾Õ¿¡ ¾²¿´À»±î¿ä? °³Ã¼ ´ÙÀ½¿¡ ¼Ó¼ºÀÌ ¾²¿©¾ß ÇÑ´Ù°í Çߴµ¥..
¾Æ·¡ÂÊÀ» Àо¸é °³Ã¼¾øÀÌ »ç¿ëÇϸé appliction°³Ã¼¿¡ Àû¿ëµÈ´Ù.¶ó´Â ¸»ÀÌ ÀÖ½À´Ï´Ù. ±×·¸´Ù¸é ¼±ÅÃµÈ ¼¿ÀÇ °¹¼ö¸¦ ¾Ë¾Æ³»´Â °ÍÀº selectionÀÌ µ¹·ÁÁØ
reange°³Ã¼¿¡¼ ã¾Æº¸¾Æ¾ß°Ú±º¿ä. range¸¦ Ŭ¸¯ÇÕ´Ï´Ù. µµ¿ò¸»Àº Ä£ÀýÇÏ°Ôµµ range°³Ã¼·Î ¿¬°áÀ» ½ÃÄѳõ¾Ò±º¿ä. range°³Ã¼´Â Áö³¹ø¿¡µµ Çѹø µÚÁ®º¸¾Ò¾úÁÒ?
´Ù½ÃÇѹø º¸¸é.. ¾Æ·¡±×¸²°ú °°½À´Ï´Ù.
¾î¶² rangeÀÇ cell°¹¼ö¸¦ µ¹·ÁÁÖ´Â °ÍÀº ¾Æ¹«·¡µµ ¼Ó¼º°°´Ù´Â ´À³¦ÀÌ ¿ÀÁö¿ä? ±×·¡¼ ¼Ó¼ºÀ» µÚÁ®º¸±â·Î ÇÕ´Ï´Ù. ¾ÆÁ÷Àº °¹¼ö¸¦ µ¹·ÁÁÖ´Â ¼Ó¼ºÀÇ À̸§À» ¸ð¸£´Ï±î
ÇÑ°³ÇÑ°³ Àоµµ·Ï ÇÏÁö¿ä.. ¾î¶² ¼Ó¼ºÀÌ ÀÖ³ª ÀÍÈú°â.. ÁÖ¿í ³»·Á°¡´Ùº¸¸é count¶õ ³ðÀÌ º¸ÀÔ´Ï´Ù. ¾Ñ.. count.. ¹º°¡ ¿ì¸®°¡ ã°í ÀÖ´Â ¼Ó¼ºÀεíÇÑ ´À³¦ÀÌ..
¾ó¸¥ countÇ׸ñÀ» ´õºíŬ¸¯Çغ¾´Ï´Ù. ±×·¯¸é ¾Æ·¡¿Í °°Àº count¼Ó¼º¿¡ ´ëÇÑ µµ¿ò¸»ÀÌ ³ªÅ¸³³´Ï´Ù.
¾Ñ. ¿ª½Ã³ª ½ä··ÇÑ µµ¿ò¸»À̳׿ä..(»ç½Ç Àúµµ óÀ½ ã¾Æº¸¾Ò½¿´Ù^^) ¾ÏÆ° °³Ã¼¼ö¸¦ ¹ÝȯÇÑ´Ù±¸.. ¾î¼±¸ Àú¼±¸ ¶ó°í ½áÀÖ´Â °Íº¸´Ï±î. ¸Â´Â °Í °°±º¿ä.
Àû¿ë´ë»ó¿¡ Ȥ½Ã range°¡ ÀÖ³ª º¼±î¿ä? ¿ª½Ã ÀÖ½À´Ï´Ù. ±×·¸´Ù¸é selection.count¶õ ±¸¹®ÀÌ ¼º¸³µÈ´Ù´Â °ÍÀ̳׿ä.. Á÷Á¢½ÇÇàâ¿¡¼ È®ÀÎÀ» Çغ¸µµ·ÏÇÏÁö¿ä.
¹°·Ð ¿¢¼¿¿¡¼ ¸î°³ÀÇ ¼¿À» ¼±ÅÃÇÑ ÈÄ¿¡ Á÷Á¢½ÇÇàâ¿¡¼ È®ÀÎÀ» Çؾ߰ÚÁö¿ä? À§¿¡¼ ´Ù¼¸°³¸¦ ¼±ÅÃÇÑ ÈÄ¿¡ Á÷Á¢½ÇÇàâ¿¡¼ ?selection.count¶ó°í ÀÔ·ÂÇغ¾´Ï´Ù.
±×·¯¸é ±âƯÇÏ°Ôµµ 5¶ó´Â ¼ýÀÚ¸¦ µ¹·ÁÁÝ´Ï´Ù. À½..
ÀÌÁ¦ ¼±ÅÃµÈ ¼¿ÀÇ °¹¼öµµ ¾Ë¾Æ³Â°í.. ´õÇϱ⸸ ÇÏ¸é µÇ´Â±º¿ä.. ÀÌÁ¦±îÁö ´ëºÎºÐÀ» Á÷Á¢½ÇÇàâ¿¡¼ Å×½ºÆ®¸¦ Çغ¸¾Ò½À´Ï´Ù¸¸, ÀÌÁ¦´Â ÇÁ·Î±×·¥À» Á÷Á¢¸¸µé¾î¾ß
Çϱ⠶§¹®¿¡ ¸ðµâ³»¿¡¼ ÀÛ¾÷À» Çؾ߰ÚÁö¿ä. ¿ì¼± sub±¸¹®À¸·Î ÇÁ·Î±×·¥¸íÀ» Á¤ÀÇÇÕ´Ï´Ù. Àú´Â sumselÀ̶ó°í ºÙ¿©º¸¾Ò½À´Ï´Ù. end sub´Â vb editor°¡ ÀÚµ¿À¸·Î
ºÙ¿©ÁÖÁö¿ä? ÀÌÁ¦ sub¿Í end sub»çÀÌ¿¡ ¹®ÀåÀ» ½á³Ö¾ß°Ú´Âµ¥.. ¾îµðºÎÅÍ ½ÃÀÛÇÒ±î¿ä?
Sub sumsel()
End sub
´ç¿¬È÷ ¼¿ÀÇ °¹¼ö¸¦ ¸ÓÁ® ±¸Çؾ߰ÚÁÒ?
Sub sumsel()
icount = selection.count
End sub
ÀÌ·¸°Ô icount¶ó´Â º¯¼ö¿¡ ¼±ÅÃµÈ ¼¿ÀÇ °¹¼ö¸¦ ±¸Çسõ¾Ò½À´Ï´Ù. ±× ´ÙÀ½Àº for¹®À¸·Î ¼¿µéÀ» ´õÇÏ¸é µÇ°ÚÁö¿ä? ¼±ÅÃµÈ ¼¿µéÀÇ Ã¹¼¿ºÎÅÍ ¸¶Áö¸· ¼¿±îÁö¿ä.
¼±ÅÂµÈ ¼¿µéÀÇ Ã¹¼¿Àº selection.cells(1)ÀÌ°í ¸¶Áö¸·Àº selection.cells(icount)ÀÌ°ÚÁö¿ä? ±×¸®°í ´õÇϱâÇÑ °á°ú°ªÀ» sumÀ̶ó´Â º¯¼ö ¾È¿¡ ³Ö±â·Î ÇÕ´Ï´Ù.
±×¸®°í ±× °ªÀ» 0À¸·Î ÇصӴϴÙ. ±×·¯¸é sum = sum + selection.cells(1) Çϸé ù¹ø° ¼¿ÀÇ °ªÀÌ sum¿¡ µé¾î°¡°Ô µÇ°ÚÁÒ? ±×¸®°í µÎ¹ø° ¼¿ÀÇ °ªÀ» ´õÇϱâ
¿ìÇؼ´Â sum = sum + selection.cells(2)ÇÏ¸é µÉ°ÍÀÔ´Ï´Ù. ±×·±½ÄÀ¸·Î... sum = sum + selection.cells(icount)±îÁö Çϸé.. ¼±ÅÃµÈ ¼¿ÀÌ ¸ðµÎ ´õÇØÁö´Â
°ÍÀÌÁÒ... ¾î¶²°¡¿ä? for¹®À» ÀÌ¿ëÇؼ ÇÏ½Ç ¼ö ÀÖ°ÚÁÒ? º¯ÇÏ´Â °ÍÀº cells()ÀÇ °ýÈ£¾ÈÀÇ ¼ýÀÚÀÔ´Ï´Ù. ÀÌ°ÍÀ» º¯È½ÃÅ°¸é¼ ÇÏ¸é µÇ´Âµ¥.. óÀ½1·Î ½ÃÀÛÇؼ
icount·Î ³¡³ª¸é µÇ°ÚÁö¿ä? ÀÌ°ÍÀ» for¹®À¸·Î Ç¥ÇöÇϸé for i=1 to icount°¡ µÇ°ÙÁÒ.. ±×¸®°í for¹® ¾È¿¡ sum¿¡ ´õÇÏ´Â ±â´ÉÀ» ³ÖÀ¸¸é ¾Æ·¡¿Í °°Àº Äڵ尡
µÉ °ÍÀÔ´Ï´Ù. ¹°·Ð ¸¶Áö¸· msgbox sum ¹®ÀåÀº sumÀÇ °á°ú¸¦ »ç¿ëÀÚ¿¡°Ô º¸¿©ÁÖ±â À§ÇÑ ¹®ÀåÀÌÁö¿ä.. ÀÌ°ÍÀ» range("a1")=sumÀ̶ó°í ¹Ù²Ù¸é °á°ú°ªÀÌ A1¼¿¿¡
µé¾î°¡°ÔµÉ °ÍÀÔ´Ï´Ù.
Sub sumsel()
icount = selection.count
sum = 0
for i=1 to icount
sum = sum + selection.cells(i)
next i
msgbox sum
End Sub
ÀÚ ÀÌÁ¦ ¿ì¸®ÀÇ Ã¹ÇÁ·ÎÁ§Æ®°¡ ¿Ï¼ºµÇ¾ú½À´Ï´Ù. ¼¿µéÀ» ¼±ÅÃÇÏ°í ½ÇÇàÀ» ½ÃÅ°¸é ¼±ÅÃÇÑ ¼¿µéÀÇ ÇÕÀ» ¸Þ½ÃÁö â¿¡ º¸¿©ÁÝ´Ï´Ù. Àߵdzª¿ä?
¿À´ÃÀº ¿©±â¼ ¸¶Ä¡±â·Î ÇÏ°í ³»ÀÏ °è¼ÓÇϵµ·Ï ÇÏ°Ú½À´Ï´Ù.
[ÀÌÀü °ÁÂ]
[´ÙÀ½ °ÁÂ]
|