Bu VBA Eğitimi, VBA'da köprülerle çalışmanın farklı yollarını kapsar.
VBA Köprüleri
VBA ile VBA'da köprüler ekleyebilir, köprüleri kaldırabilir, köprüler kullanarak e-postalar oluşturabilir ve köprüler kullanarak dosyaları açabilirsiniz.
VBA ile Köprü Ekle
Hyperlinks.Add Yöntemi, VBA kullanan bir hücreye bir köprü ekler.
Aşağıdaki kod, A1 hücresine bir köprü ekleyecektir:
123 | Alt AddHyperlinkToCell()ActiveSheet.Hyperlinks.Add Range("A1"), Adres:="https://www.automateexcel.com/excel/"Alt Bitiş |
Sonuç:
VBA ile Görüntülenecek Metin Ekleme
VBA ile köprünüze görüntülemek için düzgün, kullanıcı dostu metin ekleyebilirsiniz. Çalışma sayfası işlevini kullandıysanız, bir köprü ekler ve ardından sağlanan iletişim kutusunda görüntülenecek bir metin eklersiniz.
Aşağıdaki kod, VBA kullanarak köprünüze görüntülenecek metnin nasıl ekleneceğini gösterir:
123 | Sub TextToDisplayForHyperlink()ActiveSheet.Hyperlinks.Add Range("A1"), Adres:="https://www.automateexcel.com/excel/", TextToDisplay:="Excel'i Otomatikleştir"Alt Bitiş |
Sonuç:
VBA ile Ekran İpucu Ekleme
Köprünüze, izleyicinin fareyle bağlantının üzerine geldiğinde göreceği bir Ekran İpucu ekleyebilirsiniz.
Aşağıdaki kod, VBA kullanarak köprünüze nasıl Ekran İpucu ekleyeceğinizi gösterir:
123 | Alt Ekran İpucuForKöprü()ActiveSheet.Hyperlinks.Add Range("A1"), Adres:="https://www.automateexcel.com/excel/", TextToDisplay:="Excel'i Otomatikleştir", ScreenTip:="Bu, Excel'i Otomatikleştir bağlantısıdır"Alt Bitiş |
Sonuç:
VBA ile bir Köprüyü Sil
Hyperlinks.Delete Yöntemi, bir hücreden bir köprüyü silmek için kullanılabilir.
Aşağıdaki kod, köprüyü A1 hücresinden ve hücredeki metni siler.
Yalnızca köprüyü silmenin metnin kendisini silmediğini unutmayın, bu nedenle metnin silinmesini istiyorsanız Clear yöntemini de kullanmanız gerekir.
1234 | Sub DeleteHyperlinkinCell()Aralık("A1").Köprüler.SilAralık("A1").TemizleAlt Bitiş |
Bir Çalışma Sayfasındaki tüm Köprüleri Sil
Hyperlinks.Delete yöntemini kullanarak çalışma sayfanızdaki tüm köprüleri de silebilirsiniz.
Aşağıdaki kod, çalışma kitabınızdaki ilk çalışma sayfasındaki tüm köprüleri siler:
123 | Alt RemoveAllHyperlinksInASheet()ThisWorkbook.Sheets(1).Hyperlinks.DeleteAlt Bitiş |
VBA Kullanarak Web Sitesi Köprülerini Takip Edin
Aşağıdaki kod, çalışma kitabınızdaki FollowHyperlink yöntemini kullanarak tarayıcınızda yeni bir pencerede bir web sitesi adresi açmanıza izin verir:
123 | Alt FollowHyperlinkForWebsite()ActiveWorkbook.FollowHyperlink Adresi:="https://www.automateexcel.com/excel", NewWindow:=TrueAlt Bitiş |
Sürücünüzdeki Bir Klasöre Bir Köprü Takip Edin
Aşağıdaki kod, FollowHyperlink Yöntemini kullanarak Masaüstünde ExcelFiles adlı bir klasörü açacaktır:
123 | Alt FollowHyperlinkForFolderOnDrive()ActiveWorkbook.FollowKöprü Adresi:="C:\Desktop\ExcelFiles"Alt Bitiş |
Sürücünüzdeki Bir Dosyaya Bir Köprü Takip Edin
Aşağıdaki kod, FollowHyperlink Yöntemini kullanarak Masaüstünde ExcelFiles adlı klasörde WorkbookOne adlı bir Excel dosyasını açacaktır:
123 | Alt FollowHyperlinkForFile()ActiveWorkbook.FollowHyperlink Adresi:="C:\Desktop\ExcelFiles\WorkbookOne.xlsx", NewWindow:=TrueAlt Bitiş |
Aynı Çalışma Kitabında başka bir sayfada bulunan bir Hücreye gidin
VBA ile aynı çalışma kitabında, sizi başka bir sayfaya götüren bir sayfadaki bir hücreye köprü ekleyebilirsiniz. Diyelim ki çalışma kitabınızın Sayfa1, A1 hücresindesiniz ve aynı çalışma kitabının Sayfa2, B2 hücresine bir köprü eklemek istiyorsunuz, bunu yapmak için SubAddress özelliğini kullanabilirsiniz.
Aşağıdaki kod, bunun nasıl yapılacağını gösterir:
123 | Sub GoToAnotherCellInAnotherSheetInTheSameWorkbook()ActiveSheet.Hyperlinks.Add Range("A1"), Adres:="", SubAddress:="'" & Sheet2.Name & "'!B2", TextToDisplay:="Sayfa2'ye Gitmek İçin Burayı Tıklayın, sayfanın B2 hücresi aynı çalışma kitabı"Alt Bitiş |
Bir Çalışma Sayfasındaki tüm Köprüleri Görüntüle
Köprüler koleksiyonuna erişebilir ve çalışma sayfanızdaki tüm köprüleri ara pencere VBA Editöründe. önce basmalısın CTRL+G klavyenizde veya şuraya gidin: Görünüm>Ara Pencere Ara Pencereyi görüntülemek için VBE Düzenleyicisi'nde.
Aşağıdaki kod, çalışma sayfanızdaki köprülerin Ara Pencerede nasıl görüntüleneceğini gösterir:
1234567891011 | Sub ShowAllTheHyperlinksInTheWorksheet()Dim ws As Çalışma Sayfasıws = ThisWorkbook.Sheets(1) olarak ayarlaHer lnk için ws.HyperlinksDebug.Print lnk.AddressSonraki lnkAlt Bitiş |
Sonuçlar Ara Pencerede gösterilir.
Bir Çalışma Kitabındaki tüm Köprüleri Görüntüle
Çalışma Kitabınızdaki tüm köprüleri bir Mesaj Kutusunda görüntülemek ve görüntülemek için köprüler koleksiyonuna erişebilirsiniz.
Aşağıdaki kod, bunun nasıl yapılacağını gösterir ve bunu başarmak için iç içe bir döngü kullanır:
1234567891011 | Sub ShowAllTheHyperlinksInTheWorkbook()Dim ws As Çalışma SayfasıActiveWorkbook.Worksheets'te Her ws içinHer lnk için ws.HyperlinksMsgBox lnk.AdresSonraki lnkSonrakiAlt Bitiş |
E-posta Oluşturmak için FollowHyperlink Yöntemini Kullanma
FollowHyperlink Yöntemini kullanarak da e-posta oluşturabilirsiniz.
Aşağıdaki kod, VBA'da FollowHyperlink Yöntemini kullanarak nasıl e-posta oluşturacağınızı gösterecektir:
12345678 | Sub SendEmailUsingKöprü()Dize Olarak MsgLink'i KarartınmsgLink = "mailto:" & "[email protected]" & "?" & "subject=" & "Merhaba" & "&" & "body=" & "Nasılsın?"ActiveWorkbook.FollowKöprü (msgLink)Alt Bitiş |
Sonuç:
Excel'de Otomatik Şekil'e Köprü Ekleme
Excel'de bir Otomatik Şekil'e köprü ekleyebilirsiniz, böylece kullanıcı şekli tıkladığında bir web sitesi adresine yönlendirilir.
Aşağıdaki kod, yuvarlatılmış bir dikdörtgen oluşturur, metni dikdörtgene ekler ve dikdörtgene bir köprü ekler:
12345678910111213 | Alt EklemeAHyperlinkToAShape()MyShape'i Şekil Olarak KarartmyDocument = Çalışma Sayfaları ("Sayfa1") olarak ayarlamyShape = myDocument.Shapes.AddShape(msoShapeRoundedRectangle, 100, 100, 90, 30) olarak ayarlayınmyShape ile.TextFrame.Characters.Text = "Excel'i Otomatikleştir"İle bitmekActiveSheet.Hyperlinks.Add Anchor:=myShape, Adres:="https://www.automateexcel.com/excel"Alt Bitiş |
Sonuç:
VBA Kullanarak Hücreye Köprü Formülü Ekleme
Aşağıdaki resimde gösterildiği gibi A4 hücresinde bir gönderi başlığınız ve B4 hücresinde bir gönderi bağlantınız olduğunu varsayalım.
Çalışma sayfası Köprü formül sözdiziminin hızlı bir hatırlatıcısı:
KÖPRÜ(bağlantı_konumu, [dost_adı])
link_location - Bu, çalışma kitabındaki veya çevrimiçi sitedeki belgeye, dosyaya, yere bağlantıdır.
dost_adı - (İsteğe bağlı) - Hücrede görüntülenen metin veya sayısal değer.
C4 hücresinde, görüntülenecek kolay bir metin içeren köprüyü eklemek istiyorsunuz, şimdi genellikle aşağıdakileri elde etmek için C4'te =KÖPRÜ(B4,A4) formülünü girersiniz:
Bunun yerine aynı sonucu elde etmek için VBA'yı kullanabilir ve bu formülü aşağıdaki kodla Sayfa1'deki hücreye ekleyebilirsiniz:
123 | Sub InsertKöprüFormulaInCell()ActiveWorkbook.Worksheets("Sayfa1").Range("C4").Formula = "=köprü(B4,A4)"Alt Bitiş |
Access'te Bir Düğmeye Köprü Ekleme
VBA, Access'te de köprülerle çalışmanıza olanak tanır. Diyelim ki bir form üzerinde bir butonumuz var ve kullanıcı o butona tıkladığında onların bir web sitesine yönlendirilmesini istiyoruz. Bunu yapmak için kullanabileceğiniz bir yol, Application.FollowHyperlink yöntemidir.
Aşağıda gösterilen buttonOne adlı bir düğme ile örnek formumuz var.
Bu düğmenin kodu şöyle olacaktır:
12345 | Özel Alt düğmesiOne_Click()Application.FollowHyperlink ("https://www.automateexcel.com/excel/")Alt Bitiş |
Word'de Seçimden Köprü Oluşturma
Word VBA'da da köprülerle çalışabilirsiniz.
Diyelim ki metin var Kelime Aşağıda gösterildiği gibi seçilen “Automate Excel Web Sitesine Alınmak İçin Burayı Tıklayın” yazan.
Bu metni VBA kullanarak bir köprüye dönüştürmek için aşağıdaki kodu kullanabilirsiniz:
123 | Private Sub TurnASelectionIntoAHyperlink()ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:="https://www.automateexcel.com/excel/", ScreenTip:="Lütfen Burayı Tıklayın", Target:=NewWindowAlt Bitiş |
Sonuç: