Hasil Import data Saat di cek ada selisih

  1. 5 minggu lalu

    Salam,
    mohon bantuannya kenapa ya hasil Import data yg menggunakan VBA, Saat di Cek ada selih (menggecekan selisih menggunaakan pewarnaan), kalau dilihat angkanya persis sama tidak ada beda (gambar berikut)

    -image-

    peggecekan selisih pewarnaan akan hilang jika, kursor di lettakn di cell angka kemudian di enter, maka selisihnya akan menjadi hilang (gambar berikut)

    -image-

    Apakaha ada script VBA semisal refresh gitu, agar tidak manual seperti kursor di lettakn di cell angka kemudian di enter

    @Aupe

    nah ini dia mas @manweljs_ solusinya, Terima kasih

    sama-sama :)

    ...kalau kita hanya ingat refresh cel A1:A10 dan E1:E10 giman ya...

    edit menjadi :

    ...
     For Each sel In Range("A1:A10,E1:E10")
    ...

  2. manweljs_

    Jun 5 Terverifikasi + 9.854 Poin

    @Aupe kalo dugaan sy itu masalah format cell nya. coba lampirkan file cek selisih tersebut

  3. @manweljs_ @Aupe kalo dugaan sy itu masalah format cell nya. coba lampirkan file cek selisih tersebut

    ini Mas @manweljs_ saya ada dua tools tarik data, satu utk tarik data file excel, satu lagi untuk tarik data dari file Access, saya bandingkan, hasilnya sama, tapi dicek dengan pewarnaan ada selisih.
    Terima kasih sebelumnya mas

  4. manweljs_

    Jun 5 Terverifikasi + 9.854 Poin
    Di sunting 5 minggu lalu oleh manweljs_

    @Aupe

    yang seperti itu sudah biasa dan memang merupakan anomali pada excel saat berhadapan dengan jumlah digit angka yang banyak (>11digit). alasannya sy juga kurang paham, tapi yang seperti itu sudah sering saya jumpai. contoh sederhana saja, coba ketik angka sebanyak 12 digit atau lebih, anda akan menjumpai nilai yang kurang lebih seperti ini :

    1.23457E+11
    4.32341E+13
    5.43457E+11
    dsb


    kebetulan saya pribadi hanya berurusan dengan desimal 2 digit dibelakang koma (tidak banyak digit seperti itu) jadi saya selalu menggunakan ROUND untuk membatasi jumlah digit pada perkalian.

    dan sebenarnya cara cek anda menurut saya kurang tepat, sebaiknya yang di cek sel per sel langsung, bukan melalui proses pengurangan seperti itu. misalnya =EXACT(F3,F20) atau =F3=F20, jika hasilnya TRUE maka kedua nilai tersebut sama.

  5. Iya mas @manweljs_ biasanya saya cek juga gini =F3=F20, utk menguji.

    yg saya bingung mas, saya punya dua aplikasi excel tarik data :

    1. Aplikasi tarik data yg source datanya Excel
    2. Aplikasi tarik data yg source datanya Access

    dengan isi source data yang sama, tapi hasil berbeda. yg bermasalah Aplikasi tarik data yg source datanya Excelnya mas, biar hasilnya sama kursor harus diletakkan cell tersebut lalu di enter, tidak mungkin dengan jumlah data yg banyak harus dilakukan manual seperti iti.

    contoh file terlampir mas, atau ada Script refres cell, terima kasih

  6. manweljs_

    Jun 5 Terverifikasi + 9.854 Poin

    @Aupe

    coba rubah formulanya menjadi =INT(C3*(1-ROUND(D3,10)/1)*1)

    sudah sy bilang. ini fenomena anomali excel saat berurusan dengan >11 digit

  7. manweljs_

    Jun 5 Terverifikasi + 9.854 Poin

    @Aupe

    ...atau ada Script refres cell...

    sorry baru baca bagian ini

    saya kurang paham maksudnya, tapi dulu saya pernah pake trik begini :

    ...
    Dim sel As Range
    
        For Each sel In ActiveSheet.UsedRange
            sel = "" & sel.Formula
        Next sel
    ...

  8. @manweljs_ @Aupe

    sorry baru baca bagian ini

    saya kurang paham maksudnya, tapi dulu saya pernah pake trik begini :
    ... Dim sel As Range For Each sel In ActiveSheet.UsedRange sel = "" & sel.Formula Next sel ...

    nah ini dia mas @manweljs_ solusinya, Terima kasih,
    kalau kita hanya ingat refresh cel A1:A10 dan E1:E10 giman ya scriptnya mas, saya coba2 tidak bisa, terima kasih atas bantuannya,

  9. manweljs_

    Jun 6 Terverifikasi Jawaban Terpilih + 9.854 Poin

    @Aupe

    nah ini dia mas @manweljs_ solusinya, Terima kasih

    sama-sama :)

    ...kalau kita hanya ingat refresh cel A1:A10 dan E1:E10 giman ya...

    edit menjadi :

    ...
     For Each sel In Range("A1:A10,E1:E10")
    ...

  10. Terima kasih banyak mas @manweljs_ atas bantuannya..

  11. Mas @manweljs_ ada script progres bar tidak ya, nunggu refresh cell-nya agak lama, biar tampilan menarik, pakai progres bar gitu, terima kasih mas

  12. manweljs_

    Jun 8 Terverifikasi + 9.854 Poin

    @Aupe nunggu refresh cell-nya agak lama

    coba di kalkulasi manual dulu

    ...
    application.calculation = xlcalculationmanual
    
    .... ' skrip utamanya
    
    application.calculation = xlcalculationautomatic
    ...

  13. @manweljs_ coba di kalkulasi manual dulu

    ... application.calculation = xlcalculationmanual .... ' skrip utamanya application.calculation = xlcalculationautomatic ...

    giman caranya mas,

  14. manweljs_

    Jun 8 Terverifikasi + 9.854 Poin
    Di sunting 5 minggu lalu oleh manweljs_

    @Aupe giman caranya mas,

    tambahkan 2 baris itu di awal dan akhir prosedur, kurang lebih seperti ini

    19-AutoCalculation.png
    file.png

  15. Terima kasih mas @manweljs_ , berhasil mengurangi delay perikaraan 70%

 

atau Mendaftar untuk ikut berdiskusi!