RE: Bls: [belajar-excel] Merubah deretan jumlah angka yang berupa text menjadi hasil numeric

[zainul_ulum[at]yahoo[dot]com]

kalo ingin lebih ringkas,
'====
Function Jumlah(strInput As String) As Double
    Dim Extracted As Variant, i As Integer
    Dim dJumlah As Double, dAngka As Double
    Extracted = Split(strInput, "+")
    dJumlah = 0
    For i = LBound(Extracted) To UBound(Extracted)
    Debug.Print Extracted(i)
        If Extracted(i) = vbNullString Then
            dAngka = 0
        Else
            dAngka = CDbl(Extracted(i))
        End If
        
        dJumlah = dJumlah + dAngka
    Next i
    Jumlah = dJumlah
End Function
'====
'simpan fungsi di atas di model ms access.
kira-kira SQL nya adalah sebagai berikut...

SELECT Jumlah([JUMLAH_BARANG]) AS TOTAL

silahkan dicoba

-----Original Message-----
From: zainul_ulum[at]yahoo[dot]com [mailto:zainul_u...@yahoo.com] 
Sent: Tuesday, November 19, 2013 3:14 PM
To: 'belajar-excel@yahoogroups.com'
Subject: RE: Bls: [belajar-excel] Merubah deretan jumlah angka yang berupa text 
menjadi hasil numeric [2 Attachments]

Mungkin bisa dicoba pakai formula UDF (User Defined Function) di ms. access sbb:

'=============================
Function Jumlahkan(strInput As String) As Double
    
    Dim i As Integer, j As Integer
    Dim aChr As String
    Dim opr() As String
    
    strInput = [A1].Value
    'tambahakan tanda "+" jika input tidak diawali dengan tanda plus (+)
    If Left(strInput, 1) <> "+" Then
        strInput = "+" & strInput
    End If
    j = -1
    For i = 1 To Len(strInput)
        aChr = Mid(strInput, i, 1) 'cek karakter ke-i
        If InStr(1, "+", aChr) <> 0 Then 'jika karakter="+"
            j = j + 1
            ReDim Preserve opr(j) 'simpan posisinya
            opr(j) = i
        End If
    Next i
    
    'merubah menjadi fungsi matematika
    Dim dJumlah As Double, w As Integer, st As Integer
    dJumlah = 0
    For i = 1 To UBound(opr)
        st = opr(i - 1) + 1
        w = opr(i) - st
        dJumlah = dJumlah + CDbl(Mid(strInput, st, w))
    Next i
    
    'menjumlahkan angka terakhir
     dJumlah = dJumlah + CDbl(Mid(strInput, opr(UBound(opr)) + 1, 99))
    Jumlahkan = dJumlah
End Function
'================================================


From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On 
Behalf Of dono_so...@yahoo.com
Sent: Tuesday, November 19, 2013 7:49 AM
To: belajar-excel@yahoogroups.com
Subject: RE: Bls: [belajar-excel] Merubah deretan jumlah angka yang berupa text 
menjadi hasil numeric [2 Attachments]

  
maaf bang boleh minta pencerahan lagi :D 

Saya coba terapkan rumus ini ke Query Ms. Access tapi ternyata tidak berhasil 
:(, karena formula nya berbeda (biasa nya ga beda jauh :D) 

Mungkin ini keluar dari topik excel :D, cuman saya sudah posting ke milis 
access tapi belum ada yang reply, nampaknya tu milis udah ga pada aktiv :D.. 

mohon bantuan nya ya bang plisss... 
saya lampirkan file access sama capture nya terimakasih 

insya Allah Barakah :) 


---In belajar-excel@yahoogroups.com, <ghozialkatiri@...> wrote:
formula array  (Ctrl + Shift +Enter)
=SUM(IFERROR(--MID(SUBSTITUTE(A2,"+",REPT(" 
",LEN(A2))),(ROW($1:$10)-1)*LEN(A2)+1,LEN(A2)),""))

copy ke bawah

wassalam 

Ghozi Alkatiri


Pada Minggu, 17 November 2013 21:13, "dono_songz@..." <dono_songz@...> menulis:
  
Selamat siang :) 

Bagaimana rumus merubah deretan jumlah angka yang berupa text menjadi hasil 
numeric contoh : Cell A1: "100+200+800+1500", nah pada B1 hasilnya otomatis 
2600 (numeric) saya lampirkan capture nya 

mohon bantuan nya ya para master, nanti nya saya akan terapkan rumus ini ke 
Microsoft Access.. 
Terimakasih :)