15 New Messages
Digest #2645
1a
Re: Bls: [belajar-excel] Merubah deretan jumlah angka yang berupa te by "zainul_ulum[at]yahoo[dot]com" zainul_ulum
1b
Re: Bls: [belajar-excel] Merubah deretan jumlah angka yang berupa te by "zainul_ulum[at]yahoo[dot]com" zainul_ulum
1c
Re: Bls: [belajar-excel] Merubah deretan jumlah angka yang berupa te by "Mr. Kid" nmkid.family@ymail.com
1d
Re: Bls: [belajar-excel] Merubah deretan jumlah angka yang berupa te by "zainul_ulum[at]yahoo[dot]com" zainul_ulum
1f
Re: Bls: [belajar-excel] Merubah deretan jumlah angka yang berupa te by "zainul_ulum[at]yahoo[dot]com" zainul_ulum
2a
{Disarmed} RE: [belajar-excel] Program Aplikasi Absensi karyawan by "Agung Hermansyah" agung_mospsi
4b
Re: Bagaimana cara membuat conditional formatting anatara 2 sheet ya by "Mr. Kid" nmkid.family@ymail.com
Messages
Tue Nov 19, 2013 12:13 am (PST) . Posted by:
"zainul_ulum[at]yahoo[dot]com" zainul_ulum
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_songz@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 :)
'=======
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, "+"
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)
Jumlahkan = dJumlah
End Function
'=======
From: belajar-excel@
Sent: Tuesday, November 19, 2013 7:49 AM
To: belajar-excel@
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@
formula array (Ctrl + Shift +Enter)
=SUM(IFERROR(
copy ke bawah
wassalam
Ghozi Alkatiri
Pada Minggu, 17 November 2013 21:13, "dono_songz@
Selamat siang :)
Bagaimana rumus merubah deretan jumlah angka yang berupa text menjadi hasil numeric
contoh : Cell A1: "100+200+
saya lampirkan capture nya
mohon bantuan nya ya para master, nanti nya saya akan terapkan rumus ini ke Microsoft Access..
Terimakasih :)
Tue Nov 19, 2013 12:33 am (PST) . Posted by:
"zainul_ulum[at]yahoo[dot]com" zainul_ulum
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_ulum@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_songz@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 :)
'====
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(
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_
silahkan dicoba
-----Original Message-----
From: zainul_ulum[
Sent: Tuesday, November 19, 2013 3:14 PM
To: 'belajar-
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, "+"
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)
Jumlahkan = dJumlah
End Function
'=======
From: belajar-excel@
Sent: Tuesday, November 19, 2013 7:49 AM
To: belajar-excel@
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@
formula array (Ctrl + Shift +Enter)
=SUM(IFERROR(
copy ke bawah
wassalam
Ghozi Alkatiri
Pada Minggu, 17 November 2013 21:13, "dono_songz@
Selamat siang :)
Bagaimana rumus merubah deretan jumlah angka yang berupa text menjadi hasil numeric contoh : Cell A1: "100+200+
mohon bantuan nya ya para master, nanti nya saya akan terapkan rumus ini ke Microsoft Access..
Terimakasih :)
Tue Nov 19, 2013 12:41 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
mas Zain,
mungkin yang displit direplace dulu karakter - (pengurangan) menjadi +-
(tambah nilai negatif)
jadi bisa mengakomodir 100-50+2
Wassalam,
Kid.
2013/11/19 zainul_ulum[at]yahoo[dot]com <zainul_ulum@yahoo.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_ulum@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_songz@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 :)
>
>
>
mungkin yang displit direplace dulu karakter - (pengurangan) menjadi +-
(tambah nilai negatif)
jadi bisa mengakomodir 100-50+2
Wassalam,
Kid.
2013/11/19 zainul_ulum[
>
>
> 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(
> 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_
>
> silahkan dicoba
>
>
> -----Original Message-----
> From: zainul_ulum[
> Sent: Tuesday, November 19, 2013 3:14 PM
> To: 'belajar-
> 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, "+"
> 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)
> Jumlahkan = dJumlah
> End Function
> '=======
>
> From: belajar-excel@
> On Behalf Of dono_songz@yahoo.
> Sent: Tuesday, November 19, 2013 7:49 AM
> To: belajar-excel@
> 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@
> formula array (Ctrl + Shift +Enter)
> =SUM(IFERROR(
> ",LEN(A2)
>
> copy ke bawah
>
> wassalam
>
> Ghozi Alkatiri
>
> Pada Minggu, 17 November 2013 21:13, "dono_songz@
> menulis:
>
> Selamat siang :)
>
> Bagaimana rumus merubah deretan jumlah angka yang berupa text menjadi
> hasil numeric contoh : Cell A1: "100+200+
> otomatis 2600 (numeric) saya lampirkan capture nya
>
> mohon bantuan nya ya para master, nanti nya saya akan terapkan rumus ini
> ke Microsoft Access..
> Terimakasih :)
>
>
>
Tue Nov 19, 2013 12:48 am (PST) . Posted by:
"zainul_ulum[at]yahoo[dot]com" zainul_ulum
ya Mas Kid,
tadi kepikiran juga begitu. tapi contoh di database hanya berisi tanda "+"
saja.
wassalam
-zainul-
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Mr. Kid
Sent: Tuesday, November 19, 2013 3:41 PM
To: BeExcel
Subject: Re: Bls: [belajar-excel] Merubah deretan jumlah angka yang berupa
text menjadi hasil numeric
mas Zain,
mungkin yang displit direplace dulu karakter - (pengurangan) menjadi +-
(tambah nilai negatif)
jadi bisa mengakomodir 100-50+2
Wassalam,
Kid.
2013/11/19 zainul_ulum[at]yahoo[dot]com <zainul_ulum@yahoo.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_ulum@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_songz@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 :)
tadi kepikiran juga begitu. tapi contoh di database hanya berisi tanda "+"
saja.
wassalam
-zainul-
From: belajar-excel@
On Behalf Of Mr. Kid
Sent: Tuesday, November 19, 2013 3:41 PM
To: BeExcel
Subject: Re: Bls: [belajar-excel] Merubah deretan jumlah angka yang berupa
text menjadi hasil numeric
mas Zain,
mungkin yang displit direplace dulu karakter - (pengurangan) menjadi +-
(tambah nilai negatif)
jadi bisa mengakomodir 100-50+2
Wassalam,
Kid.
2013/11/19 zainul_ulum[
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(
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_
silahkan dicoba
-----Original Message-----
From: zainul_ulum[
Sent: Tuesday, November 19, 2013 3:14 PM
To: 'belajar-
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, "+"
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)
Jumlahkan = dJumlah
End Function
'=======
From: belajar-excel@
On Behalf Of dono_songz@yahoo.
Sent: Tuesday, November 19, 2013 7:49 AM
To: belajar-excel@
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@
formula array (Ctrl + Shift +Enter)
=SUM(IFERROR(
",LEN(A2)
copy ke bawah
wassalam
Ghozi Alkatiri
Pada Minggu, 17 November 2013 21:13, "dono_songz@
menulis:
Selamat siang :)
Bagaimana rumus merubah deretan jumlah angka yang berupa text menjadi hasil
numeric contoh : Cell A1: "100+200+
2600 (numeric) saya lampirkan capture nya
mohon bantuan nya ya para master, nanti nya saya akan terapkan rumus ini ke
Microsoft Access..
Terimakasih :)
Tue Nov 19, 2013 12:50 am (PST) . Posted by:
dono_songz
Terimakasih mas zein atas solusinya :)..
tapi saya masih bingung langkah awal masukan formula nya :D di query nya apa di form ? (maklum masih belajar heheh)
bolehkah saya minta contoh yang sudah jadinya mas (file yg saya upload)
terimakasih banyak mas :)
---In belajar-excel@yahoogroups.com, <zainul_ulum@...> wrote:
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_ulum@... mailto:zainul_ulum@...]
Sent: Tuesday, November 19, 2013 3:14 PM
To: 'belajar-excel@yahoogroups.com mailto: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 [mailto:belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com] On Behalf Of dono_songz@... mailto:dono_songz@...
Sent: Tuesday, November 19, 2013 7:49 AM
To: belajar-excel@yahoogroups.com mailto: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 mailto: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 :)
tapi saya masih bingung langkah awal masukan formula nya :D di query nya apa di form ? (maklum masih belajar heheh)
bolehkah saya minta contoh yang sudah jadinya mas (file yg saya upload)
terimakasih banyak mas :)
---In belajar-excel@
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(
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_
silahkan dicoba
-----Original Message-----
From: zainul_ulum[
Sent: Tuesday, November 19, 2013 3:14 PM
To: 'belajar-
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, "+"
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)
Jumlahkan = dJumlah
End Function
'=======
From: belajar-excel@
Sent: Tuesday, November 19, 2013 7:49 AM
To: belajar-excel@
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@
formula array (Ctrl + Shift +Enter)
=SUM(IFERROR(
copy ke bawah
wassalam
Ghozi Alkatiri
Pada Minggu, 17 November 2013 21:13, "dono_songz@
Selamat siang :)
Bagaimana rumus merubah deretan jumlah angka yang berupa text menjadi hasil numeric contoh : Cell A1: "100+200+
mohon bantuan nya ya para master, nanti nya saya akan terapkan rumus ini ke Microsoft Access..
Terimakasih :)
Tue Nov 19, 2013 1:14 am (PST) . Posted by:
"zainul_ulum[at]yahoo[dot]com" zainul_ulum
saya belum coba di access krn di computer saya tidak ada Microsoft access-nya.
Saya cari dulu computer yang punya ms. access.
wassalam
-zainul-
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of dono_songz@yahoo.com
Sent: Tuesday, November 19, 2013 3:49 PM
To: belajar-excel@yahoogroups.com
Subject: RE: RE: Bls: [belajar-excel] Merubah deretan jumlah angka yang berupa text menjadi hasil numeric
Terimakasih mas zein atas solusinya :)..
tapi saya masih bingung langkah awal masukan formula nya :D di query nya apa di form ? (maklum masih belajar heheh)
bolehkah saya minta contoh yang sudah jadinya mas (file yg saya upload)
terimakasih banyak mas :)
---In belajar-excel@yahoogroups.com, <zainul_ulum@...> wrote:
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_ulum@...]
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_songz@...
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 :)
Saya cari dulu computer yang punya ms. access.
wassalam
-zainul-
From: belajar-excel@
Sent: Tuesday, November 19, 2013 3:49 PM
To: belajar-excel@
Subject: RE: RE: Bls: [belajar-excel] Merubah deretan jumlah angka yang berupa text menjadi hasil numeric
Terimakasih mas zein atas solusinya :)..
tapi saya masih bingung langkah awal masukan formula nya :D di query nya apa di form ? (maklum masih belajar heheh)
bolehkah saya minta contoh yang sudah jadinya mas (file yg saya upload)
terimakasih banyak mas :)
---In belajar-excel@
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(
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_
silahkan dicoba
-----Original Message-----
From: zainul_ulum[
Sent: Tuesday, November 19, 2013 3:14 PM
To: 'belajar-
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, "+"
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)
Jumlahkan = dJumlah
End Function
'=======
From: belajar-excel@
Sent: Tuesday, November 19, 2013 7:49 AM
To: belajar-excel@
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@
formula array (Ctrl + Shift +Enter)
=SUM(IFERROR(
copy ke bawah
wassalam
Ghozi Alkatiri
Pada Minggu, 17 November 2013 21:13, "dono_songz@
Selamat siang :)
Bagaimana rumus merubah deretan jumlah angka yang berupa text menjadi hasil numeric contoh : Cell A1: "100+200+
mohon bantuan nya ya para master, nanti nya saya akan terapkan rumus ini ke Microsoft Access..
Terimakasih :)
Tue Nov 19, 2013 12:44 am (PST) . Posted by:
"Agung Hermansyah" agung_mospsi
Dear para master,
Kenapa kalau saya buka di komputer saya (Office 2007), jamnya tidak jalan menunjukan sesuai jam yang di PC?
Kiranya ada yang bisa kasih info?
Terima kasih atas perhatiannya dan kerja samanya.
Salam,
Agung Hermansyah
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of Apriyadi Apri
Sent: 27 Juli 2013 12:58
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Program Aplikasi Absensi karyawan
Dear Alen,
Berikut ini aplikasi absen yang sudah editing Mr.Kid.
Konsepnya sama dan sudah dicoba.Perbedaanya hanya pada
-Satu orang yang sama tidak bisa absen datang lebih dari 1 kali pada hari yang sama.Dan Jika satu orang yang sama mencoba absen datang lebih dari 1 kali pada hari yang sama akan muncul keterangan "sudah absen datang".Hal ini diberlakukan agar tidak ada Double data dan mempermudah saat membuat rekap.
Saya sudah gunakan aplikasi absen sepertinya bisa digunakan dalam kurun 3 Bulan atau lebih dan bisa digunakan untuk 90 orang atau lebih.Namun untuk menjaga jaga data nya maka per Bulan saya Back up terlebih dahulu.
Karena pernah data rusak "Entah kenapa atau mungkin ada yang mencoba merusak"
Aplikasinya ditempat kerja, Saya Protect agar datanya tidak diubah oleh orang lain.Maklum satu komputer digunakan oleh banyak orang.
Ucapan terima kasih untuk semua Master dan teman teman Be Excel.
Salam dan Sholawat untuk Rosulullah dan keluargaNya berserta Alm Mbak Siti.
Thank
Apriyadi
--
This message has been scanned for viruses and
dangerous content by MailScanner, and is
believed to be clean.
Kenapa kalau saya buka di komputer saya (Office 2007), jamnya tidak jalan menunjukan sesuai jam yang di PC?
Kiranya ada yang bisa kasih info?
Terima kasih atas perhatiannya dan kerja samanya.
Salam,
Agung Hermansyah
From: belajar-excel@
Sent: 27 Juli 2013 12:58
To: belajar-excel@
Subject: Re: [belajar-excel] Program Aplikasi Absensi karyawan
Dear Alen,
Berikut ini aplikasi absen yang sudah editing Mr.Kid.
Konsepnya sama dan sudah dicoba.Perbedaanya hanya pada
-Satu orang yang sama tidak bisa absen datang lebih dari 1 kali pada hari yang sama.Dan Jika satu orang yang sama mencoba absen datang lebih dari 1 kali pada hari yang sama akan muncul keterangan "sudah absen datang"
Saya sudah gunakan aplikasi absen sepertinya bisa digunakan dalam kurun 3 Bulan atau lebih dan bisa digunakan untuk 90 orang atau lebih.Namun untuk menjaga jaga data nya maka per Bulan saya Back up terlebih dahulu.
Karena pernah data rusak "Entah kenapa atau mungkin ada yang mencoba merusak"
Aplikasinya ditempat kerja, Saya Protect agar datanya tidak diubah oleh orang lain.Maklum satu komputer digunakan oleh banyak orang.
Ucapan terima kasih untuk semua Master dan teman teman Be Excel.
Salam dan Sholawat untuk Rosulullah dan keluargaNya berserta Alm Mbak Siti.
Thank
Apriyadi
--
This message has been scanned for viruses and
dangerous content by MailScanner, and is
believed to be clean.
Tue Nov 19, 2013 1:20 am (PST) . Posted by:
respati007
Dear All Para Master,
Saya Punya Case untuk Import 1 WorkBook dengan Banyak Sheet
Saya ingin mengImport (copy) data 1 WorkBook dengan Banyak Sheet Kedalam New.WorkBook di dalam 1 Sheet
Terlampir Uraian nya,
Terima Kasih
Saya Punya Case untuk Import 1 WorkBook dengan Banyak Sheet
Saya ingin mengImport (copy) data 1 WorkBook dengan Banyak Sheet Kedalam New.WorkBook di dalam 1 Sheet
Terlampir Uraian nya,
Terima Kasih
Tue Nov 19, 2013 3:02 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Respati,
*** Mohon file lampirannya dijaga untuk tidak lebih dari 250KB dulu ya,
sampai ada diskusi untuk menaikkan plafon ukuran file lampiran.
Coba file yang ada disini <https://app.box.com/s/mwnngtmulf21gfu4oogv>
Wassalam,
Kid.
2013/11/19 <respati007@gmail.com>
>
>
> Dear All Para Master,
>
> Saya Punya Case untuk Import 1 WorkBook dengan Banyak Sheet
>
> Saya ingin mengImport (copy) data 1 WorkBook dengan Banyak Sheet Kedalam
> New.WorkBook di dalam 1 Sheet
>
>
>
> Terlampir Uraian nya,
>
>
>
> Terima Kasih
>
>
>
*** Mohon file lampirannya dijaga untuk tidak lebih dari 250KB dulu ya,
sampai ada diskusi untuk menaikkan plafon ukuran file lampiran.
Coba file yang ada disini <https://app.
Wassalam,
Kid.
2013/11/19 <respati007@gmail.
>
>
> Dear All Para Master,
>
> Saya Punya Case untuk Import 1 WorkBook dengan Banyak Sheet
>
> Saya ingin mengImport (copy) data 1 WorkBook dengan Banyak Sheet Kedalam
> New.WorkBook di dalam 1 Sheet
>
>
>
> Terlampir Uraian nya,
>
>
>
> Terima Kasih
>
>
>
Tue Nov 19, 2013 2:35 am (PST) . Posted by:
"Heru Adi" hr_adhi
Aslmlkm, rekan rekan,,
saya mau tanya bagaimana cara membuat conditional formatting antara 2
sheet yang berbeda dimana sheet yang pertama merupakan file yang akan
di monitoring dan sheet yang kedua adalah file data based'y. mohon
bantuannya master-master sekalian. untuk lebih jelasnya file
terlampir. terima kasih. saya tunggu jawabannya :)
saya mau tanya bagaimana cara membuat conditional formatting antara 2
sheet yang berbeda dimana sheet yang pertama merupakan file yang akan
di monitoring dan sheet yang kedua adalah file data based'y. mohon
bantuannya master-master sekalian. untuk lebih jelasnya file
terlampir. terima kasih. saya tunggu jawabannya :)
Tue Nov 19, 2013 2:59 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam Wr. Wb.
File terlampir memanfaatkan nama range untuk menentukan status suatu input.
Nama range tersebut dimanfaatkan dalam Conditional Formatting.
Wassalamu'alaikum Wr. Wb.
Kid.
2013/11/19 Heru Adi <hr_adhi@yahoo.com>
>
>
> Aslmlkm, rekan rekan,,
> saya mau tanya bagaimana cara membuat conditional formatting antara 2
> sheet yang berbeda dimana sheet yang pertama merupakan file yang akan
> di monitoring dan sheet yang kedua adalah file data based'y. mohon
> bantuannya master-master sekalian. untuk lebih jelasnya file
> terlampir. terima kasih. saya tunggu jawabannya :)
>
>
>
File terlampir memanfaatkan nama range untuk menentukan status suatu input.
Nama range tersebut dimanfaatkan dalam Conditional Formatting.
Wassalamu'
Kid.
2013/11/19 Heru Adi <hr_adhi@yahoo.
>
>
> Aslmlkm, rekan rekan,,
> saya mau tanya bagaimana cara membuat conditional formatting antara 2
> sheet yang berbeda dimana sheet yang pertama merupakan file yang akan
> di monitoring dan sheet yang kedua adalah file data based'y. mohon
> bantuannya master-master sekalian. untuk lebih jelasnya file
> terlampir. terima kasih. saya tunggu jawabannya :)
>
>
>
Tue Nov 19, 2013 2:47 am (PST) . Posted by:
"Tuti Hartati"
Dear BeExceller,
Mau tanya saya punya data absensi tetapi bingung untuk ngerekapnya, saya ingin mencari data berdasarkan per shift dan per group, mohon bantuannya.
Terimakasih sebelumnya.
Best Regards,
Tuti Hartati
Mau tanya saya punya data absensi tetapi bingung untuk ngerekapnya, saya ingin mencari data berdasarkan per shift dan per group, mohon bantuannya.
Terimakasih sebelumnya.
Best Regards,
Tuti Hartati
Tue Nov 19, 2013 3:15 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Tuti,
File terlampir menggunakan SumProduct.
Wassalam,
Kid.
2013/11/19 Tuti Hartati <tuti-hartati@fukusuke-kogyo.co.id>
>
>
> Dear BeExceller,
>
> Mau tanya saya punya data absensi tetapi bingung untuk ngerekapnya, saya
> ingin mencari data berdasarkan per shift dan per group, mohon bantuannya.
>
> Terimakasih sebelumnya.
>
>
>
>
>
> Best Regards,
>
> Tuti Hartati
>
>
>
File terlampir menggunakan SumProduct.
Wassalam,
Kid.
2013/11/19 Tuti Hartati <tuti-hartati@
>
>
> Dear BeExceller,
>
> Mau tanya saya punya data absensi tetapi bingung untuk ngerekapnya, saya
> ingin mencari data berdasarkan per shift dan per group, mohon bantuannya.
>
> Terimakasih sebelumnya.
>
>
>
>
>
> Best Regards,
>
> Tuti Hartati
>
>
>
Tue Nov 19, 2013 3:40 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Pak Hendrik,
Fungsi Date biasanya dimiliki oleh library VBA (Visual Basic for
Applications) -> coba lihat di references di VBE
Untungnya, library ini by default selalu sudah dipasangkan oleh Excel VBA
agar ter-load disetiap VBProject (alias sudah dicentangken oleh Excel VBA,
jadi ndak perlu repot harus centangin sendiri)
Library seperti Microsoft *Office *Object Library selalu mengikuti
versinya. Bisa jadi, si references ini ndak sesuai dengan office yang
sedang aktif.
Apalagi kalau ada library dalam References yang berstatus MISSING.
Pada beberapa library Microsoft Office Object Library (mungkin yang office
2010), ada fungsi Date didalamnya, sehingga si Excel VBA akan galau karena
ada 2 fungsi yang sama namanya ber-scope sama-sama public. Jadi, muncullah
si error.
Supaya ndak error, maka pilih salah satu fungsi, seperti memilih dari
library VBA dengan cara VBA.Date
Biasanya fungsi Now hanya dimiliki oleh library VBA. Fungsi Now yang
dimiliki oleh library Excel.exe biasanya ber-scope public terpilih
mengikuti object bernama worksheetfunction. Jadi fungsi Now relatif tidak
menimbulkan error.
Kalau diversi Excel 2010 saya ndak tahu, dimana saja si fungsi Now itu
berada. Jika ternyata dalam library Office nya juga ada, maka bisa ganda
dan menimbulkan error.
Gitu kali ya... setidaknya mendekatinya demikianlah... saya ndak tahu
persisnya bagaimana
Wassalam,
Kid.
2013/11/18 hendrik karnadi <hendrikkarnadi@yahoo.com>
>
>
> Rekan2 Be-Exceller,
>
> Ada satu warisan dari mbak Siti mengenai Simple Invoicing (file
> terlampir), dimana ada satu bagian perintah macro With .. End With yang
> berbunyi:
> .[B3] = Date
> yang menimbulkan Error baik pada Excel 2007 (pertanyaan dari rekan kita)
> maupun hasil tes saya pada Excel 2010 (komputer kantor).
> Pesan Errornya adalah sbb :
> "Compile Error, Can't Find Project or Library"
>
> Tapi anehnya di komputer rumah yang juga pakai Excel 2010, macro tsb
> berjalan dengan mulu (ketika saya menjawab email saya pakai komputer rumah).
>
> Saran dari Mr Kid, Date diganti dengan Int(now) memang bisa memecahkan
> masalah tsb.
>
> Namun masih tersisa pertanyaan, dimana salahnya...., apakah perintah Date
> hanya berlaku untuk Excel versi tertentu....??
>
> Mohon sharing dari rekan2.
>
> Terima kasih.
>
> Salam,
> HK
>
>
>
>
>
>
Fungsi Date biasanya dimiliki oleh library VBA (Visual Basic for
Applications) -> coba lihat di references di VBE
Untungnya, library ini by default selalu sudah dipasangkan oleh Excel VBA
agar ter-load disetiap VBProject (alias sudah dicentangken oleh Excel VBA,
jadi ndak perlu repot harus centangin sendiri)
Library seperti Microsoft *Office *Object Library selalu mengikuti
versinya. Bisa jadi, si references ini ndak sesuai dengan office yang
sedang aktif.
Apalagi kalau ada library dalam References yang berstatus MISSING.
Pada beberapa library Microsoft Office Object Library (mungkin yang office
2010), ada fungsi Date didalamnya, sehingga si Excel VBA akan galau karena
ada 2 fungsi yang sama namanya ber-scope sama-sama public. Jadi, muncullah
si error.
Supaya ndak error, maka pilih salah satu fungsi, seperti memilih dari
library VBA dengan cara VBA.Date
Biasanya fungsi Now hanya dimiliki oleh library VBA. Fungsi Now yang
dimiliki oleh library Excel.exe biasanya ber-scope public terpilih
mengikuti object bernama worksheetfunction. Jadi fungsi Now relatif tidak
menimbulkan error.
Kalau diversi Excel 2010 saya ndak tahu, dimana saja si fungsi Now itu
berada. Jika ternyata dalam library Office nya juga ada, maka bisa ganda
dan menimbulkan error.
Gitu kali ya... setidaknya mendekatinya demikianlah.
persisnya bagaimana
Wassalam,
Kid.
2013/11/18 hendrik karnadi <hendrikkarnadi@
>
>
> Rekan2 Be-Exceller,
>
> Ada satu warisan dari mbak Siti mengenai Simple Invoicing (file
> terlampir), dimana ada satu bagian perintah macro With .. End With yang
> berbunyi:
> .[B3] = Date
> yang menimbulkan Error baik pada Excel 2007 (pertanyaan dari rekan kita)
> maupun hasil tes saya pada Excel 2010 (komputer kantor).
> Pesan Errornya adalah sbb :
> "Compile Error, Can't Find Project or Library"
>
> Tapi anehnya di komputer rumah yang juga pakai Excel 2010, macro tsb
> berjalan dengan mulu (ketika saya menjawab email saya pakai komputer rumah).
>
> Saran dari Mr Kid, Date diganti dengan Int(now) memang bisa memecahkan
> masalah tsb.
>
> Namun masih tersisa pertanyaan, dimana salahnya....
> hanya berlaku untuk Excel versi tertentu....
>
> Mohon sharing dari rekan2.
>
> Terima kasih.
>
> Salam,
> HK
>
>
>
>
>
>
Tue Nov 19, 2013 3:44 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Sepertinya fungsi Indirect untuk digunakan sebagai pendinamis rujukan range
ya...
Pendinamisan rujukan juga bisa menggunakan fungsi Index maupun Offset
selain dengan Indirect.
Fungsi Indirect dan Offset bersifat volatile, jadi beresiko mempersering
proses kalkulai saat cell yang menggunakan fungsi-fungsi ini ada banyak.
Fungsi Index tidak bersifat volatile, jadi resikonya juga rendah karena
proses re-kalkulasi dilakukan jika ada nilai yang berubah dari yang dirujuk.
Wassalam,
Kid.
2013/11/19 KESI VIZZIANTI <kesi.vizzianti@gmail.com>
>
>
> terima kasih mas!! kurang teliti ternyata sama
>
> salam
>
>
> Pada 19 November 2013 03.03, <bagus@kingjim.co.id> menulis:
>
>
>>
>> Mbak Kesi;
>>
>> Formula yang ada:
>> =INDIRECT("B"&(IF(COUNTIF($H$4:H4,H4)>1,MATCH(H4,INDIRECT("*C*
>> "&MATCH(H4,$D$4:$D$1000,0)+1&"*:C1000*
>> "),0)+MATCH(H4,$D$4:$D$1000,0),MATCH(H4,$D$4:$D$1000,0))+3))
>>
>> Coba diganti huruf "*C*" dan "*:C1000*" yang warna merah menjadi "*D*"
>> dan "*:D1000*"
>>
>>
>> Wassalam
>>
>> ~ Bagus ~
>>
>>
>>
>>
>> ---In belajar-excel@yahoogroups.com, <kesi.vizzianti@...> wrote:
>>
>>
>> langsung saja Gan !! tolong di periksa file terlampir
>> mengapa ya kalau nilainya sama dalam contoh ini 3000 nama partnya
>> langsung error? mohon bantuannya
>>
>> terima kasih
>>
>>
>
>
> --
> *Kesi Vizzianti*
> Email kesi.vizzianti@gmail.com
> Phone 0812-77176028
> Blog http://kesivizzianti.blogspot.com/
> Twitter KesiVizzianti <https://twitter.com/KesiVizzianti>
>
>
>
>
ya...
Pendinamisan rujukan juga bisa menggunakan fungsi Index maupun Offset
selain dengan Indirect.
Fungsi Indirect dan Offset bersifat volatile, jadi beresiko mempersering
proses kalkulai saat cell yang menggunakan fungsi-fungsi ini ada banyak.
Fungsi Index tidak bersifat volatile, jadi resikonya juga rendah karena
proses re-kalkulasi dilakukan jika ada nilai yang berubah dari yang dirujuk.
Wassalam,
Kid.
2013/11/19 KESI VIZZIANTI <kesi.vizzianti@
>
>
> terima kasih mas!! kurang teliti ternyata sama
>
> salam
>
>
> Pada 19 November 2013 03.03, <bagus@kingjim.
>
>
>>
>> Mbak Kesi;
>>
>> Formula yang ada:
>> =INDIRECT("
>> "&MATCH(
>> "),0)+MATCH(
>>
>> Coba diganti huruf "*C*" dan "*:C1000*
>> dan "*:D1000*
>>
>>
>> Wassalam
>>
>> ~ Bagus ~
>>
>>
>>
>>
>> ---In belajar-excel@
>>
>>
>> langsung saja Gan !! tolong di periksa file terlampir
>> mengapa ya kalau nilainya sama dalam contoh ini 3000 nama partnya
>> langsung error? mohon bantuannya
>>
>> terima kasih
>>
>>
>
>
> --
> *Kesi Vizzianti*
> Email kesi.vizzianti@
> Phone 0812-77176028
> Blog http://kesivizziant
> Twitter KesiVizzianti <https://twitter.
>
>
>
>
GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar