Bagaimana cara menghapus konten dari rentang bernama di Excel?
Artikel ini akan menunjukkan kepada Anda metode untuk menghapus konten dari rentang bernama tertentu serta menghapus konten dari semua rentang bernama tetapi menyimpan nama rentang dalam lembar kerja aktif di Excel.
Hapus konten dari rentang bernama dengan kode VBA
Hapus konten dari rentang bernama dengan kode VBA
Harap lakukan hal berikut untuk menghapus konten dari rentang bernama tertentu atau semua rentang bernama di lembar kerja saat ini.
1. Dalam lembar kerja yang berisi rentang bernama Anda akan menghapus isinya, tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul. Kemudian salin kode VBA di bawah ini ke jendela Kode.
Untuk menghapus konten dari rentang nama yang ditentukan di lembar kerja, harap gunakan kode VBA di bawah ini.
Kode VBA 1: Hapus konten dari rentang nama tertentu di Excel
Sub Clear_ActiveSheet_Name_Ranges()
Dim xName As Name
Dim xInput As String
Dim xRg As Range
On Error Resume Next
xInput = Application.InputBox("Enter the name of the named range you will clear contents from:", "KuTools For Excel", , , , , , 2)
If xInput = "False" Then Exit Sub
Application.ScreenUpdating = False
Set xName = ActiveWorkbook.Names(xInput)
If Not xName Is Nothing Then
xName.RefersToRange.Clear
End If
Application.ScreenUpdating = True
End Sub
3. tekan F5 kunci untuk menjalankan kode.
4. Kemudian a Kutools untuk Excel kotak dialog muncul. Harap masukkan nama dari rentang bernama yang akan Anda hapus isinya, lalu klik OK tombol. Lihat tangkapan layar:
Kemudian semua konten dalam sel dari rentang bernama yang ditentukan segera dihapus.
Untuk menghapus konten dari semua rentang bernama di lembar kerja aktif, silakan gunakan kode VBA di bawah ini.
Kode VBA 2: Hapus konten dari semua rentang bernama di lembar aktif di Excel
Sub Clear_All_ActiveSheet_Name_Ranges()
Dim xRange As Range
Dim xName As Name
Dim xReSponse As Long
On Error Resume Next
xReSponse = MsgBox("For clearing contents of all named ranges of active sheet in " & ActiveWorkbook.Name _
& Chr(10) & "('OK' to Delete, 'Cancel' to Quit.)", vbOKCancel, "KuTools For Excel")
If xReSponse = 2 Then
MsgBox "User chose to cancel.", vbOKOnly, "KuTools For Excel"
Exit Sub
End If
For Each xName In ActiveWorkbook.Names
Set xRange = Nothing
Set xRange = Intersect(ActiveSheet.UsedRange, xName.RefersToRange)
If Not xRange Is Nothing Then xRange.Clear
Next xName
Application.ScreenUpdating = True
End Sub
3. tekan F5 kunci untuk menjalankan kode, lalu klik OK tombol di Kutools untuk Excel kotak dialog seperti gambar di bawah ini yang ditampilkan.
Kemudian isi dari semua rentang bernama dihapus dari lembar aktif.
Artikel terkait:
- Bagaimana cara menghapus isi kotak kombo dengan kode VBA di Excel?
- Bagaimana cara menghapus konten dan pemformatan pada saat yang sama dalam sel di Excel?
- Bagaimana cara menghapus nilai yang dibatasi dalam sel di Excel?
- Bagaimana cara menghapus konten sel tertentu jika nilai sel lain berubah di Excel?
- Bagaimana cara menghapus konten sel tertentu saat dibuka dan keluar di buku kerja 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!