| |
こんばんわ。いつも参考にさせていただいてます。2回目の投稿なのですが、またご教授いただけたらと思います。
ﾕｰｻﾞｰﾌｫｰﾑにﾃｷｽﾄﾎﾞｯｸｽ及び、ﾘｽﾄﾎﾞｯｸｽ、また、ﾏﾙﾁﾍﾟｰｼﾞを配置しています。
またﾏﾙﾁﾍﾟｰｼﾞの中にﾃｷｽﾄﾎﾞｯｸｽ、ﾘｽﾄﾎﾞｯｸｽを配置しております。これらの選択した値及び、入力した数値をﾎﾞﾀﾝをｸﾘｯｸすると入力できる。また呼び出したりするﾌﾟﾛｸﾞﾗﾑを作っています。
そして、長くなったのですがここからが標記のRounddownについてなのですが、
ﾏﾙﾁﾍﾟｰｼﾞに配置したﾃｷｽﾄﾎﾞｯｸｽが・・・
工事設計金額 ←税込みの金額です
工事設計金額消費税
工事請負金額 ←同じく税込みの金額です。
工事請負金額消費税
第1回変更設計金額 ←同じく税込みの金額です。
第1回変更請負金額 ←同じく税込み金額です。
で、最後の第1回変更請負金額なのですが、第1回変更設計金額を入力すると自動計算されるように数式を組んであります。以下のようにRounddownを入れ込むとｺﾝﾊﾟｲﾙｴﾗｰ修正候補ｽﾃｰﾄﾒﾝﾄの最後というようなｴﾗｰが出てまいります。
数式の中のsheets("基礎ﾃﾞｰﾀ").Range("V3")は消費税率の0.05が入ります。それに１をﾌﾟﾗｽして税抜き及び税込みを計算するようにしています。
Private Sub 第1変更設計金額_Change()
If (第1変更設計金額.Value = ClearContents) Then
'何もしない
ElseIf IsNumeric(第1変更設計金額.Value) = True Then
第1変更設計金額.Value = Format(第1変更設計金額.Value, "#,##0")
Else
第1変更設計金額.Value = ClearContents
End If
'変更金額自動計算
If IsNumeric(第1変更設計金額.Value) Then
第1変更請負金額.Value = "=Rounddown(((請負金額.Value - 請負金額消費税.Value) / (設計金額.Value - 設計金額消費税.Value)) * (第1変更設計金額.Value / (Sheets("基礎データ").Range("V3") + 1)),-3) * (Sheets("基礎データ").Range("V3") + 1)
Else
第1変更請負金額.Value = ClearContents
End If
End Sub
長々と、また、わかりにくい内容かもしれませんが、ご教授いただければと思います。併せて、質問をする立場でありながら、30分程所要で席をはずします。大変勝手ではありますが、よろしくお願いします。
|
|
carerra
- 05/12/19(月) 21:46 -
