Daftar Isi:
Video: Membuat Pengkodean Otomatis 2024
Jika Anda menggunakan banyak sel dan rentang yang disebutkan dalam buku kerja Anda, mungkin Anda akan terkejut saat mengetahui bahwa Excel tidak menyediakan daftar rincian masing-masing nama. Informasi yang berguna muncul di kotak dialog Name Manager, namun tidak ada cara untuk menampilkan informasi ini dengan cara yang dapat dicetak.
Kode VBA yang ditawarkan di sini menghasilkan laporan berguna yang menjelaskan nama-nama yang didefinisikan dalam buku kerja manapun.
Contoh Laporan Nama
Di sini, Anda melihat contoh Laporan Nama.
Laporan, yang dibuat di lembar kerja baru, mencakup informasi berikut untuk setiap nama:
-
Nama: Nama.
-
RefersTo: Definisi untuk namanya. Biasanya, ini akan menjadi sel atau rentang, tapi sebuah nama juga bisa mendefinisikan rumus.
-
Sel: Jumlah sel yang terkandung dalam kisaran bernama. Untuk formula yang disebut, bidang ini menampilkan # N / A.
-
Ruang Lingkup: Lingkup nama - baik Workbook, atau nama lembar kerja spesifik yang menjadi nama namanya.
-
Hidden: Benar jika namanya disembunyikan. Nama tersembunyi dibuat oleh beberapa add-in (seperti Solver), dan tidak muncul di kotak dialog Name Manager.
-
Error: Benar jika namanya mengandung referensi yang keliru.
-
Link: Sebuah hyperlink yang, saat diklik, mengaktifkan kisaran bernama. Hanya nama yang merujuk ke sel atau rentang termasuk tautan.
-
Komentar: Komentar untuk nama, jika ada.
Kode VBA
Untuk menggunakan kode ini, tekan Alt + F11 untuk mengaktifkan Editor Visual Basic. Kemudian pilih Insert → Module untuk menyisipkan modul VBA baru. Salin kode dan tempelkan ke modul baru.
Sub GenerateNameReport () 'Menghasilkan laporan untuk semua nama di buku kerja' (Tidak termasuk nama Tabel) Dim n Sebagai Nama Dim Row Sebagai Long Dim CellCount Sebagai Varian 'Keluar jika tidak ada nama Jika ActiveWorkbook. Nama Count = 0 Then MsgBox "Workbook yang aktif tidak memiliki nama yang pasti. "Keluar Sub Akhir Jika 'Keluar jika buku kerja terlindungi Jika ActiveWorkbook. ProtectStructure Then MsgBox "Lembar baru tidak bisa ditambahkan karena buku kerja terlindungi. "Exit Sub End If 'Masukkan lembar baru untuk laporan ActiveWorkbook. Lembar kerja. Tambahkan ActiveSheet. Pindah Setelah: = Lembar (ActiveWorkbook. Sheets. Count) ActiveWindow. DisplayGridlines = False 'Tambahkan baris pertama dari title Range ("A1: H1"). Gabungkan Dengan Rentang ("A1"). Nilai = "Nama Laporan untuk:" & ActiveWorkbook. Nama. Font. Ukuran = 14. Font. Bold = Benar HorizontalAlignment = xlCenter End With 'Tambahkan baris kedua dari title Range ("A2: H2"). Gabungkan Dengan Rentang ("A2"). Nilai = "Generated" & Now. HorizontalAlignment = xlCenter End With 'Tambahkan header Rentang ("A4: H4") = Array ("Name", "RefersTo", "Cells", _ "Scope", "Hidden", "Error", "Link", " Komentar ") 'Loop melalui nama Row = 4 On Error Resume Next Untuk Setiap n Dalam ActiveWorkbook.Nama Baris = Baris + 1 'Kolom A: Nama Jika n. Nama seperti "*! * "Then Cells (Row, 1) = Split (n Nama,"! ") (1) 'Hapus nama sheet Else Cells (Row, 1) = n. Nama Akhir Jika 'Kolom B: RefersTo Cells (Baris, 2) = "'" & n. Mengalikan 'Kolom C: Jumlah sel CellCount = CVErr (xlErrNA)' Kembalikan nilai untuk formula bernama CellCount = n. RefersToRange. Sel Hitung Besar (Baris, 3) = Kolom CellCount D: Ruang Lingkup Jika n. Nama seperti "*! * "Then Cells (Row, 4) = Split (n Nama,"! ") (0) 'ekstrak nama sel Sel (Baris, 4) = Ganti (Sel (Baris, 4),"' "," ") 'hapus tanda kutip Else Cells (Baris, 4) = "Workbook" End If' Kolom E: Status tersembunyi Sel (Baris, 5) = Tidak n. Terlihat 'Kolom F: Nama yang salah Sel (Baris, 6) = n. RefersTo Like "* [#] REF! Kolom G: Hyperlink Jika Tidak Berfungsi. IsNA (Sel (Baris, 3)) Kemudian ActiveSheet. Hyperlink. Tambahkan _ Anchor: = Sel (Baris, 7), _ Alamat: = "", _ SubAddress: = n. Nama, _ TextToDisplay: = n. Nama Akhir Jika 'Kolom H: Sel Komentar (Baris, 8) = n. Komentar Selanjutnya n 'Konversikan ke tabel ActiveSheet. ListObjects. Tambahkan _ SumberType: = xlSrcRange, _ Sumber: = Range ("A4"). CurrentRegion 'Sesuaikan lebar kolom Kolom ("A: H"). Seluruh kolom. AutoFit End Sub
Membangkitkan sebuah Laporan
Jalankan prosedur GenerateNameReport, dan laporan dihasilkan pada lembar kerja baru di buku kerja yang aktif. Kode tidak harus berada di buku kerja yang berisi nama untuk laporan.
Jika Anda merasa kode ini berguna, Anda mungkin ingin menyimpannya di Buku Kerja Makro Pribadi Anda, atau membuat add-in.
