数式の中に参照変数を盛り込む記述 がうまく行きません。

Question

T_SHEET = personE & "!"
'MsgBox Cells(25, x3).Address
Worksheets("年間集計").Cells(y2, x1).Formula = _
"=if(" & T_SHEET & "." & Cells(25, x3).Address & "=0, _
""0""," & T_SHEET & "." & Cells(25, x3).Address & ")"

上記の中で「T_SHEET」、変数x3及びy2、Cellsに数値が代入されているところまで確認できました。

別のシートであるT_SHEETからターゲットセルの座標を変数に格納し、「年間集計」シートで数式として投入という流れです。
実行
↓
「実行時エラー '1004':　アプリケーション定義またはオブジェクト定義のエラーです。」
↓
（当然セルは空のまま）

=if(personE!cells(25,x3)=0,"0",personE!cells(25,x3))
という数式が投入されるようにしたいです。
personEはループの中で人の名前を入れ替える変数です。

試行錯誤中ですが、なかなかの難問です。
お知恵をいただけますと幸いです。

Answer 1

そもそも、変数の使い方（変数名、変数にすべきところ、処理）を改善すべきかと。

Dim SheetName As string
SheetName = "personE"

Dim CellAddress As string
CellAddress = Cells(25, x3).Address

Dim AllAddress As string
AllAddress = SheetName  & "!" & CellAddress 

Dim Formula As string
Formula = "=If([Cell]=0,0,[Cell])"
Formula = Replace(Formula,"[Cell]",AllAddress)

ThisWorkBook.Worksheets("年間集計").Cells(y2, x1).Formula = Formula 

また、値が0の場合に文字列の0を表示していることから、
数式は「=TEXT([Cell],"@")」で良いのかもしれません。

ご参考まで。

Answer 2

参照の書式が変になってますね(シート名!.セルアドレス）
正しくは（シート名!セルアドレス）なので。

T_SHEET = personE & "!"
'MsgBox Cells(25, x3).Address
Worksheets("年間集計").Cells(y2, x1).Formula = _
"=if(" & T_SHEET & Cells(25, x3).Address & "=0, _
""0""," & T_SHEET & Cells(25, x3).Address & ")"

値の確認は、debug.print を使用してイミディエイトウィンドウでの確認が楽です。