낭만소방관

외국어 학습을 위한 메신저 시스템.학습이 아니라 다른 용도로 장난치면 계정 영구정지 먹는다는 경고가 여기저기 나뒹굼.내야 어차피 그런 쪽은 관심없으니 우연히 동갑 일본인을 만나 일본어를 배우고 한국어를 가르치는 중.개인정보를 위해 블러처리함.

한국에서는 미운 네살 일본에서는 마의 두살 한국 네살 = 일본 두살 어디나 똑같군 ㅋㅋ 그래도 이쁜 내새끼​

​ 그래도 잘 따라하는구먼 ㅋㅋ 아들이 상전이여. 내 놋북 ㅠㅠ 맥미니 하나 사자

곽휴지가 떨어져서 난감했는데. 길 잃은 고지서의 보금자리를 발견. 우리집 고지서함과 인사 ​

한 시트에 다 불러서 한개만 있는 자료는 없애고 중복값 없애기 기능을 사용함 무식한 코딩의 좋은 예 Sub findDuplicate() Dim rnG As Range Dim rngPaste As Range Dim rngPhoneNumber As Range Dim i As Integer Application.ScreenUpdating = False '기존자료 삭제 Range("A1").CurrentRegion.Offset(1).ClearContents '각 시트 순환하면서 날짜, 매체, 성별, 주소, 이름, 연락처, 내용을 sheet1에 가져옴 For i = 1 To 3 Set rngPaste = Cells(Rows.Count, "B").End(3)(2) With Sheets(i) .Range("B4", ..

퇴근 후 잘 정돈된 집에서 맥북과 빗소리와 음악소리 된장찌개 냄새가 솔솔 올라오는구먼​

마누라쟁이랑 아들이 오면 이 모든 것들이 한여름밤의 꿈​

비번이 되고 아들이 더 보고 싶구먼. 집에 컴터라고는 놋북뿐이고... 피씨방을 가볼까. 으허허. 백수로구먼​

셀에 원하는 시간을 입력하면 그 시간이 되면 파일을 저장하고 PC까지 꺼주는 매크로 유용할지도 Sub pcTime() Dim dtTime As Date dtTime = Range("B1").Value2 Application.OnTime dtTime, "Macro" End Sub Sub Macro() Application.DisplayAlerts = False ActiveWorkbook.Save Shell "shutdown.exe -s -f" End SubColored by Color Scriptercs

미정이네 얼집에서 무라고 두판 주문하고 기다리는 중. 콜라 주네. 얼굴 탓인가​