UDF berbatas waktu

  1. 2 bulan yang lalu

    Dear master,
    mohon dapat dibantu pencerahan permasalahan ini, dimana saya mau membuat UDF dibawah ini berfungsi tetapi berbatas waktu semisal hanya dapat berfungsi 2 jam saja setelah itu tidak bisa dipakai, kira2 harus ditambah perintah apa yah ;

    Function AmbilAngkaSaja(ByVal data As String) As String
    With CreateObject("VBScript.RegExp")
    .Pattern = "\D+"
    .Global = True
    AmbilAngkaSaja = .Replace(data, "")
    End With
    End Function

    terima kasih

  2. manweljs_

    Mar 11 Terverifikasi + 8.583 Poin
    Di sunting 2 bulan yang lalu oleh manweljs_

    @nafis2006 ...saya mau membuat UDF dibawah ini berfungsi tetapi berbatas waktu semisal hanya dapat berfungsi 2 jam saja setelah itu tidak bisa dipakai...

    batas waktunya dimulai dari kapan ? apakah saat UDF diketik ?

    misal UDF diketik jam 12.00 maka batas waktunya = jam 14.00
    namun ketika diketikan lagi jam 12.20 maka batas waktunya berubah jadi 14:20.

    apakah seperti itu ?

  3. mas @manweljs_ ....
    terima kasih atas responnya.... batas waktu dimulai dari waktu yg ada di laptop/waktu dimulai dari aktif UDF nya mas.......ditambah 2 jam misalnya.
    jadi ceritanya saya khan sudah biasa pakai UDF tersebut dgn menerapkan modulenya ke excel, pas file yang saya gunakan dicopy oleh teman dan dibuka dilaptopnya..... semua angkanya #ref/ nill. akhirnya saya kasih module script UDF tersebut dan berfungsi. tetapi saya gk mau mrk menggunakan UDF tersebut selamanya, saya cuma mau kasih 2 jam saja, soalnya terkait dengan bank data saya.

    terima kasih mas..

  4. manweljs_

    Mar 11 Terverifikasi + 8.583 Poin
    Di sunting 2 bulan yang lalu oleh manweljs_

    [quote=13874:@nafis2006]...batas waktu dimulai dari waktu yg ada di laptop/waktu dimulai dari aktif UDF nya .../quote]
    kalo begitu saya asumsikan saja waktu mulai adalah waktu Workbook dibuka, karena kalo Workbooknya gak dibuka UDF nya gak bakalan aktif :)

    terlampir contohnya

  5. Terima kasih mas@manweljs_
    aktifnya kalau pas kita gunakan yah, kalau filenya terbuka terus sekitar 15 detik hasilnya tidak berubah, tetapi kalau udf nya saya copy, baru berubah yah.... bisa ngk kira2 kalau berubah langsung dengan sendirinya setelah 15 detik itu, tanpa harus saya copy dahulu udf nya.
    terus saya mau tanya mas yang time sheet bantuan A1, bagaimana munculinnya yah, saya lihat di script nya perintah itu ngk ada.....pakai ini yah mas "ShHelper.[A1]".

    terima kasih atas bantuannya mas....

  6. Ada tambahan mas@manweljs_ .....
    bisa ngk digabung script dalam 1 module untuk buat waktu yang ada di sheetbantuan A1 nya....

    terima kasih mas

  7. manweljs_

    Mar 12 Terverifikasi + 8.583 Poin
    Di sunting 2 bulan yang lalu oleh manweljs_

    @nafis2006 ...bisa ngk kira2 kalau berubah langsung dengan sendirinya setelah 15 detik itu...,

    setahu saya, perintah2 makro harus ada event yang memicunya. misalnya saat sheet diaktifkan, saat ada perubahan data, saat membuka filenya, dll...
    kalau penggunanya diam-diam aja, Excel pun akan diam-diam aja.

    untuk mengakalinya harus ada perintah makro yang saling memicu dengan perintah makro lainnya. contohnya terlampir

    @nafis2006 ...terus saya mau tanya mas yang time sheet bantuan A1, bagaimana munculinnya yah, saya lihat di script nya perintah itu ngk ada.....pakai ini yah mas "ShHelper.[A1]"....

    itu menggunakan event Workbook_Open

    @nafis2006 ...bisa ngk digabung script dalam 1 module untuk buat waktu yang ada di sheetbantuan A1 nya...

    seperti yang saya sebutkan diatas, anda tidak bisa menjalankan perintah makro tanpa ada event yang memicunya. oleh sebab itu ada beberapa perintah makro yang sengaja saya buat pada Event Workbook_Open

  8. makasih banyak atas penjelasannya mas@manweljs_
    sudah berfungsi dgn baik..... tetapi kalau misalnya filenya ditutup dan dibuka kembali khan berfungsi lagi, biar tetap tidak berfungsi ( hasilnya tetap "#N/A" ) harus ditambah script apa yah mas? jadi hanya 1 kali saja.

    terima kasih

  9. manweljs_

    Mar 12 Terverifikasi + 8.583 Poin

    @nafis2006 .... tetapi kalau misalnya filenya ditutup dan dibuka kembali khan berfungsi lagi, biar tetap tidak berfungsi ( hasilnya tetap "#N/A" )...

    tidak berfungsi sampai kapan ?

    saran saya sebaiknya anda gunakan pasword aja :)

  10. terima kasih mas@manweljs_ ....
    met sukses selalu.....

  11. maaf mas @manweljs_ saya mau tanya lagi...
    kalau "timer = ShHelper.[A1] + TimeValue(xlimit)".
    timer nya saya mau buat fixed saja.
    saya rubahnya seperti apa yah script nya.
    misalnya 3/12/2019 15:22

    terima kasih atas penjelasannya.

  12. manweljs_

    Mar 12 Terverifikasi + 8.583 Poin

    @nafis2006 ... kalau "timer = ShHelper.[A1] + TimeValue(xlimit)".
    timer nya saya mau buat fixed saja. saya rubahnya seperti apa yah script nya. misalnya 3/12/2019 ...15:22

    kalau yang dimaksud adalah pada jam tertentu di hari yang sama maka untuk jam 4 sore :

    timer = Int(Now) + TimeValue("16:00:00")

  13. Terima kasih mas @manweljs_ ...
    jadi tambah ilmu.....
    semoga sukses selalu....

 

atau Mendaftar untuk ikut berdiskusi!