Excel - Köprüyü metin biçimine dönüştürme
Konu
Excel 2003 ile çalışıyorum. Benim sorunum eski Excel dosyalarıyla bir veritabanı beslemem gerekiyor. Binlerce köprü var. Köprü, "1" olarak görünecek şekilde dönüştürüldü. Verilerimi yeni veritabanına almak için adı metin biçiminde almam gerekiyor. Otomatik olarak nasıl bulabilirim?
Çözüm
VBA ile:
- Çalışma kitabını aç
- Bir kopya yapın (farklı kaydedin) ve kopya üzerinde çalışın!
- Çalışma kitabının kopyasında:
- ALT + F11 tuşlarına basın
- Ekle / Modül
- Bu kodu kopyala / yapıştır:
Alt AfficheNomCompletLienHypertexte () Dim Lign Uzun, DrLig Uzun Dim Col By Bay Dim Dim NomDuLien String Col = 1 '==> Bir adaptör: n ° de la colonne kontenant vos liens levhalar ile hypertextes Bir bağdaştırıcı bağdaştırıcısı vos liens için bir adaptör DrLig = Sütunlar (Sütun) .Bol ("*",,,, xlByColumns, xlPrevious) .Rign için Sıra = 1 DrLig için. Hücreler (Lign, Sütun). = 1 Sonra NomDuLien = Hücreler (Lign, Col). Köprüler (1). Adres. Hücreler (Lign, Col) .Hperperks. Sil. Hücreler (Lign, Sütun) .Clear ActiveSheet.Hyperlinks.Add Anchor: =. Cells ( Lign, Sütun), Adres: = NomDuLien, TextToDisplay: = NomDuLien End Bir Sonraki Lign End Sonu İle Sonlandırılıyorsa Bu kodu e-tablonuza uyarlayabilirsiniz.
ALT + F8 tuşlarına basın, "AfficheNomCompletLienHypertexte" öğesini seçin ve çalıştırın.
Pikaju'ya bu bahşiş için teşekkürler.