Köprü Formülünden Köprü ayıklamak için Excel VBA

Elektronik tablodaki bağlantıları doğrulamak için VBA kodu yazmaya çalışıyorum. Formülün oluşturduğu köprülerle karşılaşana kadar çalışıyorum. Örneğin =Hyperlink(A1,"Link1")veya=Hyperlink(A1&A2,"Link2")

Standart Hyperlinks(1).AddressVBA bunları bağlantıya sahip olarak kaydetmez ve çevrimiçi olarak başka bir çözüm bulamıyorum.

Herhangi bir fikir?

microsoft-excel vba hyperlink

— aliw1
kaynak

Unclear ............, formülünü Eklenmiş Köprü'ye dönüştürmek ister misiniz ?

— Gary'nin Öğrenci

Köprü işlevinden oluşturulan bir köprüyü kontrol etmek istiyorum, aslında geçerli bir adresi var.

— aliw1

İşte bazı formüllerinizi idare edecek basit bir yaklaşım . Diyelim ki A1 formülü içeriyor:

=HYPERLINK("http://www.google.com","search")

Eğer seçip çalıştırırsak:

Sub HyperChecker()
    Dim s1 As String, s2 As String, arr

    s1 = ActiveCell.Formula
    s2 = Mid(s1, 12)
    arr = Split(s2, ",")
    MsgBox arr(0)
End Sub

Biz alırız:

Kod, formülün başlangıcını ve sonunu atar ve URL'yi döndürür.

Sorun, işlevin ilk argümanı bir dize sabiti yerine bir ifade ise ortaya çıkar .

Daha sonra EVALUATE()bu ifadeye ihtiyacınız olacak .

— Gary'nin Öğrencisi
kaynak

Bu benim kodumla aldığım kadarıyla ilgili. Bağlantılar yuvalanmış formülden oluşturulduğunda, çok daha karmaşık hale gelir. Yardım için teşekkürler.

— aliw1

@ aliw1 Karmaşık köprülere saldırmayla ilgili birkaç fikrim var. İsterseniz, daha sonra bugün bu Cevabı güncelleyeceğim.

— Gary'nin Öğrenci