- 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 8393
공지 [질문] [삭제예정] 카테고리가 생겼습니다. [9] 유스티스 18/05/08 26740
공지 [질문] 성인 정보를 포함하는 글에 대한 공지입니다 [37] OrBef 16/05/03 61460
공지 [질문] 19금 질문은 되도록 자제해주십시오 [8] OrBef 15/10/28 85660
공지 [질문] 통합 공지사항 + 질문 게시판 이용에 관하여. [22] 항즐이 08/07/22 125074
143906 [질문] 6월에 폰을 바꾸려고 합니다 크리스 프랫41 20/04/08 41
143905 [질문] (긴급)저희 집을 강제개문하고 살림살이를 경매처분하겠답니다. [9] Cavok651 20/04/08 651
143904 [질문] 롤챔스 밴픽만 모아볼 수 있는 사이트가 있을까요 [3] 소주의탄생280 20/04/08 280
143903 [질문] 지금 코로나 확진자 그래프가 정말 터지기 직전의 그래프인가요? [15] 오렌지망고1458 20/04/08 1458
143902 [질문] 노트북 사양 질문입니다. [4] 아이시스 8.0210 20/04/08 210
143901 [질문] 공동명의 토지에 관련된 질문입니다. [2] 느조스122 20/04/08 122
143900 [질문] 애인이 생긴 뒤로 부모님께서 너무 서운해하십니다. [23] 저글링앞다리1997 20/04/08 1997
143899 [질문] 싯존 의자질문입니다 macaulay85 20/04/08 85
143898 [질문] 맥북 마우스 커서 문제 [2] 당신은누구십니까131 20/04/08 131
143897 [질문] 만화책 추천 부탁드립니다. [22] 돈가스의 탄생565 20/04/08 565
143896 [질문] 이성보는 눈이 덜 까다로워지신분 있나요? [21] 아웅이1198 20/04/08 1198
143895 [질문] 결혼하신 형님들, 결혼하실 무렵 재정상황(?)이 어떠셨는지...? [37] 껀후이1903 20/04/08 1903
143894 [질문] 마스크1개로 최대한 어느 정도까지 쓰시나요? [24] 나이는무거운숫자1202 20/04/08 1202
143893 [질문] 스마트폰 티머니 교통카드 인식문제 [3] 리얼몸부림181 20/04/08 181
143892 [질문] 중고차 하나 골라주세요! [9] K5573 20/04/08 573
143891 [질문] 롤토체스용 테블릿pc 추천 부탁드립니다.. [10] Lelouch415 20/04/08 415
143890 [질문] 유부) 생일선물은 언제 선물하나요? [9] 熙煜㷂樂423 20/04/08 423
143889 [질문] 전 세계의 전기플러그 모양이 다른건 왜 그런가요? [7] AKbizs706 20/04/08 706
목록 이전 다음
댓글

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