반응형 TechNical245 [HTA] 각종 문법 모음 ㅇ키 이벤트 잡아오기 바디에 이벤트를 달아준다. Sub getKeyPress msgbox window.event.Keycode if (window.event.Keycode == 27) Then Call fn_my End If End Sub ㅇ어레이 1. 고정어레이 Dim arr arr = Array("a","b","c") 2. 동적 어레이 Set dArr = CreateObject("System.Collections.ArrayList") dArr.Add "hello" dArr.Count dArr.RemoveAt dArr.Count - 1 dArr(1) 3. 분할 생성 어레이 txt= "a,b,c" arr = Split(txt, ",") For Each item in arr msgbox item Next .. 2019. 7. 9. 엑셀 메크로에서 박스 그리기 원래 만든건 450라인 짜리 값을 읽어서 흐름도를 그리는건데 쓰기 힘들어서 일단 핵심만.. 포스팅 Dim ws As Worksheet Set ws = Worksheets(ActiveSheet.Name) Set CondBox = ws.Shapes.AddShape(msoShpeRoundedRectangle, stXPos, stYPos, 100, 50) With CondBox .Name = "CondBox" .Fill.ForeColor.RGB = RGB(250,250,250) .Line.ForColor.RGB = RGB(0,0,0) .Line.Weight = 1 .Adjustments.Item(1) = 0.5 .TextFrame.Characters.Font.Color = 1 .TextFrame.Characte.. 2019. 6. 4. [튜닝] 불필요한 정렬 제거 페이징 처리로 조회되는 SQL이 데이터 양에 따라서 속도가 심하게 차이가 날때는 order by가 PK로 정렬하고 있다면 제거하면 엄청 빨라진다. 조인 걸리는 PK가 인덱스가 기본적으로 정렬이 되기 때문에 PK순서로 보고자 한다면 빼도 같은 순서로 나온다. 건수가 적은 테이블이 먼저 걸리지 않는다면 작은 순서대로 가져오게 /*+ LEADING(A) */ 힌트를 붙여 주자. 2019. 5. 24. [codility]MissingInteger Q. 배열내에서 존재하지 않는 0보다 큰 가장 작은 양수값을 찾아라. 음수만 있을 경우는 1로 리턴 A = {1, 3, 6, 4, 1, 2} A. 5 소팅 안 하고 루프 한 번만 돌려서 해 볼려고 별에 별 짓을 다 해 봤는데 안 되더라... 결국에는 소팅 -_- 루프 한번으로 정렬하는 방법은 없는 건가라는 의문에 빠졌다. import java.util.Arrays; class Solution { public int solution(int[] A) { // write your code in Java SE 8 int findVal = 1; Arrays.sort(A); for(int i : A){ if(i > 0 & i == findVal){ findVal++; } } return findVal; } } 2018. 1. 19. 이전 1 ··· 6 7 8 9 10 11 12 ··· 62 다음 반응형