Gagal mengubah koma jadi titik, titik jadi koma dengan macro

  1. 2 tahun lalu

    Mohon bertanya,

    saya buat macro untuk mengubah titik jadi koma, koma jadi titik di angka dengan cara record macro.
    Selama ini selalu berhasil di Excel 2007. Sekarang baru ganti excel 2013, macro yang saya buat di excel 2007 ga berhasil.
    Saya buat lagi baru di excel 2013, tetap gagal.
    Misal:
    '123,456.78 setelah dijalankan macro jadi '123456,78. Hasilnya masih ada tanda ' jadi bukan angka.

    Terlampir contoh filenya

    Mohon solusinya

  2. Solve hehehe

    Setelah koma diganti titik.
    Titik harus diganti dengan titik. Ga boleh diganti dengan koma.
    Mungkin masalah setting region.
    Sumber dari sini

    Sub gantititkkoma()
    '
    ' gantititkkoma Macro
    '
    ' Keyboard Shortcut: Ctrl+Shift+Z
    '
    Selection.Replace What:=",", Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
    Selection.Replace What:=".", Replacement:=".", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
    Selection.Style = "Comma [0]"
    Selection.NumberFormat = "_(* #,##0.00_);_(* (#,##0.00);_(* ""-""_);_(@_)"
    End Sub

  3. tghfox

    3 Sep 2016 Terverifikasi Bekasi Barat + 436 Poin

    dengan seperti itu macro bos rahja menjadi kurang fleksibel terhadap region setting,
    silahkan coba ini,
    semoga bermanfaat

    Sub ubah()
    Dim lBrsAkhir As Long
    Dim sFormulas As String
    
    lBrsAkhir = Range("B" & Rows.Count).End(xlUp).Row
    
    Range("H1").Formula = "=SUBSTITUTE(SUBSTITUTE(E1,""."",""""),"","","""")/100"
    Range("H1").Copy Range("H1:H" & lBrsAkhir)
    Range("H1:H" & lBrsAkhir).Copy
    Range("F1").PasteSpecial Paste:=xlPasteValues
    Columns("F").NumberFormat = "#,##0.00"
    Range("H1:H" & lBrsAkhir).Value = Empty
    
    
    MsgBox "selesai, hasil ada di kolom F", vbInformation, "info"
    
    End Sub

 

atau Mendaftar untuk ikut berdiskusi!