rumus memasukkan data yang sama dalam satu baris pada kolom yang berbeda

  1. 4 bulan yang lalu

    dear master yang terhormat, saya minta bantuannya, saya sedang mencoba membuat aplikasi pembayaran sederhana. yang ingin saya tanyakan bagaimana sheet rekapan dapat terisi otomatis, terima kasih, semoga admin sudi membantu. file terlampir

  2. manweljs_

    Jun 9 Terverifikasi + 5.163 Poin

    @bejo

    filenya tidak terlampir

  3. maaf master, di emal terkirim sudah terlampir, tp tidak apa, ini saya coba kirim kembali, terima kasih atas perhatiannya

  4. manweljs_

    Jun 11 Terverifikasi + 5.163 Poin

    Saya pikir yang ini sama dengan pertanyaan pada diskusi disebelah ya?

  5. 3 bulan yang lalu

    master, kq rumus pada gk jalan sulosinya apa ya master, sering jg di file excel

  6. manweljs_

    Jul 31 Terverifikasi + 5.163 Poin
    Di sunting 3 bulan yang lalu oleh manweljs_

    @bejo

    rumus yang mana ? gak jalan seperti apa? maaf saya tidak bisa menjawab tanpa memeriksa rumus nya.

    Cheers!

  7. Maaf master,, semua rumus gk jalan, rupanay workbook calculatenya berubah jadi manual, berubah sendiri, maaf master jd ganggu waktunya

  8. master, kalo sheet datebasenya di proteck, apakah macro vba save di sheet tsb bisa berfungsi?

  9. manweljs_

    Jul 31 Terverifikasi + 5.163 Poin
    Di sunting 3 bulan yang lalu oleh manweljs_

    @bejo

    tergantung proteksinya seperti apa dan skrip VBAnya seperti apa

    coba perhatikan gambar berikut:

    Protect.gif

  10. terima kasih master, wah saya jadi kaya anak kursus, tanya terus, ;)

  11. Sheets("input").Range("A6:G6").Copy Sheets(Sheet1).Cells(Rows.Count, 1).End(xlUp).Row + 1

    Master please help me, copi dari sheet "input" baris A6:G6 ke sheet 1 baris terakhir + 1, scriptnya gmna ???

  12. 2 bulan yang lalu

    Private Sub Tbayar_Change()
    If IsNumeric(Tbayar) Then
    Tbayar = Format(Tbayar, "#,##0")
    Else
    Tbayar = Format(Tbayar, "###")
    End If
    End Sub

    maaf master, knpa rumus ini hasilnya teks, bukan numeric ya, terima kasih sebelumnya

  13. manweljs_

    Agu 6 Terverifikasi + 5.163 Poin

    @bejo

    harusnya formatnya currency.

    mungkin mas @Caton bisa bantu jelaskan kenapa bisa hasilnya text?
    silahkan mas

  14. Master, bisa gk pada form menampilkan tabel??

  15. Caton

    Agu 7 Terverifikasi Indonesia + 12.008 Poin

    MAs @manweljs_ :

    ... mungkin mas @Caton bisa bantu jelaskan kenapa bisa hasilnya text ...

    Sama dengan penjelasan mas @manweljs_, kalau melihat prosedur tersebut, seharusnya hasilnya adalah numerik, jika inputnya berupa numerik.

    Mas @Bejo :

    ... knpa rumus ini hasilnya teks, bukan numeric ya, terima kasih sebelumnya ...

    Kalau dilihat dari file yang mas lampirkan terakhir di atas, masalahnya adalah pada saat proses menyimpan, yakni pada baris:

    Sub BTINPUT_Click()
    ...
    Me.Tbayar.Value = ""
    ...
    End Sub

    Pada saat perintah tersebut dieksekusi, prosedur berikut:

    Private Sub Tbayar_Change()
    If IsNumeric(Tbayar) Then
    Tbayar = Format(Tbayar, "#,##0")
    Else
    Tbayar = Format(Tbayar, "###")
    End If
    End Sub

    akan dieksekusi secara otomatis, oleh karena prosedur Sub Tbayar_Change termasuk Event Procedure, artinya prosedur tersebut akan dieksekusi jika Event yang dimaksud (dalam hal ini Change Event) dipicu. Alhasil, karena properti Text dari kontrol Tbayar berubah, maka prosedur tersebut pun dieksekusi. Dan dikarenakan Empty String ("") bukan merupakan numerik, maka otomatis blok Tbayar = Format(Tbayar, "###") yang akan dieksekusi.

    Saran saya, ubah saja scriptnya menjadi:

    Private Sub Tbayar_Change()
       If IsNumeric(Tbayar) Then
          Tbayar = Format(Tbayar, "#,##0")
       End If
    End Sub

    dikarenakan baris script:

    Tbayar = Format(Tbayar, "###")

    pada dasarnya tidak berguna saat pengguna memasukkan nilai non numerik (bukan angka), karena karakter # merupakan Digit Placeholder yang hanya berguna untuk memformat sebuah teks yang berupa numerik saja. Dengan membuang baris tersebut, setidaknya dapat mengurangi perintah-perintah yang pada dasarnya tidak dibutuhkan.

    Kalau mas @Bejo mau lebih ketat, saran saya:

    [1] Buat prosedur untuk menguji setiap karakter yang dimasukkan hanya berupa angka saja;
    [2] Atau sebelum proses menyimpan, lakukan validasi terhadap tipe nilai dari kotak masukan (misalkan Tbayar). Informasikan kepada pengguna jika tipe nilai yang diinput salah.

    Demikian.

  16. terima kasih master, akan saya coba!!!

  17. master, setelah entri data,kemudian cetak dan simpan, bagaimana script untuk menonaktifkan kotak isian/ entri data kecuali commad input lagi atau exit, saya coba2 pake locked gk bisa, atau penulisannya yg salah, mohon bantuannya

    Me.Cbkelas.Locked
    Me.Lbnama.Locked
    Me.DTPicker1.Locked
    Me.Tbayar.Locked
    Me.TBING.Locked

  18. manweljs_

    Agu 11 Terverifikasi + 5.163 Poin

    coba :

    ...
    me.cbkelas.enabled = false
    ...

    hanya saja jangan lupa pada event tertentu harus di

    ...
    me.cbkelas.enabled = true
    ...

  19. siap master, dicoba!!!! terima kasih

  20. master mau tanya, aplikasi macro yang saya buat kalau terbuka dan posisi tidak terpakai agak lama, ketika akan digunakan pasti ng'hang ya, kira2 masalahnya dimana ya master??

  21. Newer ›
 

atau Mendaftar untuk ikut berdiskusi!