Note: The other languages of the website are Google-translated. Back to English
English English

Bagaimana cara memasukkan cap tanggal ke dalam sel jika mencentang kotak centang di Excel?

Biasanya, Anda memasukkan cap tanggal dengan menggunakan hotkeys di Excel. Bagaimana dengan memasukkan cap tanggal ke dalam sel dengan kotak centang di Excel? Saat mencentang kotak centang, cap waktu dimasukkan ke dalam sel tertentu secara otomatis. Artikel ini akan membantu Anda menyelesaikannya.

Masukkan cap tanggal ke dalam sel jika dicentang kotak centang dengan kode VBA


Masukkan cap tanggal ke dalam sel jika dicentang kotak centang dengan kode VBA


Bagian ini akan memperkenalkan skrip VBA untuk membantu Anda memasukkan cap tanggal ke dalam sel secara otomatis jika mencentang kotak di Excel. Silakan lakukan sebagai berikut.

1. Setelah memasukkan kotak centang, tekan lain + F11 tombol secara bersamaan untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul. Kemudian salin dan tempel kode VBA di bawah ini ke jendela Modul.

Kode VBA: Masukkan cap tanggal ke dalam sel jika dicentang kotak centang

Sub CheckBox_Date_Stamp()
Dim xChk As CheckBox
Set xChk = ActiveSheet.CheckBoxes(Application.Caller)
With xChk.TopLeftCell.Offset(, 1)
    If xChk.Value = xlOff Then
        .Value = ""
    Else
       .Value = Date
    End If
End With
End Sub

3. tekan lain + Q kunci untuk menutup Microsoft Visual Basic untuk Aplikasi jendela.

4. Klik kanan kotak centang, lalu pilih Tetapkan Mikro dari menu klik kanan. Lihat tangkapan layar:

5. Dalam Tetapkan Makro kotak dialog, pilih Kotak Centang_Tanggal_Stempel dalam Nama makro kotak, dan kemudian klik OK tombol. Lihat tangkapan layar:

Saat mencentang kotak centang, cap tanggal akan dimasukkan ke dalam sel yang berdekatan secara otomatis.


Terkait artikel:


Alat Produktivitas Kantor Terbaik

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

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 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.
tab kte 201905

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.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (22)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Terima kasih, ini sangat membantu, saya ingin mencatat bahwa saya merasa lebih berguna untuk memiliki cap tanggal di sebelah kiri kotak centang. untuk melakukan ini, Anda cukup mengubah offset menjadi (, -1)
Komentar ini diminimalkan oleh moderator di situs
Apakah ada cara untuk melakukan ini dengan tanggal DAN waktu? Terima kasih atas infonya!
Komentar ini diminimalkan oleh moderator di situs
Sub CheckBox_Date_Stamp() Dim xChk Sebagai Set Kotak Centang xChk = ActiveSheet.CheckBoxes(Application.Caller) Dengan xChk.TopLeftCell.Offset(, 1) If xChk.Value = xlOff Kemudian .Value = "" Else .Value = Tanggal & " " & Waktu Berakhir Jika Berakhir Dengan Akhir Sub
Komentar ini diminimalkan oleh moderator di situs
Hai,
Silakan terapkan kode VBA di bawah ini untuk menambahkan tanggal dan waktu.

Sub Kotak Centang_Date_Stamp()
Redupkan xChk Sebagai Kotak Centang
Setel xChk = ActiveSheet.CheckBoxes(Application.Caller)
Dengan xChk.TopLeftCell.Offset(, 1)
Jika xChk.Value = xlOff Maka
.Nilai = ""
Lain
.Nilai = Sekarang()
End If
Berakhir dengan
End Sub
Komentar ini diminimalkan oleh moderator di situs
HI Saya mencoba rumus ini dan itu hanya berfungsi untuk A1 dan B1 ketika saya menerapkan makro ke kotak centang di A1. Namun, ketika saya menerapkan makro ke kotak centang di A2, tidak ada yang terjadi di B2. Juga bagaimana rumus diubah jika saya ingin menggunakan ini untuk daftar periksa? Jika kolom A adalah kotak centang dan kolom C adalah tanggal selesai.
Komentar ini diminimalkan oleh moderator di situs
Hai :) Anda dapat menyalin sel dengan kotak centang di A1 ke kolom lainnya. atau tetapkan makro satu per satu ke setiap kotak centang
Komentar ini diminimalkan oleh moderator di situs
Selamat siang,
Harap tetapkan makro satu per satu ke setiap kotak centang.
Komentar ini diminimalkan oleh moderator di situs
Saya menyalin & menempelkan kode VBA dengan tepat, tetapi di spreadsheet saya, tanggal muncul di sel di atas dan di sebelah kanan kolom kotak centang, bukan di sel langsung di sebelah kanan. ?
Komentar ini diminimalkan oleh moderator di situs
Saya juga mengalami masalah yang sama persis. "HELP! Aku butuh seseorang HELP! Bukan sembarang orang HELP! Kamu tahu aku butuh HELP!
Komentar ini diminimalkan oleh moderator di situs
Hari baik,
Kode berfungsi dengan baik dalam kasus saya. Setelah mencentang kotak centang, tanggal akan muncul di sel langsung di sebelah kanan. Maukah Anda memberikan tangkapan layar dari kasus Anda. Dan versi Office mana yang Anda gunakan. Terima kasih.
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki masalah yang sama dengan cap tanggal dan waktu yang muncul di sel di atas sel yang dimaksud (menggunakan Excel 2007). Saya melanjutkan dan mengubah formula "offset" sehingga melewati satu sel DAN turun satu sel dan sekarang cap muncul di tempat yang saya inginkan: Dengan xChk.TopLeftCell.Offset(1, 1)
Saya memperbarui lembar kerja yang dibuat orang lain dan tidak membuat kotak centang, tetapi mungkin ada hubungannya dengan di mana di dalam sel kotak centang ditempatkan. Saya mendapatkan hasil yang berbeda ketika saya menyejajarkan kotak centang dengan bagian bawah sel.

Harapan yang membantu!
Komentar ini diminimalkan oleh moderator di situs
Inilah yang saya lakukan untuk memperbaiki masalah itu

Sub Kotak Centang_Date_Stamp()
Redupkan xChk Sebagai Kotak Centang
Setel xChk = ActiveSheet.CheckBoxes(Application.Caller)
Dengan xChk.TopLeftCell.Offset(1, 1)
Jika xChk.Value = xlOff Maka
.Nilai = ""
Lain
.Nilai = Sekarang()
End If
Berakhir dengan
End Sub
Komentar ini diminimalkan oleh moderator di situs
Hai! Terima kasih untuk kodenya. Ini bekerja sempurna dengan sedikit tweaking pada offset. Namun, saya sedang mengerjakan lembar yang memiliki banyak banyak baris (~ 500+ baris) yang berisi banyak kotak centang dan ukuran file tumbuh secara signifikan. Apakah ada cara untuk mengurangi ukurannya? Adakah cara alternatif untuk melakukan ini?

Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
baik dan
Jika ada banyak kotak centang di baris dan Anda ingin bertindak pada semua kotak centang pada saat yang sama, kode VBA di bawah ini dapat membantu Anda.
Harap salin kode ke jendela kode Modul, kembali ke lembar kerja dan buat tombol (seperti Tombol (Kontrol Formulir)), tetapkan makro SetAllChkChange() ke tombol, lalu klik tombol untuk menjalankan kode.

Sekarang semua kotak centang di baris lembar kerja Anda telah diaktifkan. Anda dapat memeriksa salah satu dari mereka untuk memasukkan cap tanggal di sel yang berdekatan.

Sub SetAllChkChange()
redup xChks
Redupkan xChk Sebagai Kotak Centang
Redup xI Selamanya
On Error Resume Next
Hapus xArrChk
Setel xChks = ActiveSheet.CheckBoxes
ReDim Pertahankan xArrChk(1 Ke xChks.count)
xI = 1
Untuk Setiap xChk Dalam xChks
xChk.Pilih
Selection.OnAction = "ObjChkChange"
Next
End Sub


Sub ObjChkChange()
Redupkan xChk Sebagai Kotak Centang
Setel xChk = ActiveSheet.CheckBoxes(Application.Caller)
Dengan xChk.TopLeftCell.Offset(, 1)
Jika xChk.Value = xlOff Maka
.Nilai = ""
Lain
.Nilai = Tanggal
End If
Berakhir dengan
End Sub
Komentar ini diminimalkan oleh moderator di situs
bagaimana cara agar stempel tanggal ditampilkan di bawah kotak centang saya?
Komentar ini diminimalkan oleh moderator di situs
hai! sepertinya saya tidak dapat menemukan cara di mana cap tanggal akan berada di sisi kotak centang. saya mencoba mengubah nilai offset dari 0, 1 dan -1. dapatkah Anda membantu saya dengan ini? terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Hai, seandainya kotak centang Anda ada di A2 dan ingin menampilkan cap tanggal di sisi kanan kotak centang (dalam hal ini B2), harap ubah nilai Offset menjadi Offset(1, 1).
Komentar ini diminimalkan oleh moderator di situs
Saya menggunakan VBA untuk cap waktu kotak centang, tetapi dua sel pertama tidak berfungsi dengan benar. Kotak centang pertama saya ada di A2, ketika saya mencentang kotak, waktu diposting di B1. Bagaimana cara memperbaikinya?
Komentar ini diminimalkan oleh moderator di situs
Hi Steve,
Silakan ganti baris keempat dalam kode dengan With xChk.TopLeftCell.Offset(1, 1).
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak!! Cemerlang! Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Hai, bagaimana saya bisa mengulang kode untuk memasukkan semua kotak centang di kolom?
Komentar ini diminimalkan oleh moderator di situs
Hari baik,
Jika ada banyak kotak centang di baris dan Anda ingin bertindak pada semua kotak centang pada saat yang sama, kode VBA di bawah ini dapat membantu Anda.
Silakan salin kode di bawah ini ke jendela kode Modul, kembali ke lembar kerja dan buat tombol (seperti Tombol (Kontrol Formulir)), tetapkan makro AturSemuaChkChange() ke tombol, lalu klik tombol untuk menjalankan kode.

Sekarang semua kotak centang di baris lembar kerja Anda telah diaktifkan. Anda dapat memeriksa salah satu dari mereka untuk memasukkan cap tanggal di sel yang berdekatan.

Sub SetAllChkChange()
'Diperbaharui oleh Extendoffice 20211130
redup xChks
Redupkan xChk Sebagai Kotak Centang
On Error Resume Next
Setel xChks = ActiveSheet.CheckBoxes
Untuk Setiap xChk Dalam xChks
xChk.Pilih
Selection.OnAction = "ObjChkChange"
Next
End Sub

Sub ObjChkChange()
Redupkan xChk Sebagai Kotak Centang
Setel xChk = ActiveSheet.CheckBoxes(Application.Caller)
Dengan xChk.TopLeftCell.Offset(, 1)
Jika xChk.Value = xlOff Maka
.Nilai = ""
Lain
.Nilai = Tanggal
End If
Berakhir dengan
End Sub
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan