PGR21.com
- 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:05
수정 아이콘
엑셀 워크시트 기능은 일체 사용하지 않고 오로지 베이직 코딩으로만 함수를 만들어야 합니다..
오클랜드에이스
20/03/26 14:49
수정 아이콘
네 그러니까요 VBA에도 이터레이터(연속된 자료 저장) 기능이 있을거라서...

하나의 리스트에 숫자 100개 때려넣고 크기순으로 정렬하는 알고리즘을 이용해서 나온 결과물의 80번째 자료를 출력하게 하면 되는거죠.
레필리아
20/03/26 14:03
수정 아이콘
VBA 기본코드가 뭔지 모르겠는데.. 두가지 방법이 생각나네요.
1. 100개 숫자 내림차순 정렬 -> 80번째 숫자
2. 100개 숫자 오름차순 정렬 -> 20번째 숫자 (80번째 큰 숫자 = 20번째 작은숫자)
2.1 100개 중 가장 작은 숫자 탐색 -> 탐색범위에서 제외 -> 99개 중 가장 작은 숫자 -> ... -> 80개중 가장 작은 숫자

편하신 방법으로 구현하시면 되겠습니다.
20/03/26 14:06
수정 아이콘
그러니까.. 그 내림차순 정렬을 코딩하는 방법이 필요합니다 ㅠㅠ 액셀 application function사용하지 않고요...
레필리아
20/03/26 14:10
수정 아이콘
VBA 버블소트, VBA 퀵소트 등으로 검색해보셔요
회색사과
20/03/26 14:04
수정 아이콘
Python이면

sorted(listName,reverse=True)[80]

이었을텐데...
20/03/26 14:25
수정 아이콘
sorted(listName,reverse=True)[79] 아닌가요? ^^
회색사과
20/03/26 14:35
수정 아이콘
으억 죄송합니다
오클랜드에이스
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
수정 아이콘
아 됐네요
목록 삭게로! 맨위로
번호 제목 이름 날짜 조회
143522 [질문] 게임 전염병 주식회사 질문입니다 [1] 손금불산입4502 20/03/27 4502
143521 [질문] 인스타그램 질문입니다. [3] 로즈 티코3917 20/03/27 3917
143520 [질문] 회사용 오피스365 질문입니다. [7] 교자만두5690 20/03/27 5690
143519 [질문] 상설매장 밀집 지역이 어디많을까요? [9] 일정4100 20/03/27 4100
143518 [질문] 아파트 재건축과 상속 문제 [2] 루체른3606 20/03/27 3606
143517 [질문] 휴대폰에 남은 용량이 이상하게 부족하네요. [3] 시원한녹차4390 20/03/27 4390
143516 [질문] 엑셀에서 0.5 단위로 올림하는 방법이 있을까요? [3] 이브나8871 20/03/27 8871
143515 [질문] Slay the spire 뉴비가 The Defect 질문입니다 [29] Cand5522 20/03/27 5522
143514 [질문] 핸드폰 액정이깨지면 가격을 얼마나 내려서 팔아야 하나요? [4] 라디오스타3640 20/03/27 3640
143513 [질문] 게임 클라이언트 개발자들은 포트폴리오 어떤거 쓰시나요? [2] 다이어트6718 20/03/27 6718
143512 [질문] 이직 고민중입니다.... [5] 타릭4288 20/03/27 4288
143511 [질문] 보스 컴패니언2 스피커 쓰고 있는데 [2] 라붐팬임3973 20/03/27 3973
143510 [질문] 핸드폰을 새로 구매하려고 합니다.. [9] ELLEGARDEN4390 20/03/27 4390
143509 [질문] 댐 건설로 수몰된 고향을 촬영한 비디오를 구할 수 있을까요?(용담댐) [8] 삭제됨5117 20/03/27 5117
143508 [질문] 스위치를 뺏겼습니다.. 풍화설월 같은 겜 추천부탁드립니다.. [22] 신류진7358 20/03/26 7358
143507 [질문] 과일즙 유통기한이 얼마나 되나요? [4] VictoryFood7928 20/03/26 7928
143506 [삭제예정] 결혼식 참석에 관해 (삭제예정) [14] 삭제됨5253 20/03/26 5253
143505 [질문] 팔이 안들어지는것(안올라가는것) 에 대한 질문입니다.. [5] 무언가4427 20/03/26 4427
143504 [질문] 요즘 결혼식에서는 식사는 어떻게 하나요? [9] 차아령5235 20/03/26 5235
143503 [질문] 스마트폰 바꾸려고 합니다. [7] 레뽀4157 20/03/26 4157
143502 [질문] 철권5 폴 피닉스의 기술명 궁금합니다 [16] 틀림과 다름4631 20/03/26 4631
143501 [질문] 해외직구 HP 게이밍 PC 믿을만할까요? [13] Thanatos.OIOF7I6172 20/03/26 6172
143500 [질문] 파퀴아오vs아만다 누네즈 [12] 박수갈채5012 20/03/26 5012
목록 이전 다음
댓글

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