15 Messages
Digest #3483
5a
Bls: Bls: [belajar-excel] Gangguan refresh reaksi pada formula excel by "Ristanto Ristanto" ristanto1111
Messages
Sun Jun 21, 2015 3:25 am (PDT) . Posted by:
shenly_excelmania
Terima kasih mas.Toby kenzo, rumusnya good sekali :D
Sun Jun 21, 2015 3:59 am (PDT) . Posted by:
shenly_excelmania
terima kasih mr.kid, sudah di buatkan perbandingannya, saya pelajari dulu
Sun Jun 21, 2015 10:10 am (PDT) . Posted by:
"lkm jktind" lkmjkt
Pak Kid.
dengan data sebanyak 646.784 row di sheet 1.
dengan data berurutan.
xlCalculationManual xlCalculationAutomatic
looping , tanpa formula :
looping , dengan formula :
2015-06-21 15:57 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> hehehe...
> lebih cepat daripada pakai methods worksheetfunction kan ?
> imho,
> data yang terurut jauh lebih baik daripada tidak terurut.
> Jadi, proses bisa diawali dengan sort terhadap isi tabel data sumber.
> Kemudian, evaluate bisa dimanfaatkan untuk mengkomputasi match pencari
> baris awal dan countif jumlah record nya. Dengan demikian, maka proses
> komputasi array oleh lookup bisa dihindari.
>
> Akan lebih baik lagi bila tabel data menggunakan fitur Excel Table. Dengan
> begitu, bunyi formula akan merujuk ke nama kolom tanpa peduli sudah sampai
> baris berapa adanya si record. Artinya, proses evaluate bisa dilakukan
> dengan bunyi formula yang tetap pada jumlah baris yang relatif sebanyak
> data yang ada.
>
> Andai tidak menggunakan fitur Excel Table, evaluate perlu merujuk ke
> banyak baris (misal sampai merujuk ke baris 500ribu) walaupun saat ini
> datanya baru ada 10ribu karena dikhawatirkan suatu saat akan mencapai
> 500ribu. Artinya, proses formula akan mengkomputasi data sebanyak 500ribu
> tersebut.
> Sedangkan dengan fitur Excel table, formulasi untuk evaluate merujuk ke
> nama kolom. Jika record baru ada 5 bijik, maka komputasi hanya terhadap 5
> bijik tersebut. Jika data sudah bertambah banyak sampai 1juta, maka
> komputasi akan merujuk ke 1juta baris TANPA perlu mengubah bunyi baris kode
> di bagian formulasi dalam evaluate nya.
>
> Tanpa fitur Excel Table, bisa juga dibuatkan suatu bunyi formula yang
> mengikuti jumlah baris yang ada. Jadi harus membuat baris kode untuk :
> a. tahu baris terakhir data saat itu
> b. menyusun bunyi formula untuk evaluate
> baru deh hasil b dipakai oleh evaluate.
> Proses a dan b tersebut akan terasa singkat jika dikerjakan oleh VBA,
> TETAPI waktu untuk 2 proses tersebut bisa digunakan untuk proses kompleks
> lainnya daripada sekedar untuk tahu dan menyusun bunyi formula sajah alias
> 2 proses ini termasuk proses yang kebanyakan gaya n bikin ruwet baris kode
> sajah...
> Ingat, kebanyakan gaya akan menjadi tekanan bertambah.... P = F / A
> Jadi, kalau mau banyak gaya, perluas area kekompleksitasannya (A) supaya
> tekanannya relatif tetap.
>
> ;)
>
> met berbuka puasa bagi BeExceller yang berpuasa...
>
> Wassalam,
> Kid
>
>
>
> 2015-06-21 16:52 GMT+10:00 lkm jktind lkmjktind@gmail.com [belajar-excel]
> <belajar-excel@yahoogroups.com>:
>
>>
>>
>> sudah bisa .
>> Soh2.Cells(rx, 16) = Evaluate("=LookUp( 9^9 , Row(OHLC!$A$1:$A$1159) /
>> (OHLC!$A$1:$A$1159=$A25) )")
>>
>> terima kasih
>>
>> salam
>>
>> Lukman
>>
>> 2015-06-21 12:41 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> Pakai evaluate saja...
>>> http://b-excel.blogspot.com/2013/09/ngobrolin-evaluate-di-vba-yuk.html
>>>
>>> 2015-06-21 15:35 GMT+10:00 lkm jktind lkmjktind@gmail.com
>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>
>>>>
>>>>
>>>> Pak
>>>> Formula itu sudah sesuai. (cocok)
>>>>
>>>> Tapi bila untuk di gunakan dalam VBA . nga bisa.
>>>>
>>>> For rx = 2 To Soh2.Cells(Rows.Count, 1).End(xlUp).Row
>>>> Soh2.Cells(rx, 6) = .CountIfs(Voh, Cells(rx, 1))
>>>> Soh2.Cells(rx, 7) = .Match(Cells(rx, 1), Voh, False)
>>>> If Cells(rx, 6) <> 0 Then
>>>>
>>>> 'Soh2.Cells(rx, 8) = .Match(Cells(rx, 1), Voh, True)
>>>> Soh2.Cells(rx, 8) = .Lookup(1000000000, Voh,
>>>> /Voh=Soh2.Cells(rx, 1))
>>>>
>>>>
>>>> End If
>>>> Next
>>>>
>>>> Salam
>>>>
>>>> Lukman
>>>>
>>>> NB:
>>>> Sheet 1 = sumber data
>>>> Sheet 2 = sheet bantu .
>>>> Bila : ada data baru --- dicari di sheet 2 apakah datanya sudah ada
>>>> Bila : data hendak di pakai tinggal dicari tglnya -- dan di ambil
>>>> dari baris awal dan baris akhir.
>>>>
>>>> didalam file ada 4 modul :
>>>> modul 1 : looping , tanpa formula, data berurutan.
>>>> modul 2 : looping , dengan formula, data berurutan.
>>>> modul 3 : lopping , tanpa formula , data acak.
>>>> modul 4 : rencananya . Lopping , dengan formula , data acak.
>>>>
>>>> untuk melihat pengaruh dari xlCalculationManual /
>>>> xlCalculationAutomatic
>>>>
>>>>
>>>>
>>>>
>>>> 2015-06-21 10:59 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com
>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>
>>>>>
>>>>>
>>>>>
>>>>> =LookUp( 9^9 ; Row(OHLC!$A$1:$A$1159) / (OHLC!$A$1:$A$1159=$A25) )
>>>>>
>>>>> Wassalam,
>>>>> Kid
>>>>>
>>>>>
>>>>>
>>>>> 2015-06-21 13:22 GMT+10:00 lkm jktind lkmjktind@gmail.com
>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>
>>>>>>
>>>>>>
>>>>>> dalam contoh . mencari data tgl 24 AGT 2009.
>>>>>>
>>>>>> baris awal =MATCH($A25;OHLC!$A$1:$A$1159;FALSE)
>>>>>> baris akhir =*MATCH*($A25;OHLC!$A$1:$A$1159;*TRUE*) --- kalau
>>>>>> sumber data nya tidak berurutan hasilnya salah.
>>>>>>
>>>>>> seharusnya pakai formula apa ? bila sumber datanya berurutan atau
>>>>>> tidak berurutan .
>>>>>>
>>>>>> salam
>>>>>>
>>>>>>
>>>>>> Lukman
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>> 2015-06-21 3:54 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com
>>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>>
>>>>>>>
>>>>>>>
>>>>>>> Untuk data terurut (sorted),
>>>>>>> baris akhir = baris awal + jumlah item - 1
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>> 2015-06-21 3:16 GMT+10:00 lkm jktind lkmjktind@gmail.com
>>>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>> Saya hendak mencari baris pertama dan baris terakhir dari sheet 1
>>>>>>>>
>>>>>>>> hasilnya di kolom O dan P
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>> Salam
>>>>>>>>
>>>>>>>> Lukman
>>>>>>>>
>>>>>>>> NB formula yg saya gunakan itu abal -abal
>>>>>>>>
>>>>>>>>
>>>>>>>
>>>>>>
>>>>>
>>>>
>>>
>>
>
>
dengan data sebanyak 646.784 row di sheet 1.
dengan data berurutan.
xlCalculationManual xlCalculationAutomatic
looping , tanpa formula :
looping , dengan formula :
2015-06-21 15:57 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> hehehe...
> lebih cepat daripada pakai methods worksheetfunction kan ?
> imho,
> data yang terurut jauh lebih baik daripada tidak terurut.
> Jadi, proses bisa diawali dengan sort terhadap isi tabel data sumber.
> Kemudian, evaluate bisa dimanfaatkan untuk mengkomputasi match pencari
> baris awal dan countif jumlah record nya. Dengan demikian, maka proses
> komputasi array oleh lookup bisa dihindari.
>
> Akan lebih baik lagi bila tabel data menggunakan fitur Excel Table. Dengan
> begitu, bunyi formula akan merujuk ke nama kolom tanpa peduli sudah sampai
> baris berapa adanya si record. Artinya, proses evaluate bisa dilakukan
> dengan bunyi formula yang tetap pada jumlah baris yang relatif sebanyak
> data yang ada.
>
> Andai tidak menggunakan fitur Excel Table, evaluate perlu merujuk ke
> banyak baris (misal sampai merujuk ke baris 500ribu) walaupun saat ini
> datanya baru ada 10ribu karena dikhawatirkan suatu saat akan mencapai
> 500ribu. Artinya, proses formula akan mengkomputasi data sebanyak 500ribu
> tersebut.
> Sedangkan dengan fitur Excel table, formulasi untuk evaluate merujuk ke
> nama kolom. Jika record baru ada 5 bijik, maka komputasi hanya terhadap 5
> bijik tersebut. Jika data sudah bertambah banyak sampai 1juta, maka
> komputasi akan merujuk ke 1juta baris TANPA perlu mengubah bunyi baris kode
> di bagian formulasi dalam evaluate nya.
>
> Tanpa fitur Excel Table, bisa juga dibuatkan suatu bunyi formula yang
> mengikuti jumlah baris yang ada. Jadi harus membuat baris kode untuk :
> a. tahu baris terakhir data saat itu
> b. menyusun bunyi formula untuk evaluate
> baru deh hasil b dipakai oleh evaluate.
> Proses a dan b tersebut akan terasa singkat jika dikerjakan oleh VBA,
> TETAPI waktu untuk 2 proses tersebut bisa digunakan untuk proses kompleks
> lainnya daripada sekedar untuk tahu dan menyusun bunyi formula sajah alias
> 2 proses ini termasuk proses yang kebanyakan gaya n bikin ruwet baris kode
> sajah...
> Ingat, kebanyakan gaya akan menjadi tekanan bertambah.... P = F / A
> Jadi, kalau mau banyak gaya, perluas area kekompleksitasannya (A) supaya
> tekanannya relatif tetap.
>
> ;)
>
> met berbuka puasa bagi BeExceller yang berpuasa...
>
> Wassalam,
> Kid
>
>
>
> 2015-06-21 16:52 GMT+10:00 lkm jktind lkmjktind@gmail.com [belajar-excel]
> <belajar-excel@yahoogroups.com>:
>
>>
>>
>> sudah bisa .
>> Soh2.Cells(rx, 16) = Evaluate("=LookUp( 9^9 , Row(OHLC!$A$1:$A$1159) /
>> (OHLC!$A$1:$A$1159=$A25) )")
>>
>> terima kasih
>>
>> salam
>>
>> Lukman
>>
>> 2015-06-21 12:41 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> Pakai evaluate saja...
>>> http://b-excel.blogspot.com/2013/09/ngobrolin-evaluate-di-vba-yuk.html
>>>
>>> 2015-06-21 15:35 GMT+10:00 lkm jktind lkmjktind@gmail.com
>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>
>>>>
>>>>
>>>> Pak
>>>> Formula itu sudah sesuai. (cocok)
>>>>
>>>> Tapi bila untuk di gunakan dalam VBA . nga bisa.
>>>>
>>>> For rx = 2 To Soh2.Cells(Rows.Count, 1).End(xlUp).Row
>>>> Soh2.Cells(rx, 6) = .CountIfs(Voh, Cells(rx, 1))
>>>> Soh2.Cells(rx, 7) = .Match(Cells(rx, 1), Voh, False)
>>>> If Cells(rx, 6) <> 0 Then
>>>>
>>>> 'Soh2.Cells(rx, 8) = .Match(Cells(rx, 1), Voh, True)
>>>> Soh2.Cells(rx, 8) = .Lookup(1000000000, Voh,
>>>> /Voh=Soh2.Cells(rx, 1))
>>>>
>>>>
>>>> End If
>>>> Next
>>>>
>>>> Salam
>>>>
>>>> Lukman
>>>>
>>>> NB:
>>>> Sheet 1 = sumber data
>>>> Sheet 2 = sheet bantu .
>>>> Bila : ada data baru --- dicari di sheet 2 apakah datanya sudah ada
>>>> Bila : data hendak di pakai tinggal dicari tglnya -- dan di ambil
>>>> dari baris awal dan baris akhir.
>>>>
>>>> didalam file ada 4 modul :
>>>> modul 1 : looping , tanpa formula, data berurutan.
>>>> modul 2 : looping , dengan formula, data berurutan.
>>>> modul 3 : lopping , tanpa formula , data acak.
>>>> modul 4 : rencananya . Lopping , dengan formula , data acak.
>>>>
>>>> untuk melihat pengaruh dari xlCalculationManual /
>>>> xlCalculationAutomatic
>>>>
>>>>
>>>>
>>>>
>>>> 2015-06-21 10:59 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com
>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>
>>>>>
>>>>>
>>>>>
>>>>> =LookUp( 9^9 ; Row(OHLC!$A$1:$A$1159) / (OHLC!$A$1:$A$1159=$A25) )
>>>>>
>>>>> Wassalam,
>>>>> Kid
>>>>>
>>>>>
>>>>>
>>>>> 2015-06-21 13:22 GMT+10:00 lkm jktind lkmjktind@gmail.com
>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>
>>>>>>
>>>>>>
>>>>>> dalam contoh . mencari data tgl 24 AGT 2009.
>>>>>>
>>>>>> baris awal =MATCH($A25;OHLC!$A$1:$A$1159;FALSE)
>>>>>> baris akhir =*MATCH*($A25;OHLC!$A$1:$A$1159;*TRUE*) --- kalau
>>>>>> sumber data nya tidak berurutan hasilnya salah.
>>>>>>
>>>>>> seharusnya pakai formula apa ? bila sumber datanya berurutan atau
>>>>>> tidak berurutan .
>>>>>>
>>>>>> salam
>>>>>>
>>>>>>
>>>>>> Lukman
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>> 2015-06-21 3:54 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com
>>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>>
>>>>>>>
>>>>>>>
>>>>>>> Untuk data terurut (sorted),
>>>>>>> baris akhir = baris awal + jumlah item - 1
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>> 2015-06-21 3:16 GMT+10:00 lkm jktind lkmjktind@gmail.com
>>>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>
>
Sun Jun 21, 2015 10:29 am (PDT) . Posted by:
"lkm jktind" lkmjkt
Pak Kid.
dengan data sebanyak 646.784 row di sheet 1.
dengan data berurutan.
xlCalculationManual xlCalculationAutomatic
looping , tanpa formula : 22.09 23.98
looping , dengan formula : 139.29 139.18
module 1 dan 2 (memang di buat khusus untuk data yg berurutan)
looping, tanpa formula : 5.448.84 5.560.52
lopping, dengan formula : 139.87 139.89
module 3 dan 4 ( khusus di buat untuk data tak berurutan)
sebelumnya dengan template di cells aktif : dibawah 1 detik (manual) :
25 detik (automatic)
dan saya lebih memilih memakai looping tanpa formula. dapat saya kerjakan
sendiri.
Modul 1.
apalagi dengan hasilnya lebih cepat
adapun apa sebabnya looping tanpa formula bisa lebih cepat ?
salam
Lukman
2015-06-22 0:10 GMT+07:00 lkm jktind <lkmjktind@gmail.com>:
> Pak Kid.
>
> dengan data sebanyak 646.784 row di sheet 1.
>
> dengan data berurutan.
>
>
> xlCalculationManual xlCalculationAutomatic
> looping , tanpa formula :
> looping , dengan formula :
>
>
>
>
>
>
>
> 2015-06-21 15:57 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>>
>>
>> hehehe...
>> lebih cepat daripada pakai methods worksheetfunction kan ?
>> imho,
>> data yang terurut jauh lebih baik daripada tidak terurut.
>> Jadi, proses bisa diawali dengan sort terhadap isi tabel data sumber.
>> Kemudian, evaluate bisa dimanfaatkan untuk mengkomputasi match pencari
>> baris awal dan countif jumlah record nya. Dengan demikian, maka proses
>> komputasi array oleh lookup bisa dihindari.
>>
>> Akan lebih baik lagi bila tabel data menggunakan fitur Excel Table.
>> Dengan begitu, bunyi formula akan merujuk ke nama kolom tanpa peduli sudah
>> sampai baris berapa adanya si record. Artinya, proses evaluate bisa
>> dilakukan dengan bunyi formula yang tetap pada jumlah baris yang relatif
>> sebanyak data yang ada.
>>
>> Andai tidak menggunakan fitur Excel Table, evaluate perlu merujuk ke
>> banyak baris (misal sampai merujuk ke baris 500ribu) walaupun saat ini
>> datanya baru ada 10ribu karena dikhawatirkan suatu saat akan mencapai
>> 500ribu. Artinya, proses formula akan mengkomputasi data sebanyak 500ribu
>> tersebut.
>> Sedangkan dengan fitur Excel table, formulasi untuk evaluate merujuk ke
>> nama kolom. Jika record baru ada 5 bijik, maka komputasi hanya terhadap 5
>> bijik tersebut. Jika data sudah bertambah banyak sampai 1juta, maka
>> komputasi akan merujuk ke 1juta baris TANPA perlu mengubah bunyi baris kode
>> di bagian formulasi dalam evaluate nya.
>>
>> Tanpa fitur Excel Table, bisa juga dibuatkan suatu bunyi formula yang
>> mengikuti jumlah baris yang ada. Jadi harus membuat baris kode untuk :
>> a. tahu baris terakhir data saat itu
>> b. menyusun bunyi formula untuk evaluate
>> baru deh hasil b dipakai oleh evaluate.
>> Proses a dan b tersebut akan terasa singkat jika dikerjakan oleh VBA,
>> TETAPI waktu untuk 2 proses tersebut bisa digunakan untuk proses kompleks
>> lainnya daripada sekedar untuk tahu dan menyusun bunyi formula sajah alias
>> 2 proses ini termasuk proses yang kebanyakan gaya n bikin ruwet baris kode
>> sajah...
>> Ingat, kebanyakan gaya akan menjadi tekanan bertambah.... P = F / A
>> Jadi, kalau mau banyak gaya, perluas area kekompleksitasannya (A) supaya
>> tekanannya relatif tetap.
>>
>> ;)
>>
>> met berbuka puasa bagi BeExceller yang berpuasa...
>>
>> Wassalam,
>> Kid
>>
>>
>>
>> 2015-06-21 16:52 GMT+10:00 lkm jktind lkmjktind@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> sudah bisa .
>>> Soh2.Cells(rx, 16) = Evaluate("=LookUp( 9^9 , Row(OHLC!$A$1:$A$1159) /
>>> (OHLC!$A$1:$A$1159=$A25) )")
>>>
>>> terima kasih
>>>
>>> salam
>>>
>>> Lukman
>>>
>>> 2015-06-21 12:41 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]
>>> <belajar-excel@yahoogroups.com>:
>>>
>>>>
>>>>
>>>> Pakai evaluate saja...
>>>> http://b-excel.blogspot.com/2013/09/ngobrolin-evaluate-di-vba-yuk.html
>>>>
>>>> 2015-06-21 15:35 GMT+10:00 lkm jktind lkmjktind@gmail.com
>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>
>>>>>
>>>>>
>>>>> Pak
>>>>> Formula itu sudah sesuai. (cocok)
>>>>>
>>>>> Tapi bila untuk di gunakan dalam VBA . nga bisa.
>>>>>
>>>>> For rx = 2 To Soh2.Cells(Rows.Count, 1).End(xlUp).Row
>>>>> Soh2.Cells(rx, 6) = .CountIfs(Voh, Cells(rx, 1))
>>>>> Soh2.Cells(rx, 7) = .Match(Cells(rx, 1), Voh, False)
>>>>> If Cells(rx, 6) <> 0 Then
>>>>>
>>>>> 'Soh2.Cells(rx, 8) = .Match(Cells(rx, 1), Voh, True)
>>>>> Soh2.Cells(rx, 8) = .Lookup(1000000000, Voh,
>>>>> /Voh=Soh2.Cells(rx, 1))
>>>>>
>>>>>
>>>>> End If
>>>>> Next
>>>>>
>>>>> Salam
>>>>>
>>>>> Lukman
>>>>>
>>>>> NB:
>>>>> Sheet 1 = sumber data
>>>>> Sheet 2 = sheet bantu .
>>>>> Bila : ada data baru --- dicari di sheet 2 apakah datanya sudah ada
>>>>> Bila : data hendak di pakai tinggal dicari tglnya -- dan di ambil
>>>>> dari baris awal dan baris akhir.
>>>>>
>>>>> didalam file ada 4 modul :
>>>>> modul 1 : looping , tanpa formula, data berurutan.
>>>>> modul 2 : looping , dengan formula, data berurutan.
>>>>> modul 3 : lopping , tanpa formula , data acak.
>>>>> modul 4 : rencananya . Lopping , dengan formula , data acak.
>>>>>
>>>>> untuk melihat pengaruh dari xlCalculationManual /
>>>>> xlCalculationAutomatic
>>>>>
>>>>>
>>>>>
>>>>>
>>>>> 2015-06-21 10:59 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com
>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>> =LookUp( 9^9 ; Row(OHLC!$A$1:$A$1159) / (OHLC!$A$1:$A$1159=$A25) )
>>>>>>
>>>>>> Wassalam,
>>>>>> Kid
>>>>>>
>>>>>>
>>>>>>
>>>>>> 2015-06-21 13:22 GMT+10:00 lkm jktind lkmjktind@gmail.com
>>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>>
>>>>>>>
>>>>>>>
>>>>>>> dalam contoh . mencari data tgl 24 AGT 2009.
>>>>>>>
>>>>>>> baris awal =MATCH($A25;OHLC!$A$1:$A$1159;FALSE)
>>>>>>> baris akhir =*MATCH*($A25;OHLC!$A$1:$A$1159;*TRUE*) --- kalau
>>>>>>> sumber data nya tidak berurutan hasilnya salah.
>>>>>>>
>>>>>>> seharusnya pakai formula apa ? bila sumber datanya berurutan atau
>>>>>>> tidak berurutan .
>>>>>>>
>>>>>>> salam
>>>>>>>
>>>>>>>
>>>>>>> Lukman
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>> 2015-06-21 3:54 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com
>>>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>> Untuk data terurut (sorted),
>>>>>>>> baris akhir = baris awal + jumlah item - 1
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>> 2015-06-21 3:16 GMT+10:00 lkm jktind lkmjktind@gmail.com
>>>>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>>>>
>>>>>>>>>
>>>>>>>>>
>>>>>>>>> Saya hendak mencari baris pertama dan baris terakhir dari sheet 1
>>>>>>>>>
>>>>>>>>> hasilnya di kolom O dan P
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>
>>>>>>>>> Salam
>>>>>>>>>
>>>>>>>>> Lukman
>>>>>>>>>
>>>>>>>>> NB formula yg saya gunakan itu abal -abal
>>>>>>>>>
>>>>>>>>>
>>>>>>>>
>>>>>>>
>>>>>>
>>>>>
>>>>
>>>
>>
>>
>
>
dengan data sebanyak 646.784 row di sheet 1.
dengan data berurutan.
xlCalculationManual xlCalculationAutomatic
looping , tanpa formula : 22.09 23.98
looping , dengan formula : 139.29 139.18
module 1 dan 2 (memang di buat khusus untuk data yg berurutan)
looping, tanpa formula : 5.448.84 5.560.52
lopping, dengan formula : 139.87 139.89
module 3 dan 4 ( khusus di buat untuk data tak berurutan)
sebelumnya dengan template di cells aktif : dibawah 1 detik (manual) :
25 detik (automatic)
dan saya lebih memilih memakai looping tanpa formula. dapat saya kerjakan
sendiri.
Modul 1.
apalagi dengan hasilnya lebih cepat
adapun apa sebabnya looping tanpa formula bisa lebih cepat ?
salam
Lukman
2015-06-22 0:10 GMT+07:00 lkm jktind <lkmjktind@gmail.com>:
> Pak Kid.
>
> dengan data sebanyak 646.784 row di sheet 1.
>
> dengan data berurutan.
>
>
> xlCalculationManual xlCalculationAutomatic
> looping , tanpa formula :
> looping , dengan formula :
>
>
>
>
>
>
>
> 2015-06-21 15:57 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>>
>>
>> hehehe...
>> lebih cepat daripada pakai methods worksheetfunction kan ?
>> imho,
>> data yang terurut jauh lebih baik daripada tidak terurut.
>> Jadi, proses bisa diawali dengan sort terhadap isi tabel data sumber.
>> Kemudian, evaluate bisa dimanfaatkan untuk mengkomputasi match pencari
>> baris awal dan countif jumlah record nya. Dengan demikian, maka proses
>> komputasi array oleh lookup bisa dihindari.
>>
>> Akan lebih baik lagi bila tabel data menggunakan fitur Excel Table.
>> Dengan begitu, bunyi formula akan merujuk ke nama kolom tanpa peduli sudah
>> sampai baris berapa adanya si record. Artinya, proses evaluate bisa
>> dilakukan dengan bunyi formula yang tetap pada jumlah baris yang relatif
>> sebanyak data yang ada.
>>
>> Andai tidak menggunakan fitur Excel Table, evaluate perlu merujuk ke
>> banyak baris (misal sampai merujuk ke baris 500ribu) walaupun saat ini
>> datanya baru ada 10ribu karena dikhawatirkan suatu saat akan mencapai
>> 500ribu. Artinya, proses formula akan mengkomputasi data sebanyak 500ribu
>> tersebut.
>> Sedangkan dengan fitur Excel table, formulasi untuk evaluate merujuk ke
>> nama kolom. Jika record baru ada 5 bijik, maka komputasi hanya terhadap 5
>> bijik tersebut. Jika data sudah bertambah banyak sampai 1juta, maka
>> komputasi akan merujuk ke 1juta baris TANPA perlu mengubah bunyi baris kode
>> di bagian formulasi dalam evaluate nya.
>>
>> Tanpa fitur Excel Table, bisa juga dibuatkan suatu bunyi formula yang
>> mengikuti jumlah baris yang ada. Jadi harus membuat baris kode untuk :
>> a. tahu baris terakhir data saat itu
>> b. menyusun bunyi formula untuk evaluate
>> baru deh hasil b dipakai oleh evaluate.
>> Proses a dan b tersebut akan terasa singkat jika dikerjakan oleh VBA,
>> TETAPI waktu untuk 2 proses tersebut bisa digunakan untuk proses kompleks
>> lainnya daripada sekedar untuk tahu dan menyusun bunyi formula sajah alias
>> 2 proses ini termasuk proses yang kebanyakan gaya n bikin ruwet baris kode
>> sajah...
>> Ingat, kebanyakan gaya akan menjadi tekanan bertambah.... P = F / A
>> Jadi, kalau mau banyak gaya, perluas area kekompleksitasannya (A) supaya
>> tekanannya relatif tetap.
>>
>> ;)
>>
>> met berbuka puasa bagi BeExceller yang berpuasa...
>>
>> Wassalam,
>> Kid
>>
>>
>>
>> 2015-06-21 16:52 GMT+10:00 lkm jktind lkmjktind@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> sudah bisa .
>>> Soh2.Cells(rx, 16) = Evaluate("=LookUp( 9^9 , Row(OHLC!$A$1:$A$1159) /
>>> (OHLC!$A$1:$A$1159=$A25) )")
>>>
>>> terima kasih
>>>
>>> salam
>>>
>>> Lukman
>>>
>>> 2015-06-21 12:41 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]
>>> <belajar-excel@yahoogroups.com>:
>>>
>>>>
>>>>
>>>> Pakai evaluate saja...
>>>> http://b-excel.blogspot.com/2013/09/ngobrolin-evaluate-di-vba-yuk.html
>>>>
>>>> 2015-06-21 15:35 GMT+10:00 lkm jktind lkmjktind@gmail.com
>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>
>>>>>
>>>>>
>>>>> Pak
>>>>> Formula itu sudah sesuai. (cocok)
>>>>>
>>>>> Tapi bila untuk di gunakan dalam VBA . nga bisa.
>>>>>
>>>>> For rx = 2 To Soh2.Cells(Rows.Count, 1).End(xlUp).Row
>>>>> Soh2.Cells(rx, 6) = .CountIfs(Voh, Cells(rx, 1))
>>>>> Soh2.Cells(rx, 7) = .Match(Cells(rx, 1), Voh, False)
>>>>> If Cells(rx, 6) <> 0 Then
>>>>>
>>>>> 'Soh2.Cells(rx, 8) = .Match(Cells(rx, 1), Voh, True)
>>>>> Soh2.Cells(rx, 8) = .Lookup(1000000000, Voh,
>>>>> /Voh=Soh2.Cells(rx, 1))
>>>>>
>>>>>
>>>>> End If
>>>>> Next
>>>>>
>>>>> Salam
>>>>>
>>>>> Lukman
>>>>>
>>>>> NB:
>>>>> Sheet 1 = sumber data
>>>>> Sheet 2 = sheet bantu .
>>>>> Bila : ada data baru --- dicari di sheet 2 apakah datanya sudah ada
>>>>> Bila : data hendak di pakai tinggal dicari tglnya -- dan di ambil
>>>>> dari baris awal dan baris akhir.
>>>>>
>>>>> didalam file ada 4 modul :
>>>>> modul 1 : looping , tanpa formula, data berurutan.
>>>>> modul 2 : looping , dengan formula, data berurutan.
>>>>> modul 3 : lopping , tanpa formula , data acak.
>>>>> modul 4 : rencananya . Lopping , dengan formula , data acak.
>>>>>
>>>>> untuk melihat pengaruh dari xlCalculationManual /
>>>>> xlCalculationAutomatic
>>>>>
>>>>>
>>>>>
>>>>>
>>>>> 2015-06-21 10:59 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com
>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>> =LookUp( 9^9 ; Row(OHLC!$A$1:$A$1159) / (OHLC!$A$1:$A$1159=$A25) )
>>>>>>
>>>>>> Wassalam,
>>>>>> Kid
>>>>>>
>>>>>>
>>>>>>
>>>>>> 2015-06-21 13:22 GMT+10:00 lkm jktind lkmjktind@gmail.com
>>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>>
>>>>>>>
>>>>>>>
>>>>>>> dalam contoh . mencari data tgl 24 AGT 2009.
>>>>>>>
>>>>>>> baris awal =MATCH($A25;OHLC!$A$1:$A$1159;FALSE)
>>>>>>> baris akhir =*MATCH*($A25;OHLC!$A$1:$A$1159;*TRUE*) --- kalau
>>>>>>> sumber data nya tidak berurutan hasilnya salah.
>>>>>>>
>>>>>>> seharusnya pakai formula apa ? bila sumber datanya berurutan atau
>>>>>>> tidak berurutan .
>>>>>>>
>>>>>>> salam
>>>>>>>
>>>>>>>
>>>>>>> Lukman
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>> 2015-06-21 3:54 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com
>>>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>> Untuk data terurut (sorted),
>>>>>>>> baris akhir = baris awal + jumlah item - 1
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>> 2015-06-21 3:16 GMT+10:00 lkm jktind lkmjktind@gmail.com
>>>>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>>
>
>
Sun Jun 21, 2015 6:49 pm (PDT) . Posted by:
"Dede"
Dear Be Exceller,
Mohon bantuan dan koreksi atas script warna merah dbi :
Private Sub CommandButton1_Click()
Dim a As String
a = Sheet4.Range("b3").Value
Dim p As String
p = Sheet4.Range("s2").Value 'Cell nama file
Dim m As String
m = Sheet2.Range("g2").Value 'Cell nama file
On Error Resume Next
Worksheet.Active
ActiveSheet.Unprotect Password:="a"
Range("A3:B3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A6").Select
Sheet5.Visible = True
SheetVisible = Sheets("Persetujuan Pemusnahan BS").Visible = True
Sheets("Persetujuan Pemusnahan BS").Select
Range("B4:D4").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B4:D4").Select
'Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=True
'Application.CutCopyMode = False
Range("a6").Select
ActiveWorkbook.Save
ChDir _
"D:\BAD STOCK\2015\06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian"
ActiveWorkbook.SaveAs Filename:= _
"D:\BAD STOCK\2015\06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian\" & a & ".xlsb" _
, FileFormat:=xlExcel12, CreateBackup:=False
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Sheets("Monitoring BS").Select
ChDir _
"D:\BAD STOCK\2015\06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian"
ActiveWorkbook.SaveAs Filename:= _
"D:\BAD STOCK\2015\06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian\" & p & ".pdf" _
, FileFormat:=xlExcel12, CreateBackup:=False
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Sheets("Persetujuan Pemusnahan BS").Select
ChDir _
"D:\BAD STOCK\2015\06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian"
ActiveWorkbook.SaveAs Filename:= _
"D:\BAD STOCK\2015\06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian\" & m & ".pdf" _
, FileFormat:=xlExcel12, CreateBackup:=False
ActiveWindow.Close
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
Script merah saya dapat dengan copy paste record makro yang bertujuan untuk SaveAs ke file pdf, dengan lokasi penyimpanan file di "D:\BAD STOCK\2015\06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian\Persetujuan Pemusnahan BS.pdf" dan satu file lagi dengan nama file "Monitoring BS.pdf" dilokasi yang sama.
Masalah yang muncul adalah pada saat saya klik commandbutton tersebut hanya file excelnya saja yang terSaveAs otomatis, sedangkan kedua file pdf tidak. Mohon solusinya.
Salam,
Dede Sulaeman
Logistic Staff PT. Pinus Merah Abadi
________________________________
This e-mail and any files transmitted with it are confidential and intended solely for the use of the individual to whom it is addressed. If you have received this email in error please send it back to the person that sent it to you. Any views or opinions presented are solely those of its author and do not necessarily represent those of NABATI or any of its subsidiary companies. Unauthorized publication, use, dissemination, forwarding, printing or copying of this email and its associated attachments is strictly prohibited.
Mohon bantuan dan koreksi atas script warna merah dbi :
Private Sub CommandButton1_
Dim a As String
a = Sheet4.Range(
Dim p As String
p = Sheet4.Range(
Dim m As String
m = Sheet2.Range(
On Error Resume Next
Worksheet.Active
ActiveSheet.
Range("
Selection.Copy
Selection.PasteSpec
:=False, Transpose:=False
Range("
Sheet5.Visible = True
SheetVisible = Sheets("
Sheets("
Range("
Application.
Selection.Copy
Selection.PasteSpec
:=False, Transpose:=False
Range("
'Application.
Selection.Copy
Selection.PasteSpec
:=True, Transpose:=True
'Application.
Range("
ActiveWorkbook.
ChDir _
"D:\
ActiveWorkbook.
"D:\
, FileFormat:=
ExecuteExcel4Macro "PRINT(
Sheets("
ChDir _
"D:\
ActiveWorkbook.
"D:\
, FileFormat:=
ExecuteExcel4Macro "PRINT(
Sheets("
ChDir _
"D:\
ActiveWorkbook.
"D:\
, FileFormat:=
ActiveWindow.
Selection.Copy
Selection.PasteSpec
:=False, Transpose:=False
Application.
ActiveWorkbook.
ActiveWindow.
End Sub
Script merah saya dapat dengan copy paste record makro yang bertujuan untuk SaveAs ke file pdf, dengan lokasi penyimpanan file di "D:\
Masalah yang muncul adalah pada saat saya klik commandbutton tersebut hanya file excelnya saja yang terSaveAs otomatis, sedangkan kedua file pdf tidak. Mohon solusinya.
Salam,
Dede Sulaeman
Logistic Staff PT. Pinus Merah Abadi
____________
This e-mail and any files transmitted with it are confidential and intended solely for the use of the individual to whom it is addressed. If you have received this email in error please send it back to the person that sent it to you. Any views or opinions presented are solely those of its author and do not necessarily represent those of NABATI or any of its subsidiary companies. Unauthorized publication, use, dissemination, forwarding, printing or copying of this email and its associated attachments is strictly prohibited.
Sun Jun 21, 2015 8:04 pm (PDT) . Posted by:
"Toby kenzo" tobykenzo
Dear DD, Pake Office berapa..? TerimaKasih.
Pada Senin, 22 Juni 2015 8:49, "Dede pmaho_log4@nabatisnack.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Dear Be Exceller, Mohon bantuan dan koreksi atas script warna merah dbi : Private Sub CommandButton1_Click() Dim a As String a = Sheet4.Range("b3").Value Dim p As String p = Sheet4.Range("s2").Value 'Cell nama file Dim m As String m = Sheet2.Range("g2").Value 'Cell nama file On Error Resume Next Worksheet.Active ActiveSheet.Unprotect Password:="a" Range("A3:B3").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A6").Select Sheet5.Visible = True SheetVisible = Sheets("Persetujuan Pemusnahan BS").Visible = True Sheets("Persetujuan Pemusnahan BS").Select Range("B4:D4").Select Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("B4:D4").Select 'Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=True, Transpose:=True 'Application.CutCopyMode = False Range("a6").Select ActiveWorkbook.Save ChDir _ "D:\BAD STOCK\2015\06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian" ActiveWorkbook.SaveAs Filename:= _ "D:\BAD STOCK\2015\06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian\" & a & ".xlsb" _ , FileFormat:=xlExcel12, CreateBackup:=False ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)" Sheets("Monitoring BS").Select ChDir _ "D:\BAD STOCK\2015\06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian" ActiveWorkbook.SaveAs Filename:= _ "D:\BAD STOCK\2015\06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian\" & p & ".pdf" _ , FileFormat:=xlExcel12, CreateBackup:=False ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)" Sheets("Persetujuan Pemusnahan BS").Select ChDir _ "D:\BAD STOCK\2015\06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian" ActiveWorkbook.SaveAs Filename:= _ "D:\BAD STOCK\2015\06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian\" & m & ".pdf" _ , FileFormat:=xlExcel12, CreateBackup:=False ActiveWindow.Close Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False ActiveWorkbook.Save ActiveWindow.Close End Sub Script merah saya dapat dengan copy paste record makro yang bertujuan untuk SaveAs ke filepdf, dengan lokasi penyimpanan file di"D:\BAD STOCK\2015\06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian\Persetujuan Pemusnahan BS.pdf" dan satu file lagi dengan nama file "Monitoring BS.pdf" dilokasi yang sama. Masalah yang muncul adalah pada saat saya klik commandbutton tersebut hanya file excelnya saja yang terSaveAs otomatis, sedangkan kedua file pdf tidak. Mohon solusinya. Salam, Dede Sulaeman Logistic Staff PT. Pinus Merah Abadi
This e-mail and any files transmitted with it are confidential and intended solely for the use of the individual to whom it is addressed. If you have received this email in error please send it back to the person that sent it to you. Any views or opinions presented are solely those of its author and do not necessarily represent those of NABATI or any of its subsidiary companies. Unauthorized publication, use, dissemination, forwarding, printing or copying of this email and its associated attachments is strictly prohibited.
#yiv0977845493 #yiv0977845493 -- #yiv0977845493ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv0977845493 #yiv0977845493ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv0977845493 #yiv0977845493ygrp-mkp #yiv0977845493hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv0977845493 #yiv0977845493ygrp-mkp #yiv0977845493ads {margin-bottom:10px;}#yiv0977845493 #yiv0977845493ygrp-mkp .yiv0977845493ad {padding:0 0;}#yiv0977845493 #yiv0977845493ygrp-mkp .yiv0977845493ad p {margin:0;}#yiv0977845493 #yiv0977845493ygrp-mkp .yiv0977845493ad a {color:#0000ff;text-decoration:none;}#yiv0977845493 #yiv0977845493ygrp-sponsor #yiv0977845493ygrp-lc {font-family:Arial;}#yiv0977845493 #yiv0977845493ygrp-sponsor #yiv0977845493ygrp-lc #yiv0977845493hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv0977845493 #yiv0977845493ygrp-sponsor #yiv0977845493ygrp-lc .yiv0977845493ad {margin-bottom:10px;padding:0 0;}#yiv0977845493 #yiv0977845493actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv0977845493 #yiv0977845493activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv0977845493 #yiv0977845493activity span {font-weight:700;}#yiv0977845493 #yiv0977845493activity span:first-child {text-transform:uppercase;}#yiv0977845493 #yiv0977845493activity span a {color:#5085b6;text-decoration:none;}#yiv0977845493 #yiv0977845493activity span span {color:#ff7900;}#yiv0977845493 #yiv0977845493activity span .yiv0977845493underline {text-decoration:underline;}#yiv0977845493 .yiv0977845493attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv0977845493 .yiv0977845493attach div a {text-decoration:none;}#yiv0977845493 .yiv0977845493attach img {border:none;padding-right:5px;}#yiv0977845493 .yiv0977845493attach label {display:block;margin-bottom:5px;}#yiv0977845493 .yiv0977845493attach label a {text-decoration:none;}#yiv0977845493 blockquote {margin:0 0 0 4px;}#yiv0977845493 .yiv0977845493bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv0977845493 .yiv0977845493bold a {text-decoration:none;}#yiv0977845493 dd.yiv0977845493last p a {font-family:Verdana;font-weight:700;}#yiv0977845493 dd.yiv0977845493last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv0977845493 dd.yiv0977845493last p span.yiv0977845493yshortcuts {margin-right:0;}#yiv0977845493 div.yiv0977845493attach-table div div a {text-decoration:none;}#yiv0977845493 div.yiv0977845493attach-table {width:400px;}#yiv0977845493 div.yiv0977845493file-title a, #yiv0977845493 div.yiv0977845493file-title a:active, #yiv0977845493 div.yiv0977845493file-title a:hover, #yiv0977845493 div.yiv0977845493file-title a:visited {text-decoration:none;}#yiv0977845493 div.yiv0977845493photo-title a, #yiv0977845493 div.yiv0977845493photo-title a:active, #yiv0977845493 div.yiv0977845493photo-title a:hover, #yiv0977845493 div.yiv0977845493photo-title a:visited {text-decoration:none;}#yiv0977845493 div#yiv0977845493ygrp-mlmsg #yiv0977845493ygrp-msg p a span.yiv0977845493yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv0977845493 .yiv0977845493green {color:#628c2a;}#yiv0977845493 .yiv0977845493MsoNormal {margin:0 0 0 0;}#yiv0977845493 o {font-size:0;}#yiv0977845493 #yiv0977845493photos div {float:left;width:72px;}#yiv0977845493 #yiv0977845493photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv0977845493 #yiv0977845493photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv0977845493 #yiv0977845493reco-category {font-size:77%;}#yiv0977845493 #yiv0977845493reco-desc {font-size:77%;}#yiv0977845493 .yiv0977845493replbq {margin:4px;}#yiv0977845493 #yiv0977845493ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv0977845493 #yiv0977845493ygrp-
Pada Senin, 22 Juni 2015 8:49, "Dede pmaho_log4@nabatisnack.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Dear Be Exceller, Mohon bantuan dan koreksi atas script warna merah dbi : Private Sub CommandButton1_
This e-mail and any files transmitted with it are confidential and intended solely for the use of the individual to whom it is addressed. If you have received this email in error please send it back to the person that sent it to you. Any views or opinions presented are solely those of its author and do not necessarily represent those of NABATI or any of its subsidiary companies. Unauthorized publication, use, dissemination, forwarding, printing or copying of this email and its associated attachments is strictly prohibited.
#yiv0977845493 #yiv0977845493 -- #yiv0977845493ygrp-