ユーザー定義関数の再計算
ユーザー定義関数を作りました。
ところが、この関数が自動再計算をしてくれません。
どうしたら自動再計算するようになるのでしょうか?
よろしくお願いします。
ちなにこの関数は、自分のシートのB2とsheet1~sheet4のB9を比較して、正しければB9の4つ右のセルの値を合計して返すものです。
=SheetLook($B$2,"sheet1,sheet2,sheet3,sheet4",B9,4)
コードです。
Function SheetLook(参照元 As Variant, 比較対象シート As String, 比較対象セル As Range, 参照セル位置 As Integer) As Variant
Dim i As Integer
Dim rng As Range
Dim sss As Variant
Dim kei As Variant
Dim cnt As Integer
sss = Split(比較対象シート, ",")
kei = 0
cnt = 0
For i = 0 To UBound(sss)
Set rng = Sheets(sss(i)).Range(比較対象セル.Address)
If 参照元 = rng Then
kei = kei + rng.Offset(0, 参照セル位置)
cnt = cnt + 1
End If
Next
If cnt <> 0 Then
SheetLook = kei
Else
SheetLook = ""
End If
End Function