Bagaimana cara menyalin baris dan menempel ke lembar lain berdasarkan tanggal di Excel?
Misalkan, saya memiliki berbagai data, sekarang, saya ingin menyalin seluruh baris berdasarkan tanggal tertentu dan kemudian menempelkannya ke lembar lain. Apakah Anda punya ide bagus untuk menangani pekerjaan ini di Excel?
Salin baris dan tempelkan ke lembar lain berdasarkan tanggal hari ini
Salin baris dan tempel ke lembar lain jika tanggal lebih besar dari hari ini
Salin baris dan tempelkan ke lembar lain berdasarkan tanggal hari ini
Jika Anda perlu menyalin baris jika tanggalnya hari ini, harap terapkan kode VBA berikut:
1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Module Window.
Kode VBA: Salin dan tempel baris berdasarkan tanggal hari ini:
Sub CopyRow()
'Updateby Extendoffice
Dim xRgS As Range, xRgD As Range, xCell As Range
Dim I As Long, xCol As Long, J As Long
Dim xVal As Variant
On Error Resume Next
Set xRgS = Application.InputBox("Please select the date column:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRgS Is Nothing Then Exit Sub
Set xRgD = Application.InputBox("Please select a destination cell:", "KuTools For Excel", , , , , , 8)
If xRgD Is Nothing Then Exit Sub
xCol = xRgS.Rows.Count
Set xRgS = xRgS(1)
Application.CutCopyMode = False
J = 0
For I = 1 To xCol
Set xCell = xRgS.Offset(I - 1, 0)
xVal = xCell.Value
If TypeName(xVal) = "Date" And (xVal <> "") And (xVal = Date) Then
xCell.EntireRow.Copy xRgD.Offset(J, 0)
J = J + 1
End If
Next
Application.CutCopyMode = True
End Sub
3. Setelah menempelkan kode di atas, silahkan tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt akan muncul untuk mengingatkan Anda memilih kolom tanggal yang ingin Anda salin berdasarkan baris, lihat tangkapan layar:
4. Lalu klik OK tombol, di kotak prompt lain, pilih sel di lembar lain di mana Anda ingin menampilkan hasilnya, lihat tangkapan layar:
5. Dan kemudian klik OK tombol, sekarang, baris yang tanggal hari ini ditempelkan ke lembar baru sekaligus, lihat tangkapan layar:
Salin baris dan tempel ke lembar lain jika tanggal lebih besar dari hari ini
Untuk menyalin dan menempel baris yang tanggalnya lebih besar dari atau sama dengan hari ini, misalnya, jika tanggalnya sama atau lebih besar dari 5 hari sejak hari ini, lalu salin dan tempel baris tersebut ke lembar lain.
Kode VBA berikut mungkin membantu Anda:
1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Module Window.
Kode VBA: Salin dan tempel baris jika tanggal lebih besar dari hari ini:
Sub CopyRow()
'Updateby Extentoffice
Dim xRgS As Range, xRgD As Range, xCell As Range
Dim I As Long, xCol As Long, J As Long
Dim xVal As Variant
On Error Resume Next
Set xRgS = Application.InputBox("Please select the date column:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRgS Is Nothing Then Exit Sub
Set xRgD = Application.InputBox("Please select a destination cell:", "KuTools For Excel", , , , , , 8)
If xRgD Is Nothing Then Exit Sub
xCol = xRgS.Rows.Count
Set xRgS = xRgS(1)
Application.CutCopyMode = False
J = 0
For I = 1 To xCol
Set xCell = xRgS.Offset(I - 1, 0)
xVal = xCell.Value
If TypeName(xVal) = "Date" And (xVal <> "") And (xVal >= Date And (xVal < Date + 5)) Then
xCell.EntireRow.Copy xRgD.Offset(J, 0)
J = J + 1
End If
Next
Application.CutCopyMode = True
End Sub
Note: Pada kode di atas, Anda dapat mengubah kriteria, seperti kurang dari hari ini atau jumlah hari yang Anda butuhkan di Jika TypeName (xVal) = "Date" And (xVal <> "") And (xVal> = Date And (xVal <Date + 5)) Maka kode skrip.
3. Lalu tekan F5 kunci untuk menjalankan kode ini, di kotak prompt, pilih kolom data yang ingin Anda gunakan, lihat tangkapan layar:
4. Lalu klik OK tombol, di kotak prompt lain, pilih sel di lembar lain di mana Anda ingin menampilkan hasilnya, lihat tangkapan layar:
5. klik OK tombol, sekarang, baris yang tanggalnya sama atau lebih besar dari 5 hari sejak hari ini telah disalin dan ditempelkan ke lembar baru seperti gambar berikut yang ditampilkan:
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!