낭만소방관

나가 뒤져라 병신들아.도대체가 물건을 사라는 거냐 말라는 거냐결제창만 다섯번을 접속했네.개쓰레기들아.

엑셀 카페에 올라온 질문으로 NOS의 구성은 없애고 상품명만 나타나게 하고 싶다는 내용이다. 알고 보니 수식으로도 간단히 해결이 되었네. 배열을 재배열로 풀이한 쉬운 과정 Sub chgTitle() Dim intBig As Integer Dim intLine As Integer Dim varOrder() As String Dim varNew() As String Dim strValue As String Dim varO As Variant Dim i As Integer Dim varNewOrder As String Dim rng As Range 'B열을 순환 For Each rng In Columns("B").SpecialCells(2) If rng.Row 1 Then '변수설정 varOrder = Spl..

날짜, 호기, 주/야 중 하나를 검색어로 입력하면자동필터를 활용하여 원본데이터의 일부를 가져온다.검색어의 타입에 따라 필터검색 조건을 지정하는 것이 포인트. Option ExplicitSub fndCondition() Dim rng As Range Dim strFnd As Range Dim intFind As Integer Dim wsData As Worksheet Dim rngPaste As Range Dim rng1stData As Range With Application .ScreenUpdating = False .EnableEvents = False .Calculation = xlCalculationManual End With '변수 설정 Set wsData = Sheets("기본정보") Set ..

건물은 화명동에 있는데 멀리 영도에서 찾아오신 노부부 두분.할아버지는 아직 힘이 넘친다며 소방안전관리에 대한 자신감을 나타내셨고실무는 할머니께서 다 하시는 상황이지만 먼 길 오셨기에 이것저것 조곤조곤 알려드렸다.생각지도 못한 편지가 팩스로 도착했네.시청으로 갔으면 상품권 하나 받았겠지만, 그걸 어찌 말씀드리노 ㅋㅋㅋ 사무실 책상에 끼워놓고 두고두고 봐야지.보람찬 하루.​

매일 실시한 초과내역을 파일로 받아 월별로 초과내역을 누적시키는 매크로 A1을 누르면 매크로가 실행되고 B1을 누르면 시간이 재계산 되고 C1을 누르면 데이터가 초기화 된다. 1. 월초가 되어 기존 데이터가 없을 때는 초과내역을 통채로 가져오고 2. 기존 데이터가 있을 때는 초과를 한 날짜만 데이터를 가져오며 3. 인사이동 등으로 새로운 인물이 등장했을 때는 맨 밑에 데이터를 삽입한다. 4. "총합"에는 초과시간으로 인정받은 시간들이 합산된 시간이 입력된다. 5. 평일파일과 주말파일을 구분하여 가져온다. 6. 아침에 출근을 일찍하여 아직 퇴근을 찍지 않은 경우에는 데이터를 가져오지 않는다. Sub getChogwa() Dim newBook As Variant, oldBook As Workbook Dim ..

텍스트로 표현된 숫자들이 셀의 곳곳에 흩어져있고 이것을 한줄로 나열하되 오름차순으로 정렬하는 매크로. Collection 과 배열을 사용하면 순식간에 해결. Sub sortNum() Dim rng As Range Dim cltNum As New Collection Dim varClt As Variant Dim i As Integer With Application .ScreenUpdating = False .EnableEvents = False .Calculation = xlCalculationManual End With 'sheets2 기존값 삭제 Sheets(2).Range("A1").CurrentRegion.ClearContents '중복값 제외하며 컬렉션에 삽입 On Error Resume Next..

오랜만에 누려보는 여유 야간이 매일 있을 땐 모르겠더니.좋구먼.글 좀 쓰고 한숨 자까...빨래도 널어야하는데.내일 출근하면 일거리가 잔뜩 쌓여있겠지만, 그건 내일 일이고

거대 프로젝트. 표를 달력으로 보내는 프로젝트. 혼자 사용하는 파일이 아니라 옆자리 서무와 함께 써야하는 파일이라서 파일을 갱신만 하되 기존 파일은 손대지 않는 것이 포인트 달력은 내 파일과 서무파일의 일정이 합쳐서 나온다. 주소 및 연락처, 공문번호는 메모로 나타나게 된다. 이 내용을 별도의 표로 만들어주는 매크로까지. 2주동안 고민하고 또 고민해서 만든 파일. 소중하다. Sub chK() Dim newBook As Workbook, oldBook As Workbook '달력파일, 대상물 파일 Dim rngCell As Range, rngDate As Range '시정보완일정 영역 Dim rngArea As Range '전체 데이터 영역 Dim rngD As Date '시정보완일정 Dim dtArr()..

우여곡절 끝에 찾아간 부산경남경마공원. 정식 명칭은 렛츠런파크. 경마쟁이들 도박쟁이들에 찌들린 담배연기를 생각했는데 생각보다 훨씬 좋음. 우리 아들 부릉이가 빛을 발할 수 있는 멋진 플레이스 우리 아들의 사랑, 연아의 닮은 뒷모습을 보고 심박수가 올라갔던 하루 ​​​​​​

용재형님네 차가 전시된 창원컨벤션센터 귀농귀촌박람회. 이런 류의 차를 좋아하는 아들을 위해 달리심. 용재형님네 차가 특히 마음에 든다는 아들. 천만원이란다. 한대 뽑이주까 ​​​​​