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: [email protected] [mailto:[email protected]] On
Behalf Of [email protected]
Sent: Tuesday, November 19, 2013 7:49 AM
To: [email protected]
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 [email protected], <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 :)
