낭만소방관

일별, 직원별, 시간대별 근무현황을 구하는 매크로. 배열을 써 본 처음의 매크로다. 약간 이해가 가는지도. 월간 시트에서 A1 셀을 클릭하면 된다. Option Explicit Sub qWork() Dim cntDay As Integer '일수 Dim cntTime As Integer '하루업무시간 Dim cntWorker As Integer '직원숫자 Dim var() As Integer '일자별 근무인원 넣을 배열 Dim tmWork As Range '월별 작업시간 10시 Dim tmOn As Range '직원별 출근시간 Dim i As Integer, j As Integer, k As Integer '작업 속도 높이기 Application.ScreenUpdating = False Applicatio..

분류별 최대금액을 구하고 그에 따른 판매수량과 상품명을 가져와야하는데 엑셀에서의 Offset 함수로는 왠지 잘 안 돼서 사용자정의 함수를 만들어보았다. Function fnMax(rngMax As Range, intCode As Integer) 'Max값이 나온 범위와 offset값을 받음 Dim intMax As Range 'Max값이 존재하는 셀 With rngMax Set intMax = .Find(WorksheetFunction.Max(.Cells), LookAt:=xlWhole) 'Max값이 있는 주소를 검색 End With fnMax = intMax.Offset(, -intCode) 'fnMax 함수 정의 End Function

최대로 고민하고 머리를 짰던 매크로다. 16개를 복사하고 17개부터는 다른 행부터 삽입을 해야하는 난관. 결국 select 함수와 각종 변수로 떡칠을 하여 완성했다. 책아 어서 와라. Sub 직종별양식() Dim rngWork As Range Dim rngDblWork As Range Dim snWork As Range Dim rngName As Range Dim rngStart As Range Dim i As Integer Dim j As Integer Dim k As Integer Dim x As Integer Dim y As Integer Dim z As Integer '기존 워크시트 삭제 On Error Resume Next Application.ScreenUpdating = False Appli..

원래는 롯데워터파크에 가기로 했는데 할머니께서 편찮으셔서 병원에 입원 중이시라는 소식을 듣고, 어차피 설 연휴기간동안 계속 주간근무라 이번 명절에도 사천에 못가게 되어서 겸사겸사 사천으로 갔다가 고성공룡박물관으로 가기로 했다. 공룡 보러 가자고 하니 말도 잘 듣는 내 새끼. 카메라 가져간다고 챙겨놨는데 막상 출발하고 나니 카메라를 안 갖고 가버려서 할 수 없이 폰으로 찍었다. 오랜만에 가는 나들이에 카메라를 안 가져 가다니 ㅠㅠㅠ 우리 아들 오늘도 실컷 놀고 뛰고, 처음으로 보는 영화가 3D라니 매우 복받은 부유한 녀석. 안경이 싼 거라 그런지 보고 나니 속이 울렁울렁. 나이가 든 탓인가. ​ ​ ​ ​ ​ ​ ​ ​ ​

역시 엑셀마스터 Q&A에 올라온 글. 주민번호를 치면 자료시트에 있는 내용을 안내문 시트로 불러오는 내용이다. Private Sub Worksheet_Change(ByVal Target As Range) 구문을 이용해서 주민번호를 입력하면 곧바로 자료시트의 내용을 불러오게 하였다. 주민번호 입력시 14글자가 아니거나 일치하는 주민번호가 없으면 메시지를 나타나게 하였다. Sub gAein() Dim i As Integer Dim y As Integer Dim wsLetter As Worksheet Dim wsData As Worksheet Dim rngJumin As Range Dim c As Range Dim rngAddress As Range Dim rngTo As Range Dim rngZipcode..

엑셀마스터에 올라온 질문 글. 상품 및 개수의 셀을 보면 한 셀에 품목이 두개 이상 입력된 것도 있고 품목과 주문 개수가 한 셀에 있어 이것을 분리하고 싶다는 내용의 질문이다. 품목을 보면 '/'를 기준으로 나뉘어져있어서 텍스트 나누기를 통해 셀을 나누고 Select Case 구문과 품목별 원문자를 이용하여 제품별로 글자개수를 파악하여 품목과 주문개수를 나누었다. 작업을 할 수록 느끼지만, 코드를 짜는 것은 코딩 능력과 동시에 문제를 해결해나가는 요령이 많이 필요하다. 상품 개수를 파악할 때 instr 함수를 이용하여 숫자만 빼려고 했는데 알 수 없는 에러에 봉착하여 하는 수 없이 작업이 완료된 후에 replace 함수를 이용하여 "개"를 빼도록 했다. 왜 에러가 나는지 도무지 모르겠네. 처음 만든 결과..

​ NHK뉴스를 듣기 시작했습니다. 화이팅. 오래 듣기를.

지난 주말부터 코를 훌쩍거리더니 귀에 벌이 들어간 것 같단다. 귀도 계속 만지고. 초반에 잡으면 좋을 듯하여, 귀찮지만 선일이를 데리고 병원으로 왔다. 다행히 중이염은 아니고, 게다가 저번엔 엄청 심했다. 수영장에 있는 느낌, 붉게 오르는 정도라서 항생제와 콧물약을 처방 받음. "선일아, 내일 병원가자~" 라 이야기했더니 웬일로 순순히 간단다. 울지도 않겠단다. 신기한데 ㅋ 하지만 웬걸, 청진기 데려고 배 까자마자 울음 폭발. 그래도 "선일아~, 안 울어야 사탕 씩씩하게 받지~ 안 울기로 했지?" 라 했더니 울음을 그치고자 노력하는 모습. 우리 아들 이쁘다

'아저씨 성냥 사세요. 추워요' 오호라. 다 줘. 성냥 다줘. 내가 성냥 공장 차려줄까​

​엄마는 교육에 가야했던 토요일.아빠와 아들과 오랜만에 단 둘의 데이트 시간이 찾아왔다.날이 따뜻했으면 더 좋은 곳으로 갔을 텐데추운 곳에서 잔 탓인지 아침부터 콧물을 흘리기 시작해서 실내에서만 놀아야했다.선일이가 좋아하는 코코몽으로 가자고 했더니 밥도 잘 먹고 신나하고차에 타니까 빨리 운전해서 코코몽으로 가잔다 ㅋㅋㅋ 귀여운 우리 아들.이제는 좀 컸다고 뛰어노는 것을 포함해서 블럭도 집중해서 가져놀고 음식 짝 맞추기 하는 것도 집중을 잘 한다.배가 너무 고파서 소세지도 사 먹었는데, 선일이도 같이 먹자고 줬더니 케찹만 빨아먹네 ㅋㅋㅋ다행히 절반 정도는 씹어먹는다.​​​​​​​