Menghitung Hari Otomatis

  1. 11 bulan yang lalu

    Assalamu Alaikum Kak, saya lagi belajar VBA excel dan saya tidak tahu dengan kesalahan saya tolong dibantu kak :

    pertanyaannya : saya ingin menghitung otomatis jumlah hari berdasarkan Textbox1 dan textbox2 yang dihasilkan dari tombol Kalender, aku pakai ini tp tidak menghitung otomatis.

    Private Sub TextBox2_AfterUpdate()
    Dim date1 As Date, date2 As Date
    date1 = Format(Me.TextBox1.Text, "dd/mm/yyyy")
    date2 = Format(Me.TextBox2.Text, "dd/mm/yyyy")
    If date1 > date2 Then
    TextBox2.SetFocus
    MsgBox "date1 tidak boleh lebih tinggi dari date2"
    End If
    Me.hitung.Text = DateDiff("d", date1, date2) & " Hari"
    Exit Sub
    End Sub

    mungkin seperti ini

  2. Lupa Lampiran

  3. Private Sub TextBox2_AfterUpdate() diganti menjadi
    Private Sub TextBox2_change()

  4. Astaga Terima kasih banyak kak bantuannya

  5. sama2

  6. Malam kak, aku mau lanjut belajar lagi bantu ya kak

    Run-time error '13' Type mismatch

  7. Herry

    18 Jul 2023 Jawaban Terpilih + 1.007 Poin

    mungkin seperti ini

  8. Alhamdulilah senanngnya bisa bergabung di Belajar Excel Org
    terima kasih kak @Herry yang selalu bantu saya belajar.

  9. NUMPANG nimbrung ya, bang @Herry, gimana caranya supaya calender bisa lgsung bernilai default today, tanpa harus klik kalendernya, jadi teks box jg akan lgsung bernilai today, tanpa harus mengisi nilai pada calendernya. kecuali memang nilai yg diharapkan bukan today, baru mengisi calendernya. terima kasih.

  10. Mungkin seperti ini

  11. Di sunting 11 bulan yang lalu oleh bejo

    terima kasih banyak bang@herry, kalo boleh tahu scripnya yang memberi nilai tgl default ini ya??

    Private Sub UserForm_Initialize()
    txtTgl = Format(Date, "DD/MM/YYYY")
    End Sub

    sama mau nanya bang, kalo txtTgl mau di inisial, format inisialnya date atau text
    maklum masih pemula, kalau tahu caranya lebih mudah memahaminya. sekali lagi terima kasih.

  12. Betul.
    Private Sub Userform_initialize () kegunaannya untuk menjalankan kode didalamnya secara otomatis jika userform ini dibuka untuk pertama kali
    Untuk menarik data tgl otomatis dari komputer dengan date
    Kode format hanya untuk membentuk tulisan tglnya
    Misal txtTgl = Format(Date, "DD-MM-YYYY") maka di textbox TxtTgl muncul 22-07-2023
    Untuk textbox di userform isian datanya pasti berupa text

 

atau Mendaftar untuk ikut berdiskusi!