Bagaimana cara menambah nilai sel secara otomatis setelah setiap pencetakan?
Misalkan, saya memiliki halaman lembar kerja yang perlu dicetak 100 eksemplar, sel A1 adalah nomor cek Perusahaan-001, sekarang, saya ingin nomor tersebut akan bertambah 1 setelah setiap cetakan. Artinya ketika saya mencetak salinan kedua, jumlahnya akan bertambah menjadi Perusahaan-002 secara otomatis, salinan ketiga, jumlahnya menjadi Perusahaan-003… seratus salinan, jumlahnya menjadi Perusahaan-100. Apakah ada trik untuk mengatasi masalah ini di Excel dengan cepat dan mungkin?
Nilai sel kenaikan otomatis setelah setiap pencetakan dengan kode VBA
Nilai sel kenaikan otomatis setelah setiap pencetakan dengan kode VBA
Biasanya, tidak ada cara langsung bagi Anda untuk menyelesaikan tugas ini di Excel, tetapi, di sini, saya akan membuat kode VBA untuk mengatasinya.
1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.
Kode VBA: Nilai sel kenaikan otomatis setelah setiap pencetakan:
Sub IncrementPrint()
'updateby Extendoffice
Dim xCount As Variant
Dim xScreen As Boolean
Dim I As Long
On Error Resume Next
LInput:
xCount = Application.InputBox("Please enter the number of copies you want to print:", "Kutools for Excel")
If TypeName(xCount) = "Boolean" Then Exit Sub
If (xCount = "") Or (Not IsNumeric(xCount)) Or (xCount < 1) Then
MsgBox "error entered, please enter again", vbInformation, "Kutools for Excel"
GoTo LInput
Else
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 To xCount
ActiveSheet.Range("A1").Value = " Company-00" & I
ActiveSheet.PrintOut
Next
ActiveSheet.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
End If
End Sub
3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt muncul untuk mengingatkan Anda memasukkan jumlah salinan yang ingin Anda cetak pada lembar kerja saat ini, lihat tangkapan layar:
4. Klik OK tombol, dan lembar kerja Anda saat ini sedang dicetak sekarang, dan pada saat yang sama, lembar kerja yang dicetak diberi nomor Perusahaan-001, Perusahaan-002, Perusahaan-003… di sel A1 sesuai kebutuhan Anda.
Note: Dalam kode di atas, sel A1 akan disisipkan nomor urut yang Anda pesan, dan nilai sel asli A1 akan dihapus. Dan "Perusahaan-00”Adalah nomor urut, Anda dapat mengubahnya sesuai kebutuhan Anda.
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!