Date & Time Run Macro di Message Box

  1. 3 bulan yang lalu

    Dear Suhu,

    Minta tolong bantuannya kembali atas case yang sedang saya alami :)

    Jadi saat ini saya sedang membuat monitoring PC, tapi ada kendala ketika saya ingin membuat tanggal dan jam di messagebox.

    Adapun detail nya, saya lampirkan pada attachment

    Atas bantuan dan kerjasama nya saya ucapkan banyak terima kasih

    Salam,

    Firdaus

  2. manweljs_

    Peb 15 Terverifikasi + 8.583 Poin

    @dauzayl ...Adapun detail nya, saya lampirkan pada attachment...

    sepertinya detailnya belum terlampir

  3. Dear Suhu,

    Berikut lampiran nya ya :)ping_script.xlsm

  4. manweljs_

    Peb 15 Terverifikasi + 8.583 Poin
    Di sunting 3 bulan yang lalu oleh manweljs_

    @dauzayl

    contoh skripnya :

    Sub tes()
    If Now > TimeValue("18:00") Then
        MsgBox "Selamat Malam" & vbNewLine & Now
    ElseIf Now > TimeValue("15:00") Then
        MsgBox "Selamat Sore" & vbNewLine & Now
    ElseIf Now > TimeValue("12:00") Then
        MsgBox "Selamat Siang" & vbNewLine & Now
    ElseIf Now > TimeValue("06:00") Then
        MsgBox "Selamat Pagi" & vbNewLine & Now
    Else: MsgBox "Masih subuh bro, tidur sono!" & vbNewLine & Now
    End If
    End Sub

    silahkan dikembangkan

    note : mengenai makro berjalan otomatis pada waktu tertentu lebih baik dihindari.
    namun kalo masih "ngotot" sebaiknya makronya bukan diprogram pada excel tetapi pada aplikasi external yang ditugaskan untuk membuka file excel, jadi ketika file excelnya terbuka maka script untuk time runningnya dijalankan.

    aplikasi yang saya maksud misalnya Pulover's Macro Creator

  5. Dear Suhu,

    Apakah tata letak dari penulisan script yang suhu sarankan ada kesalahan :)

    Karena MsgBox nya hanya tampil seperti pada attach

  6. manweljs_

    Peb 18 Terverifikasi + 8.583 Poin

    @dauzayl Apakah tata letak dari penulisan script yang suhu sarankan ada kesalahan

    tidak ada yang salah, yang saya bagikan itu cuman contoh

    contoh lagi :

    Sub tes()
    If Now > TimeValue("18:00") Then
        MsgBox "Completed !" & vbNewLine & _
        "Start on:" & Now, , ":Selamat Malam:"
    ElseIf Now > TimeValue("15:00") Then
        MsgBox "Completed !" & vbNewLine & _
        "Start on:" & Now, , ":Selamat Sore:"
    ElseIf Now > TimeValue("12:00") Then
        MsgBox "Completed !" & vbNewLine & _
        "Start on:" & Now, , ":Selamat Siang:"
    ElseIf Now > TimeValue("06:00") Then
        MsgBox "Completed !" & vbNewLine & _
        "Start on:" & Now, , ":Selamat Pagi:"
    Else: MsgBox "Completed !" & vbNewLine & _
        "Masih Subuh bro!!! " & Now, , ": Gak tidur kah :"
    End If
    End Sub
    

  7. Dear Suhu,

    Saya masih kurang paham :)

    minta tolong di bantu lagi ya Suhu

  8. manweljs_

    Peb 22 Terverifikasi + 8.583 Poin

    @dauzayl ...kenapa “start on” & “finish on” nya sama ya ????...

    Jadi saya ingin “time” ketika saya klik tombol command button akan dimunculkan waktu nya ke dalam “start on” nya, sedangkan untuk “finish on” sudah benar “time” nya

    ini pemahaman saya yang kurang atau penjelasan anda yang kurang yak (^_^)/

    coba cek file terlampir, semoga demikian yang dimaksud

 

atau Mendaftar untuk ikut berdiskusi!