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

Bagaimana cara menambahkan / memasukkan tanggal / waktu saat ini secara otomatis dalam sel dengan mengklik ganda di Excel?

Jika Anda perlu sering memasukkan tanggal atau tanggal saat ini di lembar kerja, Anda dapat mencoba metode di artikel ini. Artikel ini akan membantu Anda untuk secara otomatis menambahkan atau memasukkan tanggal atau tanggal saat ini dalam sel rentang tertentu hanya dengan mengklik ganda.

Klik dua kali untuk menambahkan / memasukkan tanggal atau tanggal secara otomatis dengan kode VBA


Klik dua kali untuk menambahkan / memasukkan tanggal atau tanggal secara otomatis dengan kode VBA


Anda dapat menjalankan kode VBA di bawah ini untuk secara otomatis menambahkan tanggal atau waktu tanggal saat ini dalam sel dengan mengklik ganda. Silakan lakukan sebagai berikut.

1. Klik kanan tab Lembar yang ingin Anda masukkan tanggal sekarang ke dalam sel yang ditentukan, lalu pilih Lihat kode dari menu klik kanan.

2. Dalam Microsoft Visual basic untuk Aplikasi jendela, salin dan tempel kode VBA di bawah ini ke jendela Kode.

Kode VBA: Klik dua kali untuk menambahkan tanggal sekarang ke dalam sel

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1:B10")) Is Nothing Then
        Cancel = True
        Target.Formula = Date
    End If
End Sub

Catatan:

1. Dalam kode, A1: B10 adalah rentang yang akan Anda tambahkan tanggal sekarang.
2. Jika Anda perlu menambahkan waktu tanggal sekarang ke dalam sel, harap ganti Tanggal dengan Sekarang() di dalam kode. Anda dapat mengubahnya sesuai kebutuhan.

3. tekan lain + Q tombol secara bersamaan untuk menutup Microsoft Visual Basic untuk Aplikasi jendela dan kembali ke lembar kerja.

Mulai sekarang, saat mengklik ganda sel mana pun dalam rentang tertentu A1: B10. Tanggal atau waktu tanggal saat ini akan dimasukkan 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 (28)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Bagaimana kita memperluas ini untuk menambahkan lebih banyak rentang sel? Saya menambahkan sel ekstra ini berkisar ke kode: (Target, Range("C10:C19", "D10:D19", "E10:E19")) namun itu memberi saya kesalahan kompilasi yang mengatakan "jumlah argumen yang salah atau penetapan properti tidak valid" dan kemudian menyoroti baris pertama kode yang Anda berikan "Sub Lembar Kerja Pribadi_BeforeDoubleClick(ByVal Target Sebagai Rentang, Batalkan Sebagai Boolean)" Tolong bantu saya.
Komentar ini diminimalkan oleh moderator di situs
Joel, tidak tahu apakah Anda masih mencari solusi, tetapi Anda perlu mengubah kode Anda:

Dari: (Target, Rentang("C10:C19", "D10:D19", "E10:E19"))
Ke: (Target, Rentang("C10:C19,D10:D19,E10:E19"))

Ini akan melakukannya untuk Anda.
Komentar ini diminimalkan oleh moderator di situs
Halo Nik,
Saya ingin mendapatkan beberapa saran dari Anda tentang hal ini ....
Saya memiliki file yang saya sebut "lembar produktivitas".... Pada lembar ini saya ingin memasukkan waktu aktual, dalam sel yang dipilih, ketika sel diklik... (Jika memungkinkan, saya ingin sel-sel ini setelah waktu tampaknya menjadi tidak dapat diubah .....sesuatu seperti dikunci.)
Saya menghargai waktu Anda dan terima kasih sebelumnya
Attila, Hongaria
exyzee@gmail.com
Komentar ini diminimalkan oleh moderator di situs
Attila yang terhormat,
Silakan coba tangkapan layar di bawah ini untuk memasukkan waktu aktual ke sel dalam rentang tertentu saat diklik.
(Fungsi sel yang mengunci secara otomatis tidak dapat dicapai, maaf tentang itu)

Sub Worksheet_SelectionChange Pribadi (Target ByVal Sebagai Rentang)
Application.ScreenUpdating = Salah
Jika Tidak Berpotongan(Target, Rentang("A1:B10")) Tidak Berarti
Batal = Benar
Target.Formula = Tanggal
End If
End Sub
Komentar ini diminimalkan oleh moderator di situs
Kode benar-benar berfungsi... Terima kasih... saya telah menambahkan kode lain untuk melindungi sel setelah entri data. Sekarang masalahnya adalah, setelah saya memasukkan data dan sel dilindungi dan secara tidak sengaja jika saya mengklik dua kali sel yang dilindungi, maka kode di atas salah untuk seluruh lembar. Ini tidak bekerja kemudian. Saya harus membuka proteksi lembar untuk menghidupkan kode. Ada solusi?

Kode perlindungan yang digunakan di bawah ini:

Sub Lembar Kerja Pribadi_Rubah (Rentang Target As ByVal)
Redupkan xRg Sebagai Rentang
On Error Resume Next
Tetapkan xRg = Intersect(Range("A1:a1000,b1:b1000,G1:G1000"), Target)
Jika xRg Bukan Apa-apa Kemudian Keluar Sub
Target.Worksheet.Unprotect Password:="123"
xRg.Terkunci = Benar
Target.Lembar Kerja.Lindungi Kata Sandi:="123"
End Sub
Komentar ini diminimalkan oleh moderator di situs
Paul terkasih,
Saya mencoba kode yang Anda berikan. Seluruh lembar kerja akan segera dilindungi setelah saya memasukkan data ke salah satu sel terlindungi yang ditentukan.
Selain itu, ketika klik dua kali pada sel yang dilindungi, tidak ada perubahan pada kode dalam kasus saya.
Maukah Anda menjelaskan apa yang sebenarnya Anda coba lakukan dengan kode tersebut?
Komentar ini diminimalkan oleh moderator di situs
Maaf saya mengerti maksud Anda. (kehilangan kode di atas)
Komentar ini diminimalkan oleh moderator di situs
Kode entri klik ganda yang dibuat adalah:


Sub Worksheet_BeforeDoubleClick Pribadi (ByVal Target Sebagai Rentang, Batalkan Sebagai Boolean)
Jika Tidak Berpotongan(Target, Rentang("A1:a1000")) Tidak Ada Apa-apanya
Batal = Benar
Target.Formula = Tanggal
End If

Jika Tidak Berpotongan(Target, Rentang("b1:b1000")) Tidak Ada Apa-apanya
Batal = Benar
Target.Rumus = Waktu
End If

Jika Tidak Berpotongan(Target, Rentang("g1:g1000")) Tidak Ada Apa-apanya
Batal = Benar
Target.Rumus = Waktu
End If
End Sub
Komentar ini diminimalkan oleh moderator di situs
Paul terkasih,
Silakan coba kode VBA berikut.

Sub Lembar Kerja Pribadi_Rubah (Rentang Target As ByVal)
Redupkan xRg Sebagai Rentang
On Error Resume Next
Tetapkan xRg = Intersect(Range("A1:a1000,b1:b1000,G1:G1000"), Target)
Jika xRg Bukan Apa-apa Kemudian Keluar Sub
Target.Worksheet.Unprotect Password:="123"
xRg.Terkunci = Benar
Target.Lembar Kerja.Lindungi Kata Sandi:="123"
End Sub

Sub Worksheet_BeforeDoubleClick Pribadi (ByVal Target Sebagai Rentang, Batalkan Sebagai Boolean)
Application.EnableEvents = Salah
ActiveSheet.Unprotect Password:="123"
Jika Tidak Berpotongan(Target, Rentang("A1:a1000")) Tidak Ada Apa-apanya
Batal = Benar
Target.Formula = Tanggal
End If
Jika Tidak Berpotongan(Target, Rentang("b1:b1000")) Tidak Ada Apa-apanya
Batal = Benar
Target.Rumus = Waktu
End If
Jika Tidak Berpotongan(Target, Rentang("g1:g1000")) Tidak Ada Apa-apanya
Batal = Benar
Target.Rumus = Waktu
End If
ActiveSheet.Protect Password:="123"
Application.EnableEvents = Benar
End Sub
Komentar ini diminimalkan oleh moderator di situs
Saya menyalin dan menempelkan kode yang memperbarui rentang dan tidak berhasil :-(


Sub Worksheet_BeforeDoubleClick Pribadi (ByVal Target Sebagai Rentang, Batalkan Sebagai Boolean)
Jika Tidak Berpotongan(Target, Rentang("B4:B100")) Tidak Ada Apa-apanya
Batal = Benar
Target.Rumus = Sekarang()
End If
End Sub
Komentar ini diminimalkan oleh moderator di situs
Hari baik,
Kode berfungsi dengan baik dalam kasus saya. Bisakah Anda memberi tahu saya versi Office Anda?
Komentar ini diminimalkan oleh moderator di situs
Halo, kode yang Anda berikan berfungsi dengan baik. Saya hanya ingin tahu apakah ada cara untuk memiliki teks "klik dua kali untuk menambahkan tanggal" Di sel hingga tanggal dimasukkan. Terima kasih sebelumnya ( saya berusaha membuat dokumen saya se-user friendly mungkin agar tidak membingungkan rekan kerja saya)
Komentar ini diminimalkan oleh moderator di situs
Halo, kode di atas bekerja dengan baik untuk saya. Sekarang saya hanya ingin tahu apakah ada cara agar teks "Klik dua kali untuk memasukkan tanggal" muncul di sel sampai tanggal dimasukkan. Tujuan saya adalah membuat dokumen seramah mungkin. Terima kasih sebelumnya
Komentar ini diminimalkan oleh moderator di situs
Hai Travis,
Kami tidak dapat mengubah kode untuk menampilkan teks dalam sel secara langsung. Tetapi sebagai alternatif, kode yang dioptimalkan di bawah ini akan membantu menampilkan teks di komentar sel, dan komentar akan dihapus secara otomatis setelah klik dua kali sel untuk memasukkan tanggal.

Sub Worksheet_SelectionChange Pribadi (Target ByVal Sebagai Rentang)
Jika Tidak Berpotongan(Target, Rentang("A1:B10")) Tidak Berarti
Target.NoteText "klik dua kali untuk menambahkan tanggal"
End If
End Sub

Sub Worksheet_BeforeDoubleClick Pribadi (ByVal Target Sebagai Rentang, Batalkan Sebagai Boolean)
Jika Tidak Berpotongan(Target, Rentang("A1:B10")) Tidak Berarti
Batal = Benar
Target.Komentar.Hapus
Target.Formula = Tanggal
End If
End Sub
Komentar ini diminimalkan oleh moderator di situs
Halo,

Saya menyalin dan menempelkan kode di atas persis seperti yang tertulis di buku kerja kosong, namun, itu tidak berfungsi untuk saya. Saya melihat berbagai sumber di web dan sebagian besar situs memiliki format yang sama seperti yang tertulis di atas. Saya pikir mungkin ada yang salah dengan VBA saya atau beberapa pengaturan tidak diaktifkan. Saran apa pun akan sangat dihargai. Saya menjalankan Excel untuk Office 365 MSO (16.0.11001.20097) 32-bit di Windows 10.
Komentar ini diminimalkan oleh moderator di situs
Suka kodenya dan itu berfungsi dengan baik. Bagaimana saya bisa membuatnya begitu ketika saya mengklik dua kali untuk mengeksekusi kode itu menunjukkan waktu di waktu militer?
Komentar ini diminimalkan oleh moderator di situs
Hai Dilan,
Maaf belum bisa membantu Anda. Terima kasih atas komentarmu.
Komentar ini diminimalkan oleh moderator di situs
Saya pikir jika Anda memilih format waktu militer untuk sel itu dari Format -> Nomor -> Opsi waktu di lembar Anda yang seharusnya berfungsi. Misalnya, ini memberikan opsi 1:30 atau 13:30, jadi Anda cukup memilih 13:30 dan itu harus dilakukan.
Komentar ini diminimalkan oleh moderator di situs
Saya akan berpikir bahwa jika Anda hanya memilih format Waktu Militer untuk sel itu dari Nomor -> opsi format Waktu yang harus melakukannya. Misalnya, Anda akan memilih 13:30 bukannya 1:30, dan kemudian akan ditampilkan dalam waktu militer.
Komentar ini diminimalkan oleh moderator di situs
Adakah yang tahu jika ada cara untuk memasukkan kode ini ke Excel Online? Saya telah menggunakannya dengan versi desktop dan itu bekerja dengan baik, tetapi sekarang kami telah memigrasikan semuanya ke platform online dan cap tanggal dan waktu saya pada klik dua kali telah hilang dan saya tidak tahu cara melihat atau mengedit kode. Terima kasih.
Komentar ini diminimalkan oleh moderator di situs
Jadi saya memasukkan kode dan berfungsi dengan baik pada beberapa lembar di buku kerja saya, namun pada beberapa lembar tiba-tiba berhenti bekerja setelah baris tertentu meskipun saya memasukkan rentang yang benar. Setiap pemikiran tentang mengapa ini bisa terjadi.
Komentar ini diminimalkan oleh moderator di situs
Inilah yang saya cari - ini menghemat banyak waktu dan saya menghargai instruksi yang ditulis dengan baik. Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Halo, kodenya sangat membantu saya, Bagaimana saya bisa membatasi kode agar berfungsi hanya jika bidangnya kosong. Jika tanggal sudah ada di sel, klik dua kali tidak akan melakukan apa-apa, salam
Komentar ini diminimalkan oleh moderator di situs
Hai Ahmad,
Maaf untuk masalah ini. Untuk hanya mengisi sel kosong dengan tanggal dengan mengklik dua kali, Anda dapat menerapkan kode VBA berikut untuk menyelesaikannya.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20220609
    If Not Intersect(Target, Range("B1:C20")) Is Nothing Then
        If Target.Value = "" Then
            Cancel = True
            Target.Formula = Date
        End If
    End If
End Sub
Komentar ini diminimalkan oleh moderator di situs
Fungsi ini tidak bekerja. Mengklik Ganda cukup memasukkan pengeditan sel secara manual.
Komentar ini diminimalkan oleh moderator di situs
Hi Bob,
Kode berfungsi dengan baik dalam kasus saya. Saya perlu tahu lebih spesifik tentang masalah Anda, seperti versi Excel Anda.
Dan kode hanya berfungsi pada sel yang Anda tentukan.
Komentar ini diminimalkan oleh moderator di situs
Halo semua,

Saya mencoba menggunakan makro itu untuk menggunakan cap tanggal mengklik dua kali pada kolom E dan berfungsi tetapi ketika saya mencoba mereplikasi makro untuk melakukan hal yang sama tetapi untuk saat ini di kolom F tidak berfungsi seperti yang Anda lihat terlampir yang saya miliki pesan kesalahan yang menyatakan: Nama Ambigu Terdeteksi.
Ketika saya mencoba mengubah bagian Sub WorkSheet untuk nama lain dan klik dua kali di sel, tidak ada yang terjadi.

Bisakah seseorang membantu saya dalam hal itu?

kode saya:


Sub Worksheet_BeforeDoubleClick(ByVal Target Sebagai Rentang, Batalkan Sebagai Boolean)
Jika Tidak Berpotongan(Target, Rentang("E1:E10000")) Tidak Ada Apa-apanya
Batal = Benar
Target.Formula = Tanggal
End If
End Sub

Sub Worksheet_BeforeDoubleClick(ByVal Target Sebagai Rentang, Batalkan Sebagai Boolean)
Jika Tidak Berpotongan(Target, Rentang("F1:F10000")) Tidak Ada Apa-apanya
Batal = Benar
Target.Rumus = Sekarang()
End If
End Sub
Komentar ini diminimalkan oleh moderator di situs
Hai Louis,
Replikasi makro akan menyebabkan dua prosedur yang sama dengan nama yang sama dalam satu jendela kode lembar. Excel tidak mengizinkan dua atau lebih nama fungsi yang sama dalam sebuah modul. Bahkan di Acara. Ini mengarah pada ambiguitas.
Jika Anda ingin melakukan tugas yang berbeda pada acara yang sama, Anda perlu memodifikasi kode asli untuk memenuhi kebutuhan Anda.
Kode VBA berikut dapat membantu Anda. Ayo cobalah.
Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20221025
    If Not Intersect(Target, Range("E1:E10000")) Is Nothing Then
        Cancel = True
        Target.Formula = Date
    End If
    If Not Intersect(Target, Range("F1:F10000")) Is Nothing Then
        Cancel = True
        Target.Formula = Date
    End If
End Sub
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan