- PGR21 관련된 질문 및 건의는 [건의 게시판]을 이용바랍니다.
- (2013년 3월 이전) 오래된 질문글은 [이전 질문 게시판]에 있습니다.
통합 규정을 준수해 주십시오. (2015.12.25.)
Date 2020/03/26 13:45:37
Name neo ov
Subject [질문] 프로그래밍 잘하시는 분...? (수정됨)
엑셀에 100개의 무작위 숫자들이 있습니다.

이중 80번째로 큰 숫자를 찾아낼수 있는 코드가 있을까요?

워크시트 사용하면 안되고 엑셀 어플리케이션 함수도 사용하면 안됩니다.

순전히 VBA 기본 코드만을 사용해서 함수 하나로 80번째로 큰 숫자를 찾아내야 하는데...

방법이 있을까요 ㅠㅠ

있으면 예시좀 알려주십시오... ㅠㅠ 감사합니다.


대략 엑셀에서 사용되는 LARGE 함수를 vba로 풀면 될것같은데요.. 어렵네요

통합규정 1.3 이용안내 인용

"Pgr은 '명문화된 삭제규정'이 반드시 필요하지 않은 분을 환영합니다.
법 없이도 사는 사람, 남에게 상처를 주지 않으면서 같이 이야기 나눌 수 있는 분이면 좋겠습니다."
나무12나무21
20/03/26 13:50
수정 아이콘
엑셀에 small function이 있는데 사용하시면 될 것 같은데요.
20/03/26 13:52
수정 아이콘
엑셀펑션 사용없이 vba기본 코드로만 만들어야 합니다..
참룡객
20/03/26 13:52
수정 아이콘
저같으면 조건부서식 쓸거같은데요
오클랜드에이스
20/03/26 13:52
수정 아이콘
일단 로직은 소팅 -> 정렬순서 80번째 조회로 하면 될것 같은데 VBA는 잘 모르겠어서... 의사코드만 대충 적어봅니다.
레필리아
20/03/26 14:03
수정 아이콘
VBA 기본코드가 뭔지 모르겠는데.. 두가지 방법이 생각나네요.
1. 100개 숫자 내림차순 정렬 -> 80번째 숫자
2. 100개 숫자 오름차순 정렬 -> 20번째 숫자 (80번째 큰 숫자 = 20번째 작은숫자)
2.1 100개 중 가장 작은 숫자 탐색 -> 탐색범위에서 제외 -> 99개 중 가장 작은 숫자 -> ... -> 80개중 가장 작은 숫자

편하신 방법으로 구현하시면 되겠습니다.
회색사과
20/03/26 14:04
수정 아이콘
Python이면

sorted(listName,reverse=True)[80]

이었을텐데...
20/03/26 14:05
수정 아이콘
엑셀 워크시트 기능은 일체 사용하지 않고 오로지 베이직 코딩으로만 함수를 만들어야 합니다..
20/03/26 14:06
수정 아이콘
그러니까.. 그 내림차순 정렬을 코딩하는 방법이 필요합니다 ㅠㅠ 액셀 application function사용하지 않고요...
레필리아
20/03/26 14:10
수정 아이콘
VBA 버블소트, VBA 퀵소트 등으로 검색해보셔요
20/03/26 14:25
수정 아이콘
sorted(listName,reverse=True)[79] 아닌가요? ^^
회색사과
20/03/26 14:35
수정 아이콘
으억 죄송합니다
오클랜드에이스
20/03/26 14:49
수정 아이콘
네 그러니까요 VBA에도 이터레이터(연속된 자료 저장) 기능이 있을거라서...

하나의 리스트에 숫자 100개 때려넣고 크기순으로 정렬하는 알고리즘을 이용해서 나온 결과물의 80번째 자료를 출력하게 하면 되는거죠.
오클랜드에이스
20/03/26 14:51
수정 아이콘
listName.sort()
listName[-80]

도 됩니다 크크크
Icosahedron
20/03/26 14:57
수정 아이콘
Function nth_large(rng As Range, n As Integer)

Dim num As Integer
Dim arr() As Variant
Dim temp As Variant
Dim i As Integer
Dim j As Integer

num = rng.Count
arr = rng

For i = 1 To num - 1
For j = i + 1 To num
If arr(i, 1) < arr(j, 1) Then
temp = arr(i, 1)
arr(i, 1) = arr(j, 1)
arr(j, 1) = temp
End If
Next
Next

nth_large = arr(n, 1)

End Function
-----
범위를 동적배열변수에 입력한 뒤, 배열을 내림차순으로 정리합니다.
그 후 배열에서 n번째 수를 찾습니다.
사용하실 땐 [=nth_large(A1:A100, 80)]으로 사용하시면 됩니다.
이 코드에서 내장 함수나 메서드는 사용되지 않았고, 유일하게 쓴 속성은 rng의 Count뿐인데 이마저도 허용이 안 된다면 더 복잡하겠네요.
20/03/26 15:39
수정 아이콘
이거네요 감사합니다.
20/03/26 16:02
수정 아이콘
흐 왜 안될까요... 그냥 n번째 열의 숫자를 출력하는데요...
20/03/26 16:08
수정 아이콘
아 됐네요
목록 삭게로! 맨위로
번호 제목 이름 날짜 조회
공지 댓글잠금 [질문] 통합 규정(2019.11.8. 개정) jjohny=쿠마 19/11/08 8117
공지 [질문] [삭제예정] 카테고리가 생겼습니다. [9] 유스티스 18/05/08 26446
공지 [질문] 성인 정보를 포함하는 글에 대한 공지입니다 [37] OrBef 16/05/03 61140
공지 [질문] 19금 질문은 되도록 자제해주십시오 [8] OrBef 15/10/28 85319
공지 [질문] 통합 공지사항 + 질문 게시판 이용에 관하여. [22] 항즐이 08/07/22 124797
143727 [질문] 유진투자증권 장외 매매 주문 취소 방법 문의드립니다 [2] 대륙의지배자167 20/04/02 167
143726 [질문] 둠 이터널 원활한 실행을 위한 그래픽카드 추천 부탁드립니다. WarJoy72 20/04/02 72
143725 [삭제예정] 근저당이 많이 잡혀있는 집 월세 계약 관련해서 질문드립니다 [7] 삭제됨331 20/04/02 331
143724 [질문] 사이드브레이크 틈새로 카드가 떨어졌습니다 카라타에리카353 20/04/02 353
143723 [질문] [롤]게임 클라이언트 문제인건가... [5] 요슈아335 20/04/02 335
143722 [질문] 혹시 경기도 지원금 자세히 아시는분 있을까요? [2] 유유할때유397 20/04/02 397
143721 [질문] 지금 컴퓨터 사운드 음색이 너무 맘에 안드는데 어떡하죠 [15] 마지막처럼551 20/04/02 551
143720 [질문] 공무원 발령전에 준비하면 좋은게 있을까요? [18] 비니루다1521 20/04/02 1521
143719 [질문] 마우스 추천 부탁드립니다. [6] 레이오네586 20/04/02 586
143718 [질문] 넷플릭스 공유 관련 / 4flix [7] 상한우유949 20/04/02 949
143717 [질문] 현재 페미니즘 운동의 목표는 무엇일까요? [71] 껀후이2316 20/04/02 2316
143716 [질문] 탈모약 모나페시아 6개월 복용자 입니다. 질문드립니다 [13] 노래하는몽상가1172 20/04/02 1172
143715 [질문] 소상공인 지원자금은 거주지 기준인가요? [1] 반성맨334 20/04/02 334
143714 [질문] 가평 고급팬션 추천좀 부탁드립니다. [4] 큐브큐브431 20/04/02 431
143713 [질문] 크롬(웨일)에서 '닫은 탭 다시 열기 버튼'과 '탭 더블 클릭으로 닫기' 사용은 불가능한가요? [3] Healing265 20/04/02 265
143712 [질문] 포켓몬 소드/실드 팩 중고 구매시 기존 포켓몬 남아있나요? [2] 바카스289 20/04/02 289
143711 [질문] 월세2기 연체 [11] 쇄빙1330 20/04/02 1330
143710 [질문] 진중권씨의 채널A기자 관련 반응 어떻게 보시는지요? [28] 헛스윙어1972 20/04/02 1972
목록 이전 다음
댓글

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