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:
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 |
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
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!