Biçimlendirmeyi kaldırmadan köprüler nasıl kaldırılır?
Excel'de, arka plan rengi, yazı tipi, boyut vb. Gibi bazı biçimlendirmeleri olan köprüleri sildiğimizde, biçimlendirme ve aşağıdaki gösterilen ekran görüntüsü kaldırılacaktır. Ancak bazen köprüleri kaldırırken hücre biçimlendirmesini korumamız gerekir. Bu sinir bozucu sorunu çözmemize yardımcı olacak herhangi bir yol var mı?
VBA kodu ile biçimlendirmeyi kaldırmadan köprüleri kaldırın
VBA kodu ile biçimlendirmeyi kaldırmadan köprüleri kaldırın
Excel'de, bu görevle başa çıkmanın doğrudan bir yolu yoktur, ancak köprüleri kaldırırken hücre biçimlendirmesini korumak için aşağıdaki VBA kodunu uygulayabilirsiniz.
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic penceresi.
2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.
VBA kodu: Biçimlendirmeyi kaldırmadan köprüleri kaldırın
Sub RemoveHlinks()
'Update 20141024
Dim Rng As Range
Dim WorkRng As Range
Dim TempRng As Range
Dim UsedRng As Range
Dim xLink As Hyperlink
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set UsedRng = Application.ActiveSheet.UsedRange
For Each xLink In WorkRng.Hyperlinks
Set TempRng = Cells(1, UsedRng.Column + UsedRng.Columns.Count)
Set Rng = xLink.Range
Rng.Copy TempRng
Rng.ClearHyperlinks
Set TempRng = TempRng.Resize(Rng.Rows.Count, Rng.Columns.Count)
TempRng.Copy
Rng.PasteSpecial xlPasteFormats
TempRng.Clear
Next
End Sub
3. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için bir anahtar ve köprüleri içeren hücreleri seçmenizi hatırlatmak için bir komut kutusu açılır, ekran görüntüsüne bakın:
4. Ve sonra tıklayın OK iletişim kutusunu kapatmak için köprüler kaldırılır, ancak köprülerin biçimlendirmesi (alt çizgiler dahil) kalır.
İlgili yazılar:
Excel'de aynı anda birden çok köprü yolu nasıl değiştirilir?
Excel'deki köprülerden gerçek adresler nasıl çıkarılır?
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!