変数で指定したセルの値を取得して計算させるには？

質問

sub 単月発生残高の取得()

Windows("総勘定元帳データ").Activate
Worksheets(1).Activate
Range("a2").Activate

Dim sRange As Range, eRange As Range, tRange As Range, uRange As Range

Dim j As Long, k As Long

Dim i As Integer

For i = 3 To Range("a2").End(xlDown).Row
Set sRange = Cells(i, 1)
Set eRange = sRange.End(xlToRight)
Set tRange = eRange.Offset(2, 0)
Set uRange = tRange.Offset(0, -1)

j= tRange.value
k= uRange.value

Range("B1").formula="=k-j"
Range("A1").value="単月発生残高"

Next

Set sRange = Nothing
Set eRange = Nothing
Set tRange = Nothing
Set uRange = Nothing

End Sub

上記のマクロを組んでみましたが、j= tRange.value のところでエラーになります。
uRangeの値からtRangeの値を引いた値を"B1"に表示させたいのですが、うまくいきません。
どうすればいいでしょうか。

回答No.1

fujillin · ベストアンサー

エラーの内容もヒントになるのですが・・・
　　「型が一致しません」というエラーでしょうか？

その場合は、j,kの宣言がLong（数値）で行われていますので、セルの値が文字（やスペース）だったりすることによりおこります。
あるいは、数字でも大きな数（Longの範囲外）の場合でもエラーになります。

ついでながら、気がついた点を・・・
・For～Nextで処理をループさせていますが、結果を記入するセル
　がA1、B1に固定されているため、結果的には、最後の計算結果
　しか残りません。

・Range("B1").Formula = "=k-j"は、セルB1に「=k-j」と手入力
　したのと同じことを意味しますが、やりたいことは多分違こと
　ではないのでしょうか？

・計算値（結果）をセットするだけなら、
　Range("B1").Value = k-j
　で良いはずですが、想像するところ、
　Range("B1").Formula = "=" & uRange.Address & "-" & tRange.Address
　に近い感じではなかろうかと・・・（式をセット）

また、うまく動かないときは、VBエディターのデバッグのステップインやウォッチ式などの機能を利用して、動作や値を確認することでご自分でも原因も確かめられるようになります。

お礼

ご回答ありがとうございます。
エラーの内容はおっしゃるとおり「型が一致しません。」です。
また、やりたいことはご回答いただいた内容で解決しそうです。
ありがとうございました。