2013. 4. 24. 15:26

메디칼옵저버-4월23일 간염약 비리어드 쓰자마자 과잉삭감 간학회 발끈(메디칼업저버)

2013. 4. 24. 15:26 in 제약
336x280(권장), 300x250(권장), 250x250, 200x200 크기의 광고 코드만 넣을 수 있습니다.


흠.. 아내가 제약회사에 근무해서 카테고리 추가합니다.


http://www.monews.co.kr/Item/56823/

저작자표시 비영리 변경금지

'제약' 카테고리의 다른 글

바라크루드, 간암 예방 효과 확인…'레어템' 확보(데일리팜)  (0) 2013.07.11
바라크루드 VS 비리어드, 격차 여전(헬쓰포커스)  (0) 2013.06.24
세기의 블록버스터 ‘바라크루드’ 노쇠현상인가?(헬쓰코리아뉴스)  (0) 2013.05.02
[기획] 만성B형 간염, 치료의 패러다임이 변하고 있다 (의협신문)  (0) 2013.04.25
왜 의사들은 ‘비리어드’로 바꾸려는 것일까?(헬쓰코리아뉴스)  (0) 2013.04.24
Posted by kyoohyo
2013. 4. 19. 20:30

매크로와 함수 비교

2013. 4. 19. 20:30 in MACRO/EXCEL-MACRO
336x280(권장), 300x250(권장), 250x250, 200x200 크기의 광고 코드만 넣을 수 있습니다.


해외 쇼핑몰에서 물건을 사올 때 비용계산하는 엑셀입니다. 

엑셀의 함수를 사용해서 만들었는데 오늘 마침 시간도 있고 해서 매크로로 변경했습니다. 


둘 다 올려놨으니 비교해보세요.


똑같은 기능은 아닙니다. 다만 함수를 사용하는 것과 다르다는 것을 참조하라는 겁니다. 



수입품_최종가격_계산표1.xlsm


수입품_최종가격_계산표1.xlsx


저작자표시 비영리 변경금지

'MACRO > EXCEL-MACRO' 카테고리의 다른 글

함수 사용 1, if함수와 isna, 그리고 vlookup 사용하기  (0) 2013.06.12
작업 결과를 백업파일에 자동 저장하기  (0) 2013.05.14
세금 계산 하는 로직입니다.  (0) 2013.04.19
엑셀매크로] 리스트의 파일을 열어서 시트명과 셀값을 복사해오기  (0) 2013.01.22
EXCEL MACRO-엑셀에서 파일리스트 보기  (0) 2013.01.21
Posted by kyoohyo
2013. 4. 19. 13:17

세금 계산 하는 로직입니다.

2013. 4. 19. 13:17 in MACRO/EXCEL-MACRO
336x280(권장), 300x250(권장), 250x250, 200x200 크기의 광고 코드만 넣을 수 있습니다.

매크로 처음하시는 분들 참고하시라고 올려봅니다. 

아래 주소의 첨부 파일을 참조하세요. 


수입품_최종가격_계산표1.xlsm




Sub goCalcMoney()


'관세율

    tradeTaxRate = Cells(2, 2)

    addTaxRate = Cells(3, 2)

    moneyRate = Cells(4, 2)

    Range(Cells(13, 2), Cells(21, 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 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(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

            

            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 mTransFee > eLTransFee Then

                If eLTransFee > eNTransFee Then

                    lastTransFee = eNTransFee

                    feeSource = "이하넥스 뉴저지"

                Else

                    lastTransFee = eLTransFee

                    feeSource = "이하넥스 LA"

                End If

             ElseIf mTransFee > eNTransFee Then

                lastTransFee = eNTransFee

                feeSource = "이하넥스 뉴저지"

             Else

                lastTransFee = mTransFee

                feeSource = "몰테일"

             End If

             wonLastTF = lastTransFee * moneyRate

             Cells(18, k) = wonLastTF

             

            If standardTax < 150000 Or InType = "목록" Then

                 Cells(19, k) = afterAddTax + wonLastTF

                 Cells(21, k) = afterAddTax - sumKoreaWon

            Else

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

                 Cells(21, k) = afterAddTax - sumKoreaWon

            End If

                 Cells(20, k) = feeSource

    

        End If

        

        k = k + 1

    Loop

End Sub

저작자표시 비영리 변경금지

'MACRO > EXCEL-MACRO' 카테고리의 다른 글

작업 결과를 백업파일에 자동 저장하기  (0) 2013.05.14
매크로와 함수 비교  (0) 2013.04.19
엑셀매크로] 리스트의 파일을 열어서 시트명과 셀값을 복사해오기  (0) 2013.01.22
EXCEL MACRO-엑셀에서 파일리스트 보기  (0) 2013.01.21
엑셀 매크로 -색상표 만드기  (0) 2013.01.15
Posted by kyoohyo
2013. 3. 6. 16:22

독일어를 배워봅시다. - Heidenröslein 들장미

2013. 3. 6. 16:22 in 잡동사니
336x280(권장), 300x250(권장), 250x250, 200x200 크기의 광고 코드만 넣을 수 있습니다.

Sah ein Knab ein Röslein steh'n
Röslein auf der Heiden,
War so jung und morgenschön,
liefe er schnell es nah zu sehn,
Sah's mt vielen Freuden.
Röslein, Röslein, Röslein rot,
Röslein auf der Heiden.

Knabe sprach: ich breche dich,
Röslein auf der Heiden;
s'Röslein sprach: ich stech dich,
Dass du ewig denkst an mich 
Und ich wil's nicht leiden.
Röslein, Röslein, Röslein rot,
Röslein auf der Heiden.

Und der wilde Knabe brach
s'Röslein auf der Heiden;
s'Röslein wehrte sich und stach 
Half ihm doch kein Weh und Ach,
Mußt es eben leiden.
Röslein, Röslein, Röslein rot,
Röslein auf der Heiden.

Es sah ein Knab’ ein Röslein steh’n
Röslein auf der Heiden
Sah, es war so frisch und schön
Und blieb steh’n, es anzuseh’n
Und stand in süßen Freuden
Röslein, Röslein, Röslein rot
Röslein auf der Heiden.

Der Knabe sprach: “Ich breche dich
Röslein auf der Heiden.”
Röslein sprach: ”Ich steche dich
Daß du ewig denkst an mich
Daß ich’s nicht will leiden.”
Röslein, Röslein, Röslein rot ...

Doch der wilde Knabe brach
Das Röslein auf der Heiden
Röslein wehrte sich und stach
Aber es vergaß danach
Beim Genuß das Leiden
Röslein, Röslein, Röslein rot ...

(Worte: Johann Gottfried Herder - 1770)

저작자표시 비영리 변경금지

'잡동사니' 카테고리의 다른 글

Ford - Taurus 포드 - 토러스 2.0 리미티드 생각나는대로 후기  (0) 2014.08.25
미국에서 수입 시 목록통관, 일반통관-음식물은 일반통관  (0) 2014.07.17
ADP 공부를 해 봅시다.- 데이터 분석 전문가 Advanced Data Analytics Professional  (0) 2014.04.08
세일러 샤레나 골드 만년필 11-2004  (0) 2014.04.05
마이크로소프트 Wedge Touch Mouse  (0) 2013.12.27
Posted by kyoohyo
2013. 3. 6. 09:22

독일어를 배워봅시다.-Ich bin auslander und spreche nicht gut Deutsch, Bitte langsam

2013. 3. 6. 09:22 in 기타 여행
336x280(권장), 300x250(권장), 250x250, 200x200 크기의 광고 코드만 넣을 수 있습니다.

                      Vokabeln 　
Ich bin Ausländer         foreigner 
                            　
Ich bin Ausländer und spreche nicht gut Deutsch  speak
Ich bin Ausländer und spreche nicht gut Deutsch  　
Bitte langsam!  Bitte langsam!               slow(ly) 
Bitte sprechen Sie doch langsam!     do speak slowly 
Ich bin Ausländer und spreche nicht gut Deutsch.  　
Ich bin Ausländer und spreche nicht gut Deutsch  　
Ich bin Ausländer und spreche nicht gut Deutsch  　
Ich versteh’ nicht, was Sie sagen.     I don’t understand 
Ich versteh’ nicht, was Sie sagen.     what you are saying 
Ich bin Ausländer und spreche nicht gut Deutsch  　
   　
Wie ist Ihr Name?    　
Herr Knabe:  Guten Abend.  Ich heiß’ Knabe  　
Herr Watanabe: Freut mich!  Jonny Watanabe.   Pleased to meet you
K Wie ist Ihr Name?  　
W Watanabe!  　
K Wie ist Ihr Name?  　
W Watanabe!  　
K Kommen Sie aus Tokio?  　
W Nein, ich komm’ aus Buffalo.  　
Herr Knabe:  Seit wann sind Sie hier in Trier?  Since when 
Herr Watanabe: Ich bin erst seit gestern hier?     only since yesterday
K Oh Ihr Deutsch ist wirklich gut!  really good 
W Nein, mein Deutsch ist nicht so gut!     not so good 
K Kommen Sie aus Tokio?  　
W Nein, ich komm’ aus Buffalo!         　


http://auslaender.wordpress.com/2008/08/15/ich-bin-auslander-und-spreche-nicht-gut-deutsch/


Teacher: Ich bin Auslander und spreche nicht gut Deutsch. 
Ich bin Auslander und spreche nicht gut Deutsch. 
Bitte langsam, bitte langsam 
Bitte sprechen Sie doch langsam 
Ich bin Auslander und spreche nicht gut Deutsch!

Student: Ich bin Auslander und spreche nicht gut Deutsch. 
Ich bin Auslander und spreche nicht gut Deutsch. 
Ich verstehe nicht was Sie sagan. 
Ich verstehe nicht was Sie sagan. 
Ich bin Auslander und spreche nicht gut Deutsch. 

Teacher: I am a foreigner and dont speak good German.
I am a foreigner and dont speak good German.
Please slow, Please slow
Speak little slow.
I am a foreigner and dont speak good German.

Student: I am a foreigner and dont speak good German.
I am a foreigner and dont speak good German.
I don't understand what you're saying.
I don't understand what you're saying.
I am a foreigner and dont speak good German.




저작자표시 비영리 변경금지

'기타 여행' 카테고리의 다른 글

일일 이식 - 체중 감량 한 달에 1kg  (0) 2013.05.31
홍콩 제니베이커리-쿠키  (0) 2013.05.27
일일이식-하루 두 끼  (0) 2013.04.25
삼성 자동차 sm3  (0) 2012.10.29
Kopi Luwak -코피루왁  (0) 2012.10.29
Posted by kyoohyo
prev Prev 1 ··· 28 29 30 31 32 33 34 ··· 37 Next next

티스토리툴바