UDF'nin Uçuculuğunu Artırma

Küçüğüm var UDF () bir köprü döndüren Address:

Public Function hyperAdd(r As Range) As String
    Application.Volatile

    hyperAdd = "no hyperlink"
    If r.Hyperlinks.Count = 0 Then Exit Function
    hyperAdd = r.Hyperlinks(1).Address
End Function

Yani eğer koyarsam:

http://www.cnn.com

Hücrede A1 , Alırım:

Şimdi seçersem A1 , Formül Çubuğu'nu tıklayın ve değiştirin cnn için tilki , B1 değişmez!

Yeniden seçmek zorundayım A1 , dokunma F2 ve sonra Girmek .

Bunu nasıl düzeltebilirim?

(eğer önemliyse, Win 7 makinesinde Excel 2007 kullanıyorum)

Bir geçici çözüm, bir çalışma sayfası değiştirme olayı kullanarak bir hesaplamayı zorlamak olacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Hyperlinks.Count > 0 Then Application.CalculateFull
End Sub

Ve tabii ki Application.Volatile UDF'den.

UDF, A1'deki bağımsız değişkende başvurulandığından beri beklenen A1'deki değişiklik tarafından tetiklenmiş gibi görünüyor. Ancak, çalıştığı sırada, Köprüler koleksiyonu henüz güncellenmedi. Ve bir kırılma noktanız varsa, imlecin hala formül çubuğunda olduğunu görebilirsiniz. Belki de köprülerin saklanma ve başvuru yolu ile ilgisi vardır.