Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk menghapuskan hiperpautan tanpa mengeluarkan format?

Dalam Excel, apabila kami memadam hyperlink yang mempunyai beberapa pemformatan, seperti warna latar belakang, font, saiz dan sebagainya, pemformatan akan dialih keluar serta petikan berikut yang ditunjukkan. Tetapi, kadang-kadang, kita perlu mengekalkan pemformatan sel apabila mengeluarkan hiperpautan. Adakah terdapat cara untuk membantu menyelesaikan masalah ini?

doc-remove-hyperlinks-without-format-1 -2 doc-remove-hyperlinks-without-format-2

Keluarkan hyperlink tanpa mengeluarkan format dengan kod VBA


anak panah gelembung kanan biru Keluarkan hyperlink tanpa mengeluarkan format dengan kod VBA


Di Excel, tidak ada cara langsung untuk menangani tugas ini, tetapi anda boleh menggunakan kod VBA berikut untuk memelihara pemformatan sel apabila mengeluarkan hyperlink.

1. Tahan ALT + F11 kunci untuk membuka Tetingkap Microsoft Visual Basic untuk Aplikasi.

2. Klik Memasukkan > Modul, dan tampal kod berikut dalam Modul Window.

Kod VBA: Keluarkan hyperlink tanpa mengeluarkan 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. Kemudian tekan F5 kunci untuk menjalankan kod ini, dan kotak prompt akan muncul untuk mengingatkan anda memilih sel yang mengandungi hiperpautan, lihat tangkapan skrin:

doc-remove-hyperlinks-without-format-3

4. Kemudian klik OK untuk menutup dialog, hyperlink dikeluarkan, tetapi pemformatan hyperlink (termasuk garis bawah) kekal.


Related articles:

Bagaimana untuk menukar laluan hyperlink berbilang sekaligus dalam Excel?

Bagaimana cara mengekstrak alamat sebenar dari hiperpautan dalam Excel?



Cadangan Alat Produktiviti untuk Excel

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Murray Neish · 1 years ago
    thanks for the code. I have a couple of suggested enhancements:

    declare xTitleId as String for those that use Option Explicit (otherwise throws an error)

    Between Rng.PasteSpecial xlPasteFormats and TempRng.Clear, I inserted the following:

    With Rng.Font
    .Underline = xlUnderlineStyleNone
    .ColorIndex = xlAutomatic
    End With

    This removes the underline and changes the font color back to black, so the text does not look like a hyperlink anymore.
  • To post as a guest, your comment is unpublished.
    Dan · 2 years ago
    Hi,

    does ClearHyperlinks work with merged cells? thank you
  • To post as a guest, your comment is unpublished.
    Dave · 4 years ago
    Thanks, this worked perfectly. Saved me tons of time!
G|translate Your license is inactive or expired, please subscribe again!