일과 개인생활의 조화와 균형을 이루는 법

계리를 하고 싶은 이유?

너무 보이려는 이유 말고, 솔직하게.

일단 재밌게 일할 수 있을 거 같아서. 단순 반복적인 작업은 엑셀 매크로를 통해 난이도를 높여서 재미를 더 할 수 있다고 생각.

재밌게 일하는 것과 일을 잘하는 것이 맞물리게 되는데, 계리 업무에서 중요한 일 중 하나로 어떤 문제의 원인을 파악하고 근거를 명확히 들어 해결책을 내 놓는 것이라고 생각. 재능(반복적으로 나타나는 사고, 감정, 행동방식) 중 이건 왜 이렇지 라는 생각이 자주 들고 문제를 어떻게 접근하면 좋을까라는 생각을 자주 하게 됨. 그리고 수학문제 풀 때처럼 근거가 뭐지 하고 생각이 자주 듬.

 계리에서의 중요 업무와 나의 재능의 일부가 방향성이 같다고 생각.

그럼 왜 계리 업무만을 고집하는가?

솔직히 계리 업무만 봐도 소수점 안맞아서 야근하는 일도 많고, 금액 1차이나서 부서끼리 회의 하는 경우도 많고. 그런데 다른 일반 회사 업무는 얼마나 더 잡무(?)라고 내가 생각하는 것들이 주를 이룰까라는 생각이 든다. 그래도 계리 업무는 잡무도 많지만, 규정과 보험이론의 배경을 토대로 문성을 쌓을 수 있다고 생각한다. 개인의 역량을 스스로 쌓아서 다른 직원들과 차별화를 만들 수 있는 가능성이 있다고.

내가 정한 것에 취업이 현실적으로 힘들다고 다른 걸 결정하는게 뭔가 도망가는 느낌이 들어서, 또 그게 싫어서 계리 업무에 매달리는 것 같기도 하다. 또, 내가 직접 해본 일이 계리 업무 뿐이라는 것이 이 일을 하고 싶은 이유 중 큰 이유인것 같다. 아직 좀 더 생각해봐야겠다. 아직 나를 온전히 설득하지 못하고 있다. 좀더 나에 대해 계리에 대해 더 달려들어야한다.

일차 / 날짜 : 084일차 / 8월 10일 (일)
취침 / 기상시간 : 오후 12시 00분/ 오전 5시 30분
수면/ 활동시간: 5시간 30분/ 6시 00분 ~ 8시 40분

늦게 잔 이유: 여자친구 만나고 늦게 들어옴. 이제 데이트는 일요일에 학교가 아닌 곳에서! 토요일은 여친 교수님이 세미나를 언제 끝내 줄 지 모르기 때문에 마냥 기다려야 함. 그리고 토요일은 여친이 세미나 준비로 만날 날 새기 때문에 컨디션 안  좋음. 이 두가지로 나는 늦게 귀가. 이제 그냥 일요일에 보자.

엑셀 함수 복습

284 단가표 참조해 단가 계산하기 indirect,

내가 짠 수식

=IF($D10="","",INDEX(OFFSET(INDIRECT($D10),0,1),MATCH(E10,INDIRECT($D10),0),0))

핵심은 이름정의를 각 단가표에 넣은 후 그것을 indirect 로 끌고 오는 것, 그리고 단가표는 이름과 단가로 구성 되어 있기 때문에

offset으로 열 한칸 이동.

엑셀장인 카페 질문 중

다른셀에 영향이 있어서 엑셀의 "정렬"기능을 사용하지 못할 경우

순수하게 함수로 문자의 오름차순/내림차순 정렬이 가능한가요?

VBA도 아니구요..

문자정렬

=INDEX($A$2:$A$14,MATCH(SMALL(COUNTIF($A$2:$A$14,"<="&$A$2:$A$14),ROW(A1)),COUNTIF($A$2:$A$14,"<="&$A$2:$A$14),0))

핵심은 문자의 대소관계 (참고로 ="a" < "b" 는 참 식이 나옴)를 이용해서 배열을 만들고 찾아내는 것.

찾으려는 문자를 small과 row를 이용해 순번을 정함.

COUNTIF($A$2:$A$14,"<="&$A$2:$A$14)에서 문자의 순서를 배열로 표현 함! 잘 기억!

찾으려는 문자를 작은 순서대로 찾음, 여기서는 small 과 row의 결합 이용

SMALL(COUNTIF($A$2:$A$14,"<="&$A$2:$A$14),ROW(A1))

index 이용해서 값 반환

INDEX($A$2:$A$14,MATCH(SMALL(COUNTIF($A$2:$A$14,"<="&$A$2:$A$14),ROW(A1)),COUNTIF($A$2:$A$14,"<="&$A$2:$A$14),0))

vlookup의 한계를 보완한 index 배열식 이용해서 만들어 보기

차트 서식복사하기 교재 319

복사할 차트 ctrl + c, 서식을 적용할 차트 선택 후 선택하여 붙여 넣기. 별거 없었음

몰입도 3

만족도 2.5 vba공부를 못했음.

중간 중간, 면접 어떻게 봐야하는지 생각이 났음. 함수랑 기본 엑셀은 공부를 해놔서 몰입도가 좋은데

vba는새로 공부하려다 보니 다시 몰입하기가 어려움. 다시 23일 vba 강의 듣기 위해 좀더 분발해야 된다.

스트렝스파인더 재능 내재화

경쟁

'경쟁은 나의 자극제, 성장의 원동력'

- 다른 학우들보다 시험을 더 잘 보고 싶은 마음에 전공공부를 열심히 했고, 전공평점 4.42를 받을 수 있었다. 공부를 열심히 해 놓은 시험을 보는 날이면 항상 설랜다.

- 중학교 1학년 때 오래달리기를 못했으나(뒤에서 5등 정도), 경쟁심이 발동해서 하교 때 학교에서 집까지 매일 뛰어 들어갔다. 덕분에 중 3때 오래달리기를 하면 반에서 2등 안에는 늘 들었다.

- 대학 때 아무것도 모른 상태로 상모를 배우러 겨울 전수를 갔고, 맨땅에 해딩만하다 왔다. 잘하는 사람들을 지켜보며 권토중래를 생각했다. 돌아와서 매일 상모연습을 했다. 수업도 안들어가고 상모를 배우러 다른 동아리 선배들을 쫓아다녔다. 몇 과목은 F도 받았지만, 덕분에 그 다음 전수에서 급성장한 상모 실력을 선보일 수 있었다. 처음으로 한가지일에 미쳐 본 경험을 했다.

- 피드백: 경쟁에서 질 것 같은 경우 의지가 꺽이는 경우가 많다. 특히 준비가 많이 안되어 있는 경우. 그럴 경우 어제의 나를 경쟁상대로 지목해서 극복해 나가야 한다.

분석가(논리 수학 지능)

'원인 분석과 논리를 이용한 문제 해결의 즐거움' 

- AIA생명 아르바이트 시작한지 한달만에 미상각 관련 로직을 스스로 짜냈다. 그리고 내가 만들어낸 로직을 과장님께 설득시켜 전산에 반영 되었다. 로직 수정 및 개발은 보통 대리 이상부터 가능한 일이라는 것을 후에 알았다. 

- 논리를 이용하는 엑셀이 재밌다. 새벽에 일어나서 매일 엑셀 공부하는 것이 힘들지 않다.

- 시험기간 중 수학의 논리에 흥미를 느끼고 빠져드는 경우가 많았고, 집중이 잘 되는 날이면 5시간 동안 일어나지 않고 계속 공부한다. 언젠가 공부 중 2시간 지난 줄알고 시계를 봤더니 새벽 4시인 적이 있었다. 5시간을 쉼없이 달린거였다.

- 피드백: 깊은 이해가 필요하지 않은 급한 일들은 먼저 빠르게 처리하고, 후에 생각하는 버릇을 만들어야 한다.

개별화

' 개개인의 기질에 대한 관심'

- 개인만의 경험을 들려주면 거의 대부분 기억한다. 덕분에 6년 동안 여자친구가 나에게 들려준 이야기들을 나는 거의 다 기억해낸다.

- 개인의 장점과 기질에 관심이 있고, 거기에 맞춰서 행동할 수 있다. 까다롭기로 소문난 허과장님과도 다른 부서원들과도 원만하게 지낼 수 있었다.

- 다른 사람들의 장점을 파악하고, 나에게도 그런 장점이 있는지 확인해 볼 수 있다. 부서에서 가장 엑셀을 잘하는 현수 주임을 보고 나도 엑셀을 시작하게 되었다. 

-피드백: 내 가치관이 바로 서야 개별화의 재능이 더 발휘 된다. 자칫 다른 사람들에 대한 관심이 나에 대한 관심을 가릴 수 있을 수 있다. 그리고 MBTI 나 STRONG 같은 도구를 공부하면 재능을 강점으로 바꾸는데 수월할 것이다.

조화

'공동체 생활 속에서의 원만한 대인관계 유지 욕망'

- 싸움이 일어나면 누가 잘못했는지를 따지기보다는먼저 화해의 방향을 찾는다. 동아리에서 진영이와 원대의 싸움.

- 상대방이 들으려는 자세가 아니라면 애써 말하지 않는다.

피드백: 나의 가치관 정립이 매우 중요하다. 자칫 조화의 재능은 나의 가치관이 정립되어있지 않으면 재능이 다른 사람을 신경쓰는 것으로 평가절하 될 수 있다.

적응력

'변동성에 대한 유연함'

- 갑작스런 일이 들어와도 그 일에 최선을 다한다. KAM THEORY라는 번역을 맡아서 매우 부담 되었지만, 현재에 최선을 다하자라는생각으로 많은 시간을 들여 완성해 냈다.

-피드백: 아직 이 재능에 대한 내재화가 충분치 않다.

'  

재능의 조합

경쟁과 개별화
'동기부여 및 성장 패턴'
다른 사람들의 강점과 재능을 파악하고 내 재능과 일치하는 부분을 찾는다. 타인의 강점을 통해 강한 동기부여를 받는다. 그리고 타인의 강점을 카피해 나간다.
- aia생명 알바를 통해 엑셀공부 시작.

경쟁과 조화

시기와 질투가 아닌 순수한 동기부여 가능.

일차 / 날짜 : 085일차 / 8월 11일 (월)
취침 / 기상시간 : 오후 11시 00분/ 오전 5시 30분
수면/ 활동시간: 6시간 30분/ 8시 00분 ~ 8시 50분

숙면에 대해:  잘 때 이제 춥다. 이불을 두꺼운걸로 바꿔야 겠다.

보기 탭

개체 찾아보기(F2): 실무에서 많이 사용. 특정 단어의 계층을 알고 싶을 때 사용하거나, 정확히 단어가 기억이 안날 때, 이 창의 검색 란에 그 일부 문자만 입력하고 찾는 경우가 있음. 매크로의 여러 단어(매서드, 속성, 상수, 개체 등)를 익힐 때에 수시로 개체 찾아보기 창에서 보면서 공부할 것!

직접실행창(CTRL + G): 프로시저를 만들기보다는 이 창에서 한 줄로 맨 앞에 물음표(?)를 넣고 코드를 넣은 뒤에 엔터를 치면 그 아래 줄에 코드 문의 결과가 바로 나옴. 반대로 물음표 없이 코드를 입력하면 바로 실행.

지역창: 매크로의 모든변수의 상태를 코드 한줄 한줄 실행할 때마다 실시간으로 확인 가능

조사식 창: 프로그래 분석시 또는 디버깅이나 줄단위 실행(F8) 시에 해당 단어에 커서를 두고 메뉴의 디버그 -> 간략한 조사식(SHIFT + F9)를 누르면 바로 결과를알 수 있는 메시지가 뜸.

디버그: 버그(오류)를 고치는 것.

한 단계식 코드 실행(F8)

프로시저 단위 실행(SHIFT + F8)

프로시저 나가기 (CTRL + SHIFT + F8)

커서까지 실행(CRTL + F8)

몰입도 3

만족도 2

일차 / 날짜 : 087일차 / 8월 13일 (수)
취침 / 기상시간 : 오후 10시 10분/ 오전 5시 5분
수면/ 활동시간: 6시간 55분/ 7시 ~ 8시 50분

디버그

조사식추가: 조사식 편집과 흡사, 차이는 조사식 편집 창이 뜰 때 식 입력란이 비어 있다는 것.

이 조사식은 매크로를 F8 키로 분석하면서 특정 변수에 대한 값의 변화를 관찰 할 때 사용

조사식편집(CTRL + W): VBE 에 조사식 창이 열린 상태에서 이 키를 누르면 조사식 편집 창이 뜨고 그곳에서 수정 가능

간략한 조사식(SHIFT+F9): 조사식 편집보다 이 기능을 더 많이 씀. 매크로를 단계별로 실행(F8)하다가 관심 변수에 커서를 두고 이 단축키를 누르면 작은 간략한 조사식 창이 뜨고 바로 확인 할 수 있음.

중단점 설정/해제(F9): 매크로(프로시저)에 특정 줄에 이 키를 입력하면 갈색으로 동그라미가 생김. 만일 F5 키를 누르면 이 줄에서 프로시저의 실행이 멈춤. 자주 사용하는 기능! F9를 한 번 더 누르면 해제

* 변수 선언 문이나 주석 줄은 중단점 설정이 안됨

모든 중단점 지우기(CTRL+SHIFT+F9)

실행

Sub/사용자 정의 폼 실행: F5 키를 누르면 바로 실행

중단(crtl+pause) = esc

재설정: 프로시저가 중단되거나 실행중에 노란 줄로 걸려서 있을 때 완전히 실행을 중지 할 때 사용 단축키는 art+r, r

몰입도: 2.5

만족도:2

 마음이 조급해졌나. 글은 읽는데 내용이 좀 안들어왔다. 천천히 실습해보면서 하자.

그리고 예제 파일을 꼭 확인하고 실습하면서 하자 ㅋㅋㅋ 독서 시간이 아니니

일차 / 날짜 : 088일차 / 8월 14일 (목)
취침 / 기상시간 : 오후 11시 00분/ 오전 5시 5분
수면/ 활동시간: 6시간 5분/ 7시 0분 ~ 8시 50분(7시 10분 ~ 7시 40분, 현수주임님, exam c,vba)

숙면에 대해: 잘 때 추웠다. 더 두꺼운 옷으로 입고 자야지

도구_옵션

자동구문검사: 컴파일 오류 발생 시 메시지 박스 뜸.

구성원 자동 목록: 코딩 시 입력 오류를 막고, 쉽고 빠르게 입력 가능

프로시저_한 단위의 기능을 갖는 집합, Sub프로시저와 Function프로시저, Property 프로시저(비실용적)

인수가 없는 프로시저: 단독으로 실행 가능

인수를 갖는 프로시저: 단독 실행 불능

몰입도3

만족도 2

일차 / 날짜 : 089일차 / 8월 15일 (금)
취침 / 기상시간 : 오후 11시 00분/ 오전 5시 25분
수면/ 활동시간: 6시간 25분/ 9시 00분 ~ 9시 50분(아침요가 30분, 구본형 쌤 글 1시간, 아침 30분,  인터넷 딴 짓 이런)

숙면에 대해: 잘 때 역시 추웠다. 더 두꺼운 옷으로 입고 자야지

Sub 프로시저 구문

[Private | Public | Friend] [Static] Sub 프로시저명 ([인수1, 인수2, ~,인수n])

[문장]

[Exit Sub]

[문장]

End Sub

몰입도 1.5

만족도 1

kdb 자소서 쓰는게 신경쓰였나, 딴 짓하다 집중을 못했다. 엑셀에서 기본이랑 함수쪽은 이제 재밌게 할 수 있는데

vba는 처음 시작이라 좀 어려워서 접근이 쉽지 않은 듯 하다. 너무 공부하듯이 하는건 안 좋지만 어느정도 어려운 부분은

참고 나가야 한다. 다시!

일차 / 날짜 : 090일차 / 8월 16일 (토)
취침 / 기상시간 : 오전 1시 40분/ 오전 10시 30분(7시 기상 후 다시 잠듬) 
수면/ 활동시간: 8시간 30분/ 활동 무

늦게 잔 이유: 여친이랑 YG콘서트 갔다옴. 회사에서 얻은 공짜 티켓으로.

숙면에 대해: 단군 시작 후 처음으로 완전 늦잠 자봤다. 간만에 늦게까지 자서 머리가 좀 띵하긴 하지만 나쁘지 않았다.

구본형 샘의 칼럼.

누가 유능한 사람인가 ?

 자신을 알아주지 않는 상사와 동료들의 평범함을 비웃어 주지만 스스로를 원망하는 경우도 많다. 그때 우리는 질문한다. 나는 이 일, 이 회사에 어울리는 사람인가 ? 불행은 우리에게 질문하게 만든다. 이것이 불행의 위대한 점이다. 적절하고 절실한 질문만이 어둡고 힘든 세월에 대한 해답을 찾을 수 있도록 우리를 데려다 주기 때문이다.

오늘은 엑셀 활동은 못했지만, 자소서 쓰면서 나에 대해 정리하자.

자기혁명_필승의 방법

그대로 있을 수 없는 이유에 대한 확신

- 그 싸움을 ‘생존과의 전쟁‘ 이라고 부를 수 있을 때 당신은 스스로 변화할 준비가 비로소 되어 있는 것이다.

자신에게 상냥하게 대하라

-“지금 필요한 것은 자기에게 되돌아오는 것이다. 그리고 스스로에게 상냥하게 물어보는 것이다. 하고 싶은 일이 무엇인가?
- 최고의 전문가는 자신의 내적 욕망을 따르는 사람이다

시간을 쓰지 않으면 욕망은 그저 그리움으로 남을 뿐이다

-자신이 중요한 일과 소중한 사람에게 시간을 쓰지 못한다는 것을 알고 있다고 말한다. 그러나 어리석지 않다면 왜 그렇게 살고 있는가?

전면전의 첫 번째 싸움에서 반드시 이겨라 - 7일간의 개혁

-“자신을 바꾸게 될 깨달음으로 우리를 몰고 가기 위해서는 자신에 몰두해 있어야 한다.

끊임없이 대화하라 

-“당신은 일생을 통해 하고 싶은 일 하나를 들라고 하면 서슴없이 말할 수 있는가?

- 복구할 수 없게 완전히 궤멸시키지 않고는 성공할 수 없다. 싸움은 전면전이다.” 

- 매일 자신을 들여다보라. 

“우리에게는 지금 자신감과 에너지가 필요하다 … 당신이 지금 직장인이라면, 경영자와 상사의 호의를 구걸하지 마라. 허리를 펴고 당신의 등뼈로 서라. 당신은 직장 속에서 전문적인 1인 기업을 경영하는 경영자가 빨리 되어야 한다 … 실업이란 직장에서 쫓겨나는 것을 의미하지 않는다. 인생을 통해 하고 싶은 일을 찾지 못하는 것이 바로 진정한 실업이다. 우리는 선택할 수 있다. 선택함으로 써 자유롭게 종속될 수 있다. 그 일만을 생각하고, 그것만을 위해 웃고 울 수 있다. 인생을 거는 것이다.”

일차 / 날짜 : 091일차 / 8월 17일 (일)
취침 / 기상시간 : 오후 10시 40분/ 오전 5시 25분

수면/ 활동시간: 6시간 45분/ 5시 55분 ~ 7시 55분

숙면에 대해: 다시 저녁 먹는 시간이 늦어지고 있음. 집에서 먹다보니 그런 듯. 일찍 먹을 거 먹고, 저녁을 간단히 먹는 걸로.

프로시저

Sub

Sub문의 끝은 항상 End Sub

Sub문을 삽입 메뉴 -> 프로시저 로 만들 수 있음

Function

Function 프로시저는 Sub 프로시저와 달리 리턴 값 존재. 그리고 그 리턴 값에 자료형을 할당 할 수 있음. 프로시저가 끝날 때 어떤 자료형으로 값을 돌려주고 끝남.

Function 프로시저 구문

[Public | Private | Friend] [Static] Function 프로시저명([인수1, 인수2, ~,인수n])[As 자료형]

[문장]

[프로시저명=어떤 값]

[Exit Function]

[문장]

[프로시저명 = 어떤 값]

End Function

Exit Function 이 나오면 더 이상 아래로 내려가지 않고 중단. 리턴 값이 없다면 기본 자료형 값으로 리턴. 예로 리턴 자료형이 Integer 면 0을 리턴,

특정 셀로부터 아래로 데이터가 있는 끝 셀을 리턴하는 프로시저

Function fcCo(c) As Range '끝 셀 바로 아래 셀
Dim s As Worksheet, cL As Range
1 Set s = c.Parent '셀의 부모인 시트 받기
2 Set cL = s.Cells(Rows.Count, c.Column) '시트의 끝행 셀
3 Set fcCo = cL.End(xlUp).Offset(1) 'Offset(1)=한 셀 아래
End Function

Sub 대상셀_선택()
Dim cd As Range
4 Set cd = fcCo(Range("b3"))
5 cd.Select
End Sub

몰입도 3.5

만족도 2.5

일차 / 날짜 : 092일차 / 8월 18일 (월)
취침 / 기상시간 : 오전 1시 20분/ 오전 5시 25분

수면/ 활동시간: 4시간 5분/ 활동무, kdb자소서 썼음

오늘은 내가 싫었던 날. 좀 미리 준비하자.

일차 / 날짜 : 093일차 / 8월 19일 (화)
취침 / 기상시간 : 오후 10시 30분/ 오전 5시 5분

수면/ 활동시간 : 6시간 35분/ 7시 10분

고급필터 잠시 복습

 원하는 필드만 가져오려면? 조건 범위는 안 잡고 복사위치를 원하는 필드명만 입력해 놓은 곳으로 해 놓으면 원하는 필드만 복사 완료

통합문서가 열리면서 자동으로 실행되는 매크로

Sub auto_open()
MsgBox "안녕하세요"
End Sub

시트모듈에 작성하면 파일 열때 vba실행이 안됨. 그런데 일반 모듈에서 실행 할 경우는 파일열자마자 실행 가능.(참고로 파일열자마자 실행 가능한 건 프로시저명이 auto_open() 이기 때문)

60p 엑셀장인 한마디. 일반적인 매크로는 일반 모듈에 작성하는 것을 권장. 시트모듈이나 this workbook 모듈은 이벤트 관련 코딩을 할 때만 사용.

Sub 파일명_수정()
'c드라이브의 xx파일을 yyy파일로 이름만 수정
srOld = "c:\xx.xlsx"
srNew = "c:\yyy.xlsx"
Name srOld As srNew
End Sub

파일명 수정이 안되네. 보안 때문인가. 그게 아니라 파일이 열려있었기 때문.

Sub 경로와파일명()
MsgBox ThisWorkbook.Path '경로만 나옴
MsgBox ThisWorkbook.FullName '경로+파일명.확장자
End Sub

직접실행창(ctrl+g) 복습

코드를 분석하려고 f8키로 줄 단위 코드를 실행할 때 이 창에서 입력해서 확인 가능

Sub 한폴더의_여러_통합문서_열기()
1 pat = ThisWorkbook.Path & "\매크로임시\"
2 srfile = Dir(pat & "*.xlsx") '파일명 리턴
3 Do Until srfile = ""
4   Workbooks.Open pat & srfile '파일 열기
5   ActiveWorkbook.Sheets(1).[a1] = 7
6   ActiveWorkbook.Close 1 '파일 저장후 닫기
7   srfile = Dir
8 Loop
End Sub

Dir 함수

몰입도 3

만족도 3

일차 / 날짜 : 094일차 / 8월 20일 (수)
취침 / 기상시간 : 오후 11시 30분/ 오전 5시 5분

수면/ 활동시간 : 5시간 35분/ 7시 30분 ~ 8시 40분

잘 모르겠음;

Sub 수식으로_가져오고_값만_붙여넣기()
'닫힌 파일의 B열 자료를 A열에 가져오기
With [Sh29!a3:a7]
   pat = ThisWorkbook.Path '이 매크로 파일의 경로
1   fp = "'" & pat & "\[z통합macro.xlsm]Sheet1'!B3"
2  '.Formula = "='C:\자재\[Lot현황.xls]Data'!L5"
   .Formula = "=" & fp
   .Value = .Value   '값만 남기기
End With
End Sub

몰입도 2.5

만족도 1

오랜만에 단군일지 쓰러왔는데 석찬님 응원글에 힘이 납니다!

회사 업무에 치인다는 핑계로 소홀했는데,

어찌되었든 석찬님은 놓지않고 끊임없이 자신과 대화를 하고 계신 것 같아요~ 석찬님 마음에 꼭 맞는 결과가 있을 거라고 200% 확신.

덕분에 정리해놓으신 글 보고 저도 많이 느끼고 갑니다 마지막까지 홧팅 :)

석찬님 굿굿!

일차 / 날짜 : 096일차 / 8월 21일 (목)
취침 / 기상시간 : 오후 10시 40분/ 오전 5시 00분

수면/ 활동시간 : 6시간 20분/ 7시 ~ 8시 50분

chapter7

개체(object), 메서드(method), 속성(property), 이벤트(event), 컬렉션(Collection), 클래스(Class)

매크로 기록하면서 vbe 창 보고 어떻게 기록되는지 확인하면서 공부하는 것이 중요!

오늘 현수주임님 옆에서 vba 기본적인 틀 잡을 수 있어서 좋았음.

몰입도 4

만족도 4

일차 / 날짜 : 097일차 / 8월 23일 (토)
취침 / 기상시간 : 오후 11시 00분/ 오전 5시 28분

수면/ 활동시간 : 6시간 28분/ 오전 10시 ~ 저녁 7시 30분

오늘은 야탑으로 엑셀장인 매크로 강의 듣는 첫째날.

빡샐거 같다.

일차 / 날짜 : 098일차 / 8월 23일 (일)
취침 / 기상시간 : 오후 11시 30분/ 오전 6시 00분

수면 / 활동시간 : 6시간 30분/ 오전 10시 ~ 저녁 7시 30분

오늘은 야탑으로 엑셀장인 매크로 강의 듣는 둘째날. 간만에 내가 한 노력에 내가 감동한 날.
아직 뭔가를 이룬건 아니지만, 또 오랜기간 정체기가 오겠지만 엑셀 공부를 오래 할 수 있겠다는 생각.

일차 / 날짜 : 099일차 / 8월 25일 (월)
취침 / 기상시간 : 오후 11시 30분/ 오전 6시 30분

수면 / 활동시간 : 7시간 00분/ 오후 4시 ~

디버깅 (Debugging): 코드의 흐름을 단계적으로 분석

On Error Resume Next
뜻: 오류 나도 계속 다음줄로 진행

On Error GoTo 줄레이블
[statements]
줄레이블:
뜻: 오류가 나면 줄레이블로 진행 줄이 이동

On Error GoTo 0
뜻: 오류나면 다시 디버그 창 열림. 이건 On Error Resume Next랑 세트로 다니는 것.

On Error GoTo 줄레이블 예시

Sub 디버그하기2()
On Error GoTo e
Sheets("tt").Delete
Sheets("xxx").Delete
e:
If Err.Number Then MsgBox Err.Description
End Sub

Debug.Print로 `직접실행창`에서 확인가능

연산자-개체 비교 Is

개체 비교
result = object1 Is object2
두개체 변수의 참조가 같다

Set c = Range("F1")
Set c3 = c
MsgBox c3 Is c 'True 리턴
MsgBox c3 Is Nothing 'False 리턴

논리연산자

Xor (피연산자가 하나는 True 다른 하나는 False일때, 참이며 3개라면 하나만 True일 때 참)
result = 식1 Xor 식2
MsgBox 3 > 2 Xor 9 < 7 'True 리턴

Imp (첫 피연산자가 참, 두번째는 거짓일때만 False, 즉 순서가 관여)
result = 식1 Imp 식2
MsgBox 3 > 2 Imp 9 < 7 'False 리턴

한줄에 두개 명령어 쓰고 싶을 때는 : 사용

Set rdt = r.Resize(, 1): rdt.Select 

Range

전체 행,열 선택

Range("B7:F11").EntireColumn.Select

Range("B7:F11").EntireRow.Select 

이동관련

offset, cells

레인지.Offset(행수,열수)=셀로부터 다음 몇칸씩 이동(행수가 음수면 위, 열수가 음수면 좌측)

=Range("B6").Offset(, 2)=Range("B6").Cells(1, 3)=Range("B6")(, 3)

range가 하나일 때는 offset과 cells의 역할 동일. 단지 인수가 offset은 0부터 씀, cells는 1부터 씀

cells는 한칸 위주로 이동.

범위의 두번째 열 선택

Range("c7:g11").Columns(2).Select '=Range("c7:g11").Resize(, 1).Offset(0, 1).Select

Range("c7:g11").Columns(2).Resize(, 3).Select   '범위에 두번째 열부터 3개 열

범위의 합

Union(r2, r2.Offset(, 3))

'Application.Union(불연속범위)
'레인지.CurrentRegion(인접범위)

'레인지.SpecialCells(특별범위)
'시트.UsedRange(시트에서 사용된범위)
'Application.Intersect(교차범위, Application.은 생략가능)
'레인지.Areas(다중영역 선택범위)

일차 / 날짜 : 100일차 / 8월 26일 (화)
취침 / 기상시간 : 오후 10시 40분/ 오전 5시 00분

수면 / 활동시간 : 6시간 20분/ 오전 7시 30분 ~ 8시 45분

With문 (With …. End With)
동일 개체를 반복하여 입력하지 않고 사용

With 개체
.속성이나 메서드1
.속성이나 메서드2
….
End With

Sub With문_폰트설정2()
   With Selection.Font
      .Name = "굴림"
      .Size = 12
      .Bold = True
      .Italic = True
      .ColorIndex = 5
   End With
End Sub

inputbox(사용자의 입력을 받아 처리할 때 유용)
크게 두 가지로 나뉨
1) VBA.InputBox: 보통, VBA.은 생략하며 텍스트를 결과로 리턴
2) Application.InputBox은 여러 형태(수식, 숫자, 텍스트, 논리값, Range, 오류값, 배열)를 결과로 받을 수 있음

inputbox는 사용자의 수기입력을 받는 경우와 셀로 입력을 받는 경우 두가지로 나누어짐.

Set cInp = Application.InputBox(sr, , Type:=8) '이렇게 8쓰면 Range 리턴

inputbox 다시 볼 것. F1으로 찾는 법 다시 볼 것.

제어문

2. Case문
Select Case 평가식 또는 상수
Case 값2 또는 식2
……
Case 값3 또는 식3
……
……………
Case Else
……
End Select
예시

Sub case문()
ActiveCell.ClearFormats
Select Case ActiveCell.Value
   Case Is < 0   '활성 셀값이 음수이면
      ActiveCell.Font.Bold = True
   Case Is < 100   'Is는 안적어도 자동으로 나옴
      ActiveCell.Interior.Color = vbYellow
   Case 100 To 200   '100 이상 200 이하
      ActiveCell.Font.Color = vbRed
   Case 201, 203, 205   '201 Or 203 Or 205
      ActiveCell.Font.Color = vbBlue
   Case Else   '위 조건에 모두 안맞으면
      ActiveCell.Font.Underline = xlSingle
End Select
End Sub

몰입도 3

만족도 3

일차 / 날짜 : 101일차 / 8월 27일 (수)
취침 / 기상시간 : 오전 3시 00분/ 오전 10시 00분

수면 / 활동시간 : 7시간 00분/ 아직은 없음

오늘은 예비군 가는 날, vba 책을 볼까 내 과거 정리를 할까 고민 중.

그냥 책 하나 갖고 가고 보기 싫음 과거 정리하면 되겠네.

다시시작!

일차 / 날짜 : 102일차 / 8월 28일 (목)
취침 / 기상시간 : 오후 11시 00분/ 오전 5시 5분
수면/ 활동시간: 6시간 5분/ 7시 20분 ~ 8시 45분

문제: INDEX함수는 한개만 찾을 수 있어서 여러개를 찾아서 다 넣고 싶은데 어떻게 수식을....

각 과목(수학, 영어)을 신청한 학생들을 한 셀에 정리하는 것

키포인트는

Do
      sr = cf.Offset(, -1).Value   '성명
      c.Offset(, 1).Value = c.Offset(, 1).Value & "," & sr
      Set cf = rf.FindNext(cf)
   Loop While cf.Address <> adrFirst

 찾기 기능의 경우 무한루프를 돌게 됨. 그 무한루프를 돌게 됨. 그 무한루프를 끊기 위해   

do ~ Loop While cf.Address <> adrFirst  가 쓰임,

Sub Sheet9_단추1_Click()
Dim cd As Range, cd2 As Range, cf As Range, sr As String, c As Range, rf As Range
Set cd = Range("h3")
cd.EntireColumn.ClearContents
Range(Range("c3"), Range("c30000").End(xlUp)).Copy cd
cd.CurrentRegion.RemoveDuplicates Columns:=1, Header:=xlNo   '  중복된 항목제거
Set cd2 = Range("e3")
cd2.Resize(30000, 2).ClearContents
cd.CurrentRegion.Cut cd2
Set cd2 = Range("e3")

Set rf = Columns("c").Cells      ' 여기서 Cells가 없으면 에러가 남. 이게 왜 그런지 모르는데 일단 암기!
For Each c In cd2.CurrentRegion
   Set cf = rf.Find(What:=c.Value, After:=rf(rf.Count), LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
                    False, SearchFormat:=False)
   adrFirst = cf.Address
   Do
      sr = cf.Offset(, -1).Value   '성명
      c.Offset(, 1).Value = c.Offset(, 1).Value & "," & sr
      Set cf = rf.FindNext(cf)
   Loop While cf.Address <> adrFirst
   c.Offset(, 1).Value = Mid(c.Offset(, 1).Value, 2)
Next
'ActiveSheet.Range("$H$3:$H$7").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

몰입도 3

만족도 3

일차 / 날짜 : 103일차 / 8월 29일 (금)
취침 / 기상시간 : 오후 11시 00분/ 오전 5시 0분
수면/ 활동시간: 6시간 00분/ 7시 20분 ~ 7시 40분

VBA가 보이는 그림책 간단히 읽고, 어제 못다한 업무 시작. 이번 업무는 해야되는 것도 있지만 내가 해보고 싶어서.

일차 / 날짜 : 104일차 / 8월 30일 (토)
취침 / 기상시간 : 오후 11시 30분/ 오전 9시 0분
수면/ 활동시간: 9시간30분/ 무

이력서 사진촬영. 여자친구 부모님 만남. 옹졸함. 나태함. 자존감. 다시 시작.

새벽활동에 대해 다시 생각.

일단 놀이다. 즐거워야한다. 즐거우면 몰입이 된다. 몰입은 다시 즐거움을 준다. 하루가 활기차진다.
놀이가 아닌 해야하는 일로 변질 될 경우 조급해진다. 성과가 나와야해 하고. 의무감은 또 몰입도를 널어뜨린다. 몰입도가 떨어지면 즐겁지 않다. 악순환이 된다.

하지만 그냥 노는 것으로 생각해도 안된다. 내일 놀아도 되니까 하고 생각하고 피곤하면 자버릴 수 있다. 노는 것에 의미를 부여하고 의미가 퇴색되지 않도록 최선을 다해야한다. 나는 새벽활동을 아래와 같이 의미부여를 둔다. 잊지말자.
1. 다른사람이 시키는 일로 하루를 시작하지 않는다. 내가 하고 싶은 일로 하루를 시작한다.
2. 한가지 일을 꾸준히 함으로써 자존감을 높힌다.
3. 나만의 필살기를 만드는 작업이다. 오래 걸리고 급하지 않지만 중요한 일이다. 좋아하고 잘 할 수 있는 일로 무기를 만든다.

   그래서 다른 사람에게 의존하지 않고 내 힘으로 내 능력으로 살아간다.  

새벽활동의 의미부여를 새롭게 느끼게 위해서 개인의식이 필요하다. 개인의식은 요가.

 기상 후 3분 요가

 가. 3분도 집중해서 요가하면 짧은 시간이 아님. 몰입도를 느낀다.

 나. 단 3분으로 내가 좋아하는 것을 매일 하는 것에 대한 유익함(건강)과 성장(유연성)를 확인한다.

 다. 삶에 쫓기지 않고, 내가 삶을 이끈다는 느낌을 받는다.

일차 / 날짜 : 105일차 / 8월 31일 (일)
취침 / 기상시간 : 오후 11시 00분/ 오전 5시 30분
수면/ 활동시간: 6시간30분/  6시 ~ 8시

의문점은

range(개체)의 초기 값은 nothing 인데 set으로 range 지정하고 빈칸인지 확인 할 때는 문자형 초기값인 "" 로 비교.

헷갈린다.

그리고 수식 작성 시 매크로 기록을 하면 아래와 같이 나온다. 시작과 끝에 " 하나씩, 그리고 "를 입력하려면 "" 이렇게 두번 입력해야 하는 듯.

Range("B4").FormulaR1C1 = "=""상호는""&VLOOKUP(R[-2]C[1],R5C5:R7C8,2,0)&""이고"""

또 다른 특징은 C2셀을 B4 셀을 기준으로 R[-2]C[1] 이렇게 표현. 위로 두칸 오른쪽으로 한칸.

Sub s수식한계()
Set tbl = [F4:I7]
Set t = [c2]
If t = "" Then
   [b6] = "상호는 _______ 이고"
   [b9] = "매출액은 ____ 이며"
   [b11] = "주소지는 ___ 입니다."
Else
   sr = Application.VLookup(t, tbl, 2, 0)
   sr2 = Application.VLookup(t, tbl, 3, 0)
   sr3 = Application.VLookup(t, tbl, 4, 0)
   sbCelForma [b6], "상호는 ", sr, " 이고"
   sbCelForma [b9], "매출액은 ", sr2, " 이며"
   sbCelForma [b11], "주소지는 ", sr3, " 입니다."
End If
End Sub

Sub sbCelForma(c, sr1, sr, sr2)
If IsError(sr) Then
   c.Value = sr1 & "__________" & sr2
Else
   c.Value = sr1 & sr & sr2
   With c.Characters(Start:=Len(sr1) + 1, Length:=Len(sr)).Font
      .Underline = xlUnderlineStyleSingle
      .Color = vbBlue
   End With
End If
End Sub

몰입도 3

만족도 2.5

일차 / 날짜 : 106일차 / 9월 1일 (월)
취침 / 기상시간 : 오후 12시 00분/ 오전 5시 30분
수면/ 활동시간: 5시간30분/  오전 7시 50분 ~ 오전 8시 10분

늦게 잔 이유: 어영부영 인터넷 딴짓, 여자친구 핸드폰 문자 알림으로 중간에 깸.

원본데이터 한 줄 붙여 넣은 후

만화책 권수 만큼 추가로 붙여넣고 j열 숫자 오름차순 입력.

핵심

for each 구문에서 collection을 표현하는 방법

For each c in Sheets("Sheet1 (3)").Range("a2:a3")

Sub Sheet13_단추1_Click()
Dim c As Range, cd As Range
cols = 6   '전체 열수
Columns("H:M").ClearContents
For Each c In Sheets("Sheet1 (3)").Range("a2:a3")
   c.Resize(, cols).Copy
   Set cd = Range("i65000").End(xlUp).Offset(1, -1)
   cd.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
   n = c.Offset(, 2).Value   '행 개수
   c.Offset(, 1).Resize(, cols - 1).Copy  '원본 만화제목~가격열까지의 데이터
   cd.Offset(1, 1).Resize(n, cols - 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
   cd.Offset(1, 2).Value = 1
   cd.Offset(1, 2).AutoFill Destination:=cd.Offset(1, 2).Resize(n), Type:=xlFillSeries
Next
End Sub

차트 선 색깔 모두 바꾸기

이것 역시 차트의 collection을 표현하는 방법 익힐 것. chartobjects. 끝에 s 붙이기.

For Each chtO In s.ChartObjects

Sub Sheet14_단추2_Click()
Dim chtO As ChartObject
Dim s As Worksheet
Set s = ActiveSheet
For Each chtO In s.ChartObjects
   chtO.Activate
   ActiveChart.SeriesCollection(1).Select
   With Selection.Format.Line
      .ForeColor.RGB = RGB(255, 0, 0)
   End With
Next
End Sub

몰입도 3

만족도 2.5

일 마무리 못한 것들 하고, 자소서 쓰기 위해 아침활동을 간단히.

일차 / 날짜 : 107일차 / 9월 2일 (화)
취침 / 기상시간 : 오후 11시 00분/ 오전 5시 00분
수면/ 활동시간: 6시간 00분/  오전 7시 부터 듬성듬성 한 30분.

늦게 잔 이유: 늦은 저녁, 어영부영 인터넷 딴짓

디버깅 간단 복습

1 프로시저 실행(F5 키): 해당 프로시저에 커서를 두고 실행
2 재설정: 실행 중단 (노랑 하이라이트 사라짐)
3 중단점(F9): 실행중에 중단점 있는 줄에서 멈춤(코드로 Stop 명령문도 가능)
4 줄단위 실행(F8): 한줄씩 실행(노랑 하이라이트가 그 줄을 지나가면 그 줄이 실행 된 것임)
인수가 있는 프로시저에서 바로 F8 키가 작동하지 않음. ※ 프로시저 단위 실행 Shitf+F8
5 지역: 모든 변수들의 현재 값 파악
6 직접실행창(Ctrl+G): 코드 창이 아닌 명령문을 빠르게 실행해 보는 곳
7 조사식 창: 어떤 식을 이 창으로 드래그해서 상태 파악
8 간략한 조사식(Shift+F9): 빠르게 조사식 창에 식을 선택한 뒤, 단축키로 추가하여 상태 파악
※ 실행중, 강제 종료(Ctrl+Pause): 실행시간이 너무 오래걸리거나 중간에 끝내고 싶을때

배열

배열을 이용하여 여러값을 한 변수에 모두 저장할 수 있다
가령, 일주일치 7개의 판매수량을 저장할때에 7개 요소를 선언하기보다는 7개 요소를 하나의 배열로 선언
배열은 각 요소마다 값이 한개씩 저장됨
배열의 인덱스는 기본적으로 0부터 시작하므로 상한값은 6이 됨
Dim aSr요일(6) As Long

Sub 배열1()   '정적배열
   Dim asr교통수단(3) As String   '텍스트형 배열변수로 0~3까지 4개의 방 할당
   asr교통수단(0) = "자동차"   '첫번째 요소에 값 대입
   asr교통수단(1) = "배"
   asr교통수단(2) = "기차"
   asr교통수단(3) = "우주선"
   MsgBox asr교통수단(2)
End Sub

Sub 배열2()   '동적배열
   Dim asr교통수단() As String
   '이런저런 코딩…
   ReDim asr교통수단(5)   '배열크기(저장공간) 재설정
   asr교통수단(0) = "자동차"
   asr교통수단(1) = "배"
   asr교통수단(2) = "자전거"
   asr교통수단(3) = "기차"
   asr교통수단(4) = "우주선"
   asr교통수단(5) = "비행기"
   MsgBox asr교통수단(5)
   ReDim Preserve asr교통수단(9)   '대입된 값은 그대로 두고 배열 크기만 수정
   'Preserve로 기존 배열 크기를 확장 또는 축소
   'Preserve 없이 사용하면 모든 요소값을 모두 빈문자열로 초기화
   MsgBox asr교통수단(7)
End Sub

Sub 배열3()   '다차원
Dim aiMul(1 To 2, 1 To 3) As Integer
aiMul(1, 1) = 1
aiMul(1, 2) = 2
aiMul(1, 3) = 3
aiMul(2, 1) = 70
aiMul(2, 2) = 50
aiMul(2, 3) = 77
'UBound and LBound 함수
MsgBox UBound(aiMul, 2)   '2차원 aiMul의 최대범위(상한값)
MsgBox LBound(aiMul, 1)   '2차원 aiMul의 최소범위(하한값)
End Sub

Sub 배열5()   'Array 함수(variant 리턴)
'Option Base 문은 Array 함수에 영향을 주지 못함
vWeek = Array("월", "화", "수", "목", "금", "토", "일")
sr요일 = vWeek(2)
MsgBox sr요일 '수 리턴
End Sub

몰입도2.5

만족도 2

원서 쓰는게 부담.

일차 / 날짜 : 108일차 / 9월 3일 (수)
취침 / 기상시간 : 오후 11시 30분/ 오전 5시 30분
수면/ 활동시간: 6시간 00분/  무

늦게 잔 이유: 늦은 퇴근, 성식이형 책건내주고 오기. 들어오자마자 컴퓨터 딴 짓 조금.

엑셀 공부 할지 망설이다, 아웃룩 메일 일정보다가 시간이 갔음. 업무 못다한거 해야....

아르바이트로 다른 걸 못한다는 생각이 들 때가 있어 스트레스가 쌓인다.

일차 / 날짜 : 109일차 / 9월 4일 (목)
취침 / 기상시간 : 오전 2시 00분/ 오전 9시 00분
수면/ 활동시간: 7시간 00분/  무

늦게 잔 이유: 전날 늦게 들어와서 컴퓨터 딴 짓.

머니볼. 브래드피트. 빌리 빈의 실화. 에슬레스틱스.차별화 된 진행방식. 뒷 배경.

과거의 영광. 새로운 도전. 색다른 방식. 경험과 직관 vs 통계와 분석. 변화의 의미. 관심과 비난. 불완전한 인간이 신념을 추구하는 과정. 남성성. 신념. 변화.

이동진을 보면서 내가 관심있어하는 것을 말로 잘 표현하는게 부럽다는 생각을 했다. 하나의 욕망을 다시 끌어낸 듯.

브래드피트는 나이가 들어도 멋있는 남자구나. 말로만 듣던 남성성을 브래드피트의 명연기로 우연히 다시 보게 되서 정말 색달랐다.

영화를 보면서 느낀 건

어떤 일을 하던 내가 완벽하게 준비 될 때까지 기다리면서 불안해 할 필요가 없어. 나도 불완전한 인간이니까.

신념을 추구하기 위해 계속 노력 하는거야. 행동으로.

요즘 엑셀 공부 거의 못했네. 다시 시작해야지. 새벽활동은 놀이이지만 생존의 위협을 느끼고 그에 대한 변화의 시작임을 잊지 말아야 해.

노력을 하지 않으면 다시 원래대로 돌아가버려.

일차 / 날짜 : 110일차 / 9월 5일 (금)
취침 / 기상시간 : 오전 2시 00분/ 오전 10시00분
수면/ 활동시간: 8시간 00분/  10시 40분 ~11시 30분

늦게 잔 이유: 늦은 저녁, 딴 짓.

간단한 매크로 복습

Sub 단추1_Click()

End Sub
Sub 매크로1()
'
' 매크로1 매크로
'

'
Dim sa As Range, ct As Range, n As Range
Range("H:n").Delete

For Each c In ThisWorkbook.Sheets("Sheet1").Range(Range("a2"), Range("a1000").End(xlUp))

   Set ct = Range("i5000").End(xlUp).Offset(1, 0)
   Set sa = c.Resize(, 6)
   Set n = c.Offset(0, 2)

   sa.Copy
   ct.Offset(, -1).PasteSpecial Paste:=xlPasteValues

   c.Offset(, 1).Resize(, 5).Copy
   ct.Offset(1).Resize(n, 5).PasteSpecial Paste:=xlPasteValues

ct.Offset(1, 1).Value = 1
ct.Offset(1, 1).AutoFill Destination:=Range(ct.Offset(1, 1), ct.Offset(n, 1)), Type:=xlFillSeries
   

Next
End Sub

매크로하면서 느끼는 건 역시 눈으로 보는거랑 실제로 해보는거랑 천지차이라는 거. 눈으로 코딩한거 보면 너무 쉬운데

실제로 해보면 익숙하지가 않아서 시간 은근히 걸림.

 단군 시작한지 처음으로 알람 울렸는데 내가 끄고 다시 잔걸 몰랐음. 평소에 늦게 일어난건 그냥 늦게 일어나야겠다 하고

알람 맞춰서 늦게 일어 난거 였는데 오늘은 일어나야 할 알람 벨을 무의식적으로 끄고 잤음. 긴장 다시 타야겠다.

일차 / 날짜 : 110일차 / 9월 5일 (토)
취침 / 기상시간 : 오전 1시 00분/ 오전 5시 30분
수면/ 활동시간: 4시간 30분/  6시 00분 ~8시 30분

늦게 잔 이유: 늦은 저녁, 잠이 잘 안 왔음 

내가 짜다 만 것.

변수 선언 없이 그냥 variable 쓰면 variant 로 된다는 것 기억

& 쓸 때는 띄어 쓰기 꼭 할 것! 그래야 에러 안 뜸

함수 관련 알아보는 것. 다시 알아보기. 함수 단어에 커서 두고 f1이었나 f2였나.

찾기에서 after 다음에 들어가는 용어 다시 봐볼 것.

Sub 매크로1()
'
' 매크로1 매크로
'

'
   
Dim cd As Range, cd1 As Range, srname As String
   
   
    Set cd = Range(Range("c1").End(xlDown), Range("c5000").End(xlUp))
    Set cd1 = Range("e3")
    cd.Copy cd1
   
   
    cd.Offset(, 2).RemoveDuplicates Columns:=1, Header:=xlNo
   
   
    For Each c In cd1.CurrentRegion
    Range("C1048576").Activate
   
        Columns("C:C").Find(What:=c.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
        rf = activation.Address
        adrfirst =
    Do
    Columns("C:C").Find(What:=c.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
       
        srname = srname & "," & activation.Offset(, -1).Value
       
    Loop While adrfirst <> activation.Address
       
   
    Next
End Sub

수업 때 한 것. 별거아니니까 금방 다시 보자.

Sub Sheet9_단추1_Click()
Dim cd As Range, cd2 As Range, cf As Range, sr As String, c As Range, rf As Range
Set cd = Range("h3")
cd.EntireColumn.ClearContents
Range(Range("c3"), Range("c30000").End(xlUp)).Copy cd
cd.CurrentRegion.RemoveDuplicates Columns:=1, Header:=xlNo
Set cd2 = Range("e3")
cd2.Resize(30000, 2).ClearContents
cd.CurrentRegion.Cut cd2
Set cd2 = Range("e3")

Set rf = Columns("c").Cells
For Each c In cd2.CurrentRegion
   Set cf = rf.Find(What:=c.Value, After:=rf(rf.Count), LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
                    False, SearchFormat:=False)
   adrFirst = cf.Address
   Do
      sr = cf.Offset(, -1).Value   '성명
      c.Offset(, 1).Value = c.Offset(, 1).Value & "," & sr
      Set cf = rf.FindNext(cf)
   Loop While cf.Address <> adrFirst
   c.Offset(, 1).Value = Mid(c.Offset(, 1).Value, 2)
Next
'ActiveSheet.Range("$H$3:$H$7").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

몰입도 2.5

만족도 2.5

일차 / 날짜 : 111일차 / 9월 6일 (일)
취침 / 기상시간 : 오후 12시 00분/ 오전 8시 30분
수면/ 활동시간: 8시간 30분/ 

늦게 잔 이유: 버스에서 자서 그런지 잠이 잘 안 왔음. 큰일났다 흔들린다.

엑셀 지금 시기 중요하다. 컴활 1급 준비하는 시기도 있고, vba 지금 배운거 진도 확 못 빼면

지난번 함수나 기본강의처럼 복습하는데 몇달 걸리게 된다. 지금 해야 된다고 생각한 걸 안하면

뒤에 큰 기회를 놓친다는건 경험을 통해 알았으니, 제발.

일차 / 날짜 : 112,113일차 / 9월 7일 (월), 9월 8일(화) 

추석과 함께 하루 패턴이 흔들렸음.

일차 / 날짜 : 114일차 / 9월 9일 (수)

취침 / 기상시간 : 오후 12시 00분/ 오전 6시 10분
수면/ 활동시간: 6시간 10분/  7시 ~ 9시 30분

늦게 잔 이유: 학교 나갔다가 늦게 들어옴. 다시 원래 패턴으로 돌아오는 중.

함수 잠시 복습, match랑 lookup은 찾는배열인수가 오름차순 정렬 되어있어야 한다는것

예제 295 최고매출을 올린 사원 찾는 것 중

한 시트 내의 모든 차트의 특정 항목 글자색 변경

Dim ch As ChartObject
Dim s As Worksheet

Set s = ActiveSheet
For Each ch In s.ChartObjects

   
    ch.Activate    ' 여기서 activesheet.ch.activate 라고 하니 에러. 왜냐하면 이미 for문에서 s.ChartObjects로 현재시트라고 선언했기 때문
    ActiveChart.Legend.LegendEntries(3).Select
   
    With Selection.Format.TextFrame2.TextRange.Font
      .BaselineOffset = 0
      .Fill.Visible = msoTrue
      .Fill.ForeColor.ObjectThemeColor = msoThemeColorBackground2
      .Fill.ForeColor.TintAndShade = 0
      .Fill.ForeColor.Brightness = -0.25
      .Fill.Transparency = 0
      .Fill.Solid
    End With
   
    Next
   
End Sub

찾기에 대해서

Sub 찾기_범위의_끝셀부터_찾기()

Set rf=[A1:D9]

Set cf = rf.Find("우리",rf(rf.Count))

End sub

rf(rf.Count) 는 셀 범위의 마지막 셀

그리고 찾기에서 after: 는 찾기 시작할 셀 바로 전 셀 임을 기억

범위잡기 기초 복습

Range("B7:F11").Select
X = Range("B7:B11").Count   '레인지.Count: 레인지의 셀 개수
Range("B7").Resize(X).Select

'레인지.EntireColumn, 레인지의 전체열
Range("B7:F11").EntireColumn.Select
Range("C11").EntireColumn.Select
Range("B7:F11").EntireRow.Select

Range("B6").Next.Select   '=Range("B6").Offset(0, 1)
Range("B6").Previous.Select   'Range("B6").Offset(0, -1)

Range("c7:e11").Cells(3, 2).Select   '=Range("c7:c11").Cells(3, 2)=Range("c7:c11")(3, 2)

Range("c7:g11").Columns(2).Select '=Range("c7:g11").Resize(, 1).Offset(0, 1).Select

Set r = Range("B6").CurrentRegion
ros = Range("B6").CurrentRegion.Rows.Count ' 행의 수
r.Resize(ros - 1).Offset(1).Select

Dim s As Worksheet, r As Range, r입고 As Range, r입고2 As Range, ss As Worksheet
Dim rx As Range

Set s = ActiveSheet
Set r = Range("M13").CurrentRegion
Set r입고 = r.Resize(, 1).Offset(, 3)
r입고.Select
r입고.SpecialCells(xlCellTypeBlanks).Select
Set r입고2 = Selection

s.UsedRange.Select
s.UsedRange.SpecialCells(xlCellTypeLastCell).Select

Set rx = Intersect(r입고, [p16])
Debug.Print rx Is Nothing
Debug.Print Intersect(r입고2, [p16]) Is Nothing

r입고.SpecialCells(xlCellTypeConstants).Select
MsgBox Selection.Areas.Count

Set ss = Sheets("연산자")
ss.Range("f6:f9").Copy s.Range("J14") '전체복사
'값만 복사
'ss.Range("f6:f9").Copy
's.Range("J14").PasteSpecial xlPasteValues
End Sub

몰입도 3

만족도 3

회사에서 다른 사람들이 나를 어떻게 볼까 하고 걱정할 때가 아직도 많다. 그냥 내가 좋아서 선택한 일이면

열정만 쏟아부으면 되는데 이런저런 생각이 많이 드는건 아직 가치관의 확립이 안되서 겠지.

현실과 이상의 경계선에서 걸으려면 나에 대한 철저한 분석과 구체적인 action이 필요해.

 자기답게 살고자 애쓰는 자들을 위해 축배를

자신없는 학문
구두쇠의 재물
겁쟁이의 팔 힘
귀머거리에 풍악
장님 눈알 굴리기
송장에게 건 꽃목걸이
- 이 세상에 쓸모 없는 것들

자신에게 있는 것을 모르고,
그것을 활용할 줄 모르는 것,
자신에게 소용 없는 것을 쫓고,
할 수 없는 것에 집착하는 것,
모두 자기에 대해 깊이 모르기 때문이다.

***
못난 사람은
어려움이 두려워
시작조차 않는다
보통사람은
장애에 부딪치면
중간 지점에서 쉽게 포기하기 마련
뛰어난 사람은 거듭 고난에 부딪쳐도
시작한 일을 버리지 않는다
- 차이1

인과관계를 바꿔도 진실인 것 같다.

어려움이 두려워 시작조차 않는 사람은 못난 사람
장애에 부딪치면 중간에서 쉽게 포기하는 사람은 보통 사람
거듭 고난에 부딪쳐도 계속 하는 사람이야말로 뛰어난 사람

***
든 것 많아도
분별이 없는 사람은
알맹이를 모르는 법
국자가 국물 맛을 모르듯이
- 바보2

핵심을 통찰알줄 알고
본질을 이해하는 사람이 고수다.

승완샘 일지 중 [227일] 2월 5일 (토)

굿바이, 게으름

일차 / 날짜 : 115일차 / 9월 11일 (금) 활동무,

일차 / 날짜 : 116일차 / 9월 12일 (토)

취침 / 기상시간 : 오후 12시 00분/ 오전 6시 00분
수면/ 활동시간: 6시간 00분/ 6시 20분 ~  8시

늦게 잔 이유: 컴퓨터 딴 짓.

용어
배열선언 예시문: Dim asr(2) as String
asr: 배열변수(배열)
1차원 배열(※ 60차원까지 가능), 요소의 수는 3개
아래첨자(하한값)는 0, 상한값은 2

Sub 배열1()   '정적배열
   Dim asr교통수단(3) As String   '텍스트형 배열변수로 0~3까지 4개의 방 할당
   asr교통수단(0) = "자동차"   '첫번째 요소에 값 대입
   asr교통수단(1) = "배"
   asr교통수단(2) = "기차"
   asr교통수단(3) = "우주선"
   MsgBox asr교통수단(2)
End Sub

Sub 배열2()   '동적배열
   Dim asr교통수단() As String
   '이런저런 코딩…
   ReDim asr교통수단(5)   '배열크기(저장공간) 재설정
   asr교통수단(0) = "자동차"
   asr교통수단(1) = "배"
   asr교통수단(2) = "자전거"
   asr교통수단(3) = "기차"
   asr교통수단(4) = "우주선"
   asr교통수단(5) = "비행기"
   MsgBox asr교통수단(5)
   ReDim Preserve asr교통수단(9)   '대입된 값은 그대로 두고 배열 크기만 수정
   'Preserve로 기존 배열 크기를 확장 또는 축소
   'Preserve 없이 사용하면 모든 요소값을 모두 빈문자열로 초기화
   MsgBox asr교통수단(7)
End Sub

UBound, LBound

배열의 할당된 인수 인덱스의 최대 최소

Sub 배열3()   '다차원
Dim aiMul(1 To 2, 1 To 3) As Integer
aiMul(1, 1) = 10
aiMul(1, 2) = 2
aiMul(1, 3) = 3
aiMul(2, 1) = 70
aiMul(2, 2) = 50
aiMul(2, 3) = 77
'UBound and LBound 함수
MsgBox UBound(aiMul, 2)   '2차원 aiMul의 최대범위(상한값)
MsgBox LBound(aiMul, 2)   '2차원 aiMul의 최소범위(하한값)
MsgBox UBound(aiMul, 1)   '1차원 aiMul의 최대범위(상한값)
MsgBox LBound(aiMul, 1)   '1차원 aiMul의 최소범위(상한값)

End Sub

간단한 매크로 작성

a열의 m을 제거 후 숫자에 1000곱하기, b열의 u 제거, c열의 n을 제거하고 숫자에 1000으로 나누기

복사는 e열에다가

오늘 공부의 키포인트는 바꿀 문자 m, u ,n을 배열(asr(2))로 받아서 for문으로 찾기/바꾸기 간단하게 짤수 있었던 것.

그리고 배열에서 UBound, LBound 사용에 대해. Ubound(asr,2)

모르는 건 range에서 표현 법 중 대괄호 이용하는거 정확히 모름.

Sub 매크로2()
'
' 매크로2 매크로
'

'
Dim c As Range, asr(2) As String
asr(0) = "m"
asr(1) = "u"
asr(2) = "n"

Set c = [a3]

    [d:g].ClearContents
    c.CurrentRegion.Copy Range("e3") ' range("e3")
   
For i = 0 To UBound(asr)
    Range(Range("e3").Offset(, i), Range("e3").Offset(, i).End(xlDown)).Replace What:=asr(i), Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
   
Next

    [d2].FormulaR1C1 = "1000"
    [d2].Copy
    Range(Range("e3"), Range("e3").End(xlDown)).PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False
       
  
    Range(Range("g3"), Range("g3").End(xlDown)).PasteSpecial Paste:=xlPasteAll, Operation:=xlDivide, SkipBlanks _
        :=False, Transpose:=False
  
    [d2].ClearContents

End Sub

몰입도 3.5

만족도 2

너무 느리다 진도가. 어려운 것도 아닌데. 집중을 좀더. 그래도 sub문 하나 혼자서 끝까지 해본 건 좋았음.

그냥 개념 막 보는 것보다 하나씩 문제 보면서 개념 찾아가는게 효율적이고 머리에 잘 남는 듯.

일차 / 날짜 : 118일차 / 9월 14일 (일)

취침 / 기상시간 : 오전 12시 15분/ 오전 7시 15분
수면/ 활동시간: 7시간 00분/ 7시 20분 ~ 8시 40분

늦게 잔 이유: 컴퓨터 딴 짓.

하루 목표세우는 걸 계속 추상적으로 생각한다. 그래서 하루의 효율이 떨어진다. 바보짓을 줄여야 한다.

디버깅

ctrl+f8 커서까지 실행

찾기 바꾸기 에서 찾을 범위를 columnsm로 할 때 cells 를 꼭 추가! 매크로책 356p

sub 찾기_날짜_수식셀()

dim dt as date

1 set rf = columns("h").cells '=Range("h:h")

2 dt = CDate("12-5-29") '=#5/29/2012#'

rf(Application.Match(Clng(dt),rf,0)).select

110일차 sub문 확인

몰입도 3

만족도 1.5

목표를 이루고자 하는 마음이 약해진 상태. 목표를 이루고자 하는 의지를 다져야 해.

일차 / 날짜 : 119일차 / 9월 15일 (월)

취침 / 기상시간 : 오전 1시 45분/ 오전 6시 00분
수면/ 활동시간: 4시간 15분/ 무

늦게 잔 이유: 더딘 자소서 작성

자소서 하나 쓰기를 무슨 대하소설 쓰듯이 고민만하다 제대로 쓴게 없다.

그래도 느낀 점은 일이 진행이 안되더라도 내가 무엇을 하려고 계속 노력하면

어느 순간 의지가 생기고 일이 잘 진행 될거 같은 마음이 든다는 것. 숙면을 취하면서 계속 노력하면 더 빨리

하고자 하는 의지가 강해진다.

이전에도 이런 생각이 들었었는데 또 까먹고 노력하던걸 멈추는 바보짓은 그만해야해.

엑셀 계속 조금이라도! 졸려도 버스에서라도!

vba 시간은 걸리지만 그렇다고 고시는 아니니까. 장인 다른 수강생은 3개월만에 실력 jump 했다잖냐.

나도 똑같이 할 수 있어!

급한 것도 하고!

자존감이 저 바닥까지 내려갔지만, 그래도 나를 믿는다. 어제보다 열심히 살거라고.

일차 / 날짜 : 124일차 / 9월 20일 (토)

취침 / 기상시간 : 오전 12시 15분/ 오전 6시 30분
수면/ 활동시간: 6시간 15분/

양심과 신념 vs. 독선과 아집

http://uno21.com/admin/unoweekly/weeklyTips.aspx#iteration