Minggu, 26 Mei 2019

[belajar-excel] Digest Number 4772

15 Messages

Digest #4772
1a
Re: UDF PPh21 by "hendrik karnadi" hendrikkarnadi
1b
Re: UDF PPh21 by "Mr. Kid" nmkid.family@ymail.com
1c
Re: UDF PPh21 by "Agus"
1d
Re: UDF PPh21 by "hendrik karnadi" hendrikkarnadi
1e
Re: UDF PPh21 by "Mr. Kid" nmkid.family@ymail.com
2a
Dasar2 Macro Excel by "Adi Tahajudin"
2c
Re: Dasar2 Macro Excel by "Adi Tahajudin"
3a
Re: Digest Number 4771 by "Andi K" andikheng
3b
Re: Digest Number 4771 by "Mr. Kid" nmkid.family@ymail.com
4a
Re: VBA multiple variable untuk If dan For.. Next by "Mr. Kid" nmkid.family@ymail.com
4b
Re: VBA multiple variable untuk If dan For.. Next by "Mr. Kid" nmkid.family@ymail.com
4c
6a
Re: Haruskan Buat Ulang Pivot Table?? by "Mr. Kid" nmkid.family@ymail.com

Messages

Sun May 26, 2019 12:03 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Kayaknya sih memang masalah pembulatan Mr.Kid.
Yang membuat saya penasaran, mengapa hanya terjadi pada 2 baris itu saja.

Salam,
HK

Sent from Yahoo Mail on Android

On Sun, May 26, 2019 at 4:34, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:  

Mungkin karena round

Sent from my smart enough phone
On May 25, 2019, at 20:48, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

 

Dear Be-Excel,
Untuk mengisi waktu luang di malam minggu, saya mencoba me-lihat2 kembali warisan Alm. Mbak Siti (Senior kita).Di situ saya menemukan UDF untuk menghitung Penghasilan Kena Pajak, yang secara aturan dibulatkan kebawah (dalam ribuan).
Dalam Worksheet terlampir (saya revisi hanya untuk th 2009), beliau memperbandingkan hasil perhitungan UDF dengan Formula.
UDF nya adalah sebagai berikut:Option Explicit
Function fPPh21_2009(PhKP As Currency) As Currency   Dim LapisPh() As Currency   Dim Tarif() As Double 'mbak Siti pakai Single, saya ganti Double   Dim n As Integer, Lps, Trf   Dim pajak As Currency      Lps = Split("|50|250|500";, "|")   ReDim LapisPh(1 To UBound(Lps))   For n = 1 To UBound(Lps): LapisPh(n) = Round((CLng(Lps(n)) * 10 ^ 6), 0): Next n      Trf = Split("/5/15/25/30", "/")   ReDim Tarif(1 To UBound(Trf))   For n = 1 To UBound(Trf): Tarif(n) = Round((CDbl(Trf(n)) / 100), 2): Next n 'Sng saya ganti Dbl   PhKP = 1000 * Round(PhKP / 1000, 0)      Select Case PhKP      Case Is <= LapisPh(1)         pajak = PhKP * Tarif(1)      Case Is <= LapisPh(2)         pajak = LapisPh(1) * Tarif(1) _         + (PhKP - LapisPh(1)) * Tarif(2)      Case Is <= LapisPh(3)         pajak = LapisPh(1) * Tarif(1) _         + (LapisPh(2) - LapisPh(1)) * Tarif(2) _         + (PhKP - LapisPh(2)) * Tarif(3)      Case Is > LapisPh(3)         pajak = (LapisPh(1)) * Tarif(1) _         + (LapisPh(2) - LapisPh(1)) * Tarif(2) _         + (LapisPh(3) - LapisPh(2)) * Tarif(3) _         + (PhKP - LapisPh(3)) * Tarif(4)   End Select   fPPh21_2009 = Round(pajak)End Function
Formula pada baris 12 dan 13 adalah sbb:=IF(C12<=0,0,IF(C12<=50000000,5%*C12,IF(C12<=250000000,50000000*5%+(C12-50000000)*15%,IF(C12<=500000000,50000000*5%+200000000*15%+(C12-250000000)*25%,50000000*5%+200000000*15%+250000000*25%+(C12-500000000)*30%))))

=IF(C13<=0,0,IF(C13<=50000000,5%*C13,IF(C13<=250000000,50000000*5%+(C13-50000000)*15%,IF(C13<=500000000,50000000*5%+200000000*15%+(C13-250000000)*25%,50000000*5%+200000000*15%+250000000*25%+(C13-500000000)*30%))))

Hasilnya seharusnya sama tapi berbeda beberapa ratus rupiah hanya pada kedua baris ini.
Pertanyaan saya (bukan ngetes):Apa yang menyebabkan terjadinya perbedaan tsb ?
Untuk lebih jelasnya saya lampirkan workbooknya.
Terima kasih.
Salam,HK

<UDF_fPPh21 (Rev by HK - Single to Double).xls>
#yiv8206055941 #yiv8206055941 -- #yiv8206055941ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv8206055941 #yiv8206055941ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv8206055941 #yiv8206055941ygrp-mkp #yiv8206055941hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv8206055941 #yiv8206055941ygrp-mkp #yiv8206055941ads {margin-bottom:10px;}#yiv8206055941 #yiv8206055941ygrp-mkp .yiv8206055941ad {padding:0 0;}#yiv8206055941 #yiv8206055941ygrp-mkp .yiv8206055941ad p {margin:0;}#yiv8206055941 #yiv8206055941ygrp-mkp .yiv8206055941ad a {color:#0000ff;text-decoration:none;}#yiv8206055941 #yiv8206055941ygrp-sponsor #yiv8206055941ygrp-lc {font-family:Arial;}#yiv8206055941 #yiv8206055941ygrp-sponsor #yiv8206055941ygrp-lc #yiv8206055941hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv8206055941 #yiv8206055941ygrp-sponsor #yiv8206055941ygrp-lc .yiv8206055941ad {margin-bottom:10px;padding:0 0;}#yiv8206055941 #yiv8206055941actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv8206055941 #yiv8206055941activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv8206055941 #yiv8206055941activity span {font-weight:700;}#yiv8206055941 #yiv8206055941activity span:first-child {text-transform:uppercase;}#yiv8206055941 #yiv8206055941activity span a {color:#5085b6;text-decoration:none;}#yiv8206055941 #yiv8206055941activity span span {color:#ff7900;}#yiv8206055941 #yiv8206055941activity span .yiv8206055941underline {text-decoration:underline;}#yiv8206055941 .yiv8206055941attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv8206055941 .yiv8206055941attach div a {text-decoration:none;}#yiv8206055941 .yiv8206055941attach img {border:none;padding-right:5px;}#yiv8206055941 .yiv8206055941attach label {display:block;margin-bottom:5px;}#yiv8206055941 .yiv8206055941attach label a {text-decoration:none;}#yiv8206055941 blockquote {margin:0 0 0 4px;}#yiv8206055941 .yiv8206055941bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv8206055941 .yiv8206055941bold a {text-decoration:none;}#yiv8206055941 dd.yiv8206055941last p a {font-family:Verdana;font-weight:700;}#yiv8206055941 dd.yiv8206055941last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv8206055941 dd.yiv8206055941last p span.yiv8206055941yshortcuts {margin-right:0;}#yiv8206055941 div.yiv8206055941attach-table div div a {text-decoration:none;}#yiv8206055941 div.yiv8206055941attach-table {width:400px;}#yiv8206055941 div.yiv8206055941file-title a, #yiv8206055941 div.yiv8206055941file-title a:active, #yiv8206055941 div.yiv8206055941file-title a:hover, #yiv8206055941 div.yiv8206055941file-title a:visited {text-decoration:none;}#yiv8206055941 div.yiv8206055941photo-title a, #yiv8206055941 div.yiv8206055941photo-title a:active, #yiv8206055941 div.yiv8206055941photo-title a:hover, #yiv8206055941 div.yiv8206055941photo-title a:visited {text-decoration:none;}#yiv8206055941 div#yiv8206055941ygrp-mlmsg #yiv8206055941ygrp-msg p a span.yiv8206055941yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv8206055941 .yiv8206055941green {color:#628c2a;}#yiv8206055941 .yiv8206055941MsoNormal {margin:0 0 0 0;}#yiv8206055941 o {font-size:0;}#yiv8206055941 #yiv8206055941photos div {float:left;width:72px;}#yiv8206055941 #yiv8206055941photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv8206055941 #yiv8206055941photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv8206055941 #yiv8206055941reco-category {font-size:77%;}#yiv8206055941 #yiv8206055941reco-desc {font-size:77%;}#yiv8206055941 .yiv8206055941replbq {margin:4px;}#yiv8206055941 #yiv8206055941ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv8206055941 #yiv8206055941ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv8206055941 #yiv8206055941ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv8206055941 #yiv8206055941ygrp-mlmsg select, #yiv8206055941 input, #yiv8206055941 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv8206055941 #yiv8206055941ygrp-mlmsg pre, #yiv8206055941 code {font:115% monospace;}#yiv8206055941 #yiv8206055941ygrp-mlmsg * {line-height:1..22em;}#yiv8206055941 #yiv8206055941ygrp-mlmsg #yiv8206055941logo {padding-bottom:10px;}#yiv8206055941 #yiv8206055941ygrp-msg p a {font-family:Verdana;}#yiv8206055941 #yiv8206055941ygrp-msg p#yiv8206055941attach-count span {color:#1E66AE;font-weight:700;}#yiv8206055941 #yiv8206055941ygrp-reco #yiv8206055941reco-head {color:#ff7900;font-weight:700;}#yiv8206055941 #yiv8206055941ygrp-reco {margin-bottom:20px;padding:0px;}#yiv8206055941 #yiv8206055941ygrp-sponsor #yiv8206055941ov li a {font-size:130%;text-decoration:none;}#yiv8206055941 #yiv8206055941ygrp-sponsor #yiv8206055941ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv8206055941 #yiv8206055941ygrp-sponsor #yiv8206055941ov ul {margin:0;padding:0 0 0 8px;}#yiv8206055941 #yiv8206055941ygrp-text {font-family:Georgia;}#yiv8206055941 #yiv8206055941ygrp-text p {margin:0 0 1em 0;}#yiv8206055941 #yiv8206055941ygrp-text tt {font-size:120%;}#yiv8206055941 #yiv8206055941ygrp-vital ul li:last-child {border-right:none !important;}#yiv8206055941

Sun May 26, 2019 3:07 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Karena penggunaan round yang tidak sama antara formula dengan udf.

On Sun, May 26, 2019 at 2:03 PM hendrik karnadi hendrikkarnadi@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> Kayaknya sih memang masalah pembulatan Mr.Kid.
> Yang membuat saya penasaran, mengapa hanya terjadi pada 2 baris itu saja.
>
> Salam,
> HK
>
>
> Sent from Yahoo Mail on Android
> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>
> On Sun, May 26, 2019 at 4:34, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]
> <belajar-excel@yahoogroups.com> wrote:
>
>
> Mungkin karena round
>
> Sent from my smart enough phone
>
> On May 25, 2019, at 20:48, hendrik karnadi hendrikkarnadi@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Dear Be-Excel,
>
> Untuk mengisi waktu luang di malam minggu, saya mencoba me-lihat2 kembali
> warisan Alm. Mbak Siti (Senior kita).
> Di situ saya menemukan UDF untuk menghitung Penghasilan Kena Pajak, yang
> secara aturan dibulatkan kebawah (dalam ribuan).
>
> Dalam Worksheet terlampir (saya revisi hanya untuk th 2009), beliau
> memperbandingkan hasil perhitungan UDF dengan Formula.
>
> UDF nya adalah sebagai berikut:
> Option Explicit
>
> Function fPPh21_2009(PhKP As Currency) As Currency
> Dim LapisPh() As Currency
> Dim Tarif() As *Double** 'mbak Siti pakai Single, saya ganti Double*
> Dim n As Integer, Lps, Trf
> Dim pajak As Currency
>
> Lps = Split("|50|250|500";, "|")
> ReDim LapisPh(1 To UBound(Lps))
> For n = 1 To UBound(Lps): LapisPh(n) = Round((CLng(Lps(n)) * 10 ^ 6),
> 0): Next n
>
> Trf = Split("/5/15/25/30", "/")
> ReDim Tarif(1 To UBound(Trf))
> For n = 1 To UBound(Trf): Tarif(n) = Round((C*Dbl*(Trf(n)) / 100), 2):
> Next n '*Sng saya ganti Dbl*
> PhKP = 1000 * Round(PhKP / 1000, 0)
>
> Select Case PhKP
> Case Is <= LapisPh(1)
> pajak = PhKP * Tarif(1)
> Case Is <= LapisPh(2)
> pajak = LapisPh(1) * Tarif(1) _
> + (PhKP - LapisPh(1)) * Tarif(2)
> Case Is <= LapisPh(3)
> pajak = LapisPh(1) * Tarif(1) _
> + (LapisPh(2) - LapisPh(1)) * Tarif(2) _
> + (PhKP - LapisPh(2)) * Tarif(3)
> Case Is > LapisPh(3)
> pajak = (LapisPh(1)) * Tarif(1) _
> + (LapisPh(2) - LapisPh(1)) * Tarif(2) _
> + (LapisPh(3) - LapisPh(2)) * Tarif(3) _
> + (PhKP - LapisPh(3)) * Tarif(4)
> End Select
> fPPh21_2009 = Round(pajak)
> End Function
>
> Formula pada baris 12 dan 13 adalah sbb:
>
> =IF(C12<=0,0,IF(C12<=50000000,5%*C12,IF(C12<=250000000,50000000*5%+(C12-50000000)*15%,IF(C12<=500000000,50000000*5%+200000000*15%+(C12-250000000)*25%,50000000*5%+200000000*15%+250000000*25%+(C12-500000000)*30%))))
>
>
> =IF(C13<=0,0,IF(C13<=50000000,5%*C13,IF(C13<=250000000,50000000*5%+(C13-50000000)*15%,IF(C13<=500000000,50000000*5%+200000000*15%+(C13-250000000)*25%,50000000*5%+200000000*15%+250000000*25%+(C13-500000000)*30%))))
>
> Hasilnya *seharusnya sama* tapi *berbeda beberapa ratus rupiah hanya pada
> kedua baris ini*.
>
> Pertanyaan saya (bukan ngetes):
> Apa yang menyebabkan terjadinya perbedaan tsb ?
>
> Untuk lebih jelasnya saya lampirkan workbooknya.
>
> Terima kasih.
>
> Salam,
> HK
>
>
>
>
>
>
> <UDF_fPPh21 (Rev by HK - Single to Double).xls>
>
>
>

Sun May 26, 2019 6:46 am (PDT) . Posted by:

"Agus"

Pak Hendrik,
Yang salah hanya yang datanya memiliki tiga digit terakhir lebih dari 500;
..> baris ke 12 3 digit terakhir= 565
->baris ke 13: 3 digit terakhir = 987
Coba semua baris diberitiga digit terakhir lebih dari 500, akan menjadi
berbeda semua
salam
NangAgus

On 5/26/2019 14:03, hendrik karnadi hendrikkarnadi@yahoo.com
[belajar-excel] wrote:
>
> Kayaknya sih memang masalah pembulatan Mr.Kid.
> Yang membuat saya penasaran, mengapa hanya terjadi pada 2 baris itu saja.
>
> Salam,
> HK
>
>
> Sent from Yahoo Mail on Android
> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>
> On Sun, May 26, 2019 at 4:34, 'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]
> <belajar-excel@yahoogroups.com> wrote:
> Mungkin karena round
>
> Sent from my smart enough phone
>
> On May 25, 2019, at 20:48, hendrik karnadi
> hendrikkarnadi@yahoo.com <mailto:hendrikkarnadi@yahoo.com>
> [belajar-excel] <belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com>> wrote:
>
>> Dear Be-Excel,
>>
>> Untuk mengisi waktu luang di malam minggu, saya mencoba me-lihat2
>> kembali warisan Alm. Mbak Siti (Senior kita).
>> Di situ saya menemukan UDF untuk menghitung Penghasilan Kena
>> Pajak, yang secara aturan dibulatkan kebawah (dalam ribuan).
>>
>> Dalam Worksheet terlampir (saya revisi hanya untuk th 2009),
>> beliau memperbandingkan hasil perhitungan UDF dengan Formula.
>>
>> UDF nya adalah sebagai berikut:
>> Option Explicit
>>
>> Function fPPh21_2009(PhKP As Currency) As Currency
>>    Dim LapisPh() As Currency
>>    Dim Tarif() As *Double**'mbak Siti pakai Single, saya ganti
>> Double*
>>    Dim n As Integer, Lps, Trf
>>    Dim pajak As Currency
>>    Lps = Split("|50|250|500";, "|")
>>    ReDim LapisPh(1 To UBound(Lps))
>>    For n = 1 To UBound(Lps): LapisPh(n) = Round((CLng(Lps(n)) *
>> 10 ^ 6), 0): Next n
>>    Trf = Split("/5/15/25/30", "/")
>>    ReDim Tarif(1 To UBound(Trf))
>>    For n = 1 To UBound(Trf): Tarif(n) = Round((C*Dbl*(Trf(n)) /
>> 100), 2): Next n '*Sng saya ganti Dbl*
>>    PhKP = 1000 * Round(PhKP / 1000, 0)
>>    Select Case PhKP
>>       Case Is <= LapisPh(1)
>>          pajak = PhKP * Tarif(1)
>>       Case Is <= LapisPh(2)
>>          pajak = LapisPh(1) * Tarif(1) _
>>          + (PhKP - LapisPh(1)) * Tarif(2)
>>       Case Is <= LapisPh(3)
>>          pajak = LapisPh(1) * Tarif(1) _
>>          + (LapisPh(2) - LapisPh(1)) * Tarif(2) _
>>          + (PhKP - LapisPh(2)) * Tarif(3)
>>       Case Is > LapisPh(3)
>>          pajak = (LapisPh(1)) * Tarif(1) _
>>          + (LapisPh(2) - LapisPh(1)) * Tarif(2) _
>>          + (LapisPh(3) - LapisPh(2)) * Tarif(3) _
>>          + (PhKP - LapisPh(3)) * Tarif(4)
>>    End Select
>>    fPPh21_2009 = Round(pajak)
>> End Function
>>
>> Formula pada baris 12 dan 13 adalah sbb:
>> =IF(C12<=0,0,IF(C12<=50000000,5%*C12,IF(C12<=250000000,50000000*5%+(C12-50000000)*15%,IF(C12<=500000000,50000000*5%+200000000*15%+(C12-250000000)*25%,50000000*5%+200000000*15%+250000000*25%+(C12-500000000)*30%))))
>>
>> =IF(C13<=0,0,IF(C13<=50000000,5%*C13,IF(C13<=250000000,50000000*5%+(C13-50000000)*15%,IF(C13<=500000000,50000000*5%+200000000*15%+(C13-250000000)*25%,50000000*5%+200000000*15%+250000000*25%+(C13-500000000)*30%))))
>>
>> Hasilnya */seharusnya sama/* tapi */berbeda beberapa ratus rupiah
>> hanya pada kedua baris ini/*.
>>
>> Pertanyaan saya (bukan ngetes):
>> Apa yang menyebabkan terjadinya perbedaan tsb ?
>>
>> Untuk lebih jelasnya saya lampirkan workbooknya.
>>
>> Terima kasih.
>>
>> Salam,
>> HK
>>
>>
>>
>>
>>
>>
>> <UDF_fPPh21 (Rev by HK - Single to Double).xls>
>
>

Sun May 26, 2019 7:48 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Terima kasih atas jawabannya mas NangAgus.Yang membuat saya masih penasaran adalah:Kan untuk perhitungan dengan UDF maupun formula...keduanya menggunakan dasar pehitungan yang sama, yaitu PhKP dibulatkan ke bawah dalam ribuan.
Salam,HK

Sent from Yahoo Mail on Android

On Sun, May 26, 2019 at 20:46, Agus nangagus@gmail.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:  

Pak Hendrik, Yang salah hanya yang datanya memiliki tiga digit terakhir lebih dari 500; .> baris ke 12 3 digit terakhir= 565 ->baris ke 13: 3 digit terakhir = 987 Coba semua baris diberitiga digit terakhir lebih dari 500, akan menjadi berbeda semua salam NangAgus
On 5/26/2019 14:03, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] wrote:

 
Kayaknya sih memang masalah pembulatan Mr.Kid.
Yang membuat saya penasaran, mengapa hanya terjadi pada 2 baris itu saja.

Salam,
HK



Sent from Yahoo Mail on Android

On Sun, May 26, 2019 at 4:34, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:   Mungkin karena round

Sent from my smart enough phone
On May 25, 2019, at 20:48, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:


  Dear Be-Excel,
Untuk mengisi waktu luang di malam minggu, saya mencoba me-lihat2 kembali warisan Alm. Mbak Siti (Senior kita). Di situ saya menemukan UDF untuk menghitung Penghasilan Kena Pajak, yang secara aturan dibulatkan kebawah (dalam ribuan).
Dalam Worksheet terlampir (saya revisi hanya untuk th 2009), beliau memperbandingkan hasil perhitungan UDF dengan Formula.
UDF nya adalah sebagai berikut: Option Explicit
Function fPPh21_2009(PhKP As Currency) As Currency    Dim LapisPh() As Currency    Dim Tarif() As Double 'mbak Siti pakai Single, saya ganti Double    Dim n As Integer, Lps, Trf    Dim pajak As Currency        Lps = Split("|50|250|500";, "|")    ReDim LapisPh(1 To UBound(Lps))    For n = 1 To UBound(Lps): LapisPh(n) = Round((CLng(Lps(n)) * 10 ^ 6), 0): Next n        Trf = Split("/5/15/25/30", "/")    ReDim Tarif(1 To UBound(Trf))    For n = 1 To UBound(Trf): Tarif(n) = Round((CDbl(Trf(n)) / 100), 2): Next n 'Sng saya ganti Dbl    PhKP = 1000 * Round(PhKP / 1000, 0)        Select Case PhKP       Case Is <= LapisPh(1)          pajak = PhKP * Tarif(1)       Case Is <= LapisPh(2)          pajak = LapisPh(1) * Tarif(1) _          + (PhKP - LapisPh(1)) * Tarif(2)       Case Is <= LapisPh(3)          pajak = LapisPh(1) * Tarif(1) _          + (LapisPh(2) - LapisPh(1)) * Tarif(2) _          + (PhKP - LapisPh(2)) * Tarif(3)       Case Is > LapisPh(3)          pajak = (LapisPh(1)) * Tarif(1) _          + (LapisPh(2) - LapisPh(1)) * Tarif(2) _          + (LapisPh(3) - LapisPh(2)) * Tarif(3) _          + (PhKP - LapisPh(3)) * Tarif(4)    End Select    fPPh21_2009 = Round(pajak) End Function
Formula pada baris 12 dan 13 adalah sbb: =IF(C12<=0,0,IF(C12<=50000000,5%*C12,IF(C12<=250000000,50000000*5%+(C12-50000000)*15%,IF(C12<=500000000,50000000*5%+200000000*15%+(C12-250000000)*25%,50000000*5%+200000000*15%+250000000*25%+(C12-500000000)*30%))))

=IF(C13<=0,0,IF(C13<=50000000,5%*C13,IF(C13<=250000000,50000000*5%+(C13-50000000)*15%,IF(C13<=500000000,50000000*5%+200000000*15%+(C13-250000000)*25%,50000000*5%+200000000*15%+250000000*25%+(C13-500000000)*30%))))

Hasilnya seharusnya sama tapi berbeda beberapa ratus rupiah hanya pada kedua baris ini.
Pertanyaan saya (bukan ngetes): Apa yang menyebabkan terjadinya perbedaan tsb ?
Untuk lebih jelasnya saya lampirkan workbooknya.
Terima kasih.
Salam, HK







<UDF_fPPh21 (Rev by HK - Single to Double).xls>




#yiv9396604497 #yiv9396604497 -- #yiv9396604497ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9396604497 #yiv9396604497ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9396604497 #yiv9396604497ygrp-mkp #yiv9396604497hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv9396604497 #yiv9396604497ygrp-mkp #yiv9396604497ads {margin-bottom:10px;}#yiv9396604497 #yiv9396604497ygrp-mkp .yiv9396604497ad {padding:0 0;}#yiv9396604497 #yiv9396604497ygrp-mkp .yiv9396604497ad p {margin:0;}#yiv9396604497 #yiv9396604497ygrp-mkp .yiv9396604497ad a {color:#0000ff;text-decoration:none;}#yiv9396604497 #yiv9396604497ygrp-sponsor #yiv9396604497ygrp-lc {font-family:Arial;}#yiv9396604497 #yiv9396604497ygrp-sponsor #yiv9396604497ygrp-lc #yiv9396604497hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9396604497 #yiv9396604497ygrp-sponsor #yiv9396604497ygrp-lc .yiv9396604497ad {margin-bottom:10px;padding:0 0;}#yiv9396604497 #yiv9396604497actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9396604497 #yiv9396604497activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9396604497 #yiv9396604497activity span {font-weight:700;}#yiv9396604497 #yiv9396604497activity span:first-child {text-transform:uppercase;}#yiv9396604497 #yiv9396604497activity span a {color:#5085b6;text-decoration:none;}#yiv9396604497 #yiv9396604497activity span span {color:#ff7900;}#yiv9396604497 #yiv9396604497activity span .yiv9396604497underline {text-decoration:underline;}#yiv9396604497 .yiv9396604497attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv9396604497 .yiv9396604497attach div a {text-decoration:none;}#yiv9396604497 .yiv9396604497attach img {border:none;padding-right:5px;}#yiv9396604497 .yiv9396604497attach label {display:block;margin-bottom:5px;}#yiv9396604497 .yiv9396604497attach label a {text-decoration:none;}#yiv9396604497 blockquote {margin:0 0 0 4px;}#yiv9396604497 .yiv9396604497bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv9396604497 .yiv9396604497bold a {text-decoration:none;}#yiv9396604497 dd.yiv9396604497last p a {font-family:Verdana;font-weight:700;}#yiv9396604497 dd.yiv9396604497last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9396604497 dd.yiv9396604497last p span.yiv9396604497yshortcuts {margin-right:0;}#yiv9396604497 div.yiv9396604497attach-table div div a {text-decoration:none;}#yiv9396604497 div.yiv9396604497attach-table {width:400px;}#yiv9396604497 div.yiv9396604497file-title a, #yiv9396604497 div.yiv9396604497file-title a:active, #yiv9396604497 div.yiv9396604497file-title a:hover, #yiv9396604497 div.yiv9396604497file-title a:visited {text-decoration:none;}#yiv9396604497 div.yiv9396604497photo-title a, #yiv9396604497 div.yiv9396604497photo-title a:active, #yiv9396604497 div.yiv9396604497photo-title a:hover, #yiv9396604497 div.yiv9396604497photo-title a:visited {text-decoration:none;}#yiv9396604497 div#yiv9396604497ygrp-mlmsg #yiv9396604497ygrp-msg p a span.yiv9396604497yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9396604497 .yiv9396604497green {color:#628c2a;}#yiv9396604497 .yiv9396604497MsoNormal {margin:0 0 0 0;}#yiv9396604497 o {font-size:0;}#yiv9396604497 #yiv9396604497photos div {float:left;width:72px;}#yiv9396604497 #yiv9396604497photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv9396604497 #yiv9396604497photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9396604497 #yiv9396604497reco-category {font-size:77%;}#yiv9396604497 #yiv9396604497reco-desc {font-size:77%;}#yiv9396604497 .yiv9396604497replbq {margin:4px;}#yiv9396604497 #yiv9396604497ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv9396604497 #yiv9396604497ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv9396604497 #yiv9396604497ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv9396604497 #yiv9396604497ygrp-mlmsg select, #yiv9396604497 input, #yiv9396604497 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv9396604497 #yiv9396604497ygrp-mlmsg pre, #yiv9396604497 code {font:115% monospace;}#yiv9396604497 #yiv9396604497ygrp-mlmsg * {line-height:1.22em;}#yiv9396604497 #yiv9396604497ygrp-mlmsg #yiv9396604497logo {padding-bottom:10px;}#yiv9396604497 #yiv9396604497ygrp-msg p a {font-family:Verdana;}#yiv9396604497 #yiv9396604497ygrp-msg p#yiv9396604497attach-count span {color:#1E66AE;font-weight:700;}#yiv9396604497 #yiv9396604497ygrp-reco #yiv9396604497reco-head {color:#ff7900;font-weight:700;}#yiv9396604497 #yiv9396604497ygrp-reco {margin-bottom:20px;padding:0px;}#yiv9396604497 #yiv9396604497ygrp-sponsor #yiv9396604497ov li a {font-size:130%;text-decoration:none;}#yiv9396604497 #yiv9396604497ygrp-sponsor #yiv9396604497ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv9396604497 #yiv9396604497ygrp-sponsor #yiv9396604497ov ul {margin:0;padding:0 0 0 8px;}#yiv9396604497 #yiv9396604497ygrp-text {font-family:Georgia;}#yiv9396604497 #yiv9396604497ygrp-text p {margin:0 0 1em 0;}#yiv9396604497 #yiv9396604497ygrp-text tt {font-size:120%;}#yiv9396604497 #yiv9396604497ygrp-vital ul li:last-child {border-right:none !important;}#yiv9396604497

Sun May 26, 2019 8:33 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Berarti,
Kalau hitungan formulanya yang benar, maka penggunaan round di udf-nya yang
salah.
Kalau hitungan udf-nya yang benar, maka penggunaan round di formula-nya
yang salah.

Simpelkan...

On Sun, May 26, 2019 at 9:48 PM hendrik karnadi hendrikkarnadi@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> Terima kasih atas jawabannya mas NangAgus.
> Yang membuat saya masih penasaran adalah:
> Kan untuk perhitungan dengan UDF maupun formula...keduanya menggunakan
> dasar pehitungan yang sama, yaitu PhKP dibulatkan ke bawah dalam ribuan.
>
> Salam,
> HK
>
> Sent from Yahoo Mail on Android
> <https://go.onelink.me/107872968?pid=InProduct&c=Global_Internal_YGrowth_AndroidEmailSig__AndroidUsers&af_wl=ym&af_sub1=Internal&af_sub2=Global_YGrowth&af_sub3=EmailSignature>
>
> On Sun, May 26, 2019 at 20:46, Agus nangagus@gmail.com [belajar-excel]
> <belajar-excel@yahoogroups.com> wrote:
>
>
> Pak Hendrik,
> Yang salah hanya yang datanya memiliki tiga digit terakhir lebih dari 500;
> .> baris ke 12 3 digit terakhir= 565
> ->baris ke 13: 3 digit terakhir = 987
> Coba semua baris diberitiga digit terakhir lebih dari 500, akan menjadi
> berbeda semua
> salam
> NangAgus
>
> On 5/26/2019 14:03, hendrik karnadi hendrikkarnadi@yahoo.com
> [belajar-excel] wrote:
>
>
>
> Kayaknya sih memang masalah pembulatan Mr.Kid.
> Yang membuat saya penasaran, mengapa hanya terjadi pada 2 baris itu saja.
>
> Salam,
> HK
>
>
> Sent from Yahoo Mail on Android
> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>
> On Sun, May 26, 2019 at 4:34, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]
> <belajar-excel@yahoogroups.com> <belajar-excel@yahoogroups.com> wrote:
>
> Mungkin karena round
>
> Sent from my smart enough phone
>
> On May 25, 2019, at 20:48, hendrik karnadi hendrikkarnadi@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Dear Be-Excel,
>
> Untuk mengisi waktu luang di malam minggu, saya mencoba me-lihat2 kembali
> warisan Alm. Mbak Siti (Senior kita).
> Di situ saya menemukan UDF untuk menghitung Penghasilan Kena Pajak, yang
> secara aturan dibulatkan kebawah (dalam ribuan).
>
> Dalam Worksheet terlampir (saya revisi hanya untuk th 2009), beliau
> memperbandingkan hasil perhitungan UDF dengan Formula.
>
> UDF nya adalah sebagai berikut:
> Option Explicit
>
> Function fPPh21_2009(PhKP As Currency) As Currency
> Dim LapisPh() As Currency
> Dim Tarif() As *Double** 'mbak Siti pakai Single, saya ganti Double*
> Dim n As Integer, Lps, Trf
> Dim pajak As Currency
>
> Lps = Split("|50|250|500";, "|")
> ReDim LapisPh(1 To UBound(Lps))
> For n = 1 To UBound(Lps): LapisPh(n) = Round((CLng(Lps(n)) * 10 ^ 6),
> 0): Next n
>
> Trf = Split("/5/15/25/30", "/")
> ReDim Tarif(1 To UBound(Trf))
> For n = 1 To UBound(Trf): Tarif(n) = Round((C*Dbl*(Trf(n)) / 100), 2):
> Next n '*Sng saya ganti Dbl*
> PhKP = 1000 * Round(PhKP / 1000, 0)
>
> Select Case PhKP
> Case Is <= LapisPh(1)
> pajak = PhKP * Tarif(1)
> Case Is <= LapisPh(2)
> pajak = LapisPh(1) * Tarif(1) _
> + (PhKP - LapisPh(1)) * Tarif(2)
> Case Is <= LapisPh(3)
> pajak = LapisPh(1) * Tarif(1) _
> + (LapisPh(2) - LapisPh(1)) * Tarif(2) _
> + (PhKP - LapisPh(2)) * Tarif(3)
> Case Is > LapisPh(3)
> pajak = (LapisPh(1)) * Tarif(1) _
> + (LapisPh(2) - LapisPh(1)) * Tarif(2) _
> + (LapisPh(3) - LapisPh(2)) * Tarif(3) _
> + (PhKP - LapisPh(3)) * Tarif(4)
> End Select
> fPPh21_2009 = Round(pajak)
> End Function
>
> Formula pada baris 12 dan 13 adalah sbb:
>
> =IF(C12<=0,0,IF(C12<=50000000,5%*C12,IF(C12<=250000000,50000000*5%+(C12-50000000)*15%,IF(C12<=500000000,50000000*5%+200000000*15%+(C12-250000000)*25%,50000000*5%+200000000*15%+250000000*25%+(C12-500000000)*30%))))
>
>
> =IF(C13<=0,0,IF(C13<=50000000,5%*C13,IF(C13<=250000000,50000000*5%+(C13-50000000)*15%,IF(C13<=500000000,50000000*5%+200000000*15%+(C13-250000000)*25%,50000000*5%+200000000*15%+250000000*25%+(C13-500000000)*30%))))
>
> Hasilnya *seharusnya sama* tapi *berbeda beberapa ratus rupiah hanya pada
> kedua baris ini*.
>
> Pertanyaan saya (bukan ngetes):
> Apa yang menyebabkan terjadinya perbedaan tsb ?
>
> Untuk lebih jelasnya saya lampirkan workbooknya.
>
> Terima kasih.
>
> Salam,
> HK
>
>
>
>
>
>
> <UDF_fPPh21 (Rev by HK - Single to Double).xls>
>
>
>
>

Sun May 26, 2019 1:51 am (PDT) . Posted by:

"Adi Tahajudin"

Boleh share dong, cara mudah memahami macro excel.

Sun May 26, 2019 7:19 am (PDT) . Posted by:

"Agus"

Belajar bisa dimulai dari tulisan Mr. Kid disini
<http://b-excel.blogspot.com/2013/06/belajarvba-001-vbe-visual-basic-editor.html>

On 5/26/2019 13:44, Adi Tahajudin adi.tahajudin@gmail.com
[belajar-excel] wrote:
> Boleh share dong, cara mudah memahami macro excel.
>

Sun May 26, 2019 8:31 am (PDT) . Posted by:

"Adi Tahajudin"

Terimakasih Banyak,

Bagai Pisau, Semoga Makin Dibagi Makin Terasah.

HS,
Adi_T

On Sun, 26 May 2019, 21:19 Agus nangagus@gmail.com [belajar-excel], <
belajar-excel@yahoogroups.com> wrote:

>
>
> Belajar bisa dimulai dari tulisan Mr. Kid disini
> <http://b-excel.blogspot.com/2013/06/belajarvba-001-vbe-visual-basic-editor.html>
>
> On 5/26/2019 13:44, Adi Tahajudin adi.tahajudin@gmail.com [belajar-excel]
> wrote:
>
>
> Boleh share dong, cara mudah memahami macro excel.
>
>
>
>

Sun May 26, 2019 1:51 am (PDT) . Posted by:

"Andi K" andikheng

Fungsi 'Round&#39; yang tepat untuk pembulatan desimal pajak apa/bagaimana ya? #yiv9225987795 -- #yiv9225987795ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9225987795 #yiv9225987795ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9225987795 #yiv9225987795ygrp-mkp #yiv9225987795hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv9225987795 #yiv9225987795ygrp-mkp #yiv9225987795ads {margin-bottom:10px;}#yiv9225987795 #yiv9225987795ygrp-mkp .yiv9225987795ad {padding:0 0;}#yiv9225987795 #yiv9225987795ygrp-mkp .yiv9225987795ad p {margin:0;}#yiv9225987795 #yiv9225987795ygrp-mkp .yiv9225987795ad a {color:#0000ff;text-decoration:none;}#yiv9225987795 #yiv9225987795ygrp-sponsor #yiv9225987795ygrp-lc {font-family:Arial;}#yiv9225987795 #yiv9225987795ygrp-sponsor #yiv9225987795ygrp-lc #yiv9225987795hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9225987795 #yiv9225987795ygrp-sponsor #yiv9225987795ygrp-lc .yiv9225987795ad {margin-bottom:10px;padding:0 0;}#yiv9225987795

Sun May 26, 2019 2:39 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Seperti fungsi round biasanya, dengan menyesuaikan jumlah digit di belakang
koma sesuai kebutuhan.
Tetapi yang di-round bisa jadi adalah hasil akhirnya, atau nilai-nilai
awalnya, atau beberapa nilai kalkulasi selama proses, dan sebagainya sesuai
kebutuhan. Sila di coba saja, dimana semestinya si-round diperlukan.

Bisa jadi juga, tidak diperlukan adanya rounding number.

Regards,
Kid

On Sun, May 26, 2019 at 3:52 PM Andi K andikheng@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com> wrote:

>
>
> Fungsi 'Round&#39; yang tepat untuk pembulatan desimal pajak apa/bagaimana ya?
>
>
>

Sun May 26, 2019 2:12 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Formula di kolom hasil : (kolom A jadi acuan)
1. Jika seluruh kolom nilai yang dibutuhkan dalam kalkulasi di setiap baris
ada selalu ada isinya :
=IF(A1="bb",E1+B1+D1,"")

2. Jika kolom E tidak selalu terisi
a. Berdasar kolom A yang bernilai teks 'e' :
> ubah formula, dari E1 menjadi LOOKUP(2,1/(A$1:A1="e"),E$1:E1)
b. Berdasar nilai kolom E yang terakhir ada
> ubah formula, dari E1 menjadi LOOKUP(9^9,E$1:E1)

3. Jika kolom B yang kosong berarti memiliki nilai yang sama dengan nilai
terakhir yang ada
> ubah formula, dari B1 menjadi LOOKUP(9^9,B$1:B1)

4. Jika kolom D yang kosong berarti memiliki nilai yang sama dengan nilai
terakhir yang ada
> ubah formula, dari D1 menjadi LOOKUP(9^9,D$1:D1)

Jika tidak ada kolom acuan alias setiap record menggunakan nilai terakhir
yang ada, formula dasarnya adalah sesuai kebutuhan (misal)
=E1+B1+D1
lalu sesuaikan setiap kondisi seperti contoh di atas sesuai kebutuhan

Regards,
Kid

On Thu, May 23, 2019 at 6:36 AM Bayu Prasaja prasaja_satria@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> Sebenernya yg kosong di kolom B C D dan E itu ada angkanya si mas, cuma
> saya hapus di lampiran, takutnya bikin bingung hehe, yang paling stabil n
> bisa dijadikan patokan nilai dikolom A itu mas, mknya saya pgnya patokannya
> berdasarkan value dikolom A itu mas hehe
>
> Sent from Yahoo Mail on Android
> <https://go.onelink.me/107872968?pid=InProduct&c=Global_Internal_YGrowth_AndroidEmailSig__AndroidUsers&af_wl=ym&af_sub1=Internal&af_sub2=Global_YGrowth&af_sub3=EmailSignature>
>
> On Wed, 22 May 2019 at 17:37, Zainul Ulum zainul_ulum@yahoo.com
> [belajar-excel]
> <belajar-excel@yahoogroups.com> wrote:
>
>
> Mas Bayu,
>
> Kalo tidak pakai VBA bolehkah?
>
> Contoh terlampir.
>
> Wassalam,
>
> -zainul
>
>
>
>
>
>
>
> Sent from Mail <https://go.microsoft.com/fwlink/?LinkId=550986> for
> Windows 10
>
>
>
> *From: *Bayu Prasaja prasaja_satria@yahoo.com [belajar-excel]
> <belajar-excel@yahoogroups.com>
> *Sent: *Wednesday, May 22, 2019 8:47 AM
> *To: *Yahoogroups <belajar-excel@yahoogroups.com>
> *Subject: *[belajar-excel] VBA multiple variable untuk If dan For.. Next
> [1 Attachment]
>
>
>
>
>
> Assalamu'alaikum, selamat pagi para guru, mohon bantuannya untuk
> penyelesaian macro excel, karena keterbatasan pemahaman saya, jadi saya
> gbisa menjelaskan secara rinci, jadi langsung saja ke attatchment. Terima
> kasih sebelumnya, semoga menambah pahala dibulan Ramadhan ini. Aamiin
>
> Sent from Yahoo Mail on Android
> <https://go.onelink.me/107872968?pid=InProduct&c=Global_Internal_YGrowth_AndroidEmailSig__AndroidUsers&af_wl=ym&af_sub1=Internal&af_sub2=Global_YGrowth&af_sub3=EmailSignature>
>
>
>
>
>

Sun May 26, 2019 2:36 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Jika pakai VBA, ada baiknya langsung tulis hasil akhirnya saja :
Dim lR As Long, sA As String, dB As Double, dE As Double
With Sheets("Hit")
For lR = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
sA = UCase(Trim(.Cells(lR, 1).Text))
Select Case sA
Case "BB"
If IsNumeric(.Cells(lR, 2).Value) And Len(.Cells(lR,
2).Value) <> 0 Then dB = .Cells(lR, 2).Value
If IsNumeric(.Cells(lR, 5).Value) And Len(.Cells(lR,
5).Value) <> 0 Then dE = .Cells(lR, 5).Value
.Cells(lR, 6).Value = dE + dB + .Cells(lR, 4).Value
Case "ABA": dB = .Cells(lR, 2).Value
Case "E": dE = .Cells(lR, 5).Value
End Select
Next lR
End With

Regards,
Kid

On Wed, May 22, 2019 at 4:56 PM Agus nangagus@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com> wrote:

>
>
> Wa'alaikumsalam warahmatullah wabarakatuh
> Dear Bayu,
> coba cekripnya diubah menjadi:
> With Sheets("Hit")
> For i = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
> If .Cells(i, 1).Value = "E" Then
> e = i
> Else
> If .Cells(i, 1).Value = "ABA" Then
> b = i
> Else
> If .Cells(i, 1).Value = "BB" Then
> .Cells(i, 6).FormulaR1C1 = "=RC[-2]+R" &
> e & "C5 + R" & b & "C2"
> End If
> End If
> End If
> Next i
> End With
>
> Wasalamu'alaikumsalam warahmatullah
> Regard
> NangAgus
>
>
>
> On 5/22/2019 08:36, Bayu Prasaja prasaja_satria@yahoo.com [belajar-excel]
> wrote:
>
>
>
> Assalamu'alaikum, selamat pagi para guru, mohon bantuannya untuk
> penyelesaian macro excel, karena keterbatasan pemahaman saya, jadi saya
> gbisa menjelaskan secara rinci, jadi langsung saja ke attatchment. Terima
> kasih sebelumnya, semoga menambah pahala dibulan Ramadhan ini. Aamiin
>
> Sent from Yahoo Mail on Android
> <https://go.onelink.me/107872968?pid=InProduct&c=Global_Internal_YGrowth_AndroidEmailSig__AndroidUsers&af_wl=ym&af_sub1=Internal&af_sub2=Global_YGrowth&af_sub3=EmailSignature>
>
>
>
>

Sun May 26, 2019 6:10 pm (PDT) . Posted by:

"Bayu Prasaja" prasaja_satria

Terimakasih banyak Mr. Kid dan Pa NangAgus, Jazakallahu khairan atas bantuannya. Alhamdulillah jadi terselesaikan. 

Sent from Yahoo Mail on Android

On Sun, 26 May 2019 at 17:36, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:  

Jika pakai VBA, ada baiknya langsung tulis hasil akhirnya saja :    Dim lR As Long, sA As String, dB As Double, dE As Double
    With Sheets("Hit")
        For lR = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
            sA = UCase(Trim(.Cells(lR, 1).Text))
            Select Case sA
            Case "BB"
                If IsNumeric(.Cells(lR, 2).Value) And Len(.Cells(lR, 2).Value) <> 0 Then dB = .Cells(lR, 2).Value
                If IsNumeric(.Cells(lR, 5).Value) And Len(.Cells(lR, 5).Value) <> 0 Then dE = .Cells(lR, 5).Value
                .Cells(lR, 6).Value = dE + dB + .Cells(lR, 4).Value
            Case "ABA": dB = .Cells(lR, 2).Value
            Case "E": dE = .Cells(lR, 5).Value
            End Select
        Next lR
    End With

Regards,Kid

On Wed, May 22, 2019 at 4:56 PM Agus nangagus@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

 

Wa'alaikumsalam warahmatullah wabarakatuh Dear Bayu, coba cekripnya diubah menjadi: With Sheets("Hit")
        For i = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
                If .Cells(i, 1).Value = "E" Then
                        e = i
                Else
                      If .Cells(i, 1).Value = "ABA" Then
                        b = i
                      Else
                        If .Cells(i, 1).Value = "BB" Then
                                 .Cells(i, 6).FormulaR1C1 = "=RC[-2]+R" & e & "C5 + R" & b & "C2"
                        End If
                      End If
                End If
         Next i
End With

Wasalamu'alaikumsalam warahmatullah Regard
NangAgus


On 5/22/2019 08:36, Bayu Prasaja prasaja_satria@yahoo..com [belajar-excel] wrote:

 
Assalamu'alaikum, selamat pagi para guru, mohon bantuannya untuk penyelesaian macro excel, karena keterbatasan pemahaman saya, jadi saya gbisa menjelaskan secara rinci, jadi langsung saja ke attatchment. Terima kasih sebelumnya, semoga menambah pahala dibulan Ramadhan ini. Aamiin


Sent from Yahoo Mail on Android


#yiv4934007555 #yiv4934007555 -- #yiv4934007555ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv4934007555 #yiv4934007555ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv4934007555 #yiv4934007555ygrp-mkp #yiv4934007555hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv4934007555 #yiv4934007555ygrp-mkp #yiv4934007555ads {margin-bottom:10px;}#yiv4934007555 #yiv4934007555ygrp-mkp .yiv4934007555ad {padding:0 0;}#yiv4934007555 #yiv4934007555ygrp-mkp .yiv4934007555ad p {margin:0;}#yiv4934007555 #yiv4934007555ygrp-mkp .yiv4934007555ad a {color:#0000ff;text-decoration:none;}#yiv4934007555 #yiv4934007555ygrp-sponsor #yiv4934007555ygrp-lc {font-family:Arial;}#yiv4934007555 #yiv4934007555ygrp-sponsor #yiv4934007555ygrp-lc #yiv4934007555hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv4934007555 #yiv4934007555ygrp-sponsor #yiv4934007555ygrp-lc .yiv4934007555ad {margin-bottom:10px;padding:0 0;}#yiv4934007555 #yiv4934007555actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv4934007555 #yiv4934007555activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv4934007555 #yiv4934007555activity span {font-weight:700;}#yiv4934007555 #yiv4934007555activity span:first-child {text-transform:uppercase;}#yiv4934007555 #yiv4934007555activity span a {color:#5085b6;text-decoration:none;}#yiv4934007555 #yiv4934007555activity span span {color:#ff7900;}#yiv4934007555 #yiv4934007555activity span .yiv4934007555underline {text-decoration:underline;}#yiv4934007555 .yiv4934007555attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv4934007555 .yiv4934007555attach div a {text-decoration:none;}#yiv4934007555 .yiv4934007555attach img {border:none;padding-right:5px;}#yiv4934007555 .yiv4934007555attach label {display:block;margin-bottom:5px;}#yiv4934007555 .yiv4934007555attach label a {text-decoration:none;}#yiv4934007555 blockquote {margin:0 0 0 4px;}#yiv4934007555 .yiv4934007555bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv4934007555 .yiv4934007555bold a {text-decoration:none;}#yiv4934007555 dd.yiv4934007555last p a {font-family:Verdana;font-weight:700;}#yiv4934007555 dd.yiv4934007555last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv4934007555 dd.yiv4934007555last p span.yiv4934007555yshortcuts {margin-right:0;}#yiv4934007555 div.yiv4934007555attach-table div div a {text-decoration:none;}#yiv4934007555 div.yiv4934007555attach-table {width:400px;}#yiv4934007555 div.yiv4934007555file-title a, #yiv4934007555 div.yiv4934007555file-title a:active, #yiv4934007555 div.yiv4934007555file-title a:hover, #yiv4934007555 div.yiv4934007555file-title a:visited {text-decoration:none;}#yiv4934007555 div.yiv4934007555photo-title a, #yiv4934007555 div.yiv4934007555photo-title a:active, #yiv4934007555 div.yiv4934007555photo-title a:hover, #yiv4934007555 div.yiv4934007555photo-title a:visited {text-decoration:none;}#yiv4934007555 div#yiv4934007555ygrp-mlmsg #yiv4934007555ygrp-msg p a span.yiv4934007555yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv4934007555 .yiv4934007555green {color:#628c2a;}#yiv4934007555 .yiv4934007555MsoNormal {margin:0 0 0 0;}#yiv4934007555 o {font-size:0;}#yiv4934007555 #yiv4934007555photos div {float:left;width:72px;}#yiv4934007555 #yiv4934007555photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv4934007555 #yiv4934007555photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv4934007555 #yiv4934007555reco-category {font-size:77%;}#yiv4934007555 #yiv4934007555reco-desc {font-size:77%;}#yiv4934007555 .yiv4934007555replbq {margin:4px;}#yiv4934007555 #yiv4934007555ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv4934007555 #yiv4934007555ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv4934007555 #yiv4934007555ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv4934007555 #yiv4934007555ygrp-mlmsg select, #yiv4934007555 input, #yiv4934007555 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv4934007555 #yiv4934007555ygrp-mlmsg pre, #yiv4934007555 code {font:115% monospace;}#yiv4934007555 #yiv4934007555ygrp-mlmsg * {line-height:1.22em;}#yiv4934007555 #yiv4934007555ygrp-mlmsg #yiv4934007555logo {padding-bottom:10px;}#yiv4934007555 #yiv4934007555ygrp-msg p a {font-family:Verdana;}#yiv4934007555 #yiv4934007555ygrp-msg p#yiv4934007555attach-count span {color:#1E66AE;font-weight:700;}#yiv4934007555 #yiv4934007555ygrp-reco #yiv4934007555reco-head {color:#ff7900;font-weight:700;}#yiv4934007555 #yiv4934007555ygrp-reco {margin-bottom:20px;padding:0px;}#yiv4934007555 #yiv4934007555ygrp-sponsor #yiv4934007555ov li a {font-size:130%;text-decoration:none;}#yiv4934007555 #yiv4934007555ygrp-sponsor #yiv4934007555ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv4934007555 #yiv4934007555ygrp-sponsor #yiv4934007555ov ul {margin:0;padding:0 0 0 8px;}#yiv4934007555 #yiv4934007555ygrp-text {font-family:Georgia;}#yiv4934007555 #yiv4934007555ygrp-text p {margin:0 0 1em 0;}#yiv4934007555 #yiv4934007555ygrp-text tt {font-size:120%;}#yiv4934007555 #yiv4934007555ygrp-vital ul li:last-child {border-right:none !important;}#yiv4934007555

Sun May 26, 2019 3:16 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Ganti bagian :
Sheet1!$I$2:$I$1000<>"KNA"
menjadi :
IsError( Find("|" & Sheet1!$I$2:$I$1000 & "|" , "|KNA|BPA|LJM|FU|" ) )

Regards,
Kid

On Fri, May 24, 2019 at 1:04 PM supriyadi_sbm@yahoo.co.id [belajar-excel] <
belajar-excel@yahoogroups.com> wrote:

>
>
> pagi milis belajar excel,
>
>
> saya kebingungan untuk menambahkan 4 variable ke dalam rumus ini,
>
> solusi nya gimana ya, saya sudah coab pakai or, dan if, tapi tetap tidak
> berfungsi
>
>
> {=IFERROR(INDEX(Sheet1!$A$2:$A$1000;SMALL(IF(Sheet1!$I$2:$I$1000<>"KNA";
> ROW(Sheet1!$A$2:$A$1000));ROW(1:1))-1;1);""))}
>
>
> variable yang saya ingin tambahkan adalah :
>
>
> jika bukan KNA,
>
> jika bukan BPA,
>
> jika bukan LJM,
>
> jika bukan FU
>
>
> makasih atas bantuannya,
>
>
> supriyadi
>
>
>

Sun May 26, 2019 4:59 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Tentang :
>
> Apakah Setiap akan buat Pivot table harus buat Ulang dari awal untuk
> menghilangkan sampah?

> Tidak.
> Jika data source nya sama, sebaiknya copy pivot table lain ke lokasi
baru, lalu atur layout-nya.
> Tidak ada sampah di dalam pivot table.

Tentang :

> (katanya agar bisa mengurangi Size filenya)

> Mengurangi file size yang diakibatkan oleh pivot table bisa dilakukan
dengan berbagai cara, antara lain :
1. pivot table yang menggunakan data source yang sama, dibuat dari pivot
table yang sudah ada (copy ke lokasi lain), lalu ditata layout-nya.
2. data souce pivot table yang berupa flat table (bukan OLAP) dan sumber
data untuk data source bisa selalu diakses sewaktu-waktu, maka hindari
menyimpan data di dalam pivot cache.
3. batasi jumlah record dan kolom data source pada records dan fields
yang dibutuhkan saja
4. menata pivot table (lihat disini
<http://excel-mr-kid.blogspot.com/2013/04/pivot-table-1-kenalan.html>, pada
bagian 'Menata Pivot Table')

Tentang :

> Mohon info juga Jenis sampahnya sepeti apa ya?

> Tidak ada sampah di dalam pivot table, karena data source untuk pivot
table selalu berupa data terpilih
> Jika ada yang mengatakan 'sampah', bisa jadi dikarenakan pihak yang
mengatakan tersebut masih perlu lebih banyak belajar tentang pivot table.

Regards,
Kid

On Thu, Apr 25, 2019 at 12:51 PM 'Dede Sulaeman'
pmaho_ss9@pinusmerahabadi.co.id [belajar-excel] <
belajar-excel@yahoogroups.com> wrote:

>
>
> Dear all,
>
>
>
> mo tanya tentang Pivot Table,
>
>
>
> Apakah Setiap akan buat Pivot table harus buat Ulang dari awal untuk
> menghilangkan sampah? (katanya agar bisa mengurangi Size filenya)
>
> Mohon info juga Jenis sampahnya sepeti apa ya?
>
>
>
>
>
> Terima kasih,
>
>
>
> Salam,
>
> Bay
>
>
>
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 18.10

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)