Köprüler, farenin üzerine geldiğimizde görülen bir değere eklenen URL'dir ve üzerine tıkladığımızda URL açılır, VBA'da VBA'da köprüler oluşturmak için dahili bir özelliğimiz vardır ve bu özelliği kullanmak için Add yöntemini birlikte kullanırız. bir hücreye köprü eklemek için köprü ifadesi.
Excel VBA'da köprüler
Excel'de bir sayfadan diğerine geçmek için Sayfa Yukarı ve Sayfa Aşağı kısayol tuşumuz olsa da, 10 ila daha fazla çalışma sayfası arasında hareket etmemiz gerektiğinde karmaşık hale gelir. “Excel'de Köprüler” in güzelliği burada devreye giriyor. Köprü, sizi atandığı şekilde ilgili hücreye veya çalışma sayfasına götüren önceden belirlenmiş bir URL'dir.
Bir sayfadan başka bir sayfaya hızla geçmek için çalışma sayfasında nasıl köprü oluşturacağımızı hepimiz biliyoruz ve siz de başka herhangi bir sayfaya gidebilirsiniz. Ancak bugünün makalesinde, VBA kodlamasını kullanarak nasıl köprü oluşturacağınızı göstereceğiz.
VBA Köprülerinin formülü
Excel VBA'daki köprülerin formülüne bakalım.
- Çapa: Hangi hücrede bir köprü oluşturmak istediğiniz.
- Adres: Gezinilecek köprünün URL'si nedir?
- (Alt Adres): Sayfanın yeri nedir?
- (Ekran İpucu): Köprü adı veya hücreye bir fare imleci yerleştirdiğinizde gösterilecek değer nedir?
- (Görüntülenecek Metin): Hücrede görüntülenecek test nedir? Örneğin, Çalışma Sayfası Adı.
Excel VBA'da Köprüler Nasıl Oluşturulur?
Diğer "Örnek 1" sayfasından "Ana Sayfa" adlı sayfaya bir VBA köprüsü oluşturmak istediğinizi varsayın.
"Örnek 1" çalışma sayfasında ve A1 hücresinde, VBA'daki Kodu kullanarak köprüyü oluşturacağım.
Adım 1: İlk olarak, Örnek 1 çalışma sayfasının A1 hücresini seçin.
Kod:
Alt Hyperlink_Example1 () Çalışma Sayfaları ("Örnek 1") Aralık Seçin ("A1"). Son Alt Seçin
Adım 2: Şimdi, Active Cell nesne açık köprülerini kullanarak. Yöntem ekleyin.
Kod:
Alt Hyperlink_Example1 () Çalışma Sayfaları ("Örnek 1") Aralık seçin ("A1"). ActiveCell.Hyperlinks.Add (End Sub
Adım 3: İlk argüman "Çapa" dır, yani VBA köprüsünü oluşturmak için hangi hücreye bağlanacağımızdır. Bu durumda, A1 hücresi ve zaten A1 hücresini "Seçim" olarak belirtmek için seçtiğimiz için.
Kod:
Alt Hyperlink_Example1 () Çalışma Sayfaları ("Örnek 1") Aralık Seçin ("A1"). ActiveCell.Hyperlinks Ekle (Seçim, Son Alt
Adım 4: Burada herhangi bir adres oluşturmuyoruz, bu nedenle şu an için Adresi dikkate almayın.
Kod:
Alt Hyperlink_Example1 () Çalışma Sayfaları ("Örnek 1"). Aralık seçin ("A1"). ActiveCell.Hyperlinks Bağlantı Ekle: = Seçim, Adres: = "", Son Alt
Adım 5: Sonraki, Alt Adres. Burada hangi sayfadan bahsettiğimizi ve bu sayfanın ilk hücresini belirtmemiz gerekiyor.
Kod:
Alt Hyperlink_Example1 () Çalışma Sayfaları ("Örnek 1"). Aralık seçin ("A1"). ActiveCell.Hyperlinks Bağlantı Ekle: = Seçim, Adres: = "", Alt Adres: = "'Ana Sayfa'! A1", Son Alt
Sayfa adını "Ana Sayfa" olarak belirttim ve bu sayfa hücre adresinde "A1".
Adım 6: Ekran İpucunu da yok sayın. Metnin görüntülenmesi için sayfa adını belirtin.
Kod:
Alt Hyperlink_Example1 () Çalışma Sayfaları ("Örnek 1"). Aralık seçin ("A1"). ActiveCell.Hyperlinks Bağlantı Ekle: = Seçim, Adres: = "", Alt Adres: = "'Ana Sayfa'! A1", TextToDisplay : = "Ana Sayfa" Son Alt
Tamam, bu kodu F5 tuşunu kullanarak veya manuel olarak çalıştırın. Ardından, "Örnek 1" sayfasındaki A1 hücresinde bir köprü oluşturacaktır.
Köprü "Ana Sayfa" üzerine tıkladığınızda, ana sayfaya yönlendirir.
Döngülerle Birden Çok Sayfanın Köprüleri
Bir sayfa için bir VBA köprüsü oluşturmayı gördük. Çok sayıda sayfamız olduğunda, her sayfa için aynı kod satırına sahip her sayfa için bir VBA köprüsü oluşturmak kolay değildir.
Aşağıdaki resimde gösterildiği gibi 11 çalışma sayfanız olduğunu varsayalım.
VBA Kodunu kullanarak Dizin sayfasındaki her sayfa için bir köprü oluşturmak istiyorsunuz .
Adım 1: Değişkeni bir çalışma sayfası olarak tanımlayın.
Kod:
Sub Create_Hyperlink () Dim Ws As Worksheet End Sub
Adım 2: İlk şey, çalışma sayfası Dizini'ni ve A1 hücresini seçmektir.
Kod:
Sub Create_Hyperlink() Dim Ws As Worksheet Worksheets("Index").Select Range("A1").Select End Sub
Step 3: Now open For Each Loop in VBA.
Code:
Sub Create_Hyperlink() Dim Ws As Worksheet Worksheets("Index").Select Range("A1").Select For Each Ws In ActiveWorkbook.Worksheets Next Ws End Sub
Step 4: Since we have already selected the cell A1 it is now an active cell. So start the hyperlink with the active cell.
Code:
Sub Create_Hyperlink() Dim Ws As Worksheet Worksheets("Index").Select Range("A1").Select For Each Ws In ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add( Next Ws End Sub
Step 5: Anchor is a hyperlink cell. So it is the active cell.
Code:
Sub Create_Hyperlink() Dim Ws As Worksheet Worksheets("Index").Select Range("A1").Select For Each Ws In ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, Next Ws End Sub
Step 6: Address is nothing mention it as “.
Code:
Sub Create_Hyperlink() Dim Ws As Worksheet Worksheets("Index").Select Range("A1").Select For Each Ws In ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor:=ActiveCell,Address:="", Next Ws End Sub
Step 7: Subaddress is when we loop through the sheet, it should be the sheet name. To refer to the sheet name, we need a single quote, “’” with sheet name and “! Cell Address,” and close the sheet name with a single quote “’.”
Code:
Sub Create_Hyperlink() Dim Ws As Worksheet Worksheets("Index").Select Range("A1").Select For Each Ws In ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor:=ActiveCell,Address:="",SubAddress:=""& Ws.Name&"!A1"&"", Next Ws End Sub
Step 8: Ignore Screen tip, and for Text to display, you can enter the worksheet name.
Code:
Sub Create_Hyperlink() Dim Ws As Worksheet Worksheets("Index").Select Range("A1").Select For Each Ws In ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, Address:="", SubAddress:="" & Ws.Name & "!A1" & "", ScreenTip:="", TextToDisplay:=Ws.Name Next Ws End Sub
Adım 9: Her sayfanın köprüsünü farklı bir hücrede saklamak için, bir sayfa için her köprü oluşturulduğunda, aktif hücreden bir hücre aşağı gitmemiz gerekir.
Kod:
Alt Create_Hyperlink () Çalışma Sayfası Çalışma Sayfaları Olarak Dim Ws ("Dizin"). Aralık seçin ("A1"). ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.'deki Her Çalışma İçin Seçin Bağlantı Ekle: = ActiveCell, Adres: = "", Alt Adres: = "" & Ws.Name & "! A1" & "", Ekran İpucu: = "", TextToDisplay: = Ws.Name ActiveCell.Offset (1, 0). Sonraki Ws End Sub'ı seçin
Bu, Dizin sayfasındaki tüm sayfaların bir köprüsünü oluşturacaktır. Sayfalarda herhangi bir ekleme veya silme olduğunda bu kod dinamiktir. Güncellenmiş bir köprüye sahip olmak için bu kodu çalıştırmamız gerekiyor.
