ini kalau pakai formula biasa : *CC301* : =IF($C51="CC301";IF(AND(ISNUMBER(INDEX($M$1:$AX$48000;MATCH($A51&"be1=";$D$1:$D$48000;0);R$2));INDEX($M$1:$AX$48000;MATCH($A51&"be1=";$D$1:$D$48000;0);R$2)<>0); IF(RIGHT(R$1;2)="Q1";INDEX($M$1:$AX$48000;MATCH($A51&"be1=";$D$1:$D$48000;0);R$2); IF(OR(RIGHT(R$1;2)="Q2";RIGHT(R$1;2)="Q3";RIGHT(R$1;2)="Q4");IF(AND(INDEX($M$1:$AX$48000;MATCH($A51&"be1=";$D$1:$D$48000;0);R$2+1)<>0;ISNUMBER(INDEX($M$1:$AX$48000;MATCH($A51&"be1=";$D$1:$D$48000;0);R$2+1)));INDEX($M$1:$AX$48000;MATCH($A51&"be1=";$D$1:$D$48000;0);R$2)-INDEX($M$1:$AX$48000;MATCH($A51&"be1=";$D$1:$D$48000;0);R$2+1);"")));"");"SalahJalur")
CC301 = menghitung pendapatan hanya 3 bulan saja . CC302. CC303, CC304 -- rumus nya mirip -- yg dihitung , laba kotor , laba usaha, laba bersih hanya 3 bulan saja. *CC302* = =IF($C52="CC302";IF(AND(ISNUMBER(INDEX($M$1:$AX$48000;MATCH($A52&"be3=";$D$1:$D$48000;0);R$2));INDEX($M$1:$AX$48000;MATCH($A52&"be3=";$D$1:$D$48000;0);R$2)<>0);IF(RIGHT(R$1;2)="Q1";INDEX($M$1:$AX$48000;MATCH($A52&"be3=";$D$1:$D$48000;0);R$2);IF(OR(RIGHT(R$1;2)="Q2";RIGHT(R$1;2)="Q3";RIGHT(R$1;2)="Q4");IF(AND(INDEX($M$1:$AX$48000;MATCH($A52&"be3=";$D$1:$D$48000;0);R$2+1)<>0;ISNUMBER(INDEX($M$1:$AX$48000;MATCH($A52&"be3=";$D$1:$D$48000;0);R$2+1)));INDEX($M$1:$AX$48000;MATCH($A52&"be3=";$D$1:$D$48000;0);R$2)-INDEX($M$1:$AX$48000;MATCH($A52&"be3=";$D$1:$D$48000;0);R$2+1);"")));"");"SalahJalur") *CC220* = =IF($C50="CC220";IF( AND(ISNUMBER(INDEX($M$1:$AX$48000;MATCH($A50&"bg5=";$D$1:$D$48000;0);R$2));ISNUMBER(INDEX($M$1:$AX$48000;MATCH($A50&"bg5=";$D$1:$D$48000;0);R$2+4));ISNUMBER(INDEX($M$1:$AX$48000;MATCH($A50&"bg5=";$D$1:$D$48000;0);MATCH((LEFT(R$1;4)-1)&" Q4";$M$1:$AX$1;0))));IF(AND(INDEX($M$1:$AX$48000;MATCH($A50&"bg5=";$D$1:$D$48000;0);R$2)<>0;INDEX($M$1:$AX$48000;MATCH($A50&"bg5=";$D$1:$D$48000;0);R$2+4)<>0;INDEX($M$1:$AX$48000;MATCH($A50&"bg5=";$D$1:$D$48000;0);MATCH((LEFT(R$1;4)-1)&" Q4";$M$1:$AX$1;0))<>0);INDEX($M$1:$AX$48000;MATCH($A50&"bg5=";$D$1:$D$48000;0);R$2)-INDEX($M$1:$AX$48000;MATCH($A50&"bg5=";$D$1:$D$48000;0);R$2+4)+INDEX($M$1:$AX$48000;MATCH($A50&"bg5=";$D$1:$D$48000;0);MATCH((LEFT(R$1;4)-1)&" Q4";$M$1:$AX$1;0));"");"");"Salah Jalur") diatas 3 macam dari semuanya ada 46 macam formula -- dan bisa di pakai untuk semua column atau row . kecuali untuk LK th fiscal yg berbeda - Salam Lukman 2015-06-11 14:30 GMT+07:00 lkm jktind <[email protected]>: > contoh : I56 : be1= - be1=-1Q berapa pendapatan dalam 3 bulan . > > Q56 = Q51 Karena kolom Q adalah Q1 > R56 = Q51 - S51 : kolom R adalah Q4 untuk mendapatkan data dari > Okt ~ des > S56 = S51 - T51 : Kolom S adalah Q3 untuk mendapatkan data dari > Jul ~ sep > T56 = T51 - U51 : Kolom T adalah Q2 untuk mendapatkan data > dari april ~ jun > > Q51 = adalah pendapat dari jan ~ maret 2015 > R51 = adalah pendapatan dari jan ~ des 2014 > S51 = adalah pendapatan dari jan ~ sep 2014 > T51 = adalah pendapatan dari jan ~ juni 2014 > > > Salam > > Lukman > > > 2015-06-11 13:43 GMT+07:00 'Mr. Kid' [email protected] [belajar-excel] < > [email protected]>: > >> >> >> Jadi, untuk semua rumusan di kolom i, pasti mengambil nilai (yang >> ditambah kurang bagi dsb) hanya dari 1 kolom saja ? >> Kalau sedang menghitung q1 tahun 2000 (yang ditambah kurang bagi dsb), >> apakah hanya pakai data q1 tahun 2000 saja ? >> Bagaimana dengan menghitung q2,q3,q4 ? >> >> >> >> >> 2015-06-11 16:37 GMT+10:00 lkm jktind [email protected] >> [belajar-excel] <[email protected]>: >> >>> >>> >>> Jadi kalau ada kolom i yang tidak berisi rumus (alias blank), maka >>> nilainya tetap apa adanya dari sumber data ? >>> : Ya >>> kecuali data dalam USD -- akan di konversikan dalam IDR. >>> >>> Apakah semua rumus di kolom i itu pasti mengambil dari kolom yang sama >>> ? kebanyakan mengunakan column yg sama >>> >>> bila masih mengunakan formula di dalam excel : >>> baris untuk bantu untuk vertical : columns E,F,G,H (match >>> vertical) >>> baris untuk bantu untuk horizontal : Row 2. (match >>> horizontal) >>> >>> jadi : = Index (data, match vertical, match horizontal) >>> >>> sedangkan untuk tahun fiscal yg berbeda di hitung secara manual . >>> >>> Kolom I : ini hanya catatan rumus nya saja . berisi No Acc yg akan >>> digunakan untuk menghitung . (dari pada saya catat di file yg berbeda) >>> sebagai dan dasar pembuatan formula >>> >>> >>> Salam >>> >>> >>> Lukman >>> >>> >>> >>> >>> 2015-06-11 12:10 GMT+07:00 'Mr. Kid' [email protected] [belajar-excel] >>> <[email protected]>: >>> >>>> >>>> >>>> Jadi kalau ada kolom i yang tidak berisi rumus (alias blank), maka >>>> nilainya tetap apa adanya dari sumber data ? >>>> Apakah semua rumus di kolom i itu pasti mengambil dari kolom yang sama ? >>>> Maksudnya, ketika rumusan kolom i akan diimplementasi di kolom q1 tahun >>>> x, maka akan menggunakan semua nilai di kolom tersebut juga berdasar >>>> kode-kode dalam rumusan kolom i ? >>>> >>>> >>>> 2015-06-11 14:46 GMT+10:00 lkm jktind [email protected] >>>> [belajar-excel] <[email protected]>: >>>> >>>>> >>>>> >>>>> Pak Kid. >>>>> >>>>> Data nya : ada yg mengunakan USD dan IDR >>>>> sedangkan Harga sahamnya mengunakan IDR >>>>> Tahun fiscalnya ada ada yg berbeda: >>>>> Kebanyakan : dari jan ~ des , atau dari april 2014 ~ maret >>>>> 2015 (jepang) >>>>> >>>>> No Acc ---- di kolom C >>>>> Ticker --- di kolom A >>>>> >>>>> Data awal nya . dari aa0 sampai AT100 jumlah row nya bisa >>>>> tidak sama. disini ada formula yg di letakan di dalam excel. >>>>> >>>>> Data Inti nya dari ba2= sampai bg5= disini . semua data >>>>> di seragamkan dengan mata uang rupiah. >>>>> qtr, qtrQ, qtrY, qtrA --- tahun fiscalnya dari jan ~ des row 1. >>>>> qtk, qtrkQ, qttkY, qtkA --- tahun fiscalnya berbeda. >>>>> >>>>> qtr, qtk -- quater saat ini. >>>>> qtrQ , qtkQ ---- quater sebelumnya . digunakan untuk mencari hasil 3 >>>>> bulan terakhir ---- Q to Q. >>>>> qtrY , qtkY ---- setahun yg lalu . digunakan untuk menghitung Y >>>>> to Y >>>>> qtrA, qtkA ---- untuk mencari hasil 12 bulan terakhir. contoh >>>>> : = 2014 Q2 + 2013 Q4 - 2013 Q2 >>>>> >>>>> sebuah template formula : >>>>> sebenarnya ada sheet tambahan . dinamai sheet rumus . . >>>>> >>>>> Sub copy_formula() >>>>> Application.Calculation = xlCalculationAutomatic >>>>> Sheets("rumus").Range("R38:R83").Copy >>>>> >>>>> Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ >>>>> SkipBlanks:=False, Transpose:=False >>>>> >>>>> Selection.Copy >>>>> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, >>>>> SkipBlanks _ >>>>> :=False, Transpose:=False >>>>> Application.CutCopyMode = False >>>>> With Selection.Interior >>>>> .Pattern = xlNone >>>>> .TintAndShade = 0 >>>>> .PatternTintAndShade = 0 >>>>> End With >>>>> Selection.Replace What:="False", Replacement:="", LookAt:=xlPart, _ >>>>> SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ >>>>> ReplaceFormat:=False >>>>> Selection.Replace What:="", Replacement:="", LookAt:=xlPart, _ >>>>> SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ >>>>> ReplaceFormat:=False >>>>> Selection.Replace What:="#VALUE!", Replacement:="", >>>>> LookAt:=xlPart, _ >>>>> SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ >>>>> ReplaceFormat:=False >>>>> Selection.Replace What:="", Replacement:="", LookAt:=xlPart, >>>>> SearchOrder _ >>>>> :=xlByRows, MatchCase:=False, SearchFormat:=False, >>>>> ReplaceFormat:=False >>>>> >>>>> Application.Calculation = xlCalculationManual >>>>> >>>>> End Sub >>>>> >>>>> di kolom I ada rumus nya >>>>> >>>>> total row sekitar 47.800 baris dengan columns 30 >>>>> >>>>> kalau di hitung dengan VBA komplit_1 waktunya sekitar 22 ~ 23 >>>>> menit. >>>>> VBA Komplit_2 sekitar 15 ~ 16 menit. >>>>> >>>>> Salam >>>>> >>>>> >>>>> Lukman >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> 2015-06-11 10:06 GMT+07:00 'Mr. Kid' [email protected] >>>>> [belajar-excel] <[email protected]>: >>>>> >>>>>> >>>>>> >>>>>> Hai Lukman, >>>>>> >>>>>> Data awalnya seperti apa dan hasilnya seperti apa ya ? >>>>>> Tampaknya tidak semua record adalah hitungan. Record hasil hitungan >>>>>> pun sebenarnya akan selalu tetap per kode di kolom C, walau hitungannya >>>>>> membutuhkan kode kolom C lainnya. >>>>>> >>>>>> Bolehkah dijabarkan kapan menggunakan : >>>>>> qtr,qtrq,qtrY,qtrA ? >>>>>> >>>>>>> Dim qtr As String, qtrQ As String, qtrY As String, qtrA As String >>>>>>> Dim qtk As String, qtkQ As String, qtkY As String, qtkA As String >>>>>>> >>>>>> >>>>>> Sepertinya sebuah template formula yang diletakkan pada sebuah kolom >>>>>> bisa mempercepat proses daripada menghitung setiap cells dengan loop >>>>>> terhadap M baris x N kolom. >>>>>> >>>>>> Wassalam, >>>>>> Kid. >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> 2015-06-08 12:00 GMT+10:00 lkm jktind [email protected] >>>>>> [belajar-excel] <[email protected]>: >>>>>> >>>>>>> >>>>>>> >>>>>>> lebih sering -- hanya di hitung 1 column saja . >>>>>>> >>>>>>> contoh file terlampir : >>>>>>> >>>>>>> >>>>>>> >>>>>>> Salam >>>>>>> >>>>>>> Lukman >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> 2015-06-07 18:58 GMT+07:00 Toby kenzo [email protected] >>>>>>> [belajar-excel] <[email protected]>: >>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> Dear Lukman, >>>>>>>> >>>>>>>> Menurut saya masih bisa di simplfy programnya dgn tidak terlalu >>>>>>>> banyak menggunakan "kondisi". >>>>>>>> Jika memungkinkan,anda bisa menggunakan formula excel dalam suatu >>>>>>>> sheet untuk melakukan kalkulasi,jadi tidak semua fungsi kalkulasi di >>>>>>>> lakukan di dalam vba,sebisa mungkin tugas vba hanya memanggil resultnya >>>>>>>> saja, itu akan lebih cepat. >>>>>>>> >>>>>>>> TerimaKasih. >>>>>>>> >>>>>>>> Sent from Yahoo Mail on Android >>>>>>>> <http://overview.mail.yahoo.com/mobile/?.src=Android> >>>>>>>> >>>>>>>> ------------------------------ >>>>>>>> * From: * lkm jktind [email protected] [belajar-excel] < >>>>>>>> [email protected]>; >>>>>>>> * To: * belajar-excel@yahoogroups com < >>>>>>>> [email protected]>; >>>>>>>> * Subject: * [belajar-excel] Do Case atau select Case [2 >>>>>>>> Attachments] >>>>>>>> * Sent: * Sun, Jun 7, 2015 6:15:17 AM >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> Saya telah membuat VBA (seperti terlampir di email ini.) >>>>>>>> >>>>>>>> Tapi rasanya lambat dalam memproses data. >>>>>>>> >>>>>>>> bila mengunakan do case atau select case apakah akan lebih cepat ? >>>>>>>> >>>>>>>> bagaimana cara merubahnya . bila hendak mengunakan do case. /select >>>>>>>> case. >>>>>>>> >>>>>>>> >>>>>>>> Salam >>>>>>>> >>>>>>>> Lukman >>>>>>>> >>>>>>>> >>>>>>>> NB : >>>>>>>> 1. Komplit_1 -- ini lambat >>>>>>>> 2. Komplit_2 -- ini lebih cepat daripada yang diatas. >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>> >>>>>> >>>>> >>>> >>> >> >> > >
