¡¡
¡¡
¡¡
|
 |
 |
|
 |
 |
|
¡¡ |
¡¡ |
¡¡ |
¡¡ |
* ´äº¯ÇϽô ºÐµé²² µµ¿òÀÌ µÇµµ·Ï ÀÚ½ÅÀÇ È¯°æÀ» ¾Æ·¡ Ç׸ñ ¿·¿¡ ±âÀçÇØ ÁÖ¼¼¿ä.
- ¿¢¼¿ ¹öÀü(95,97,2000,xp,2003,2007):
* ¾Æ·¡ÁÙ¿¡ Áú¹®À» ÀÛ¼ºÇϼ¼¿ä >>
÷ºÎÇÑ ÆÄÀϰú °°ÀÌ ´Ù·®ÀÇ ¸®½ºÆ®¿¡¼ ÀÏÁ¤¿ä°Ç¿¡ ¸Â´Â ÀÚ·áÃßÃâÇϱâ ÀÔ´Ï´Ù.
==============[½ÃÄ¿¹Ì¼Ò´Ô ±Û¿¡ ´ëÇÑ ´äº¯ÀÔ´Ï´Ù]==============
°í±ÞÇÊÅÍÀ» ÀÌ¿ëÇÏ½Ã¸é µË´Ï´Ù. ¾Æ·¡ ¸µÅ© º¸¼¼¿ä.
https://support.office.com/ko-kr/article/%EA%B3%A0%EA%B8%89-%EC%A1%B0%EA%B1%B4%EC%9D%84-%EC%82%AC%EC%9A%A9%ED%95%98%EC%97%AC-%ED%95%84%ED%84%B0%EB%A7%81-4c9222fe-8529-4cd7-a898-3f16abdff32b
Âü°í·Î VBA·Î ÀÛ¼ºÇÑ ÆÄÀÏ Ã·ºÎÇÕ´Ï´Ù.
Sub UserFilter()
Dim rData As Range
Dim rCriteria As Range, rTg As Range
Set rData = Range("A2:D12")
Set rCriteria = Range("F2:F4")
Set rTg = Range("O2")
rTg.CurrentRegion.Clear
rData.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=rCriteria, CopyToRange:=rTg, Unique:=False
rTg.CurrentRegion.Sort Key1:=rTg.Cells(1, 1), key2:=rTg.Cells(1, 2)
End Sub
|
¡¡ |
[ºÒ·® °Ô½Ã¹° ½Å°í]
|
|
|
 |
ÀÛ¼ºÀÏ : 2019-09-11(15:41)
ÃÖÁ¾¼öÁ¤ÀÏ : 2019-09-11(15:44) |
¡¡ |
|
 |
|
|
 |