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
목록 삭게로! 맨위로
번호 제목 이름 날짜 조회
116699 [질문] 배린이의 질문 몇가지입니다! [3] 양념반자르반1741 18/02/28 1741
116698 [질문] 아파트 관사로 세 놓는 경우 [3] 아라온2021 18/02/28 2021
116697 [질문] (엑셀 함수) 엑셀 고수님들께 질문입니다. [6] brehme1652 18/02/28 1652
116696 [질문] (사진첨부) 이거 이사청소업체한테 배상해달라고 할 수 있나요? [5] 하나2574 18/02/28 2574
116695 [질문] 캐드 가능 노트북은 스펙을 어떻게 보면 될까요? [8] opxdwwnoaqewu15546 18/02/28 15546
116694 [질문] (스포)블랙팬서만 보는거 어떤가요? [21] 카바라스2499 18/02/28 2499
116693 [질문] 술마셔도 음주단속에 안걸리는 사람 방송 [2] 김첼시3577 18/02/28 3577
116692 [질문] 스팀배그 상자템 판매 질문입니다 [6] ...And justice3264 18/02/28 3264
116691 [질문] 길다란 스폰지 이름?? [3] 아르거스의사도1920 18/02/28 1920
116690 [질문] 청하 2시간에 10병먹는 정도의 사람이.... [32] 마르키아르6202 18/02/28 6202
116689 [질문] 우주소녀 꿈꾸는 마음으로 뮤비에 나오는 핸드폰 기종은 무엇인가요? [3] 홍승식2287 18/02/28 2287
116688 [질문] [소녀전선] 육성 질문 입니다. [9] 김카리1540 18/02/28 1540
116687 [질문] [서브컬쳐]바키도 관련글 보고 질문드립니다 [6] 11cm1696 18/02/28 1696
116686 [질문] 투싼 vs 스포티지 어떤게 나은 선택일까요? [29] 개념은?11662 18/02/28 11662
116685 [질문] 워크래프트 3 리마스터 관련 발표 관련 질문 [1] Love.of.Tears.2149 18/02/28 2149
116683 [질문] 고양이에게 버거킹 치킨 너겟 줘도 괜찮나요? [22] 미도리6207 18/02/28 6207
116682 [질문] [연애]이별할때가 된걸까요 [35] 삭제됨4387 18/02/28 4387
116681 [질문] 오늘 무슨 군사 훈련 같은 거 있나요? [2] 들개2364 18/02/28 2364
116679 [질문] 전세집이 안나가 고민입니다 [12] 염력 천만5683 18/02/28 5683
116678 [질문] 삼성 공기청정기 필터교체 시기문의. [2] 1q2w3e4r!5505 18/02/28 5505
116677 [질문] 운동화 추천 부탁드립니다. [2] Repppo2621 18/02/28 2621
116676 [질문] [하스스톤] 지금 바로 친선퀘 하실 분 있나요 (완료) [2] workbee1397 18/02/28 1397
116675 [질문] 어플프로그램 중에 이런기능 있는 어플 있나요? [2] 브라이언맥나잇2123 18/02/27 2123
목록 이전 다음
댓글

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