무성의한 블로그

바라크루드가 이번 달에 큰 폭으로 감소했는데 문제는 큰 그림에서 하락 지속이라는 겁니다. 

어쩌면 비리어드 출시할 때부터 어느 정도 매출 감소는 예상했을테니 선방한다고 봐야 하겠네요. 

비리어드는 지난 달 대비 3억 정도 늘었는데 상당히 큰 폭으로 신장한 것같네요.

73%에 육박하던 ‘바라크루드’의 B형간염 치료제 시장점유율이 63.5%로 떨어졌다. 반면, ‘비리어드’는 출시 7개월만에 점유율 17%까지 치고 올라가며,  20%대 진입을 눈앞에 두고 있다. 

16일 유비스트 자료(신한금융투자 재정리)에 따르면, 바라크루드의 6월 원외처방액은 130억원으로 전년 동기 대비 12.1% 감소했다.

Sub goCalcMoney()

'관세율

    tradeTaxRate = Cells(2, 2)

    addTaxRate = Cells(3, 2)

    moneyRate = Cells(4, 2)

    Range(Cells(13, 2), Cells(24, 7)).Value = 0

    k = 2

    Do While k < 8

        goodsMoney = Cells(8, k)

        InType = Cells(6, k)

        If goodsMoney < 1 Or goodsMoney = "" Then

        Else

            transFee = Cells(9, k)

            taxFee = Cells(10, k)

            weightAll = Cells(11, k)

            '1차 합계

            totalDallor = goodsMoney + transFee + taxFee

            sumKoreaWon = totalDallor * moneyRate

            Cells(13, k) = sumKoreaWon

            '과세운임

            i = 2

            Do While i < 999

                startWeight = Cells(i, 16)

                If startWeight < weightAll Then

                    i = i + 1

                Else

                    If sumKoreaWon > 200000 Then

                        transTaxFee = Cells(i - 1, 19).Value

                        Cells(14, k).Value = transTaxFee

                    Else

                        transTaxFee = Cells(i - 1, 18).Value

                        Cells(14, k).Value = transTaxFee

                    End If

                    i = 999

                End If

            Loop

            '과세기준

            standardTax = sumKoreaWon + transTaxFee

            Cells(15, k) = standardTax

            '관세

            If standardTax < 150000 Or (goodsMoney < 200 And InType = "목록") Then

                afterTax = sumKoreaWon

                afterAddTax = sumKoreaWon

                tradeType = "비과세"

            Else

                afterTax = standardTax * (1 + (tradeTaxRate / 100))

                afterAddTax = afterTax * (1 + (addTaxRate) / 100)

                tradeType = ""

            End If

            Cells(16, k) = afterTax

            Cells(17, k) = afterAddTax

            Cells(18, k) = afterAddTax - transTaxFee

            Cells(12, k) = tradeType

            '운송비

            i = 4

            Do While i < 999

                '몰테일 배송비

                mstartWeight = Cells(i, 10)

                If mstartWeight < weightAll Then

                    i = i + 1

                Else

                    mTransFee = Cells(i, 11).Value

                    i = 999

                End If

            Loop

            lastTransFee = mTransFee

             wonLastTF = lastTransFee * moneyRate

             Cells(19, k) = wonLastTF

            If standardTax < 150000 Or (goodsMoney < 200 And InType = "목록") Then

                 Cells(20, k) = afterAddTax + wonLastTF

            Else

                 Cells(20, k) = afterAddTax + wonLastTF - transTaxFee

            End If

'                 Cells(21, k) = feeSource

            i = 4

            Do While i < 999

                '이하넥스 배송비

                estartWeight = Cells(i, 10)

                If estartWeight < weightAll Then

                    i = i + 1

                Else

                    eLTransFee = Cells(i, 13).Value

                    eNTransFee = Cells(i, 14).Value

                    i = 999

                End If

            Loop

            If eLTransFee > eNTransFee Then

                lastTransFee = eNTransFee

                feeSource = "이하넥스 뉴저지"

            Else

                lastTransFee = eLTransFee

                feeSource = "이하넥스 LA"

            End If

             wonLastTF = lastTransFee * moneyRate

             Cells(21, k) = wonLastTF

            If standardTax < 150000 Or (goodsMoney < 200 And InType = "목록") Then

                 Cells(22, k) = afterAddTax + wonLastTF

            Else

                 Cells(22, k) = afterAddTax + wonLastTF - transTaxFee

            End If

            '예상 세금

            Cells(23, k) = feeSource

            Cells(24, k) = afterAddTax - transTaxFee - sumKoreaWon

        End If

        k = k + 1

    Loop

End Sub

개인적으로는 이런 연구가 말이 되나 싶기는 하지만 전문가들이 그렇다고 하니 그런가 싶네요. 

상세한 내용은 아래 주소에서.

http://www.dreamdrug.com/News/172992

바라크루드, 간암 예방 효과 확인…'레어템' 확보
테츠야 호사카 교수 APPLE서 발표…간 전문의 관심 '집중'

BMS의 B형간염치료제 '바라크루드'가 간암 예방에 효과가 있다는 연구결과가 나왔다.

너무 힘들었던 캠핑입니다. 

너무 힘들어서 사진 한 장 못찍은 캠핑. 

지난 2013년 06월 29일 경기도 가족캠핑 행사로 청운 캠핑장에 갔었습니다. 

다음 지도에서 길찾기 하니 1시간 49분 나오길래 

뭐 별로 멀지 않네 했는데 

길 막히니 3시간 가까이 걸렸습니다. 

새로 생긴 캠핑장인데 운영은 마을 사람들이 공동으로 하는 것같았습니다. 

느낌에 경기도에서 토토나 로또 같은 공익기금에 도비 더해서 캠핑장 만들고 

마을 수익사업으로 할 수 있도록 제공한 것같았습니다. 

당연하게 비전문가들이 운영하느라 생기는 몇가지 불편함이 있었습니다. 

예를 들어 아침에 화로에 쌓인 재버리는 곳도 없었습니다. 

이른 아침이라 관리하는 분도 아무도 안계셔서 물어볼 곳도 없구요.

한참 뒤에 마을분에게 이야기 하니 재버리는 통이 뭔지를 모르시더군요. 

화로에 쌓이 재를 버려야 하는데 드럼통 자른 것으로 많이 사용한다고 말씀 드리니

비로소 재통으로 쓸만한 걸 가지고 오시더라구요. 

그런 점을 빼면 전반적으로 좋은 편입니다. 

구체적으로는 

1. 캠핑장이 신생이라 잘 가꿔져 있습니다. 

A동 B동이 나눠져 있어서 복잡한 점도 적고

운동기구도 있습니다. 공터는 좀 부족한 느낌입니다. 

난민 캠프장 느낌은 없습니다. 

다만 좀 자연스러운 느낌은 부족합니다. 어쩐지 마을 회관 앞 공터에 텐트친 느낌이 납니다. 

2. 나무 그늘이 많아 타프를 치지 않아도 될 정도입니다. 

나무가 많은데다 오래된 나무도 많아요. 

해먹 걸때 사용하는 3 미터짜리 견인줄을 겨우 감을 정도로 굵습니다. 

대략 지름이 90cm는 되는 나무입니다. 서울에서 자주 볼 수 없는 큰 나무죠. 

뭐 그래도 타프를 치면 좋긴 하죠. 

3. 나무에 해먹을 매지 못하게 해서 아쉬웠습니다. 

나무가 어린 것도 아니고 아름드리 나무라 견인줄 감으니 겨우 한바퀴 돌아갈 정도로 굵은데도

나무가 상하니 해먹을 매지 말라고 합니다. 

환경을 보호하겠다는데 할말은 없고 즉시 걷었습니다만 좀 아쉬웠습니다. 

스텐드형 해먹 가지고 가시는 게 좋습니다. 

4. 캠핑장 앞에 작은 개울이 있습니다. 물은 많지 않고 돌이 많아서 놀긴 좀 불편하죠.  

그러나 조금만 나가면 아주 넓고 얕고 좋은 물놀이 공간이 있습니다. 

게다가 다리가 있어서 자연스레 그늘도 생기고... 

정작 캠핑 중에는 못보고 떠나면서 본 거라 아쉽더군요. 

다시 가면 꼭 가서 시원하게 지내고 싶은 곳입니다. 

5. 대체로 친절한 분위기이고 마을 분들도 깐깐하지 않아서 좋습니다. 

6. 화장실 샤워실은 대체로 괜찮은 편입니다만.. 

어떤 분들이 이야기 하는걸 들었는데 한참 머리감느라 거품내고 있는데 물이 끊겼답니다. 

자주 있는 일은 아닌 것같아요. 내가 하는 동안은 아무일 없었습니다. 물 잘나오고요. 

다시 갈 거냐? 

만약 가깝다면 다시 가볼 것같습니다만 너무 멀어요. 

청운캠핑장에 가시면 캠핑장 앞에서만 놀지 마시고 

캠핑장에서 좀 떨어진 곳에 있는 개울에 가 보세요. 

남들은 한번에 척척 잘 붙던데 저는 세 번째 붙었네요. 

그것도 아슬아슬하게... 

너무 아슬아슬해서 점수는 공개안함.

'데이터 표준화'와 '데이터베이스 설계와 이용'에서 점수가 낮았습니다.  

과락할 뻔했네요. 

다행히도 '데이터모델링'에서 좋은 점수를 받아서 합격했습니다. 

흠.. 기분이 좋네요. 하하

비리어드가 월 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