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 lkmjkt...@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> 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' mr.nm...@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>>
>>
>> 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 lkmjkt...@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> lebih sering -- hanya di hitung 1 column saja .
>>>
>>> contoh file terlampir :
>>>
>>>
>>>
>>> Salam
>>>
>>> Lukman
>>>
>>>
>>>
>>>
>>>
>>> 2015-06-07 18:58 GMT+07:00 Toby kenzo tobyke...@yahoo.co.id
>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>
>>>>
>>>>
>>>> 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 lkmjkt...@gmail.com [belajar-excel] <
>>>> belajar-excel@yahoogroups.com>;
>>>> * To: * belajar-excel@yahoogroups com <belajar-excel@yahoogroups.com>;
>>>> * 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.
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>
>>
>
>
