PGR21.com
- PGR21 관련된 질문 및 건의는 [건의 게시판]을 이용바랍니다.
- (2013년 3월 이전) 오래된 질문글은 [이전 질문 게시판]에 있습니다.
통합 규정을 준수해 주십시오. (2015.12.25.)
Date 2018/02/28 15:24:53
Name brehme
Subject [질문] (엑셀 함수) 엑셀 고수님들께 질문입니다. (수정됨)
첫 번째 시트에는 항목별로 데이터를 입력하고
두 번째, 세 번째 시트에는 함수를 이용해서 첫 번째 시트의 특정 값을 불러오고 싶은데요

예를들어 첫 번째 시트에는
연번  이름  학년 전공 성적
  1   홍길둥  1    철학  A+
  2   유관손  2    사학  B+
  3   장영심  3    기계  B0
  4   이순진  3    해양  A0

그리고 두 번째 시트부터는 시트명이 "n학년"이고, 각 시트에는 첫 번째 시트에서 입력한 데이터값 중
해당 학년에 해당하는 데이터만 나열되도록 하고 싶습니다. 즉. "3학년" 시트라면
연번  이름  학년 전공 성적
  1   장영심  3    기계  B0
  2   이순진  3    해양  A0

이런식으로 볼 수 있으려면 어떻게 구성해야 할까요?

*제가 글을 좀 애매하게 쓴 것 같아서 보충합니다.
단순히 첫 번째 시트 완성본을 가지고 연계하려고 하는게 아니라 첫 번째 시트에는 앞으로 계속 데이터를 누적시켜나갈 예정입니다.

즉 위의 예시에서 첫 번째 시트에

연번  이름  학년 전공 성적
  5  장보구  4    해양  A+

를 추가했다면 실시간으로 "4학년"시트에

연번  이름  학년 전공 성적
  3  장보구  4    해양  A+

가 반영되었으면 합니다.

*첫 번째 시트는 작업용 시트로 활용하고, 이후 시트는 항목별로 실적이 구분되어 바로 출력할 수 있도록 활용할 예정입니다

*능력자분들의 도움 기다리겠습니다. 사랑합니다.

통합규정 1.3 이용안내 인용

"Pgr은 '명문화된 삭제규정'이 반드시 필요하지 않은 분을 환영합니다.
법 없이도 사는 사람, 남에게 상처를 주지 않으면서 같이 이야기 나눌 수 있는 분이면 좋겠습니다."
어리버리질럿
18/02/28 15:42
수정 아이콘
함수를 반드시 써야하나요?
필터를 이용하면 더 간단히 할 수 있을거 같아서요.
텔레토비
18/02/28 16:10
수정 아이콘
고급 필터가 가장 간단한 방법인 것 같네요
조건을 사용자 지정으로 해서 학년을 3학년으로 지정하면 해당 행만 나오게 됩니다
이혜리
18/02/28 16:43
수정 아이콘
필터 걸고 3찍어서 나열 한 후에 전체 복사해서 새로운 시트에 붙여넣기 하면 됩니다.
18/02/28 16:46
수정 아이콘
이혜리 / 첫 번째 시트에는 앞으로 계속 데이터를 입력할 예정이고
그 결과값이 실시간으로 2,3,4,5 번째 시트에 보였으면 하는거라서요
단순히 한번 작업할거면 말씀대로 하면 되겠지만요......
아름답고큽니다
18/02/28 17:46
수정 아이콘
그런거라면 매크로를 사용해야 되지 않을까요? 구글링해봐도 다들 매크로를 이용해서 답변을 올려놓았네요.

https://www.extendoffice.com/documents/excel/4592-excel-update-advanced-filter-automatically.html
참고하시면 될 거 같습니다.

Private Sub Worksheet_SheetChange(ByVal Target As Range)

Range("A3:H43").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("I1:I2"), CopyToRange:=Sheets(2).Range("A1"), Unique:=False

A3:H43에 데이터 위치, 만약에 계속 아래쪽으로 업데이트 할것이라면 Range("A3").CurrentRegion으로 바꾸시고
CriteriaRange 뒤의 l1:l2에 조건문
CopyToRange 뒤에 시트번호와 셀 위치 조정하시면 될 거에요.

End Sub
어리버리질럿
18/02/28 17:52
수정 아이콘
원자료가 첫번째 시트 A1부터 쓰여져 있다는 가정하에(즉, A1셀에 "연번"부터 쓰여있음)
1학년 자료를 두번째 시트, 2학년 자료를 세번째 시트, 3학년 자료를 네번째 시트에 필터링 하고 싶다면 다음 VBA를 써보세요.
여기서 학년을 바꾸고 싶다면(예를 들면 3학년 필터링 하고 싶다면) 코드 중
If Range("c" & j).Value = 1 Then <- 이 부분의 숫자 1을 3으로,
Sheets(2).Select <- 이 부분의 숫자를 4로 변경해서 쓰시면 될거 같습니다.



Sub 학년1()

Dim i As Long

Columns("G:K").Select

Selection.Delete Shift:=xlToLeft

Cells(Rows.Count, "C").End(xlUp).Select

i = ActiveCell.Row

For j = i To 2 Step -1

If Range("c" & j).Value = 1 Then

Range("A" & j & ":E" & j).Select

Selection.Copy

Range("G" & j).Select

ActiveSheet.Paste

Application.CutCopyMode = False

End If

Next j

Range("G1:K" & i).Select

Selection.SpecialCells(xlCellTypeBlanks).Select

Selection.Delete Shift:=xlUp

Range("g1").CurrentRegion.Select

Selection.Cut

Sheets(2).Select

Range("A2").Select

ActiveSheet.Paste

End Sub
목록 삭게로! 맨위로
번호 제목 이름 날짜 조회
116720 [질문] 중고 휴대폰좀 추천해주세요 [6] 블랙핑크지수2921 18/02/28 2921
116719 [질문] 중고폰을 사도 센터에서 배터리 교체되나요? [7] 송하나4641 18/02/28 4641
116718 [질문] 남자들도 hpv 백신 맞으면 효과 있는건가요? [6] 봄바람은살랑살랑2769 18/02/28 2769
116717 [질문] 닌텐도 스위치 유부 구매 질문입니다. [12] 제드2714 18/02/28 2714
116716 [질문] 32인치 모니터 구매 고민, LG vs 삼성 [5] delicat5715 18/02/28 5715
116714 [질문] 아이폰 용 이어폰 질문입니다. [6] 졸업취업1389 18/02/28 1389
116713 [질문] 가벼운 영화 뭐 없을까요? [30] U-Nya4793 18/02/28 4793
116712 [질문] FC 바르셀로나 축구 관람 질문 [2] 시행착오 합격생1736 18/02/28 1736
116711 [질문] 개미 퇴치법 궁금합니다. [5] 치킨백만돌이1858 18/02/28 1858
116710 [질문] 현재 김아랑 선수가 특별히 인기?인 이유가 뭔가요 [19] 히야시4093 18/02/28 4093
116709 [질문] 흠... 선생님들 고견 구합니다. [직장] [1] Notorious1817 18/02/28 1817
116708 [질문] 로지텍 G pro 마우스, 원래 클릭감이 이런가요? [19] 불같은 강속구6772 18/02/28 6772
116707 [질문] 스위치 실물 타이틀을 카트리지 없이 하는 방법 있을까요? [5] 티케이2047 18/02/28 2047
116706 [질문] 전세 계약이 남아 있으면 청약신청을 할 수 없나요? [4] 사딸라1819 18/02/28 1819
116705 [질문] 어법과 어문 규정의 차이는 뭔가요? [4] 마스터충달2119 18/02/28 2119
116704 [질문] 봉투(봉지,봉다리) 줄 때 침 묻히는 거요 [19] 들개3437 18/02/28 3437
116703 [질문] 대한항공 7만 마일리지로 밴쿠버로 여행을 가려 합니다. [3] 사딸라2710 18/02/28 2710
116702 [질문] 페미들 SNS 고소에 대한 질문. [5] 렌야3273 18/02/28 3273
116701 [질문] 블투이어폰 Qy31 사용중입니다 [PS4]왕컵닭1471 18/02/28 1471
116700 [질문] 신용카드 쌩초보 질문드립니다 [6] lobotomy2369 18/02/28 2369
116699 [질문] 배린이의 질문 몇가지입니다! [3] 양념반자르반1740 18/02/28 1740
116698 [질문] 아파트 관사로 세 놓는 경우 [3] 아라온2021 18/02/28 2021
116697 [질문] (엑셀 함수) 엑셀 고수님들께 질문입니다. [6] brehme1651 18/02/28 1651
목록 이전 다음
댓글

+ : 최근 1시간내에 달린 댓글
+ : 최근 2시간내에 달린 댓글
맨 위로