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

Bagaimana cara mengizinkan hanya format tanggal di sel tertentu?

Bagaimana Anda bisa membatasi daftar sel untuk hanya mengizinkan memasukkan format tanggal di lembar kerja Excel? Pada artikel ini, saya akan membahas beberapa trik menarik untuk menangani pekerjaan ini.

Izinkan hanya format tanggal dalam sel tertentu dengan fungsi Validasi Data

Izinkan hanya format tanggal dalam sel tertentu dengan kode VBA


panah gelembung kanan biru Izinkan hanya format tanggal dalam sel tertentu dengan fungsi Validasi Data

Di Excel, file Validasi Data adalah fungsi yang kuat yang dapat membantu Anda membuat daftar drop-down, untuk mencegah entri duplikat, dll. Ini juga dapat membantu Anda untuk mencegah memasukkan format data lain tetapi hanya format tanggal di sel tertentu. Silakan lakukan dengan langkah-langkah berikut:

1. Klik Data > Validasi Data > Validasi Data, lihat tangkapan layar:

doc memungkinkan tanggal 1

2. di Validasi Data kotak dialog, klik Settings tab, lalu pilih Kustom dari mengizinkan daftar drop-down, lalu masukkan rumus ini: = AND (ISNUMBER (B2), LEFT (SEL ("format", B2), 1) = "D") ke dalam Rumus kotak teks, lihat tangkapan layar:

doc memungkinkan tanggal 2

Note: Dalam rumus di atas, B2 adalah sel pertama dari kolom yang ingin Anda batasi format datanya.

doc memungkinkan tanggal 3

3. Lalu lanjutkan dengan mengklik Peringatan Kesalahan tab di kotak dialog, lakukan operasi berikut:

(1.) Periksa Tampilkan peringatan kesalahan setelah data yang tidak valid dimasukkan pilihan;

(2.) Di bawah Gaya drop down, silakan pilih berhenti pilihan;

(3.) Ketik Judul serta Error message yang ingin Anda tampilkan di kotak prompt.

4. Setelah menyelesaikan pengaturan, klik OK , dan sekarang, ketika Anda memasukkan data yang bukan format tanggal sebenarnya, sebuah kotak prompt akan muncul untuk mengingatkan Anda seperti gambar berikut yang ditampilkan:

doc memungkinkan tanggal 4


panah gelembung kanan biru Izinkan hanya format tanggal dalam sel tertentu dengan kode VBA

Metode kedua, saya akan memperkenalkan kode VBA untuk Anda.

1. Aktifkan lembar kerja yang ingin Anda gunakan.

2. Kemudian klik kanan tab lembar, dan pilih Lihat kode dari menu konteks, lihat tangkapan layar:

doc memungkinkan tanggal 5

3. Di layar Microsoft Visual Basic untuk Aplikasi jendela, salin dan tempel kode di bawah ini ke dalam Modul, lihat tangkapan layar:

Kode VBA: Hanya izinkan format tanggal masuk dalam sel tertentu:

Private Sub Worksheet_Change(ByVal Target As Range)
'updateby Extendoffice
Set w = ActiveSheet.Range("B2:B12")
For Each c In w
If c.Value <> "" And Not IsDate(c) Then
c.ClearContents
MsgBox "Only a date format is permitted in this cell."
End If
Next c
End Sub

doc memungkinkan tanggal 6

4. Kemudian simpan iklan tutup kodenya, sekarang, ketika Anda memasukkan nilai yang bukan format tanggal dalam rentang B2: B12, kotak prompt akan muncul untuk mengingatkan Anda, dan nilai sel akan dihapus pada saat yang sama, lihat tangkapan layar:

doc memungkinkan tanggal 7


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 (8)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
format tanggal mana yang diizinkan oleh fungsi ini. Ini tidak berfungsi untuk beberapa tanggal
Komentar ini diminimalkan oleh moderator di situs
cara menambahkan validasi tanggal untuk format tanggal "DD-mmm-yyy" (15-Des-2018) seperti ini
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak, untuk kode VBA yang akan diterapkan ke beberapa kolom, bisakah Anda memberikan rumusnya?.. Saya mencoba tetapi akhirnya mendapatkan kesalahan 405!
Komentar ini diminimalkan oleh moderator di situs
Halo, Kevin,
Untuk membuat kode diterapkan untuk beberapa rentang, Anda hanya perlu menambahkan referensi sel ke dalam kode seperti di bawah ini:

Sub Lembar Kerja Pribadi_Rubah (Rentang Target As ByVal)
Atur w = ActiveSheet.Range("B2:B12,A1:A10,C5:C20")
Untuk Setiap c Dalam w
Jika c.Nilai <> "" Dan Bukan Tanggal(c) Maka
c.Hapus Isi
MsgBox "Hanya format tanggal yang diizinkan di sel ini."
End If
Selanjutnya c
End Sub

Silakan dicoba, semoga bisa membantu Anda!
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak @skyyang, sangat menghargai bantuan Anda :)
Komentar ini diminimalkan oleh moderator di situs
Bagaimana saya bisa mewajibkan untuk memasukkan waktu? (hh:mm)Sub Worksheet_Change Pribadi(ByVal Target Sebagai Rentang)
'updateby Extendoffice 20150530
Setel w = ActiveSheet.Range("B2:B12")
Untuk Setiap c Dalam w
Jika c.Value <> "" Dan Bukan Tanggal(c) Maka <----------------------------Dan Bukan Waktu(c) tidak bekerja!
c.Hapus Isi
MsgBox "Hanya format tanggal yang diizinkan di sel ini."
End If
Selanjutnya c
End Sub
Komentar ini diminimalkan oleh moderator di situs
Halo, Roberto,

Untuk hanya mengizinkan format waktu yang akan dimasukkan, Anda harus menerapkan kode di bawah ini:



Sub Lembar Kerja Pribadi_Rubah (Rentang Target As ByVal)

'updateby Extendoffice

Dim xArr Sebagai Varian

Redupkan xF Sebagai Integer

Redupkan xB Sebagai Boolean

Redupkan xWRg, xCRg Sebagai Rentang

Setel xWRg = ActiveSheet.Range("B2:B20")

Untuk Setiap xCRg Dalam xWRg

xArr = Pisahkan(xCRg.Nilai, ":")

xB = Salah

Jika UBound(xArr) <= 2 Maka

Untuk xF = LBound(xArr) Ke UBound(xArr)

Jika IsNumeric(xArr(xF)) Maka

Jika xF = 0 Maka

Jika (xArr(xF) > 0) Dan (xArr(xF) < 24) Maka

Lain

xB = Benar

Pergi ke BTime

End If

Lain

Jika (xArr(xF) > 0) Dan (xArr(xF) < 60) Maka

Lain

xB = Benar

Pergi ke BTime

End If

End If

Lain

xB = Benar

Pergi ke BTime

End If

Next

Lain

MsgBox "Hanya format waktu yang diizinkan di sel ini."

xCRg.ClearContents

End If

Waktu:

Jika xB Maka

MsgBox "Hanya format waktu yang diizinkan di sel ini."

xCRg.ClearContents

End If

xCRg berikutnya

End Sub



Silakan dicoba, terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Halo, Maaf untuk menyegarkan, kode berfungsi dengan sangat baik, terima kasih. Saya hanya ingin menambahkan satu cek lagi jika memungkinkan. Apakah mungkin untuk memeriksa sel di sebelah kiri jika mengandung nilai tertentu. Pada dasarnya yang saya butuhkan adalah: jika sel di sebelah kiri berisi N maka sel dalam rentang itu harus dimasukkan sebagai tanggal. Jika sel di sebelah kiri adalah Y maka sel itu harus tetap kosong.
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan