format mata uang

  1. 5 bulan yang lalu

    gan @manweljs_ mohon bimbingannya
    bagaimana rumus hasil penjumlahannya menjadi format mata uang

  2. manweljs_

    Jun 5 Terverifikasi + 5.786 Poin

    @derry

    berikut contoh skripnya:

    ...
    'copy data ke database
    ws.Cells(irow, 1).Value = Format(jbarang, "#,##0")
    ws.Cells(irow, 2).Value = Format(jjenis, "#,##0")
    ws.Cells(irow, 3).Value = Format(Int(jbarang) + Int(jjenis), "$#,##0")
    
    'Total
    ws.Cells(irow + 1, 1).Value = Format(jbarang + ws.Cells(irow - 1, 1), "#,##0")
    ws.Cells(irow + 1, 2).Value = Format(jjenis + ws.Cells(irow - 1, 2), "#,##0")
    ws.Cells(irow + 1, 3).Value = Format(ws.Cells(irow, 3) + ws.Cells(irow - 1, 3), "$#,##0")
    
    Range("A" & irow + 1 & ":C" & irow + 1).Select
        With Selection.Font
            .ThemeColor = xlThemeColorAccent1
            .TintAndShade = -0.249977111117893
        End With
        With Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent1
            .TintAndShade = 0.799981688894314
            .PatternTintAndShade = 0
        End With
    ...

  3. terimakasih banyak @manweljs_ sudah membantu
    sukses terus dan lancar segala urusannya

 

atau Mendaftar untuk ikut berdiskusi!