Selasa, 27 November 2012

[belajar-excel] Digest Number 1934

11 New Messages

Digest #1934
2a
(no subject) by "utthank abe" abe_utthank
2b
Re: by "Mr. Kid" nmkid.family@ymail.com
2c
Re: by "utthank abe" abe_utthank
2d
Re: by "Mr. Kid" nmkid.family@ymail.com
2e
Re: by "Mr. Kid" nmkid.family@ymail.com
3a
Re: Membuat Kontrol Stock by "Mr. Kid" nmkid.family@ymail.com
4a
auto save and rename by "PRAZT" praztmath
4b
Re: auto save and rename by "Mr. Kid" nmkid.family@ymail.com
5.1
5.2
Re: Tes kecepatan macro ambil tanggal by "Mr. Kid" nmkid.family@ymail.com

Messages

Tue Nov 27, 2012 1:57 am (PST) . Posted by:

"him mah"

iya makasih pak kid

Pada tanggal 23/11/12, Mr. Kid <mr.nmkid@gmail.com> menulis:
> ups koreksi pada baris :
> l = 2 / 2 * rng.value 'berpotensi error, ketika rng berisi string
> atau ada banyak cell dalam rng
> menjadi :
> 'berpotensi error, ketika rng berisi string, ada banyak cell dalam
> rngData
> l = 2 / 2 * rngData.value
>
> Wassalamu'alaikum Wr. Wb.
> Kid.
>
> 2012/11/23 Mr. Kid <mr.nmkid@gmail.com>
>
>> Wa'alaikumussalam Wr. Wb.
>>
>> Biasanya error trap yang sudah jelas posisinya diberi peng-handle
>> pesannya. Jadi memang harus paham apakah baris tersebut berpotensi error
>> atau tidak.
>> Contoh :
>> Public Sub CobaErrTrapSederhana(lNilai as long, rngData as range)
>> Dim l As Long
>> Dim sMsg As String
>>
>> On Error Resume Next
>> l = 1 / lNilai 'berpotensi error, ketika input lNilai adalah 0
>> sMsg = sMsg & Now & vbTab & Err.Number & vbTab & Err.Description &
>> vbCrLf
>>
>> l = 2
>>
>> l = 2 / 2 * rng.value 'berpotensi error, ketika rng berisi string
>> atau ada banyak cell dalam rng
>> sMsg = sMsg & Now & vbTab & Err.Number & vbTab & Err.Description &
>> vbCrLf
>>
>> MsgBox sMsg
>> Err.Clear
>> End Sub
>>
>> Wassalamu'alaikum Wr. Wb.
>> Kid.
>>
>>
>> 2012/11/23 him mah <himmah.mlg@gmail.com>
>>
>>> **
>>>
>>>
>>> Assalamu'alaikum Wr. Wb.
>>>
>>> ketika kita membuat perintah menggunakan VBA atau makro maka sering
>>> kita mengalami error, bisa ngga ya semua error itu ditampung terlebih
>>> dahulu sampai semua prosedur dijalankan sampai akhir. Nah ketika
>>> emang dalam proses tersebut terjadi error bisa 1 atau lebih, maka
>>> error tersebut akan ditampilkan dalam sheet tertentu lengkap dengan
>>> waktu kejadiannya misal saja sheet "ERROR". kira-kira kalau seperti
>>> itu bagaimana VBA nya
>>>
>>> terima kasih
>>>
>>>
>>
>>
>

Tue Nov 27, 2012 2:29 am (PST) . Posted by:

"utthank abe" abe_utthank

Assalamu Alaikum

zaya ada problem dgn conditional formating. udah zaya atur jika nilai zel
berbeda akan berwarna merah. ini tidak ada beda kok tetap aja warna merah.
entah udah berapa kali zaya gak akur ama fungzi ini. entah udah buat doza
apa zaya pada conditional formating :(
berikut zaya zertakan lampirannya

makazih zebelumnya
wazzalam

Tue Nov 27, 2012 2:59 am (PST) . Posted by:

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

Wa'alaikumussalam Wr. Wb.

mas Abe,

Coba format numbernya dibuat menampilkan 7 sampai 8 digit dibelakang koma
lebih dulu.
Tabel di kolom O sampai T yang membuat nilai U9 tidak sama dengan i3

Jika diperbolehkan adanya pembulatan, coba gunakan Round pada setiap
formula yang sebaiknya dibulatkan.

Wassalamu'alaikum Wr. Wb.
Kid.

2012/11/27 utthank abe <abeutthank@gmail.com>

> **
>
>
> Assalamu Alaikum
>
> zaya ada problem dgn conditional formating. udah zaya atur jika nilai zel
> berbeda akan berwarna merah. ini tidak ada beda kok tetap aja warna merah.
> entah udah berapa kali zaya gak akur ama fungzi ini. entah udah buat doza
> apa zaya pada conditional formating :(
> berikut zaya zertakan lampirannya
>
> makazih zebelumnya
> wazzalam
>
> _
>

Tue Nov 27, 2012 4:29 am (PST) . Posted by:

"utthank abe" abe_utthank

betul maz kid. yang zaya heran ketika zaya tuliz 1 kagak ada mazalah. tapi
ketika zaya tuliz 1.000.000 baru ini timbul. bukannya ini tidak berpengaruh
terhadap angka belakang koma (kalo ada)

ini zebenarnya adalah laporan kaz tempat zaya bekerja.

zaya ada lima file yang berbeda fungzi dalam pencatatan
anggap file A. tempo hari alm. mba ziti kazi zoluzi round.
zebulan kemudian file B ikut2an kek gini
lalu file C gak mau ketinggalan
zekarang file D (yang za upload ini).
padahal hal ini zaya lakukan untuk memudahkan "kecocokan" tiap kali lakukan
pengimputan

itulah zaya tadi katakan ada doza apa zaya dengan conditional formating :(

iya maz kid makazih banyak. bezok zaya dizkuzikan dengan boz biza nda pake
round untuk laporan kaz

wazzalam

2012/11/27 Mr. Kid <mr.nmkid@gmail.com>

> **
>
>
> Wa'alaikumussalam Wr. Wb.
>
> mas Abe,
>
> Coba format numbernya dibuat menampilkan 7 sampai 8 digit dibelakang koma
> lebih dulu.
> Tabel di kolom O sampai T yang membuat nilai U9 tidak sama dengan i3
>
> Jika diperbolehkan adanya pembulatan, coba gunakan Round pada setiap
> formula yang sebaiknya dibulatkan.
>
> Wassalamu'alaikum Wr. Wb.
> Kid.
>
>
> 2012/11/27 utthank abe <abeutthank@gmail.com>
>
>> **
>>
>>
>> Assalamu Alaikum
>>
>> zaya ada problem dgn conditional formating. udah zaya atur jika nilai zel
>> berbeda akan berwarna merah. ini tidak ada beda kok tetap aja warna merah.
>> entah udah berapa kali zaya gak akur ama fungzi ini. entah udah buat doza
>> apa zaya pada conditional formating :(
>> berikut zaya zertakan lampirannya
>>
>> makazih zebelumnya
>> wazzalam
>>
>> _
>>
>
>
>

--
R125

Tue Nov 27, 2012 8:21 am (PST) . Posted by:

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

Mungkin begini Pak Abe,

Excel memiliki batasan digit sebanyak 15 digit.
Bisa jadi jumlah digit didepan koma dan dibelakang koma dari setiap nilai
yang dioperasi matematika menghasilkan jumlah digit didepan koma dan
dibelakang koma yang lebih dari 15 digit.
Contoh :
594,264,942.5789470000
40,236,715.0930233000
hasil hitung manual :
634,501,657.6719703000
hasil hitung Excel :
634,501,657.6719710000

Logikanya, digit ke-7 dibelakang koma hasil manual hanya menjadi 0 jika
dibulatkan. Tapi Excel menyatakan bahwa angka itu lebih dari kemampuannya
maka menjadi 1
Tetapi, jika angka pertama digit ke-6 dibelakang koma diganti menjadi 8
atau 9, maka Excel memperlakukan pembulatan dari seharusnya menghasilkan 7
digit menjadi 6 digit akan benar.

Nah, jika akan dibulatkan, bisa pada cell i3 dan u9 saja sebanyak 6 atau 5
digit pada setiap cell yang dirujuk.
Cara lain adalah memisahkan digit didepan koma dengan digit dibelakang koma
menjadi 2 kolom.
Mungkin masih ada cara lain yang lebih bagus lagi...

Wassalam,
Kid.

2012/11/27 utthank abe <abeutthank@gmail.com>

> **
>
>
> betul maz kid. yang zaya heran ketika zaya tuliz 1 kagak ada mazalah.
> tapi ketika zaya tuliz 1.000.000 baru ini timbul. bukannya ini tidak
> berpengaruh terhadap angka belakang koma (kalo ada)
>
> ini zebenarnya adalah laporan kaz tempat zaya bekerja.
>
> zaya ada lima file yang berbeda fungzi dalam pencatatan
> anggap file A. tempo hari alm. mba ziti kazi zoluzi round.
> zebulan kemudian file B ikut2an kek gini
> lalu file C gak mau ketinggalan
> zekarang file D (yang za upload ini).
> padahal hal ini zaya lakukan untuk memudahkan "kecocokan" tiap kali
> lakukan pengimputan
>
> itulah zaya tadi katakan ada doza apa zaya dengan conditional formating :(
>
>
> iya maz kid makazih banyak. bezok zaya dizkuzikan dengan boz biza nda pake
> round untuk laporan kaz
>
> wazzalam
>
>
> 2012/11/27 Mr. Kid <mr.nmkid@gmail.com>
>
> **
>>
>>
>> Wa'alaikumussalam Wr. Wb.
>>
>> mas Abe,
>>
>> Coba format numbernya dibuat menampilkan 7 sampai 8 digit dibelakang koma
>> lebih dulu.
>> Tabel di kolom O sampai T yang membuat nilai U9 tidak sama dengan i3
>>
>> Jika diperbolehkan adanya pembulatan, coba gunakan Round pada setiap
>> formula yang sebaiknya dibulatkan.
>>
>> Wassalamu'alaikum Wr. Wb.
>> Kid.
>>
>>
>> 2012/11/27 utthank abe <abeutthank@gmail.com>
>>
>>> **
>>>
>>>
>>> Assalamu Alaikum
>>>
>>> zaya ada problem dgn conditional formating. udah zaya atur jika nilai
>>> zel berbeda akan berwarna merah. ini tidak ada beda kok tetap aja warna
>>> merah. entah udah berapa kali zaya gak akur ama fungzi ini. entah udah buat
>>> doza apa zaya pada conditional formating :(
>>> berikut zaya zertakan lampirannya
>>>
>>> makazih zebelumnya
>>> wazzalam
>>>
>>> _
>>>
>>
>>
>
>
> --
> R125
>
>
>

Tue Nov 27, 2012 8:29 am (PST) . Posted by:

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

Ada yang ketinggalan.

Coba kalau formula diubah menjadi :
=T63+I6-U8-S71
maka hasilnya akan berbalik. Jika G121 diisi kurang dari 129000 maka Kas
akan menjadi merah. Jika lebih dari itu maka baik-baik saja.
Bisa jadi ada batas nilai (yang terkait dengan nilai lainnya) yang membuat
total digit angka setiap nilai yang dikalkulasi menjadi berubah.

Wassalam,
Kid.

2012/11/27 Mr. Kid <mr.nmkid@gmail.com>

> Mungkin begini Pak Abe,
>
> Excel memiliki batasan digit sebanyak 15 digit.
> Bisa jadi jumlah digit didepan koma dan dibelakang koma dari setiap nilai
> yang dioperasi matematika menghasilkan jumlah digit didepan koma dan
> dibelakang koma yang lebih dari 15 digit.
> Contoh :
> 594,264,942.5789470000
> 40,236,715.0930233000
> hasil hitung manual :
> 634,501,657.6719703000
> hasil hitung Excel :
> 634,501,657.6719710000
>
> Logikanya, digit ke-7 dibelakang koma hasil manual hanya menjadi 0 jika
> dibulatkan. Tapi Excel menyatakan bahwa angka itu lebih dari kemampuannya
> maka menjadi 1
> Tetapi, jika angka pertama digit ke-6 dibelakang koma diganti menjadi 8
> atau 9, maka Excel memperlakukan pembulatan dari seharusnya menghasilkan 7
> digit menjadi 6 digit akan benar.
>
> Nah, jika akan dibulatkan, bisa pada cell i3 dan u9 saja sebanyak 6 atau 5
> digit pada setiap cell yang dirujuk.
> Cara lain adalah memisahkan digit didepan koma dengan digit dibelakang
> koma menjadi 2 kolom.
> Mungkin masih ada cara lain yang lebih bagus lagi...
>
> Wassalam,
>
> Kid.
>
>
> 2012/11/27 utthank abe <abeutthank@gmail.com>
>
>> **
>>
>>
>> betul maz kid. yang zaya heran ketika zaya tuliz 1 kagak ada mazalah.
>> tapi ketika zaya tuliz 1.000.000 baru ini timbul. bukannya ini tidak
>> berpengaruh terhadap angka belakang koma (kalo ada)
>>
>> ini zebenarnya adalah laporan kaz tempat zaya bekerja.
>>
>> zaya ada lima file yang berbeda fungzi dalam pencatatan
>> anggap file A. tempo hari alm. mba ziti kazi zoluzi round.
>> zebulan kemudian file B ikut2an kek gini
>> lalu file C gak mau ketinggalan
>> zekarang file D (yang za upload ini).
>> padahal hal ini zaya lakukan untuk memudahkan "kecocokan" tiap kali
>> lakukan pengimputan
>>
>> itulah zaya tadi katakan ada doza apa zaya dengan conditional formating :(
>>
>>
>> iya maz kid makazih banyak. bezok zaya dizkuzikan dengan boz biza nda
>> pake round untuk laporan kaz
>>
>> wazzalam
>>
>>
>> 2012/11/27 Mr. Kid <mr.nmkid@gmail.com>
>>
>> **
>>>
>>>
>>> Wa'alaikumussalam Wr. Wb.
>>>
>>> mas Abe,
>>>
>>> Coba format numbernya dibuat menampilkan 7 sampai 8 digit dibelakang
>>> koma lebih dulu.
>>> Tabel di kolom O sampai T yang membuat nilai U9 tidak sama dengan i3
>>>
>>> Jika diperbolehkan adanya pembulatan, coba gunakan Round pada setiap
>>> formula yang sebaiknya dibulatkan.
>>>
>>> Wassalamu'alaikum Wr. Wb.
>>> Kid.
>>>
>>>
>>> 2012/11/27 utthank abe <abeutthank@gmail.com>
>>>
>>>> **
>>>>
>>>>
>>>> Assalamu Alaikum
>>>>
>>>> zaya ada problem dgn conditional formating. udah zaya atur jika nilai
>>>> zel berbeda akan berwarna merah. ini tidak ada beda kok tetap aja warna
>>>> merah. entah udah berapa kali zaya gak akur ama fungzi ini. entah udah buat
>>>> doza apa zaya pada conditional formating :(
>>>> berikut zaya zertakan lampirannya
>>>>
>>>> makazih zebelumnya
>>>> wazzalam
>>>>
>>>> _
>>>>
>>>
>>>
>>
>>
>> --
>> R125
>>
>>
>>
>
>

Tue Nov 27, 2012 2:44 am (PST) . Posted by:

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

Silakan yang input lainnya dibuat seperti input penerimaan.
Sesuaikan bagian :
1. susunan kolom seperti di sheet stock pada setiap sheet input.
2. formula dalam sheet input. Pengeluaran diberi nilai negatif.
3. rujukan range yang di copy paste values dalam VBA
4. rujukan range yang di clear

Wassalam,
Kid.

2012/11/27 rodhy hakim <odhyz83_assasaky@yahoo.com>

> **
>
>
>
> Dear exeller,
>
> Saya sudah membuat tabel-tabel yang dibutuhkan untuk membuat kontrol
> stock, tinggal formula-formula / macro yang dipakai untuk kontrol stock ini.
> mohon pencerahan para master, karena saya selalu kesulitan dalam
> mengontrol stock saya.
> atas bantuan dan pencerahannya saya ucapkan banyak terima kasih.
>
> contoh file terlampir
> salam odhy
>
> ________________________________
> From: Mr. Kid <mr.nmkid@gmail.com>
> To: belajar-excel@yahoogroups.com
> Sent: Sunday, November 25, 2012 3:46 PM
> Subject: Re: [belajar-excel] Membuat Kontrol Stock
>
>
>
> Pak Odhy,
>
> Coba disiapkan hal berikut :
> 1. tabel referensi nama seluruh material, seluruh salesman
>
> 2. menyusun tabel data stok (header saja dulu), yang kira-kira akan ada
> kolom :
> >> tanggal dan waktu -> waktu terima atau ambil
> >> kode barang -> yang dikontrol
> >> status -> terima jika terima barang baru, return jika kembalian, ambil
> jika pengambilan
> >> penerima -> gudang jika penerimaan, sales atau marketing jika
> pengambilan
> >> pemberi -> purchase atau atapa kalau terima barang baru, sales atau
> marketing jika terima dari return, gudang jika diambil sales atau marketing
> >> qty -> positif jika gudang terima barang, negatif jika gudang
> mengeluarkan barang
> >> saldo -> saldo terakhir kode barang sebelum baris tersebut ditambah qty
> baris tersebut
>
> 3. buat sheet input penerimaan barang dan sheet input pengambilan barang.
> Dua sheet ini juga memungkinkan untuk digabung. Biasanya, dengan
> memisahkannya (input terima sendiri dan input ambil sendiri) akan
> memudahkan pengembangannya dikemudian hari. Bentuk akhir dari semua input,
> sebaiknya tersusun seperti tabel data (nomor 2), sehingga VBA untuk copy
> inputan (hasil entry user) ke sheet data akan lebih sederhana.
> Bukan berarti hal ini maka bentuk form input seperti susunan sheet data
> loh ya
> Seindah apapun bentuk form inputan, sebaiknya didapatkan baris-baris hasil
> inputan yang sederhana seperti susunan sheet data.
>
> 4. buat summary saldo menggunakan pivot table pada sebuah sheet
> 5. buat summary penerimaan barang menggunakan pivot nomor 4 di sheet
> lainnya
> 6. buat summary apa saja berdasar pivot nomor 4
> 7. buat sheet-sheet output yang dibutuhkan dan bisa jadi akan lebih mudah
> memanfaatkan pivot yang sudah ada.
>
> Wassalam,
> Kid.
>
> 2012/11/23 rodhy hakim <odhyz83_assasaky@yahoo.com>
>
> >Dear Para Master,
> >Mohon masukan kira-kira bagaimana bentuk Kontrol Stock gudang menggunakan
> exel dengan kriteria sebagai berikut ;
> >1. Penerimaan Barang (terdiri dari item code, Nama material dan
> Jumlah) misal material : 10 jenis (material kadang-kadang berubah)
> >2. Pengambilan Barang
> >a. Pengambilan Salesman masing salesman, salesman: 16 org (
> pengambilan Pagi dan Pengambilan Siang (senin,selasa,rabu,kamis jumat))
> >b. Pengambilan Marketing
> >3. Pengembalian (sisa penjualan) tiap harinya. dan
> >4. Total/ Saldo barang tiap harinya.
> >Sehingga bisa memudahkan mengontrol stock gudang perhari, perbulan atopun
> pertahun.
> >Atas masukan para master saya ucapkan banyak terima kasih.
> >Salam,
> >Odhy
> >
>
>
>

Tue Nov 27, 2012 5:43 am (PST) . Posted by:

"PRAZT" praztmath



Malam terasa pendek di ikuti kejenuhan yag tak kunjung teratasi, pada para
suhu excel

Mohon bantuan untuk meredakan kejenuhan saya dengan masalah berikut

Jika saya membuka file master (pada file lempiran), terus saya membuka lagi
file a, b, dst.setelah

file a dan b saya edit terus saya keluarkan maka otomais tersimpan tapi
dengan nama (otomatis)

sesuai pada nama yang tertulis di file master pada sheet satu (ane, die,
dst).

Sekian and matuk thank's

PRAZTMATH T

Tue Nov 27, 2012 6:04 am (PST) . Posted by:

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

Pak Prazt,

Coba Bapak buat agar file a,b,dsb dibuka melalui file master, bukan dengan
user membuka melalui file open

Wassalam,
Kid.

2012/11/27 PRAZT <praztmath@gmail.com>

> ** **
>
> Malam terasa pendek di ikuti kejenuhan yag tak kunjung teratasi, pada para
> suhu excel ****
>
> Mohon bantuan untuk meredakan kejenuhan saya dengan masalah berikut****
>
> Jika saya membuka file master (pada file lempiran), terus saya membuka
> lagi file a, b, dst.setelah****
>
> file a dan b saya edit terus saya keluarkan maka otomais tersimpan tapi
> dengan nama (otomatis)****
>
> sesuai pada nama yang tertulis di file master pada sheet satu (ane, die,
> dst).****
>
> Sekian and matuk thank's****
>
> ** **
>
> ****
>
> PRAZTMATH ™****
>
> ** **
>

Tue Nov 27, 2012 5:43 am (PST) . Posted by:

"lkm jktind" lkmjkt

Pak Kid.

Maaf sebelum nya yg hendak saya kabarkan. itu ternyata ada kesalahan dalam
file nya.
di range A1:E506286 : ini data .
di range F2:I506286 : ini ada formula perkalian.
dan dipaling kanan ada 4 colum lagi yg untuk memriksa hasil nya .
dengan kondisi seperti itu , maka hasil nya seperti yg telah saya sampaikan.

Kemudian dites lagi dengan data hanya di range A1:F506286.

dengan komputer A : dengan spek : intel 3450 I5 . dan memory 16 gb.
hasil nya sebagai berikut :
Tes_12 : 43.87240
Tes_14 : 3.23438
Tes_14a : 3.19010
Tes_14b: 3.16667
itu hasil rata dari tes sebanyak 3 kali .

dengan komputer B : dengan spek : intel core to duo T7300 dengan memory 4
gb.
data di flash disk Data di harddisk
Tes_12 : 93.39453 92.50781
Tes_14 : 8.67578 8.36906
Tes_14a : 7.84766 12.33984
Tes_14b : 8.62891 11.03125

Dengan komputer A :
s = 506286

Tes_17 : 13.69531
For r = 2 To s
Cells(r, 6).Value = Cells(r, 2) + Cells(r, 3) + Cells(r, 4) +
Cells(r, 5)

Tes_18 : 16.39063
For r = 2 To s
Cells(r, 7).Value =
Application.WorksheetFunction.Sum(Range("B2:E2"))

Tes_19 : 20.47656
For r = 2 To s
Cells(r, 8).Value = Evaluate("=SUM(B2:E2)")

Tes_20 : 80.28125
For r = 2 To 1000
Cells(r, 9).Formula = "=SUM(B2:E2)"

Terakhir mau membandingkan : vlookup+ macth , hllopkup + macth , index ,
sumproduct. :
: sumif , sumifs , sumproduct.
kedua function itu yg banyak di gunakan.

Selamat malam .

Salam dari
Lukman

2012/11/26 Mr. Kid <mr.nmkid@gmail.com>

> **
>
>
> Makasih Pak Lukman.
> Maaf kalau merepotkan.
>
> Wassalam,
> Kid.
> On Nov 26, 2012 11:22 PM, "lkm jktind" <lkmjktind@gmail.com> wrote:
>
>> **
>>
>>
>> Pak Kid .
>>
>> Hasil nya tes_14 : 8.30469 detik Tes_14a : 8.05469 detik dan
>> Tes_14b : 6.41406 detik
>>
>> Terima kasih.
>>
>>
>> Salam
>>
>> Lukman
>>
>>
>>
>> 2012/11/26 Mr. Kid <mr.nmkid@gmail.com>
>>
>>> **
>>>
>>>
>>> Mumpung ada yang ngeTes...
>>>
>>> Kalau tes_14 diubah menjadi :
>>> Sub Tes_14a()
>>> Set Rng = Range("A2", Range("A1000000").End(xlUp))
>>> with rng
>>> application.calculation=xlmanual
>>> .Offset(0, 20).Formula = "=B2*C2"
>>> .Offset(0, 21).Formula = "=D2*E2"
>>> .Offset(0, 22).Formula = "=B2*D2"
>>> .Offset(0, 23).Formula = "=C2*E2"
>>> application.calculation=xlautomatic
>>>
>>> .Offset(0, 20).Value = .Offset(0, 20).Value
>>> .Offset(0, 21).Value = .Offset(0, 21).Value
>>> .Offset(0, 22).Value = .Offset(0, 22).Value
>>> .Offset(0, 23).Value = .Offset(0, 23).Value
>>> end with
>>> End Sub
>>> ada selisih waktunya (ukur waktu proses dengan timer ya) gak dengan yang
>>> tes_14
>>> kemudian coba juga kalau menjadi :
>>> Sub Tes_14b()
>>> Set Rng = Range("A2", Range("A1000000").End(xlUp))
>>> with rng.Offset(0, 20)
>>> .Formula = "=B2*C2"
>>> .Value = .Value
>>> end with
>>>
>>> with rng.Offset(0, 21)
>>> .Formula = "=D2*E2"
>>> .Value = .Value
>>> end with
>>>
>>> with rng.Offset(0, 22)
>>> .Formula = "=B2*D2"
>>> .Value = .Value
>>> end with
>>>
>>> with rng.Offset(0, 23)
>>> .Formula = "=C2*E2"
>>> .Value = .Value
>>> end with
>>> End Sub
>>> ada selisih waktu atau tidak.
>>>
>>>
>>> Dari hasil diatas . bila di kolom P berisi 3 macam formula .
>>> maka harus di buat 3 macam range : misal
>>> rng_A ---- > untuk formula A
>>> rng_B -----> untuk formula B
>>>
>>> rng_C -----> untuk formula C
>>> Atau
>>> rng_D ---> kemudian formula A, B ,C bergantian di input
>>> >> Pertanyaannya, kenapa kok kolom P harus diisi 3 formula ?
>>> Jika 3 formula itu karena keadaannya berbeda-beda, mungkin bisa dibuat
>>> formula universalnya.
>>> Contoh : rng.formula="=if(a2=1,b2*c2,if(a2=2,d2*c2,e2*b2))"
>>> hehehe... kayanya bukan seperti itu ya... :)
>>> ya wis lah atur aja...
>>>
>>>
>>> mengenai Temp file . ini akan membebani memory kah ?
>>> Bila file : 'M:\data_saham\LK_WEB_100.xlsm = 55 mb, maka memory yg akan
>>> terpakai juga 55 MB
>>> >> Formula merujuk range di worksheet lain akan lebih lebih lambat
>>> dibanding merujuk di worksheet yang sama.
>>> Formula merujuk file lain lebih lambat dibanding merujuk di file yang
>>> sama.
>>> Formula merujuk ke file lain yang tertutup katanya bisa lebih lama lagi.
>>>
>>>
>>> cara penulisannya di macro dengan file :
>>> 'M:\data_saham\LK_WEB_100.xlsm untuk di jadikan file temp . dan cara
>>> penghapusnya .
>>> >> ke sheet temporary, bukan file temporary. Jadi konsepnya adalah
>>> mengusahakan formula merujuk ke workbook yang sama tapi beda sheet jika
>>> tidak mungkin merujuk ke sheet yang sama.
>>> dim wbkA as workbook, wbkR as workbook
>>> dim shtA as worksheet, shtTmp as worksheet
>>> dim rng as range
>>>
>>> set wbka=thisworkbook
>>> set shta=activesheet
>>> set shttmp=sheets.add(after:=sheets(sheets.count))
>>> shttmp.name="Temp"
>>>
>>> set wbkr=workbooks.open("fullfilename_si_file_lain",readonly:=true)
>>> wbkr.sheets("nama sheet referensi yang dirujuk
>>> formula").range("a1:ai32000").copy
>>> shttmp.range("a1").pastespecial xlpastevalues
>>> wbkr.close false
>>> wbka.activate
>>> shta.activate
>>>
>>> set rng=shta.range("p6:p500000")
>>> rng.formula="formula yang bunyinya sudah merujuk ke sheet bernama temp"
>>> shta.calculate
>>> rng.value=rng.value
>>>
>>> application.displayalerts=false
>>> shttmp.delete
>>> application.displayalerts=true
>>>
>>> Wassalam,
>>> Kid.
>>>
>>>
>>> 2012/11/26 lkm jktind <lkmjktind@gmail.com>
>>>
>>>> Pak Kid.
>>>>
>>>> dengan data sebanyak 506.286 row.
>>>> Tes_14 waktunya 9 detik.
>>>> Tes_12 waktunya sudah 30 menit belum selesai.
>>>>
>>>> Sub Tes_14()
>>>> Range("A2").Select
>>>> Set Rng = Range("A2", Range("A1000000").End(xlUp))
>>>> Rng.Offset(0, 20).Formula = "=B2*C2"
>>>> Rng.Offset(0, 21).Formula = "=D2*E2"
>>>> Rng.Offset(0, 22).Formula = "=B2*D2"
>>>> Rng.Offset(0, 23).Formula = "=C2*E2"
>>>> Rng.Offset(0, 20).Value = Rng.Offset(0, 20).Value
>>>> Rng.Offset(0, 21).Value = Rng.Offset(0, 21).Value
>>>> Rng.Offset(0, 22).Value = Rng.Offset(0, 22).Value
>>>> Rng.Offset(0, 23).Value = Rng.Offset(0, 23).Value
>>>> End Sub
>>>>
>>>> Sub tes_12()
>>>>
>>>> For r = 2 To s
>>>> Cells(r, 21).Value = Cells(r, 2) * Cells(r, 3)
>>>> Cells(r, 22).Value = Cells(r, 4) * Cells(r, 5)
>>>> Cells(r, 23).Value = Cells(r, 2) * Cells(r, 4)
>>>> Cells(r, 24).Value = Cells(r, 3) * Cells(r, 5)
>>>> Next
>>>>
>>>> Dari hasil diatas . bila di kolom P berisi 3 macam formula .
>>>> maka harus di buat 3 macam range : misal
>>>> rng_A ---- > untuk formula A
>>>> rng_B -----> untuk formula B
>>>>
>>>> rng_C -----> untuk formula C
>>>> Atau
>>>> rng_D ---> kemudian formula A, B ,C bergantian di input
>>>>
>>>> untuk resize : akan saya pelajari lebih lanjut.
>>>>
>>>> mengenai Temp file . ini akan membebani memory kah ?
>>>> Bila file : 'M:\data_saham\LK_WEB_100.xlsm = 55 mb, maka memory yg akan
>>>> terpakai juga 55 MB
>>>>
>>>> Mohon pak Kid memberikan contoh : cara penulisannya di macro dengan
>>>> file :
>>>> 'M:\data_saham\LK_WEB_100.xlsm untuk di jadikan file temp . dan cara
>>>> penghapusnya .
>>>>
>>>>
>>>> Terima kasih .
>>>>
>>>> Salam
>>>>
>>>> Lukman
>>>>
>>>>
>>>
>>
>

Tue Nov 27, 2012 6:00 am (PST) . Posted by:

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

Untuk tes di komputer B ada sedikit kejanggalan.
Mungkin saat proses terhadap data diharddisk, sedang ada proses autosave
atau proses lain.
Coba pada komputer B
1. pada task manager -> tab Process -> klik kanan image Excel.exe -> set
priority jadi High (ndak perlu realtime) -> run pengujian -> catat hasil
2. mungkin mau coba jika diset pada Excel Options -> page Advanced -> blok
Formulas -> number calculation threads atau sebangsanya pilih Manual -> isi
1 saja -> terus coba pengujian (masih priority high)
3. nomor 2 dengan priority kembali ke Normal
Jangan lupa untuk kembali set excel Options kembali ke use processor blabla
(bukan manual lagi).

jadi formula sederhana sampai multi kolom, tetap lebih cepat tanpa
menggunakan loop.
Mungkin sebaiknya ada prosedur untuk generate data yang akan digunakan
untuk pengujian, sehingga ada BeExceller lain yang bisa turut mencobanya.
Contoh generate data sudah pernah dilampirkan pada file beberapa hari lalu
ya... Tinggal diperkaya untuk generate data di banyak kolom.
Apalagi nanti akan masuk pengujian formula yang lebih kompleks.

Wassalam,
Kid.

2012/11/27 lkm jktind <lkmjktind@gmail.com>

> **
>
>
> Pak Kid.
>
> Maaf sebelum nya yg hendak saya kabarkan. itu ternyata ada kesalahan
> dalam file nya.
> di range A1:E506286 : ini data .
> di range F2:I506286 : ini ada formula perkalian.
> dan dipaling kanan ada 4 colum lagi yg untuk memriksa hasil nya .
> dengan kondisi seperti itu , maka hasil nya seperti yg telah saya
> sampaikan.
>
>
> Kemudian dites lagi dengan data hanya di range A1:F506286.
>
> dengan komputer A : dengan spek : intel 3450 I5 . dan memory 16 gb.
> hasil nya sebagai berikut :
> Tes_12 : 43.87240
> Tes_14 : 3.23438
> Tes_14a : 3.19010
> Tes_14b: 3.16667
> itu hasil rata dari tes sebanyak 3 kali .
>
> dengan komputer B : dengan spek : intel core to duo T7300 dengan memory 4
> gb.
> data di flash disk Data di harddisk
> Tes_12 : 93.39453 92.50781
> Tes_14 : 8.67578 8.36906
> Tes_14a : 7.84766 12.33984
> Tes_14b : 8.62891 11.03125
>
> Dengan komputer A :
> s = 506286
>
> Tes_17 : 13.69531
>
> For r = 2 To s
> Cells(r, 6).Value = Cells(r, 2) + Cells(r, 3) + Cells(r, 4) +
> Cells(r, 5)
>
> Tes_18 : 16.39063
>
> For r = 2 To s
> Cells(r, 7).Value =
> Application.WorksheetFunction.Sum(Range("B2:E2"))
>
> Tes_19 : 20.47656
> For r = 2 To s
> Cells(r, 8).Value = Evaluate("=SUM(B2:E2)")
>
> Tes_20 : 80.28125
> For r = 2 To 1000
> Cells(r, 9).Formula = "=SUM(B2:E2)"
>
> Terakhir mau membandingkan : vlookup+ macth , hllopkup + macth , index ,
> sumproduct. :
> : sumif , sumifs , sumproduct.
> kedua function itu yg banyak di gunakan.
>
> Selamat malam .
>
> Salam dari
>
> Lukman
>
>
>
>
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
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:

Posting Komentar