한 파일 내 as Worksheets("Sheet1") 로 워크시트를 각각 선언하면 된다. 다른 파일 Dim bookA as Workbook 위와 같이 워크북 변수를 선언해 준 다음 set bookA = Workbooks("firstExcelFile.xlsx") 첫번째 엑셀 파일명을 확장자 포함하여 입력하면 된다. HTML 삽입 미리보기할 수 없는 소스 [VBA] 다른 시트의 내용과 비교하기 이번에 소개해드릴 부분은 시트간 데이터를 비교하는 방법입니다. VBA 로 뭔가를 하게되면서 가장 유용하게 많이 사용하는 것 중 하나죠. 예를 들면 Sheet1 에 어떤 데이터 리스트가 있고 Sheet2 에 diy-dev-design.tistory.com HTML 삽입 미리보기할 수 없는 소스
메모는 .Comment.Shape 으로 컨트롤할 수 있다. fileName = strPath & "\" & rngC.Value & ".jpg" 이런 식으로 strPath에 저장한 폴더 경로 + 셀값.jpg인 경로를 지정해줄 수 있다. HTML 삽입 미리보기할 수 없는 소스 (1359) 메모창에 그림 삽입하기 2 (엑셀 VBA 매크로) 선택한 영역의 파일 이름과 경로내의 그림 이름이 일치 시 각 셀의 메모에 그림을 삽입하는 기능. 기존 메... blog.naver.com (1358) 메모있는 셀에만 그림 삽입하기 (엑셀 VBA 매크로) 앞서 해본 "(1357) 메모창에 그림 삽입하기 1 (http://rosa0189.blog.me/60204696281)" 은 선택영역내의 기... blog.naver.com..
다른 사람들의 루틴을 보고 참고할 게 있으면 내 루틴에 적용하고 싶어하는 성향이 있기에 요런 책은 무조건 손이 가게 된다. 도움이 되는 부분이 소소하게 많았던 책! 밑줄 그은 부분 하버드대학교의 한 연구팀이 ‘짜증 날 때 거울을 보면 정신이 안정된다’라는 사실을 증명했다. 이는 또한 뇌 과학으로도 입증됐다. 손 씻기 전 2~3분 정도면 충분하다. 세면대 거울을 보면서 오늘 있었던 일 중 반성해야 할 점과 잘했던 일들을 떠올리고, 마지막으로 오늘 하루 고생한 자신에게 수고했다고 말한다. 실수투성이인 하루였다고 하더라도 반드시 좋았던 일을 떠올려야 한다는 것이다. 반면, 반성해야 할 점은 딱히 떠오르지 않는다면 억지로 찾아낼 필요 없다. 최선을 다한 자신을 인정하고 노력한 자신에게 수고했다고 격려하면, 마음..
최근 경제에 관심을 가져서 읽게 되었다. 세계 경제에는 옛날부터 빅 사이클이 있어왔고 지금은 그 중 하락기에 해당한다-는 내용으로 거칠게 요약이 가능한데, 미국이 내리막길 루트를 탄 다음 치고 올라와서 1인자가 될 나라가 중국이 유력한데 그게.. 상상이 잘 되지 않는다. 호황도 3년컷이고 불황도 생각보다 오래가지 않는다는 점이 흥미로웠고, 생각보다 인간은 강하다고 한다. 그러나 가감 없이 말하면 이 기간 동안 대부분의 사람은 고용을 유지했고 전쟁의 피해를 겪지 않았으며 자연재해를 극복했다. 이처럼 저자는 인간을 긍정적으로 평가하기에, 앞으로도 인간의 창의성으로 문제를 해결해나가기를 기대하고 있다. 그리고 이러한 사이클에는 약간의 맹점이 있는데, 사람들은 대부분 부와 권력을 얻고자 투쟁하지만, 어떤 국가와..
이 책의 저자는 정말 존경스러운 사람이다. 갑작스러운 남편의 사망으로 기업을 이어받아서 그걸 해내려고 노력하여 성공하였단 점이.. 정말 대단하다. 말 그대로 다음주의 계획을 금요일부터 짜는 시간 관리법에 대해 소개하는데, 시간 관리 뿐만 아니라 멘탈 관리 등 도움이 되는 부분이 정말 많았다. 밑줄 그은 부분 하지만 정말 시간이 없어서 하고 싶은 걸 하지 못하고 있는 걸까요. 저는 ‘시간이 없으니까 ○○를 할 수 없다’는 건 일종의 변명이라고 생각합니다. 그래서 바쁜 사람에게 공부를 추천합니다. 공부하는 시간은 자신을 위해 쓰는 시간입니다. 그리고 ‘자신을 위해 시간을 쓰고 있다’는 사실은 ‘나는 시간의 노예가 아냐. 내가 시간을 지배해’라는 기분이 들어 바쁜 와중에 잃어가던 마음의 여유를 되찾게 합니다...
일을 놀이처럼 여기는 방법론이 적혀있지는 않고 그냥 일이 너무 재밌는 친구들의 에세이 같은 느낌의 책이다. 나도 일을 재미있게 하고 싶은 사람이라 공감되는 점이 많았는데, 그럼 나도 충분히 즐기고 있는 건가? 싶기도 하고. 특별히 방법론까지 찾을 필요는 없는 것인가.. 하는 생각이 들게 해주는 책. 가볍게 읽기 좋다. 밑줄 그은 부분 일은 돈을 버는 수단을 넘어서 ‘나’라는 사람을 만들어주는 모든 활동들입니다. 일을 그저 밥벌이라고 생각했던 시절이 있었습니다. 그래서 직업이 없는 시기에 누군가 “어떤 일을 하세요?”라고 물으면 어물쩍대기도 했지요. 하지만 지금이라면 같은 질문에 이렇게 답할 것 같습니다. “하고 있는 일이 너무 많아서 딱 하나만 이야기할 수 없을 것 같다”고요. 내가 생각하는 성장은 어떤..
이 코드로 개선한 후 이전의 필터되지 않은 값을 각각 숨겨진 행인지 확인하고 지우는 방식보다 속도가 비약적으로 개선되었습니다. 아무래도 한 행씩 지우는 게 아니라 화면을 한꺼번에 delete 하는 구조라서 그런 듯합니다. Sub 필터된_데이터만_지우기() Dim strToday As String Dim filteredRng As Range Application.DisplayAlerts = False strToday = Format(Now(), "yyyy-mm-dd") Range("F1").CurrentRegion.AutoFilter Field:6, Criteria1:="*" & CStr(strToday) & "*" Range("F1").CurrentRegion.Offset(1).SpecialCells(x..
오토필터 criteria는 변수에 저장된 문자열인 경우 그냥 '변수명' 으로는 반영이 되지 않는 문제가 있었습니다. 이 문제를 해결하려면 CStr(변수명)을 사용해야합니다. 그리고 왜인지 모르겠지만 정확히 일치(=)나 다름()은 작동하지 않아서 양쪽에 와일드카드(*)를 붙여주는 '포함' 방식으로 하니 문제가 없었습니다. (관련 링크) HTML 삽입 미리보기할 수 없는 소스 [엑셀 매크로 VBA] CInt, CBool, CStr을 이용하여 값 변환하기 엑셀의 워크시트에는 다양한 데이터형을 지원하기 위한 데이터 타입이 있습니다. 이러한 데이터 타입 사이에서 데이터를 변환하는 방법에 대해서 오늘은 알아보도록 하겠습니다. VBA의 대표적 guslabview.tistory.com HTML 삽입 미리보기할 수 없는..
오늘 날짜인 행만 남기고 삭제하기 오토필터로 오늘 날짜(텍스트)만 필터링하고 나머지 숨긴 행은 지우는 방식입니다. Sub 오늘날짜만_남기기() Dim strToday As String strToday = Format(Now(), "yyyy-mm-dd") Range("F1").AutoFilter Field:=6, Criteria1:=strToday For i = Rows.Count To 1 Step -1 If Rows(i).EntireRow.Hidden = True Then Rows(i).EntireRow.Delete End If Next i End Sub 숨긴 행인지 확인하고 하나하나 지우는 방식이라 시간이 많이 걸려서 개선하게 되었습니다. 개선한 버전 링크는 이쪽. HTML 삽입 미리보기할 수 없는 소..
