« Napster 国内サービス開始 | Main | エクセル 入力フォーム »

Oct 06, 2006

VBA 消費税計算

エクセルにて消費税を研鑽させるVBAを書いてみました。

----
Private Sub Run_Click()
    Dim hontai As Currency
    Dim tax As Currency
    Dim all As Currency
   
    '消費税率
    '******************************
    Const Duty As Double = 0.05
    '******************************
   
    '初期値設定
    '------------------------------
    hontai = input1.Value
    tax = Input2.Value
    all = Input3.Value
   
    '計算
    '------------------------------
    If hontai <> 0 Then
            '販売価格が分かるケース
            tax = hontai * Duty
            all = hontai * (1 + Duty)
       
        ElseIf tax <> 0 Then
                '消費税が分かるケース
                hontai = tax / Duty
                all = (tax / Duty) + tax
                   
        ElseIf all <> 0 Then
                '税込価格がが分かるケース
                hontai = all / (1 + Duty)
                tax = (all / (1 + Duty)) * Duty
    End If
   
    '計算結果出力
    '--------------------------------
    hontai = Application.RoundUp(hontai, 0)  '小数第一位を切り上げ
    tax = Application.RoundDown(tax, 0)      '小数第一位を切り捨て
    all = Application.RoundUp(all, 0)        '小数第一位を切り上げ
   
    input1.Value = Format(hontai, "###,###")        'コンマ挿入
    Input2.Value = Format(tax, "###,###")           'コンマ挿入
    Input3.Value = Format(all, "###,###")           'コンマ挿入
      
End Sub
----

←クリック一票

|

« Napster 国内サービス開始 | Main | エクセル 入力フォーム »

VBA」カテゴリの記事

Comments

Post a comment



(Not displayed with comment.)


Comments are moderated, and will not appear on this weblog until the author has approved them.



TrackBack


Listed below are links to weblogs that reference VBA 消費税計算:

« Napster 国内サービス開始 | Main | エクセル 入力フォーム »