Artikel ini menunjukkan makro yang menyisipkan lembar kerja baru berdasarkan nama dalam rentang sel. Rentang sel mungkin memiliki beberapa kolom jika Anda mau Show
Makro ini memungkinkan Anda membuat lembar kerja baru dengan sangat cepat Daftar isi1. Buat lembar kerja baru secara terprogram berdasarkan nilai dalam rentang sel1. 1 Cara kerja makro iniGambar animasi di atas menunjukkan cara kerja makro ini
1. 2 makro VBA'Name macro Sub CreateSheets() 'Dimension variables and declare data types Dim rng As Range Dim cell As Range 'Enable error handling On Error GoTo Errorhandling 'Show inputbox to user and prompt for a cell range Set rng = Application.InputBox(Prompt:="Select cell range:", _ Title:="Create sheets", _ Default:=Selection.Address, Type:=8) 'Iterate through cells in selected cell range For Each cell In rng 'Check if cell is not empty If cell <> "" Then 'Insert worksheet and name the worksheet based on cell value Sheets.Add.Name = cell End If 'Continue with next cell in cell range Next cell 'Go here if an error occurs Errorhandling: 'Stop macro End Sub 1. 3 Di mana harus meletakkan kode
1. 4 Menjelaskan kodeMembuat prosedur di excel itu mudah. Buka Editor Visual Basic menggunakan salah satu petunjuk ini
Anda membuat prosedur makro dalam sebuah modul. Pertama buat modul. Tekan dengan tombol kanan mouse pada buku kerja Anda di penjelajah proyek. Tekan dengan tombol kiri mouse pada Sisipkan. Modul Sub Buat Lembar() Jenis. Sub CreateSheets() dalam modul. CreateSheets() adalah nama makro Dim rng As Range Baris-baris ini mendeklarasikan rng dan sel sebagai objek jangkauan. Objek rentang dapat berisi sel tunggal, banyak sel, kolom, atau baris. Baca lebih lanjut tentang mendeklarasikan variabel On Error Goto Errorhandling Jika pengguna memilih sesuatu selain rentang sel seperti bagan, baris ini membuat prosedur beralih ke Penanganan Kesalahan Atur rng = Aplikasi. Kotak Masukan(Prompt. ="Pilih rentang sel. ", _ Kotak input meminta pengguna untuk rentang sel. Rentang sel disimpan dalam objek rentang rng Untuk Setiap sel Di rng Ini menyimpan setiap nilai sel dari objek rentang rng ke objek sel, satu per satu Jika sel <> "" Lalu Memeriksa apakah variabel sel TIDAK kosong. Jika variabel sel kosong, prosedur berlanjut ke baris "End If". Kami tidak dapat membuat sheet tanpa nama Seprai. Menambahkan. Nama = sel Membuat lembar baru bernama dengan nilai yang disimpan dalam variabel sel Berakhir jika Akhir dari pernyataan If sel berikutnya Kembali ke pernyataan "Untuk setiap" dan simpan satu sel baru di objek sel Penanganan kesalahan Prosedur pergi ke baris ini jika baris mengembalikan kesalahan Akhir Sub Semua prosedur harus diakhiri dengan baris ini 1. 5 berkas ExcelDapatkan file ExcelBuat-beberapa-lembar dengan cepat. xlsm Bacaan yang disarankanDaftar semua buku kerja yang terbuka dan lembar yang sesuai (vba) 2. Buat lembar kerja baru secara terprogram berdasarkan daftar yang dibatasi komaGambar di atas menunjukkan daftar yang dibatasi koma di sel B2, makro di bawah di bagian 2. 1 memungkinkan Anda memilih sel yang berisi daftar pembatas koma Itu membagi string berdasarkan koma menjadi array nilai. Nilai tersebut kemudian digunakan untuk menyisipkan lembar kerja baru dengan nama berdasarkan nilai larik tersebut 2. 1 kode VBASub CreateSheetsFromList() Dim rng As Range Dim cell As Range Dim Arr As Variant On Error GoTo Errorhandling Set rng = Application.InputBox(Prompt:="Select cell:", _ Title:="Create sheets", _ Default:=Selection.Address, Type:=8) Arr = Split(rng.Value, ", ") For Each Value In Arr If Value <> "" Then Sheets.Add.Name = Value End If Next Value Errorhandling: End Sub_ 2. 2 berkas ExcelDapatkan file ExcelMembuat-beberapa-lembar dengan cepat v2. xlsm 3. Buat lembar kerja baru menggunakan kotak InputMakro berikut menampilkan kotak input yang memungkinkan pengguna Excel mengetikkan nama lembar kerja, lembar kerja dibuat saat tombol "OK" ditekan Makro berhenti jika tidak ada yang diketik atau pengguna menekan tombol "Batal". Ini menunjukkan kotak input baru setiap kali lembar kerja baru dibuat 3. 1 kode VBASub CreateSheetsFromDialogBox() Dim str As String Dim cell As Range Dim Arr As Variant On Error GoTo Errorhandling Do str = Application.InputBox(Prompt:="Type worksheet name:", _ Title:="Create sheets", Type:=3) If str = "" Or str = "False" Then GoTo Errorhandling: Else Sheets.Add.Name = str End If Loop Until str = "False" Errorhandling: End Sub 3. 2 berkas ExcelDapatkan file ExcelCepat-buat-banyak-lembar v3. xlsm 4. Salin templat lembar kerja dan ganti namanyaContoh ini menunjukkan makro Peristiwa yang menyalin lembar kerja berdasarkan nilai di sel E2 dan mengganti namanya menjadi nilai sel di kolom B Apakah mungkin untuk tidak hanya menghasilkan lembar baru dari mengetik di sel dan memberi nama lembar setelah sel tetapi membuat lembar baru menjadi salinan pada lembar saat ini yang seperti templat untuk formulir? 4. 1 kode peristiwa VBA'Event code that runs if a cell value is changed Private Sub Worksheet_Change(ByVal Target As Range) 'Check if the cell value is in column B If Not Intersect(Target, Range("B:B")) Is Nothing Then 'Copy worksheet based on value in cell E2 in worksheet Sheet1 and put it last Sheets(Worksheets("Sheet1").Range("E2").Value).Copy , Sheets(Sheets.Count) 'Rename worksheet to the value you entered. ActiveSheet.Name = Target.Value End If 'Go back to worksheet Sheet1 Worksheets("Sheet1").Activate End Sub 4. 2 Di mana harus meletakkan kode acara?
Ingatlah untuk menyimpan buku kerja sebagai buku kerja dengan makro aktif *. xlsm untuk melampirkan kode ke buku kerja 4. 3 Bagaimana cara menjalankan makro?Kode peristiwa berjalan setiap kali nilai baru dimasukkan di kolom B. Misalnya, ketik Tren di sel B5, lalu tekan Enter Makro secara otomatis menyalin lembar kerja "Template" yang diberikan di sel E2 dan mengganti namanya menjadi Trend. Itu semuanya kategori MakroTambahkan atau hapus nilai dalam daftar drop-down secara terprogram Tambahkan nilai ke daftar drop-down reguler secara terprogram Menambahkan nilai ke tabel dua dimensi berdasarkan kondisi [VBA] Tambahkan nilai ke lembar kerja berdasarkan kondisi [VBA] Terapkan daftar drop-down secara dinamis Ubah ukuran kolom secara otomatis saat Anda mengetik Mengotomatiskan entri data [VBA] Entri data dasar [VBA] Kalender dengan penjadwalan [vba] Mengubah rentang data bagan menggunakan Drop Down List [VBA] Ubah seri bagan dengan mengklik data [VBA] Klik sel untuk membuat kolom disembunyikan atau terlihat [VBA] Gabungkan lembar [vba] Salin rentang sel dinamis [VBA] Salin data dari buku kerja di folder dan subfolder Salin kriteria filter Tabel Excel secara terprogram Salin lembar kerja di buku kerja aktif ke buku kerja baru Hitung string teks di semua rumus di lembar kerja [VBA] Buat tombol Cetak [VBA] Buat daftar berbeda yang unik menggunakan Filter Lanjutan di makro [VBA] Buat komentar jika nilai sel lebih besar dari kolom Sesuaikan pita dan cara menambahkan makro Anda Edit data faktur [VBA] Kalender Excel [VBA] Templat Excel. Menyelesaikan Segalanya [VBA] Ekstrak referensi sel yang diisi dengan nilai [VBA] Filter Tabel yang ditentukan Excel berdasarkan sel yang dipilih [VBA] Filter Tabel yang ditentukan Excel secara terprogram [VBA] Temukan sel yang berisi rumus dengan nilai literal (hardcoded). Temukan nilai berulang paling banyak/paling sedikit [VBA] Sembunyikan kolom tertentu secara terprogram Sembunyikan lembar kerja tertentu secara terprogram Sorot rentang tanggal yang tumpang tindih dengan rekaman yang dipilih [VBA] Cara menambahkan item yang dibuat khusus ke menu pintasan [VBA] Cara menambahkan makro ke Bilah Alat Akses Cepat Excel Anda Cara mengubah gambar di lembar kerja secara dinamis [VBA] Cara menyalin setiap baris ke-n dari daftar Cara menyalin tabel Excel secara terprogram Cara menyalin rentang sel yang tidak berdekatan Cara membuat daftar komentar dari lembar kerja secara terprogram Cara membuat bagan Excel interaktif [VBA] Cara menyorot baris sel yang dipilih secara terprogram Cara masuk saat buku kerja dibuka dan ditutup [VBA] Cara cepat memilih sel kosong Cara menyimpan fungsi dan makro kustom ke Add-In Cara menyimpan beberapa lembar kerja tertentu ke file pdf secara terprogram Cara menggunakan KOTAK DIALOG Cara menggunakan Bilah Gulir Identifikasi nomor yang hilang dalam kolom Daftar semua buku kerja yang terbuka dan lembar yang sesuai [VBA] Mencantumkan Tabel yang ditentukan Excel dalam buku kerja [VBA] Temukan bentuk di buku kerja Memindahkan bentuk [VBA] Kalikan angka di setiap baris dengan sisa baris dalam rentang sel (UDF) Normalisasikan data [VBA] Buka file Excel di folder [VBA] Membuka buku kerja akan menjalankan makro secara otomatis Mengisi kotak kombo (kontrol formulir) [VBA] Mengisi kotak kombo dengan nilai dari tabel pivot [VBA] Mengisi kotak daftar dengan nilai berbeda yang unik dari tabel Excel yang difilter [VBA] Mengisi kotak daftar dengan nilai berbeda yang unik [VBA] Menyiapkan data untuk Tabel Pivot – Bagaimana cara membagi nilai gabungan? Atur ulang nilai berdasarkan kategori [VBA] Jalankan Makro dari daftar Drop Down [VBA] Simpan data faktur [VBA] Cari dua tabel terkait [VBA] Pilih dan lihat faktur [VBA] Pilih sel A1 di semua lembar sebelum Anda menutup buku kerja [VBA] Tampilkan / sembunyikan gambar menggunakan tombol Mengurutkan nilai dalam sel berdasarkan karakter pembatas Mengurutkan nilai dalam tabel Excel secara terprogram [VBA] Pisahkan data di beberapa lembar [VBA] Mengaktifkan/menonaktifkan makro menggunakan tombol Gunakan qualifier teks untuk memudahkan konversi teks ke kolom [VBA] Bekerja dengan COMBO BOXES [Kontrol Bentuk] Bekerja dengan FILE Bekerja dengan KOTAK TEKS [Kontrol Formulir] kategori ExcelHalaman rumah Artikel terupdate terbaru Fungsi Excel Lebih dari 300 fungsi Excel dengan informasi mendetail termasuk sintaks, argumen, nilai kembalian, dan contoh untuk sebagian besar fungsi yang digunakan dalam rumus Excel Formula Excel Lebih dari 1300 formula disusun dalam subkategori Tabel Excel Tabel Excel menyederhanakan pekerjaan Anda dengan data, menambah atau menghapus data, memfilter, menjumlahkan, menyortir, meningkatkan keterbacaan menggunakan pemformatan sel, referensi sel, rumus, dan lainnya Filter Lanjutan Memungkinkan Anda memfilter data berdasarkan nilai yang dipilih , teks tertentu, atau kriteria lainnya. Ini juga memungkinkan Anda memfilter data yang ada atau memindahkan nilai yang difilter ke lokasi baru Validasi data Memungkinkan Anda mengontrol apa yang dapat diketik pengguna ke dalam sel. Ini memungkinkan Anda menentukan kondisi dan menampilkan pesan khusus jika data yang dimasukkan tidak valid Daftar Turun Memungkinkan pengguna bekerja lebih efisien dengan menampilkan daftar yang nilainya dapat dipilih pengguna. Ini memungkinkan Anda mengontrol apa yang ditampilkan dalam daftar dan lebih cepat daripada mengetik ke dalam sel Rentang bernama Memungkinkan Anda menamai satu sel atau lebih, ini memudahkan untuk menemukan sel menggunakan kotak Nama, membaca dan memahami rumus yang berisi nama, bukan referensi sel Pemecah Excel Excel Solver adalah add-in gratis yang menggunakan sel objektif, batasan berdasarkan rumus pada lembar kerja untuk melakukan analisis bagaimana-jika dan masalah keputusan lainnya seperti permutasi dan kombinasi Bagan Fitur Excel yang memungkinkan Anda memvisualisasikan data dalam grafik Pemformatan Bersyarat Memformat sel atau nilai sel berdasarkan kondisi atau kriteria, ada beberapa alat Pemformatan Bersyarat bawaan yang dapat Anda gunakan atau gunakan rumus pemformatan bersyarat yang dibuat khusus Tabel pivot Memungkinkan Anda dengan cepat meringkas sejumlah besar data dengan cara yang sangat ramah pengguna. Fitur Excel yang kuat ini memungkinkan Anda menganalisis, mengatur, dan mengkategorikan data penting secara efisien VBA VBA adalah singkatan dari Visual Basic for Applications dan merupakan bahasa pemrograman komputer yang dikembangkan oleh Microsoft, memungkinkan Anda untuk mengotomatiskan tugas yang memakan waktu dan membuat fungsi khusus Makro Program atau subrutin bawaan VBA yang dapat dibuat oleh siapa saja. Gunakan perekam makro untuk membuat makro VBA Anda sendiri dengan cepat UDF UDF adalah singkatan dari User Defined Functions dan merupakan fungsi yang dibuat khusus yang dapat dibuat oleh siapa saja Arsip Daftar semua artikel yang diterbitkan 15 Tanggapan untuk “Buat lembar kerja baru secara terprogram berdasarkan nilai dalam rentang sel [VBA]”
|