Web Sitesi Adını veya URL'sini Metinden Ayırma

Gönderen ipucu: Jay Shukla

Bazen şöyle bir durumla karşılaşırız:

1. Yahoo web sitesi www.yahoo.com
2. Google Web Sitesi www.google.com

Peki, web sitesi adını kalan metinden nasıl ayırırız.

Aşama 1.

Sütunu seçin.

Düzenle altındaki Değiştir seçeneğine git

Ardından http'yi değiştirin:
(boşluklar) ile… .http:

(Örn:…. = Boşluklar)

Biz isimlerin mesafeli bir şekilde ayrıldığını göreceksiniz.

Adım 2

Veri altındaki Metne sütuna git seçeneği

ve Sabit genişlik seçeneğini seçin

işaretçiyi tüm sütundaki ilk web sitesi adından önceki sütunda belirli bir konuma getirin

ileriyi tıklayın, web adlarından önceki metnin siyah olduğunu göreceksiniz

BİTİŞ

Web adlarınızı metinden ayrılmış olarak bulacaksınız.

Şimdi onu bir Hiper bağlantı yapmak için:

Aşama 1

Alt + F11 tuşlarına basın

bir Makroların açılacağını göreceksiniz

Ekle'ye gidin ve ardından Modül'ü seçin

başka bir Yeni Modül Penceresi açılır

Adım 2

Aşağıda belirtilen formülü kopyalayıp yapıştırın:

------------------------------------------------------

Alt MakeHyperlinks_D()
Aralık olarak hücreyi karart, Aralık olarak Rng
Set Rng = Range("A1:A" & Cells.Rows.Count). _
SpecialCells(xlConstants, xlTextValues)
Eğer Rng Hiçbir Şey Değilse
MsgBox "aralıkta hiçbir şey yok"
Alt Çıkış
Bitir
Rng'deki Her Hücre İçin
Eğer Trim(cell.Value) "" O zaman
ActiveSheet.Hyperlinks.Add Anchor:=cell, _
Adres:=hücre.Değer, _
Ekran İpucu:=cell.Value, _
TextToDisplay:=cell.Value
Bitir
Sonraki hücre
Alt Bitiş