Kamis, 11 Juni 2015

[belajar-excel] Digest Number 3468

3 Messages

Digest #3468
1a
Re: Otomatis Print PDF dan save ke folder tertentu by "Mr. Kid" nmkid.family@ymail.com
2a
Re: Do Case atau select Case by "lkm jktind" lkmjkt
2b
Re: Do Case atau select Case by "lkm jktind" lkmjkt

Messages

Thu Jun 11, 2015 12:09 am (PDT) . Posted by:

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

Hai Tio,

Excel bisa save as pdf. Coba lihat trit lawas disini :
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/32626

Wassalam,
Kid

2015-06-11 16:43 GMT+10:00 Tio Adi Bayu Adjie tio.adjie@ptssb.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Dear BeExcel.
>
> Mau Tanya. Coding untuk printout ada tapi adakah coding untuk secara
> otomatis print PDF dan langsung save ke folder tertentu ?
>
>
>
> Terima kasih.
>
>
>
> Tio
>
>
>

Thu Jun 11, 2015 12:30 am (PDT) . Posted by:

"lkm jktind" lkmjkt

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' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> 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 lkmjktind@gmail.com [belajar-excel]
> <belajar-excel@yahoogroups.com>:
>
>>
>>
>> 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' mr.nmkid@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> 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 lkmjktind@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.nmkid@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 lkmjktind@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 tobykenzo@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 lkmjktind@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.
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>
>>>>>
>>>>
>>>
>>
>
>

Thu Jun 11, 2015 12:55 am (PDT) . Posted by:

"lkm jktind" lkmjkt

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 <lkmjktind@gmail.com>:

> 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' mr.nmkid@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>>
>>
>> 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 lkmjktind@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> 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' mr.nmkid@gmail.com [belajar-excel]
>>> <belajar-excel@yahoogroups.com>:
>>>
>>>>
>>>>
>>>> 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 lkmjktind@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.nmkid@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 lkmjktind@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 tobykenzo@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 lkmjktind@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.
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>
>>>>>>
>>>>>
>>>>
>>>
>>
>>
>
>
============================================================
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
---------------------------------------------------------------------

Tidak ada komentar:

Poskan Komentar