|
こんばんわ。いつも参考にさせていただいてます。2回目の投稿なのですが、またご教授いただけたらと思います。
ユーザーフォームにテキストボックス及び、リストボックス、また、マルチページを配置しています。
またマルチページの中にテキストボックス、リストボックスを配置しております。これらの選択した値及び、入力した数値をボタンをクリックすると入力できる。また呼び出したりするプログラムを作っています。
そして、長くなったのですがここからが標記のRounddownについてなのですが、
マルチページに配置したテキストボックスが・・・
工事設計金額 ←税込みの金額です
工事設計金額消費税
工事請負金額 ←同じく税込みの金額です。
工事請負金額消費税
第1回変更設計金額 ←同じく税込みの金額です。
第1回変更請負金額 ←同じく税込み金額です。
で、最後の第1回変更請負金額なのですが、第1回変更設計金額を入力すると自動計算されるように数式を組んであります。以下のようにRounddownを入れ込むとコンパイルエラー修正候補ステートメントの最後というようなエラーが出てまいります。
数式の中のsheets("基礎データ").Range("V3")は消費税率の0.05が入ります。それに1をプラスして税抜き及び税込みを計算するようにしています。
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分程所要で席をはずします。大変勝手ではありますが、よろしくお願いします。
|
|