Q&A
右括弧が一つ足りておらず、IFが閉じていないのが原因かと思います。
前提・実現したいこと
ExcelVBAでセルに以下のような計算式を入れたいです。（仮に処理する行を4行目とする）
「=IF(S4=0,L4-N4,ROUNDDOWN(O4*ROUNDDOWN(K4,3),0)」
問題を下記に記載するので、おかしい点などわかる方ご教授いただけないでしょうか。
発生している問題・エラーメッセージ
実行時エラー'1004' アプリケーション定義またはオブジェクト定義のエラーです。
該当のソースコード
ExcelVBA
1With シートオブジェクト名 2 .Cells(4, 16).FormulaLocal = "=IF(" & .Cells(4, 19).Address(False, False) & "=0," & .Cells(4, 12).Address(False, False) & "-" & .Cells(4, 14).Address(False, False) & ",ROUNDDOWN(" & .Cells(4, 15).Address(False, False) & "*ROUNDDOWN(" & .Cells(4, 11).Address(False, False) & ",3),0)" 3End With
試したこと
代入するセルを以下プロパティで試してみましたがいずれも同じエラーでした。
- Formula
- Value
- 何もプロパティを付けない
文字列として直接「=IF(S4=0,L4-N4,ROUNDDOWN(O4*ROUNDDOWN(K4,3),0)」を入れてみましたが、同じエラーが出ました。
補足情報（FW/ツールのバージョンなど）
ここにより詳細な情報を記載してください。
回答2件
0
自己解決
右括弧が一つ足りておらず、修正したところ、エラー無く動きました。
=IF(S4=0,L4-N4,ROUNDDOWN(O4*ROUNDDOWN(K4,3),0))
投稿2020/11/27 08:16
総合スコア9
0
その代入しようとしている式を文字列で確認してみて下さい。
そもそも値として展開しているものは意味があるものになっていますか？
投稿2020/11/27 08:16
編集2020/11/27 08:18
総合スコア25327
あなたの回答
tips
プレビュー
