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