Bagaimana cara menghapus hyperlink tanpa menghapus format?
Di Excel, ketika kami menghapus hyperlink yang memiliki beberapa format, seperti warna latar belakang, font, ukuran, dan sebagainya, pemformatan akan dihapus serta gambar berikut ditampilkan. Namun, terkadang, kita perlu mempertahankan pemformatan sel saat menghapus hyperlink. Adakah cara untuk membantu kami mengatasi masalah yang mengganggu ini?
Hapus hyperlink tanpa menghapus format dengan kode VBA
Hapus hyperlink tanpa menghapus format dengan kode VBA
Di Excel, tidak ada cara langsung untuk menangani tugas ini, tapi Anda bisa menerapkan kode VBA berikut ini untuk mempertahankan pemformatan sel saat menghapus hyperlink.
1. Tahan ALT + F11 kunci untuk membuka Jendela Microsoft Visual Basic for Applications.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Jendela Modul.
Kode VBA: Hapus hyperlink tanpa menghapus format
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. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt akan muncul untuk mengingatkan Anda memilih sel yang berisi hyperlink, lihat tangkapan layar:
4. Dan kemudian klik OK untuk menutup dialog, hyperlink dihapus, tetapi pemformatan hyperlink (termasuk garis bawah) tetap ada.
Artikel terkait:
Bagaimana cara mengubah beberapa jalur hyperlink sekaligus di Excel?
Bagaimana cara mengekstrak alamat sebenarnya dari hyperlink di Excel?
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!