ȸ»ç¿¡¼ »ç¿ëÁßÀÎ ÆÄÀÏÀε¥, Á¦°¡ µé¾î¿À±âÀü¿¡ ´Ù¸¥ºÐÀÌ ¸¸µå½Å ÆÄÀÏÀ̶ó ¾Æ¹«µµ ÀÌ ÆÄÀÏÀ» ¼öÁ¤ÇÒ ÁÙ ¸ð¸¨´Ï´Ù..
Á¦°¡ ¼öÁ¤ÇѰŶó°ï ¹üÀ§ º¯°æÇÑ°Å.... »ç½Ç ÀÌ°Ç ½±ÁÒ.. ±×³É ±âÁ¸ °ª »õ·Î¿î °ªÀ¸·Î ´ëü¸¸ ÇØÁÖ¸é µÇ´Ï±î....
¹®Á¦´Â ÀÌ ÆÄÀÏ¿¡ Á¤·Ä °ü·Ã ¸í·É¾î°¡ °É·ÁÀִ°Š°°Àºµ¥ Á¤·ÄÇÏ°íÀÚÇÏ´Â °ªÀ» Ãß°¡ÇÏ°í ½Í°Åµç¿ä... (¾Æ´Ï¸é ÀÌ¹Ì µé¾î°¡Àִµ¥ ¸í·É¾î°¡ ¾ÈµÉ ¼ö ÀÖÀ½...)
ÇöÀç vba¿¡ ÀûÇôÀÖ´Â °Å ±×´ë·Î Àû¾îµå¸±°Ô¿ä..
Sheets("½Åû¼ Àμâ¿ë").Select
Sheets("½Åû¼ Àμâ¿ë").Range("b12:z261").Select
Selection.Sort Key1:=Sheets("½Åû¼ Àμâ¿ë").Range("E12"), Order1:=xlAscending, _
Key2:=Sheets("½Åû¼ Àμâ¿ë").Range("I12"), Order2:=xlDescending, Key3:=Sheets("½Åû¼ Àμâ¿ë").Range("K12"), Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
' Key2:=Sheets("½Åû¼ Àμâ¿ë").Range("G12"), Order2:=xlAscending, _
' Key3:=Sheets("½Åû¼ Àμâ¿ë").Range("I12"), Order3:=xlDescending, Key4:=Sheets("½Åû¼ Àμâ¿ë").Range("K12"), Order4:=xlAscending, _
Key5:=Sheets("½Åû¼ Àμâ¿ë").Range("R12"), Order5:=xlAscending,
Sheets("½Åû¼ ÀԷ¿ë").Select
Sheets("½Åû¼ ÀԷ¿ë").Range("f12:f261").Select
Selection.Copy
Sheets("½Åû¼ Àμâ¿ë").Select
Sheets("½Åû¼ Àμâ¿ë").Range("f12").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ÀÌ·¸°Ô µÇ¾îÀִµ¥,
Selection.Sort Key1:=Sheets("½Åû¼ Àμâ¿ë").Range("E12"), Order1:=xlAscending, _
Key2:=Sheets("½Åû¼ Àμâ¿ë").Range("I12"), Order2:=xlDescending, Key3:=Sheets("½Åû¼ Àμâ¿ë").Range("K12"), Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Q1. À̺κп¡ Á¤·ÄÇÏ°íÀÚÇÏ´Â ¸í·É¾î¸¦ Ãß°¡ÇØÁà¾ßÇÒ °Å °°Àºµ¥, key3¸í·É¾î µÚ¿¡´Ù°¡ °í´ë·Î range °ª¸¸ ¹Ù²ã¼ Ãß°¡ÇÏ´Ï±î ¾ÈµÇ´õ¶ó±¸¿ä....
¾î¶»°ÔÇؾßÇϳª¿ä...??????
Q2. ¾Æ Àú±â ' key ¿©±â »¡°£»öÀ¸·Î µÇ¾îÀִ°Ŵ ¿ø·¡ ±×·¸°Ô µÇ¾îÀÖ½À´Ï´Ù... ÀÌ°Å´Â ¹«½¼ ÀǹÌÀΰ¡¿ä?? |
¸Þ´º¿¡¼ º¸±â->¸ÅÅ©·Î->¸ÅÅ©·Î ±â·Ï
±â´ÉÀ¸·Î ÀÏ´Ü ¿øÇÏ´Â ±â´É¿¡ ´ëÇؼ ÄÚµùÀ» ¾î¶»°Ô ÇؾßÇÏ´ÂÁö Çѹø º¸½Ã°í..
±×´ã¿¡ ´Ù½Ã Áú¹® ÁÖ¼¼¿ä.. Àú·¸°Ô º¹ÀâÇÑ Á¤·ÄÀº Àß ¾È½áºÁ¼..¤¾¤¾
¾Æ.. ÁÙ ¸Ç µÚÀÇ '_' ¹ØÁÙÀº.. ´ÙÀ½ ¶óÀÎÀÌ ¿¬°áµÈ´Ù´Â ³»¿ëÀÔ´Ï´Ù.
ÇÑÁÙ.. À̶ó´Â ¾ê±â¿¹¿ä..
¾Æ¸¶ ¸Ç µÚ°¡ ¾Æ´Ï¶ó.. _ ¾Õ¿¡ Ãß°¡ ÇÏ¼Å¾ß µÉ µí..
Ȥ½Ã¸ô¶ó¼ ¸ÅÅ©·Ñ ±â·ÏÇؼ ±â·ÏµÈ ÄÚµùÀ» ÀúÀÚ¸®¿¡ ºÙ¿© ³ÖÀ¸¸é ½ÇÇàÀÌ ¾ÈµÇ±¸¿ä ¤Ð¤Ð
key2¿¡ ÁÖ¼®¿¡µµ ÀÖ°íÇϴµ¥, °ËÁ¤»ö key2º¸´Ù ÁÖ¼® key°¡ ¼±¸í·É¾î°¡ µÇ´Â°Ç°¡¿ä??
(°ËÁ¤»ö key2´Â I12, ÁÖ¼® key2´Â G12)
VBA´Â ÀÎÅÍÇÁ¸®ÅÍ ¾ð¾î..À̱¸¿ä.... ÀÌ°Ç..... ½ÇÇà ½ÃÅ°¸é.... ÀÁÙºÎÅÍ ¼ø¼´ë·Î ÇÑÁÙ ¾¿ ½ÇÇà µÈ´Ù´Â ¸»ÀÔ´Ï´Ù..
¿¹Á¦¸¦ ã¾Æº¸´Ï...... ¾Æ·¡ ¼Ò½ºÃ³·³ Ç϶ó°í Çϳ׿ä...
¼ÒÆ® 3°³ Á¦ÇÑÀÌ ÀÖ´Ù°í Çϳ׿ä.. 3°³ ÀÌ»ó ÇÏ·Á¸é.. À§ ¿¹Á¦Ã³·³ µÎ°³·Î ³ª´²¼ ÇؾßÇÑ´Ù´Â ¾ê±â °°½À´Ï´Ù.
-- ¿ø¹®.... ¸µÅ© :
https://stackoverflow.com/questions/43074087/excel-vba-multi-level-sorting
I always recommend getting rid of the recorded .Sort method in favor of 'only what you need' VBA Sort code. However, there is a problem in that you can only sort a maximum of three sort keys per sort; the solution is to perform two sort operations. Sort the highest ordinals first then the last three primary sort ordinals.
-------------- ±×·¯´Ï±î.. ----------------
Selection.Sort Key1:=Sheets("½Åû¼ Àμâ¿ë").Range("??????"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Selection.Sort Key1:=Sheets("½Åû¼ Àμâ¿ë").Range("E12"), Order1:=xlAscending, _
Key2:=Sheets("½Åû¼ Àμâ¿ë").Range("I12"), Order2:=xlDescending, _
Key3:=Sheets("½Åû¼ Àμâ¿ë").Range("K12"), Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ÀÌ·¸°Ô ÇÏ¸é µÇÁö ¾ÊÀ»±î¿ä?
¾Õ¿¡ ºÙÀΰÇ.. ¸ÕÀú ¼ÒÆà Çؾß.. ¿ì¼±¼øÀ§°¡ ¾Æ·¡²¨¿¡ ¹Ð·Á¼...
Ãß°¡ ÇØÁà¾ßÇÒ°É À§¿¡´Ù°¡ ºÙ¿©¾ß ÇÒ °Í °°½À´Ï´Ù.
±×¸®°í.. ½ÇÇàÇϸé... I get a "Subscript out of range" error, ¿À·ù°¡ ¹ß»ýÇѴٴµ¥.. ¹«½ÃÇÏ¸é µÈ´ä´Ï´Ù.
Àúµµ °á°ú°¡ ±Ã±ÝÇϳ׿ä.. ¤¾¤¾.. ´ä±Û·Î ¾Ë·Á ÁÖ¼¼¿ä...
ÀÏ´Ü Á¤·Ä ¸í·É¾î¸¦ Á¶¾ðÇØÁֽŰÍó·³ º°µµ·Î ³ÖÀ¸´Ï±î Àû¿ëÀÌ µÇ³×¿ä.
Á¤¸» °¨»çÇÕ´Ï´Ù. Ȥ½Ã »Ë»Ñ ¿î¿µ»ó¿¡ ¹®Á¦¸¸ ¾ÈµÈ´Ù¸é Á¦°¡ À½·áÄíÆùÀÌ¶óµµ Á» º¸³»µå¸®¸é ÁÁÀ»ÅÙµ¥,,,
ÂÊÁö·Î ¿¬¶ôó Á» º¸³»ÁÖ¼¼¿ä ¤Ð ³Ê¹« °¨»çÇؼ ±×·¸½À´Ï´Ù....
´öºÐ¿¡ Á¦°¡ ÀÌ ÆÄÀÏÀ» Á» ´õ ÀÀ¿ëÇØ º¼ ¼ö ÀÖ°Ôµµ µÇ¾ú±¸¿ä. ´Ù½ÃÇѹø Á¤¸» °¨»çÇÕ´Ï´Ù.
Ãß°¡·Î vba¸¦ Á»´õ ¼öÁ¤Çغ¼·Á¸é ¾î¶²Ã¥À» À§ÁÖ·Î ÀÔ¹®À» Çغ¸¸é ÁÁÀ»Áö Ãßõ Á» ÇØÁÖ½Ã¸é ´Ù½ÃÇѹø ´õ °¨»çµå¸®°Ú½À´Ï´Ù ¤Ð¤Ì
»ç½Ç.. VBAÀÇ ÃÖ°íÀÇ ±³Àç´Â µµ¿ò¸» ÀÔ´Ï´Ù. ¿äÁòÀº ÇѱÛȵµ ²Ï µÇ¾îÀÖÀ»ÅÙµ¥.. ¿¹Àü¿¡´Â..º¸±â ¾î·Á¿ü¾úÁÒ..
±×¸®°í.. .Net µîÀÇ MSDN µµ¿ò¸»°ú ÅëÇÕ µÈ°Í °°´øµ¥.. ¿À·§µ¿¾È ¾È½áº» ¾ð¾î¶ó.. ÇöÀç »óȲÀº Á¤È®ÇÏ°Ô ¸ð¸£°Ú³×¿ä..
±×·¯´Ï±î.. °³ÀÎÀûÀÎ »ý°¢Àº.. µµ¿ò¸» º¼ ¼ö ÀÖÀ» Á¤µµÀÇ knowhow ¸¸ ÀÖÀ¸¸é MS °ü·Ã ·©±ÍÁö´Â ±ÄÀÌ Ã¥ÀÌ ÇÊ¿äÇÒ±î? ÇÒ Á¤µµ¿¹¿ä.. ÃÊ±Þ VBA °Á µîÀº ÀÎÅͳݿ¡ ¸¹ÀÌ ¿Ã¶ó¿Í ÀÖ±¸¿ä..
Àá±ñ ã¾Æ ºÃ´Âµ¥..
http://www.iexceller.com/MyXls/VBA_Beginner/Index_Beginner.asp
https://krksap.tistory.com/13
¸î±ºµ¥ °Á°¡ Àֳ׿ä..
±âÃÊÀûÀÎ ³»¿ë Àß Á¤¸® µÇ¾îÀÖ´Â °Í °°±¸¿ä.. ÀÌÇØµÉ ¶§ ±îÁö ÇÑ ¼³Ê¹ø Á¤µ¶ ÇϽøé...
F1 ´·¯¼ ¸Å´º¾ó ºÁ °¡¸é¼ ÇÏ½Ç ¼ö ÀÖÀ» °Í °°½À´Ï´Ù.
¸Ç ¹Ù´Ú¿¡¼ ½ÃÀÛÇÏ´Â°Ô ¾Æ´Ï¶ó... ±âÁ¸ ¼Ò½º°¡ ÀÖÀ¸½Ã´Ï±î¿ä..
±â´É ¼öÁ¤ ÇϽ÷Á¸é.. "VBA EXCEL ¿øÇϴ±â´É" Á¤µµ·Î ±¸±Û °Ë»ö ÇØ º¸¸é ¸¹ÀÌ ³ª¿À´Ï±î..
ÇÊ¿äÇÒ ¶§.. ¼Ò½º ã¾Æ¼.. º¹»ç ºÙ¿©³Ö±â ÇÏ¸é µÇÁÒ..¤¾¤¾..
´ÜÁö ÇÊ¿äÇÑ°Ç.. ³» ¼Ò½º¿¡¼ ¹» ¹Ù²ã¾ßµÇÁö? ÇÏ´Â Á¤µµÀÇ ÅëÂû·Â.. Á¤µµ...
»ç½Ç ÀÌÁ¤µµµµ ½Ã°£ÀÌ °É¸®±ä ÇÏÁÒ... ¤¾¤¾
¾ÏÆ° ´Ô Àü°ø ºÐ¾ß ¹®ÀÇ ¿ÔÀ» ¶§, ½Ã°£ ³»¼Å¼.. ´ä±Û Çѹø ´Þ¾Æ Áֽô°ɷÎ.. À½·á ÄíÆùÀº Åü Ä¡ÁÒ? ¤¾¤¾¤¾