GanzStorm

실험 방법

매달 100만원씩 입금 + 미리 설정한 금액으로 단타

1년만 해보기

1차 실험 

20250804 : 100만 입금

20250804 : 원화 매도 ￦999,987, 달러 매수 ＄722.78 

20250805 : 원화 출금 ￦13

2022년 새해 목표.

2023년 해외주식양도소득세 1000만원 낼정도의 금융소득만들기

모니터 자체수리에 관한 기록

제품 : 27인치 QHD 144Hz 모니터

증상 : 전원도 다 들어오고 인식도 되지만 화면이 잠시 나오더니 이내 푹 꺼지고 화면이 검게나오면서 안뜸 (이 증상은 오래되긴했는데 간혹 켜져서 켜질때까지 존버하고 씀. 어차피 듀얼이었으니...)
그러다가 이젠 잠시나오는 일도 없어져서 완전히 갔구나... 라고 생각.

의심 : 백라이트 고장 또는 보드고장 혹은 접촉불량 (증상찾아보니 이렇다길래)

경과 :
2016년에 20만중반~30만 초반 정도 주고 산 제품 5년썼으면 잘 썼지 라고 자기위안. 단종제품 + 제주도 왕복 택배비의 압박으로 수리를 고민하다가
싱글벙글 새로 살 생각을 함.

하지만 재택근무 싱글모니터가 너무 불편하여 잠들어 있던 24인치 서브모니터를 꺼냄

증상이 동일함
.....? 두개가 동시에 같은 증상으로 고장날리가 없다고 확신

다른 어댑터를 가져옴. 개잘됨

.....? Hoxy..... 그 어댑터를 전 27인치 모니터에 꽂아봄. 개잘됨.

...... 모니터는 멀쩡하고 어댑터가 맛탱이 간것이었음
모니터(?) 수리 완료

#모니터못사겠네
#일단주문부터하고서브모니터꺼낼걸
#망치를주문해볼까

높은값 찾기는 적당히 부등호 방향을 조정하면 됨.

Sub vlookup_down()
    '가장 가까이 낮은거 찾기
    x1 = Range("a2").Column
    x2 = Range("g2").Column
    y1 = Range("a2").Row
    y2 = Range("g2").Row
    
    
    Do While (Cells(y1, x1) And Cells(y2, x2))
        If Cells(y1, x1) > Cells(y2, x2) Then y2 = y2 + 1
        If Cells(y1, x1) < Cells(y2, x2) Then y1 = y1 + 1
        
        If Cells(y1, x1) = Cells(y2, x2) Then
            If Cells(y1, x1 + 1) < Cells(y2, x2 + 1) Then y1 = y1 + 1
            If Cells(y1, x1 + 1) > Cells(y2, x2 + 1) Then
                Cells(y1, x1 + 2) = Cells(y2, x2 + 1)
                If Cells(y1, x1) = Cells(y2 + 1, x2) And Cells(y1, x1 + 1) >= Cells(y2 + 1, x2 + 1) And Cells(y1, x1 + 2) =< Cells(y2 + 1, x2 + 1) Then
                    y2 = y2 + 1
                Else
                    y1 = y1 + 1
                End If
            End If
            
        End If
      
        
    Loop

End Sub

사람은...

사람과 비슷하게 생긴, 사람이 아닌 무언가를 보면 공포를 느낀다.

더욱 이상한건 사람이라면, 그 사람이 자기들과 다르다는건 또 참지 못한다.

대체 발전과정에서 무슨일이 있었던걸까...

작년 여름 안방에 있던 컴퓨터를 거실로 옮기고 케이스를 바꾼뒤부터

던파가 렉걸리기 시작했다(....)
i7-4770
28(...)GB Ram
1080 VGA

전혀 렉걸릴 사양이 아니고 실제로 안방에서는 잘 돌아갔었기에 내 조립을 의심하고 수차례 재조립하였지만 던파만큼은 플레이가 불가능할정도로 렉이 걸렸다.

와우도 하고 디아3도 하고... 조금씩 끊기긴 했지만 그래도 플레이는 가능했다. 하지만 던파는 플레이가 불가능할정도의 렉이 걸렸다

포맷도 하고 던파도 새로 깔아보고
전원옵션도 고오급 성능으로 놓고 드라이버 최신설치도 해봤다가 DDU로 VGA 드라이버 밀고 1080에 좋다는 388버전으로 깔기도 했다가...랜선작업도 새로 싹다해보고 등등 내가 할 수 있는 모든걸(이라고생각했다....) 다 해봤는데 던파렉은 여전했고, 풍수지리설을 처음으로 믿을뻔한 순간이었다.

새컴이 마려웠다.

던파는 렉이 걸렸지만 크킹3는 또 잘 돌아갔기에 성능상 의심은 1도 없었다.

그러던 어느날 자기위안이라도 할겸 cpu벤치프로그램을 돌렸다.
그런데 이게 왠걸.... i5 5300U 보다 점수가 적게 나왔다. 그것도 한참...

무엇인가 잘못되었음을 느끼며 작업관리자 성능탭을 보았는데... CPU가 일을 안한다.
1GHz대에서 놀고 2GHz를 안올라가는것이었다.
언능 HW모니터를 켜봤다.

부팅하자마자 90도 까지 치솟은 CPU는 내려올 생각을 하지 않고 90~100도에서 계속 머물러 있었다. 일을 안했던것이 아니라 뒤지기 싫어서 살려고 발버둥치고 있던것이다.
이제까지 안터진게 다행인듯..

생각해보니 예전에도 본적은 있었는데, 그냥 온도센서 오류라고 생각하고 지나쳤던...(CPU가 80도가 넘을리가 없잖아ㅋㅋㅋ 팬도 저리 잘 돌아가고있는데)

써멀만 새로 발라주고 먼지좀 털어주고 하면되는 상황이나 그간 숨통 조인것이 미안하고 내가 디아3도 돌리고 와우도 돌리고 크킹3도 돌리고 했을때 버텨준것도 기특하고해서

싸구려지만 수냉쿨러를 하나 달아주었다.
싸구려다보니 40~50도를 왔다갔다하지만
어쨌던 발열은 잡혔고 CPU는 일을하기 시작했으며
던파의 렉은 귀신같이 없어졌다.

마음의 평안을 얻었다.

(그치만 딱히 컴퓨터로 할건없어서 컴퓨터 껐다)

결론은 엑셀은 아님

일반적인 중복제거는 엑셀에서 기능을 제공하기 때문에 어렵지 않습니다.

엑셀 기본 제공 중복제거 기능

하지만 데이터가 아래와 같다면 어떨까요.

난감한 데이터 상황

위에서 제공된 중복제거 기능은 행 단위를 전체로 보고 중복을 파악하기 때문에 위 데이터 상황에서는 중복이 없는 것으로 판단합니다.

일반적인 함수를 사용하여서 하기도 어렵고,

VBA를 짜자니 귀찮고...

C, D, E, F 열을 전부 B로 가져와서 중복제거를 하자니 또 귀찮고.. (데이터가 많다면?...)

한숨이 나오죠...

MS에서는 Unique라는 함수를 만들어서 테스트는 하고 있지만 아직 정식버전에 반영되지는 않았습니다.

아 뭐야 나도 쓰게 해 줘요...

이럴 때는 과감하게 툴을 변경하는 방법이 있습니다.

구글 스프레드시트 (Google Spreadsheets) 인데요. 엑셀과 복붙이 호환되기 때문에 사용하기 좋습니다.

구글에는 Unique 함수가 있지만 위 데이터 환경의 경우 용법을 조금 달리 해야 하는데요.  

일반적인  =Unique(b3:f7)을 실행 시 엑셀처럼 행 전체를 기준으로 잡고 중복을 제거하기 때문에 엑셀의 중복제거 기능과 동일한 결과가 나오게 됩니다.

내가 원하는 건 이게 아니야.

정답은 아래와 같습니다.

=Unique({B:B;C:C;D:D;E:E;F:F})

갓 구글

원하는 결과를 얻었습니다

역시 Goodgle

전제조건

 : 오름차순 혹은 내림차순 정렬이 가능할 것

 : 중복이 없을 것 (중복이 있다 해도 if문으로 처리는 가능)

배경

 : 엑셀의 함수 vlookup의 경우, 정렬이 되어있다고 가정되어있지 않기 때문에 복잡도가 높음.

적은 양의 데이터면 모르겠지만, 수천, 수만 개, 수십만 개의 데이터인 경우 Vlookup의 속도가 매우 매우 심각하게 느려짐..

vlookup 예제

vlookup 함수의 정확한 내부 알고리즘은 모르지만, 

위 예제의 경우, 

1. 1을 6번, 2를 6번.... 10을 6번 총 60번의 비교를 강제로 하거나.

2. 1을 1번, 2는 6번, 3은 2번, 4는 6번, 5는 3번, 6은 4번, 7은 6번, 8은 5번, 9는 6번, 10은 6번

    (lookup 값을 찾으면 거기서 중지, 못 찾으면 끝까지 서칭이라는 알고리즘일 경우)

    총 45번의 비교를 할 가능성이 매우 높음

하지만 VBA로 

1. 기준열과 대조열을 비교하여 일치하면 대조열을 한 칸 내리고

2.  틀리다면 기준열을 한 칸 내리는 작업을 통해 총 16번의 비교만으로 vlookup을 수행 가능

위 예제의 경우 비교 순서 

(기준열 값, 대조열 값)

(1,1) - (1,3) - (2, 3) - (3, 3) - (3, 5) - (4, 5) - (5, 5) - (5, 6) -
(6,  6) - (6, 8) - (7, 8) - (8, 8) - (8, 10) - (9, 10) - (10, 10) - (10, ) - 종료

아래 코드가 최적화된 코드는 아니지만, 

이런 알고리즘도 있다는 것을 염두하면 데이터 처리를 빠르게 수행 가능.

Sub main()
    y1 = 2
    x1 = 1    
    y2 = 2
    x2 = 5    
    Do
        If Cells(y1,x1) > Cells(y2,x2) then
            y2=y2+1
        End If
        If Cells(y1, x1) = Cells(y2, x2) Then
            Cells(y1, x1 + 1) = Cells(y2, x2 + 1)
            y2 = y2 + 1
        End If
        y1 = y1 + 1
    Loop Until Cells(y1, x1) = ""
End Sub

계발 :  '슬기나 재능, 사상 따위를 일깨워 줌.'

개발 :  '지식이나 재능 따위를 발달하게 함.' 그 외 다른 뜻...

100세 시대라고 하는걸 생각해 보고, 평균적인 은퇴나이 60~65를 고려해보면 

사실... 앞으로 '직장'에 다닐 날보다 은퇴한 이후에 남은 날들이 더 길것같다. (근데 난 80되기전에 가고싶은데... 그 이상은 내가 힘들것 같아서... 80이라고 쳐도 직장에 다닐 날과 은퇴후 남은 날이 엇비슷해진게 함정)

언젠가는 직장을 잃게 될텐데... 그 이전까지 재산을 얼마 축적해야하느니 뭐 그런이야기는 일단 제쳐두고

은퇴 이후에는 무엇을 하면서 살아가야 할 까에 대한 고민을 안할 수가 없다.

사랑의 블랙홀(Groundhog Day)이나 어바웃타임처럼 인생을 계속 돌면서 무한에 가까운 시간을 부여받지 않는한...

인간은 선택을 해야하고 집중을 해야한다.

내 경우 내가 하고싶은, 내가 좋아하는 일과, 내가 하고 있는 업이 맞지 않는 편인데

내가 하고 싶고, 좋아하는일은 일단 돈을 벌기 힘들기 때문...

난 새로운 사람들과 만나서 서로의 생각을 나누고 의견 교환을 하는것을 좋아한다

다만... 내가 아직 듣는 연습이 충분치 않아서... 나도 모르게 상대방의 말을 잘라버리는게 함정........ ㅠ.ㅠ

대부분의 경우 철학적인(?) 생각나눔이나 그런 이야기들을 나누는것을 좋아하지 않기 때문에.... 잘 못하는것도 있고...

그런 이야기를 이끌어내는 내 스킬이 부족한것도 있고....

나 스스로도 내 이야기를 조리있고 재미있게 전달하지 못하는것도 있고...

그래서 위의 스킬을 익혀 많은 사람들과 그런 이야기를 나누는것이 첫번째 목표이고

외국어를 익혀 국적을 넘어 인종을 넘어 다양한 사람들과 생각을 나누고 듣고 할 수 있는것이 두번째 목표이고

세월이 많이 흘러 많은 생각을 하고 조그만 깨달음을 얻어, 나라는 사람이 세상에 다녀갔다는, 아무도 모르고, 아무도 찾지 않을 지라도 그런 흔적하나 정도 (그게 책이든 뭐든, 자손은 빼고.) 남기고 가는것... 

덧붙여 이런 생각에 공감하고 같이 이야기를 나눌 벗 하나 정도 있으면 세상 떠나는날 그래도 재미있고 알차게 살았노라고 말하면서 후회없이 갈 수 있을 것 같다.

REPLACE(SUBSTRING(SUBSTRING_INDEX(log_value, '|', 1), LENGTH(SUBSTRING_INDEX(log_value, '|', 0)) + 1), '|', '')

== SUBSTRING_INDEX(log_value, '|', 1)

SUBSTRING_INDEX(str, delim, count);

str 문자열에 delim 구분자를 기준으로 count 수 만큼 반환. 음수이면 뒤에서 카운터합니다.

mysql> SELECT SUBSTRING_INDEX('www.php.net', '.', 2);
      -> www.php
 mysql> SELECT SUBSTRING_INDEX('www.php.net', '.', -2);
      -> php.net

 mysql> SELECT SUBSTRING_INDEX('myid@domain.com', '@', -1);
      -> domain.com
 mysql> SELECT SUBSTRING_INDEX('myid@domain.com', '@', 1);
      -> myid

SUBSTRING(str, pos[, len]);

mysql> SELECT SUBSTRING('habonytest', 5);
      -> nytest
 mysql> SELECT SUBSTRING('habonytest', 3, 2);
      -> bo
 mysql> SELECT SUBSTRING('habonytest', FROM 2);
      -> abonytest

REPLACE(str, from_str, to_str)
REPLACE(바꿀려는 필드명, '수정전 문자열', '수정후 문자열')

LENGTH() : 길이를 bytes로 나타낸다.

SELECT LENGTH('한글') -> 6
SELECT LENGTH('abc') -> 3