Excel'de köprü içeren hücreleri nasıl sayabilirsiniz?
Excel’de belirli bir aralıkta köprü içeren hücreleri saymayı denediniz mi? Bu öğretici, size bunu adım adım nasıl yapabileceğinizi gösteren pratik bir yöntem sunar.
Köprü içeren hücre sayısını VBA koduyla sayma
Köprü içeren hücre sayısını VBA koduyla sayma
Aşağıdaki VBA kodu, belirli bir aralıkta köprü içeren hücre sayısını belirlemek için kullanılabilir. Lütfen aşağıdaki adımları uygulayın.
1. "Microsoft Visual Basic for Applications" penceresini açmak için "Alt" + "F11" tuşlarına basın.
İpucu: Bu pencereyi açmak için "Geliştirici" > "Visual Basic" seçeneğine tıklayabilirsiniz.
2. "Visual Basic" penceresinde "Ekle" > "Modül" seçeneğine tıklayıp aşağıdaki VBA kodunu Modül (kod) penceresine yapıştırın.
VBA kodu: Belirli bir aralıkta köprü içeren hücrelerin sayısını sayma
Sub StatisticsHypRange()
'Updated by Extendoffice 20220815
Dim xSRg As Range
Dim xURg As Range
Dim xRg As Range
Dim xHRg As Range
Dim xHypCount As Long
On Error Resume Next
Set xSRg = Application.InputBox("Select the range of cells from which you want to count hyperlinks", "Kutools for Excel", "", Type:=8)
If xSRg Is Nothing Then Exit Sub
Set Where = Range("A1", Range("A" & Rows.Count).End(xlUp))
Set xURg = Application.Intersect(xSRg.Worksheet.UsedRange, xSRg)
xHypCount = 0
For Each xRg In xURg
If xRg.Hyperlinks.Count > 0 Then
xHypCount = xHypCount + 1
If xHRg Is Nothing Then
Set xHRg = xRg
Else
Set xHRg = Application.Union(xHRg, xRg)
End If
Else
If InStr(LCase(xRg.Formula), LCase("HYPERLINK")) > 0 Then
xHypCount = xHypCount + 1
If xHRg Is Nothing Then
Set xHRg = xRg
Else
Set xHRg = Application.Union(xHRg, xRg)
End If
End If
End If
Next
MsgBox "Find " & xHypCount & " hyperlink cells"
xHRg.Select
End Sub3. Kodu çalıştırmak için "F5" tuşuna basın. Açılan "Kutools for Excel" iletişim kutusunda, köprü içeren hücrelerin sayısını saymak istediğiniz aralığı seçip "Tamam" düğmesine tıklayın. Ekran görüntüsüne göz atın:
4. Ardından, Aralık Seç içinde köprü içeren hücre sayısını gösteren bir iletişim kutusu açılır. İletişim kutusunu kapatmak için "Tamam" düğmesine tıklayın.
Daha sonra köprü içeren tüm hücreler aynı anda seçilir.
Not: Yukarıdaki VBA koduyla aşağıdaki türdeki köprüler sayılabilir:
=HYPERLINK(link_location,[friendly_name])En İyi Office Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi üst düzeye taşıyın ve hiç yaşanmamış bir verimlilik deneyimi yaşayın.Kutools for Excel, verimliliği artırmak ve Zamanı Kaydet için 300'den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen alınmak için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel ve PowerPoint içinde sekmeli düzenleme ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Birden fazla belgeyi yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açın ve oluşturun.
- Günlük verimliliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri, tek bir yükleyiciyle!
Kutools for Office paketi; Excel, Word, Outlook ve PowerPoint için eklentileriyle birlikte Office Tab Pro’yu da içerir ve Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek yükleyici, tek lisans— birkaç dakikada kurulum (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamaları arasında akıcı verimlilik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— tek tek eklenti satın alımına göre tasarruf edin