ID:
PW:

     0 ºÐ
     41 ºÐ

¿£Áö´Ï¾î µ¹Á¾
  dolljong

Áö½ÄÀº °øÀ¯µÇ¾úÀ» ¶§ ±× ÈûÀ» ¹ßÈÖÇÑ´Ù.


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ª¿ä?

¿À´ÃÀº ¿©±â¼­ ¸¶Ä¡±â·Î ÇÏ°í ³»ÀÏ °è¼ÓÇϵµ·Ï ÇÏ°Ú½À´Ï´Ù.

[ÀÌÀü °­ÁÂ]     [´ÙÀ½ °­ÁÂ]


dolljong@gmail.com