딱총3 [기초방] VBA 100제 #10 [ 데이터 영역 재설정하기 ] 데이터 영역을 랜덤화해서 재설정하는 구문이다. 보통 이러한 문제는 랜덤 난수를 추출하여 그것에 따라 정렬하여 재배치 하면 된다. 문제풀이는 이렇다. 1. 난수를 발생 2. 난수와 기존값을 조합하여 임시 영역에 추출 3. 정렬 4. 난수와 기존값 분리 5. 기존값을 새로운 위치에 추출 6. 난수와 기존값을 출력한 영역 삭제 더보기 Option Explicit Sub 기초방10_1() Dim bln As Boolean Dim rngall As Range Dim i& Application.ScreenUpdating = False For i = 1 To 2 '= 문제에 따른 영역 재 설정 If bln = False Then Set rngall = [c5:c14] Else Set rngall = [e21:k27].. 2023. 1. 6. [VBA] For Each & Areas 를 이용한 셀 조작하기 기초방에서 올린 문제 #1 초심으로 돌아가기 위한 프로젝트 #1 : 빈셀에 규칙을 이용하여 채우는 문제 왼쪽에 있는 문제는 엑셀 상에서 F5 > alt + s > alt + k를 누르고 바로 ' = 바로 윗셀 +1 '을 하면 된다. 하지만 오른쪽 문제는 좀 생각을 해야한다. 엑사남님은 Sub aaaaa() '''' 선택 범위 빈셀에 함수 입력하기 Range("B4:B23").SpecialCells(xlCellTypeBlanks) = "=B5+1" Range("D4:I23").SpecialCells(xlCellTypeBlanks) = "=COLUMN()-3+((ROW()-4)*6)" End Sub 이렇게 풀어버리셨다... 순간 알고리즘 문제를 내야하나 하고 욱했다..ㅋㅋㅋ 이번 기초방 문제에 기존에 참여가.. 2022. 12. 25. [VBA] 사용자정렬(ArrayList)_feat(평택_호텔관리_딱총) 본인이 ArrayList 찬양을 외치고 다니는데 이 철옹성 같은 엑사남 오픈채팅방에서 드디어 응답이 왔다. https://open.kakao.com/o/glXWEB3b 유튜브 '엑사남'의 Excel VBA 함께하기 [방암호 : M으로 시작하는 VBA 메세지창 명령어는? 'MsgB**', 힌트 : 6글자, **은 소문자] #엑셀 #excel #VBA #엑사남 open.kakao.com 해서 딱총님이 풀어낸 구문으로 같은 문제를 풀어보려고 한다. 실은 이문제는 문제가 하나 있었다. 준빠님의 출근일중에서 본인이 일부러 출근일 중복을 하나 첨가한적이 있다. 바로 29일인데 이중복값이 표기가 되었다. 해서 이 구문은 현재 rngAll.RemoveDuplicates Array(1, 2), xlYes '= 중복값 제.. 2022. 12. 25. 이전 1 다음
