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. >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>> >>> >> > >
