うーん・・・

Range("BI" & TR).Formula = に続く式の書き方を教えてください

解決済

質問者：maamaa
質問日時：2015/11/22 00:16
回答数：1件

よろしくお願いします。いつもｇｏｏの皆さんには大変お世話になっております
win8.1でエクセルは2013です

Private Sub Worksheet_Change(ByVal Target As Range)内のマクロです

マクロでセルに式を書き込みたいのですがエラーになってしまいます
一度使った書き方はメモを見てすぐかけるのですが
初めてのスタイルだと書けません
＆でつなげるのに規則がありますが、頭で整理できていません

TRはTarget.Rowのことで宣言済みです
Dim TR As Long
TR = Target.Row

書きたいのは
ＢＫのＴＲからＢＴのＴＲまでの合計を求めてエラーならERRと表示する
です
以下をどう直せばよいでしょうか？
教えてください

Range("BI" & TR).Formula = "=IFERROR(SUM(BK" & TR & ": BT" & TR )",""ERR"")"

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

No.1ベストアンサー

回答者： WindFaller
回答日時：2015/11/22 01:47

こんばんは。

Range("BI" & TR).Formula = "=IFERROR(SUM(BK" & TR & ": BT" & TR )",""ERR"")"
　　 ↓
Range("BI" & TR).Formula = "=IFERROR(SUM(BK" & TR & ": BT" & TR & "),""ERR"")"

後ろのTRの後の「 & "」が抜けているようです。

本格的なマクロするなら、数式を入れるのではなくて、SUMの値を変数に入れたほうがよいですね。
その値は、Variant 型にしておけば、エラー値も取れますから、エラーになったら、ERRの文字を代入すれば、Formula で数式を入れる必要はありませんね。