Ganti nama tab excel dengan tanggal

Halo semua,
Saya mencoba google sehari untuk menyelesaikan masalah ini tetapi tidak berhasil. Adakah yang bisa membantu saya untuk memberi saya solusi?
Bagaimana saya bisa mengganti nama beberapa lembar kerja (dari sheet2) dari nilai kolom (Tanggal) seperti foto yang dilampirkan dengan menggunakan kode VBA?
Terima kasih

Selamat datang di Dewan

Apakah sudah ada cukup tab (lembar kerja) di buku kerja untuk menampung semua tanggal?
Apakah kita akan selalu memulai dengan lembar kedua, dan apakah lembar yang ada selalu diberi nama 1,2,3,. ?

kata Joe4

Selamat datang di Dewan

Apakah sudah ada cukup tab (lembar kerja) di buku kerja untuk menampung semua tanggal?
Apakah kita akan selalu memulai dengan lembar kedua, dan apakah lembar yang ada selalu diberi nama 1,2,3,. ?

Klik untuk meluaskan

Coba ini

Kode VBA

Sub MyRenameSheets()

    Dim s As Long
    Dim lr As Long
    Dim r As Long

'   Find the last row in column A with data
    lr = Sheets("Fill-In").Cells(Rows.Count, "A").End(xlUp).Row
    
'   Initialize first sheet to rename
    s = 2
    
'   Loop through all rows with data on Fill-In sheeting start in A20
    For r = 20 To lr
        Sheets(s).Name = Format(Sheets("Fill-In").Cells(r, "A"), "dd-mm-yy")
        s = s + 1
    Next r
    
End Sub

kamu adalah legenda
berhasil

Terima kasih banyak

Sama sama
Senang saya bisa membantu

Dengan perintah Ganti nama ini, Anda hanya dapat mengganti nama satu lembar kerja dalam satu waktu, untuk tujuan mengganti nama beberapa lembar kerja, harap ulangi operasi di atas

Ganti nama beberapa lembar kerja dengan mudah dengan teks tertentu, nilai sel, atau nilai sel tertentu di setiap lembar

Utilitas Ganti Nama Beberapa Lembar Kerja dari Kutools for Excel dapat membantu Anda dengan mudah mengganti nama beberapa lembar kerja sekaligus di Excel
Unduh sekarang. ( 30 -hari bebas jejak)

Menggunakan kode VBA untuk mengganti nama beberapa lembar kerja

Di sini saya akan memperkenalkan dua kode VBA untuk mengganti nama beberapa lembar kerja

1. Kode VBA untuk mengganti nama beberapa lembar kerja dengan nama yang Anda inginkan sekaligus

Menggunakan kode VBA berikut, Anda bisa dengan cepat mengganti nama semua lembar kerja dari buku kerja saat ini dengan awalan yang sama di nama lembar kerjanya, seperti. KTE-order1, KTE-order 2, dan KTE-order 3…

1. Klik Pengembang > Visual Basic, dan klik Sisipkan > Modul di Windows Aplikasi Microsoft Visual Basic

2. Silakan salin dan tempel kode berikut ke dalam Modul

VBA. Ganti nama semua sheet dengan memasukkan nama tertentu

Sub ChangeWorkSheetName()
'Updateby20140624
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
newName = Application.InputBox("Name", xTitleId, "", Type:=2)
For i = 1 To Application.Sheets.Count
    Application.Sheets(i).Name = newName & i
Next
End Sub

3. Klik tombol 

4. Klik Oke. Kemudian Anda dapat melihat semua lembar diganti namanya

2. Kode VBA untuk mengganti nama beberapa lembar kerja dengan nilai sel tertentu di setiap lembar kerja dari buku kerja yang aktif

Menggunakan kode VBA berikut, itu akan mengganti nama semua lembar kerja dari buku kerja saat ini dengan menggunakan konten sel tertentu. Misalnya, Anda bisa mengetikkan nama lembar kerja di sel A1 dari seluruh buku kerja, lalu lembar kerja akan diganti namanya menjadi nilai sel A1

1. Harap tentukan sel untuk memuat nama lembar kerja di setiap lembar kerja dan ketikkan nama lembar kerja di dalamnya. Dalam contoh ini, saya akan mengetikkan nama lembar kerja di sel A1 di setiap lembar kerja

2. Klik Pengembang > Visual Basic, dan klik Sisipkan > Modul di Windows Aplikasi Microsoft Visual Basic

3. Silakan salin dan tempel kode berikut ke dalam Modul

VBA. Ganti nama lembar kerja dengan konten sel tertentu

Sub RenameTabs()
'Updateby20140624
 For x = 1 To Sheets.Count
 If Worksheets(x).Range("A1").Value <> "" Then
 Sheets(x).Name = Worksheets(x).Range("A1").Value
 End If
 Next
 End Sub

4. Klik tombol 

Catatan

1. Pada kode di atas, A1 adalah konten sel yang ingin Anda ganti namanya berdasarkan lembar kerja, Anda dapat mengubahnya sesuai kebutuhan

2. Jika sel tertentu tidak memiliki konten, maka lembar kerja sel tertentu tidak akan diganti namanya

Menggunakan alat praktis untuk mengganti nama beberapa lembar kerja dengan nyaman

Alat Ganti Nama Beberapa Lembar Kerja dari Kutools for Excel cukup berguna untuk mengganti nama semua lembar kerja atau memilih lembar kerja tertentu dari buku kerja saat ini

Dengan alat ini, Anda dapat dengan cepat mengganti nama semua lembar kerja atau memilih lembar kerja tertentu dengan menambahkan konten tambahan sebelum atau sesudah nama lembar kerja yang ada atau mengganti nama lembar asli dengan nama baru. Anda juga bisa mengganti nama semua lembar kerja atau lembar kerja yang dipilih dengan menggunakan konten sel rentang

1. Ganti nama beberapa lembar kerja dengan data spesifik dengan menggunakan Kutools for Excel

Dengan alat Ganti Nama Beberapa Lembar Kerja ini, Anda dapat dengan mudah mengganti nama lembar kerja dengan nilai tertentu yang dapat Anda letakkan sebelum atau sesudah nama lembar kerja asli, Anda juga dapat mengganti yang asli dengan nilai tertentu. Lakukan sebagai berikut

1. Klik Kutools Plus > Lembar kerja > Ganti Nama Lembar Kerja. Lihat tangkapan layar

2. Tentukan pengaturan di kotak dialog Rename Multiple Worksheets. Lihat tangkapan layar

1. Pilih lembar kerja yang ingin Anda ganti namanya dari daftar Lembar Kerja

2. Pilih satu jenis yang ingin Anda ganti namanya pada lembar kerja di bawah Opsi Ganti Nama

3. Masukkan nilai spesifik ke dalam Dari kotak masukan

3. Dan kemudian klik OK. Anda akan mendapatkan hasil berikut

2. Ganti nama beberapa lembar kerja dengan nilai sel dengan menggunakan Kutools for Excel

Jika Anda memiliki rentang nilai sel, dan sekarang Anda perlu mengganti nama lembar kerja dengan nilai sel, utilitas ini juga dapat membantu Anda dengan cepat mengganti nama beberapa lembar kerja dengan nilai sel tertentu. Tolong lakukan seperti ini

1. Terapkan utilitas ini dengan mengklik Perusahaan > Lembar Kerja > Ganti Nama Beberapa Lembar Kerja. Dan di kotak dialog Rename Multiple Worksheets, tentukan pengaturan berikut

1. Pilih lembar kerja yang ingin Anda ganti namanya dari daftar Lembar Kerja

2. Pilih satu jenis yang ingin Anda ganti namanya pada lembar kerja di bawah Opsi Ganti Nama

3. Klik tombol 

3. Dan kemudian klik OK. Anda akan mendapatkan hasil berikut

3. Ganti nama beberapa lembar kerja dengan nilai sel tertentu di setiap lembar kerja dengan menggunakan Kutools for Excel

Untuk mengganti nama lembar kerja dengan nilai sel tertentu di setiap lembar kerja, Kutools for Excel's Rename Multiple Worksheets juga dapat membantu Anda, lakukan hal berikut

1. Terapkan utilitas ini dengan mengklik Perusahaan > Lembar Kerja > Ganti Nama Beberapa Lembar Kerja. Dan di kotak dialog Rename Multiple Worksheets, tentukan pengaturan berikut

1. Pilih lembar kerja yang ingin Anda ganti namanya dari daftar Lembar Kerja

2. Pilih satu jenis yang ingin Anda ganti namanya pada lembar kerja di bawah Opsi Ganti Nama

3. Klik tombol 

2. Lalu klik Ok tombol, nama lembar kerja telah diganti namanya dengan nilai sel tertentu di setiap lembar kerja, lihat tangkapan layar

  Jika Anda ingin mendapatkan uji coba gratis ( 30 -hari) utilitas ini, klik untuk mendownloadnya, lalu buka .

Demo. Ganti nama beberapa lembar kerja dengan Kutools for Excel

Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

• Gunakan kembali. Masukkan dengan cepat rumus kompleks, bagan  dan apa pun yang pernah Anda gunakan sebelumnya; . Encrypt Cells with password; Create Mailing List and send emails...
• Super Formula Bar (mengedit beberapa baris teks dan formula dengan mudah); . Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
• Menggabungkan Sel/Baris/Kolom tanpa kehilangan Data; . Cegah Sel Duplikat; . Combine Duplicate Rows/Columns.. Prevent Duplicate Cells; Compare Ranges...
• Pilih Baris Duplikat atau Unik ; . Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
• Exact Copy Beberapa Sel tanpa mengubah referensi rumus; . Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
• Ekstrak Teks , Tambah Teks, Hapus berdasarkan Posisi, Hapus Spasi ; . Convert Between Cells Content and Comments...
• Filter Super (simpan dan terapkan skema filter ke sheet lain); . Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
• Menggabungkan Buku Kerja dan Lembar Kerja ; . Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
• Lebih dari 300 fitur canggih . Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.

Baca selengkapnya. Download Gratis. Pembelian.  

Office Tab Menghadirkan antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Lebih Mudah

• Aktifkan pengeditan dan pembacaan bertab 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 hingga 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari

Baca selengkapnya. Download Gratis. Pembelian.