무성의한 블로그

비리어드가 월 1-2억 정도 증가하는 걸로 봐서 연말까지 40억은 갈 수 있겠네요. 

그래봤자 바라크루드와 100억 정도 차이가 날 것같은데..

형간염치료제 절대강자 ‘바라크루드’와 바라크루드 대항마로 주목받고 있는 ‘비리어드’간의 격차가 여전히 유지되고 있다.

http://www.healthfocus.co.kr/news/articleView.html?idxno=29572

지금 TV 홈쇼핑 채널에서 텐트 셋트를 파네요. 

스위스 밀* 제품인데 

텐트, 타프, 테이블, 의자 등 모든 제품이 구비된 것같습니다. 

가격도 적당하네요. 

그렇지만 나라면 사지 않겠습니다. 

캠핑 장비 업체는 아주 많습니다. 그만큼 많은 제품이 있습니다. 

가족의 취향에 맞게 다양하게 구입할 수 있는데 한번에 살 필요가 있나 싶네요. 

텐트와 타프를 맞춤 장비로 구입하겠다고 하면 괜찮겠네요. 

그러나 테이블만 해도 목재, 알루미늄 등 재료도 다양하고

바베큐테이블, 2폴더, 3폴더, 롤테이블 등 기능도 다양합니다. 

기타 다른 장비도 하나씩 사는 재미가 큽니다. 

홈쇼핑에서 세트로 사면 그 재미는 없어질 것같네요. 

요즘 가족캠핑 관련 행사가 참 많은 것같습니다. 

처음으로 당첨된 캠핑 행사입니다. 

재미있기를 바라며 꼭 참가할 예정입니다. 

http://k.daum.net/qna/item/fstudy/event/camping.html

회사와 직급, 이름을 기준으로 한 회사에 두명 이상이 등록되어 있으면 검토하는 매크로입니다.

수작업을 거쳐야 하는데 필터를 이름->직급->회사 순으로 내림차순 정렬하셔야 합니다. 

이렇게 하면 회사 기준 -> 직급 -> 이름으로 정렬됩니다.  

나머지는 실제 실행하면서 확인하시길 바랍니다. 

row-delete.xlsm

'컬럼을 비교해서 삭제하는 부분입니다. 

Sub chkColumnsNext()

    Range(Cells(7, 14), Cells(100, 15)).Delete

    Sheets(1).Select

    Cells(2, 2).Select

    ActiveCell.FormulaR1C1 = "=COUNTA(R[5]C[4]:R[10000]C[4])"

    sameRowCnt = 1

    colCnt = Cells(2, 2)

    i = 7

    Do While i < colCnt + 7

        Cells(2, 4) = i

        Cells(i, 2).Select

        stdColName = Cells(i, 2)

        stdColType = Cells(i, 3)

        stdColLen = Cells(i, 4)

        cmpColName = Cells(i + 1, 2)

        cmpColType = Cells(i + 1, 3)

        cmpColLen = Cells(i + 1, 4)

        '이름이 같으면 타입을 비교함.

        If stdColName = "신원제품" Then

            aaa = bbb

        End If

        If stdColName = cmpColName Then

            sameRowCnt = sameRowCnt + 1

            If stdColType = cmpColType And stdColLen = cmpColLen Then

                Cells(i + 1, 2).Select

                Selection.EntireRow.Delete

            ElseIf stdColType <> cmpColType And stdColLen = cmpColLen Then

                Cells(i + 1, 14).Interior.Color = RGB(255, 100, 100)

                Cells(i + 1, 14) = "직급 상이함"

                i = i + 1

            ElseIf stdColType = cmpColType And stdColLen <> cmpColLen Then

                Cells(i + 1, 15).Interior.Color = RGB(255, 100, 100)

                Cells(i + 1, 15) = "이름 상이함"

                i = i + 1

            ElseIf stdColType <> cmpColType And stdColLen <> cmpColLen Then

                Cells(i + 1, 14).Interior.Color = RGB(255, 100, 100)

                Cells(i + 1, 14) = "직급 상이함"

                Cells(i + 1, 15).Interior.Color = RGB(255, 100, 100)

                Cells(i + 1, 15) = "이름 상이함"

                i = i + 1

            End If

        '이름이 다르면 그냥 넘어감

        Else

            If sameRowCnt = 1 Then

            '    Selection.EntireRow.Delete

                Cells(i, 2).Interior.Color = RGB(100, 255, 100)

                Cells(i, 14) = "적합"

'                Cells(i + 1, 15) = "이름 상이함"

            End If

                i = i + 1

            sameRowCnt = 1

        End If

        colCnt = Cells(2, 2)

    Loop

End Sub

'정렬하는 부분입니다.

Sub setSort()

'

' setSort 매크로

'

    '갯수를 센다

    Range("B5").Select

    ActiveCell.FormulaR1C1 = "=COUNTA(R[2]C:R[94]C)"

    Cells(8, 1) = 1

    Cells(9, 1) = 2

    Range("A8:A9").Select

    Selection.AutoFill Destination:=Range("A8:A81")

    Cells(8, 1).Select

    '정렬 하기

    Range("A6:M6").Select

    afCheck = Selection.AutoFilter

    If afCheck = True Then

    Else

        ActiveSheet.AutoFilter.Sort.SortFields.Add Key:=Range _

            ("B6"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _

            xlSortNormal

        With ActiveWorkbook.Worksheets(1).AutoFilter.Sort

            .Header = xlYes

            .MatchCase = False

            .Orientation = xlTopToBottom

            .SortMethod = xlPinYin

            .Apply

        End With

    End If

End Sub

4월 중순부터 일일이식한 지 벌써 2달이 되어가네요. 

한 3개월 정도부터 살이 빠질 거라고 생각했는데 다행이 두 달 째부터 조금씩 빠지는 것같습니다. 

두 달째부터라 함은, 이번 주에 갑자기 체중이 2kg 정도 줄었기 때문입니다. 

그전까지는 별로 차이가 없었거든요. 

갑자기 체중이 줄어든 이유는 아마도 적게나마 운동을 하기 때문인 것같습니다. 

일일이식을 하면서 그동안 줄어든 식사량에 맞춰 몸의 움직임도 줄어들어 

체중감량 효과가 거의 없었습니다. 

어떻게 설명해야 느낌이 정확하게 전달될지는 모르겠지만 

한달 보름 정도 몸을 극도로 적게 움직인다는 걸 느꼈습니다. 

걸어다닐 때도 몸에 최대한 힘을 빼고, 가능하면 조금도 움직이려고 하지 않고

뛰지도 않고, 심지어 말할 때도 힘 없이 말하게 되더군요. 

외부로 표현되는 것보다 더, 몸으로 느끼기에 에너지 소비를 최소화하는구나 하는 느낌. 

그러다가 갑자기 집에 있는 12kg짜리 운동기구(덤벨)를 들기 시작했습니다. 

그야 말로 갑자기, All of sudden.

아침에 20회, 저녁에 20회

한 일주일 정도 들고 나니 몸이 다시 예전처럼 활기차게 느껴지네요. 

그리고 체중이 비로소 줄기 시작합니다. 

앞으로 운동량을 좀 더 늘여야겠습니다. 

체중감량이 지속적일지 아니면 한 며칠지나고 다시 올라갈지는 모르겠지만 

아무튼 지금은 줄었습니다. 

원래 단기 목표 

76kg -> 73.9kg (73.7kg 달성 2013년 06월 12일) 

다시 정한 목표 

73.7 -> 72.9kg