Loncat ke daftar isi utama

Bagaimana cara mengganti nama rentang dengan referensi sel di Excel?

Beberapa orang lebih suka menggunakan banyak nama rentang dalam rumus mereka karena mereka merasa lebih jelas dan mudah untuk dibaca dan dipahami. Tetapi jika Anda ingin melihat referensi sel yang sebenarnya, bagaimana yang harus Anda lakukan? Di sini tutorial ini akan memperkenalkan dua trik cepat untuk mengatasi masalah ini.

Ganti nama rentang dengan kode VBA;

Ganti nama rentang dengan cepat dan mudah dengan Kutools for Excel.

Misalnya, di lembar kerja ini, saya akan menamai rentang A2: A6 sebagai harga penjualan, dan beri nama B2 sebagai diskon, lalu menggunakan kedua nama rentang dalam rumus untuk menghitung harga baru. Lihat tangkapan layar:

           

Setelah mengikuti trik cepat, nama range akan diganti dengan referensi sel seperti yang ditunjukkan di bawah ini:


panah gelembung kanan biru Ganti nama rentang dengan kode VBA

Menggunakan VBA untuk mengganti nama rentang rumus dengan referensi sel, Anda bisa menyelesaikannya selangkah demi selangkah sebagai berikut:

1. Pilih rentang yang berisi rumus yang ingin Anda ganti namanya dengan referensi sel.

2. klik Pengembang > Visual Basic or Alt + F11 untuk membuka yang baru Microsoft Visual Basic untuk aplikasi jendela akan ditampilkan, klik Menyisipkan>Modul, lalu masukkan kode berikut di modul:

Kode VBA: Ganti nama rentang dengan referensi Mutlak

Sub AbsoleteNamesWithRelativeRefs()
'Updateby20140603
Dim Rng As Range
Dim WorkRng As Range
Dim xName As Name
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeFormulas)
For Each Rng In WorkRng
    For Each xName In ThisWorkbook.Names
        If InStr(Rng.Formula, xName.Name) > 0 Then
            Rng.Formula = VBA.Replace(Rng.Formula, xName.Name, VBA.Replace(VBA.Replace(xName.RefersTo, "=", ""), "$", ""))
        End If
    Next
Next
End Sub

Kode VBA: Ganti nama rentang dengan referensi relatif

Sub ReplaceNamesWithRelativeRefs()
'Updateby20140603
Dim Rng As Range
Dim WorkRng As Range
Dim xName As Name
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeFormulas)
For Each Rng In WorkRng
    For Each xName In ThisWorkbook.Names
        If InStr(Rng.Formula, xName.Name) > 0 Then
            Rng.Formula = VBA.Replace(Rng.Formula, xName.Name, VBA.Replace(xName.RefersTo, "=", ""))
        End If
    Next
Next
End Sub

3. Lalu klik  tombol untuk menjalankan kode, dialog ditampilkan untuk memilih rentang untuk diganti. Lihat tangkapan layar:

4. Lalu klik OK. dan semua nama rentang rumus yang dipilih telah diganti. Lihat tangkapan layar:

 

Ganti nama rentang dengan referensi sel relatif

 

Ganti nama rentang dengan referensi sel absolut



panah gelembung kanan biru Ganti nama rentang dengan cepat dan mudah dengan Kutools for Excel

Jika Anda memiliki Kutools untuk Excel, nya Ganti Nama Rentang utilitas akan membantu Anda mengganti nama rentang dengan referensi sel dengan cepat dan mudah.

Kutools untuk Excel: dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. Dapatkan Sekarang

Langkah 1. Silakan terapkan utilitas ini dengan mengklik Kutools > Alat lainnya > Ganti Nama Rentang. Lihat tangkapan layar:

Langkah 2. Dialog pop-up bernama Ganti Nama Rentang ditampilkan, dan klik Jarak bagian dan lalu pilih rentang yang ingin Anda ganti dengan referensi sel dari Rentang Dasar. Lihat tangkapan layar:

Langkah 3. Klik menggantikan, Lain Ganti Nama Rentang dialog pop-up akan ditampilkan untuk memberi tahu Anda jumlah rumus yang dimodifikasi dan rumus yang tidak diubah, klik Ok, dan kemudian nama rentang dalam der yang dipilih telah diganti dengan referensi sel. Lihat tangkapan layar:

Untuk informasi lebih rinci tentang Ganti Nama Rentang, Silakan kunjungi Deskripsi fitur Replace Range Names.


Artikel Relatif:

Ubah referensi sel dalam rumus menjadi nama rentang di Excel

Alat Produktivitas Kantor Terbaik

🤖 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

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...

Deskripsi Produk


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!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Muchas gracias por el post! Me ha funcionado la macro perfectamente, una ayuda buenísima
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations