10 Messages
Digest #3122
1a
Bls: [belajar-excel] data yg acak pengen jadi urut sesuai pasanganny by "Muh Nuh Haikal" juz13_9999
2b
Re: Bls: Re: [belajar-excel] Belajar aplikasi macro excel Sistem FIF by "Hendrik Karnadi" hendrikkarnadi
5a
Re: data yg acak pengen jadi urut sesuai pasangannya [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
8a
Re: membuat record yang sama sejumlah baris tertentu dari kolom nila by "Mr. Kid" nmkid.family@ymail.com
Messages
Sat Oct 4, 2014 4:16 am (PDT) . Posted by:
"Muh Nuh Haikal" juz13_9999
tidak selalu di kolom B bahkan bisa di sheet yg lain sebagai sumber data ...
betul ini rekap setiap hari dari sumber data yg acak ...
untuk berkelanjutan bisa terjadi dlm satu tabel ada 2 tanggal yg berbeda sesuai dengan transaksi .... bahkan bisa lebih ....
ada istilah di kurang overnigt bisa terjadi 2 bahkan 3x overnight baru berikut pasti diclossing ...
sebelumnya saya ucapkan terima kasih atas perhatiannya semgoa ada solusinya...
salam hangat,
M nuh Haikal
Pada Sabtu, 4 Oktober 2014 15:40, "lkm jktind lkmjktind@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
mau tanya : apakah sumber data nya selalu di kolom B ?
apakah ini rekap setiap hari ?
sedangkan kolom D~ O -- ini berkelanjutan atau hanya untuk 1 hari saja ?
Bagaimana untuk transaksi yang tidak netting pada tgl yg sama ?
2014-10-04 13:22 GMT+07:00 Muh Nuh Haikal juz13_9999@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>Dear Para Suhu Be Excel yg berbahagia ...
>
>
>Mohon bantuannya dari kasus saya ... file kasus sy lampirkan
>
>
>Atas perhatiannya saya ucapkan terima kasih,
>
>
>Salam hangat,
> M Nuh Haikal
>
betul ini rekap setiap hari dari sumber data yg acak ...
untuk berkelanjutan bisa terjadi dlm satu tabel ada 2 tanggal yg berbeda sesuai dengan transaksi .... bahkan bisa lebih ....
ada istilah di kurang overnigt bisa terjadi 2 bahkan 3x overnight baru berikut pasti diclossing ...
sebelumnya saya ucapkan terima kasih atas perhatiannya semgoa ada solusinya...
salam hangat,
M nuh Haikal
Pada Sabtu, 4 Oktober 2014 15:40, "lkm jktind lkmjktind@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
mau tanya : apakah sumber data nya selalu di kolom B ?
apakah ini rekap setiap hari ?
sedangkan kolom D~ O -- ini berkelanjutan atau hanya untuk 1 hari saja ?
Bagaimana untuk transaksi yang tidak netting pada tgl yg sama ?
2014-10-04 13:22 GMT+07:00 Muh Nuh Haikal juz13_9999@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>Dear Para Suhu Be Excel yg berbahagia ...
>
>
>Mohon bantuannya dari kasus saya ... file kasus sy lampirkan
>
>
>Atas perhatiannya saya ucapkan terima kasih,
>
>
>Salam hangat,
> M Nuh Haikal
>
Sat Oct 4, 2014 6:31 pm (PDT) . Posted by:
"AKBAR Latif"
Dear pak HK,
Terima kasih paj atas infonya, boleh sy mnta addres archife untuk file milis yg d maksud pak. Dr kmrn sy cari blum ketemu nih.
Salam,
Bams
Terima kasih,
Bambang Taufiq. R
Dikirim dari Yahoo! Mail pada Android
Terima kasih paj atas infonya, boleh sy mnta addres archife untuk file milis yg d maksud pak. Dr kmrn sy cari blum ketemu nih.
Salam,
Bams
Terima kasih,
Bambang Taufiq. R
Dikirim dari Yahoo! Mail pada Android
Sat Oct 4, 2014 10:55 pm (PDT) . Posted by:
"Hendrik Karnadi" hendrikkarnadi
Ada di bag bwh milis pak.
Salam,
HK
Sent from Samsung Mobile
<div>-------- Original message --------</div><div>From: "AKBAR Latif bams_99999@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> </div><div>Date:05/10/2014 07:03 (GMT+07:00) </div><div>To: belajar-excel@yahoogroups.com </div><div>Subject: Bls: Re: [belajar-excel] Belajar aplikasi macro excel Sistem FIFO </div><div>
</div>Dear pak HK,
Terima kasih paj atas infonya, boleh sy mnta addres archife untuk file milis yg d maksud pak. Dr kmrn sy cari blum ketemu nih.
Salam,
Bams
Terima kasih,
Bambang Taufiq. R
Dikirim dari Yahoo! Mail pada Android
From: Hendrik Karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>;
To: <belajar-excel@yahoogroups.com>;
Subject: Re: [belajar-excel] Belajar aplikasi macro excel Sistem FIFO
Sent: Wed, Oct 1, 2014 1:07:22 PM
Pak Bambang,
Saya pernah share perhitungan FIFO dengan macro yang saya dapat dari internet (kayaknya ada di arsip milis)....
Sayangnya perhitungannya satu persatu ga bisa sekaligus untuk seluruh stock.
Kalau stoknya ga banyak jenisnya mungkin bisa diakalin dengan macro untuk mensplit stok menjadi beberapa sheet...sekaligus dilakukan perhitungan FIFO untuk msg2 sheet tersebut atau kalau stoknya banyak jenis bisa dibuat satu template untuk perhitungan FIFO layaknya kita membuat Buku Besar....namun saya blm pernah nyoba.
Salam,
HK
Sent from Samsung Mobile
-------- Original message --------
From: "AKBAR Latif bams_99999@yahoo.co.id [belajar-excel]"
Date:01/10/2014 14:16 (GMT+07:00)
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Belajar aplikasi macro excel Sistem FIFO
Dear Master Excel,
Mohon dibantau agar saya bisa belajar macro excel untuk langsung bisa buat aplikasi sederhana penghitungan kartu stock barang dengan sistem FIFO.
Terima kasih,
Bambang. T
Salam,
HK
Sent from Samsung Mobile
<div>-------- Original message --------</div><div>From: "AKBAR Latif bams_99999@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> </div><div>Date:05/10/2014 07:03 (GMT+07:00) </div><div>To: belajar-excel@yahoogroups.com </div><div>Subject: Bls: Re: [belajar-excel] Belajar aplikasi macro excel Sistem FIFO </div><div>
</div>Dear pak HK,
Terima kasih paj atas infonya, boleh sy mnta addres archife untuk file milis yg d maksud pak. Dr kmrn sy cari blum ketemu nih.
Salam,
Bams
Terima kasih,
Bambang Taufiq. R
Dikirim dari Yahoo! Mail pada Android
From: Hendrik Karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>;
To: <belajar-excel@yahoogroups.com>;
Subject: Re: [belajar-excel] Belajar aplikasi macro excel Sistem FIFO
Sent: Wed, Oct 1, 2014 1:07:22 PM
Pak Bambang,
Saya pernah share perhitungan FIFO dengan macro yang saya dapat dari internet (kayaknya ada di arsip milis)....
Sayangnya perhitungannya satu persatu ga bisa sekaligus untuk seluruh stock.
Kalau stoknya ga banyak jenisnya mungkin bisa diakalin dengan macro untuk mensplit stok menjadi beberapa sheet...sekaligus dilakukan perhitungan FIFO untuk msg2 sheet tersebut atau kalau stoknya banyak jenis bisa dibuat satu template untuk perhitungan FIFO layaknya kita membuat Buku Besar....namun saya blm pernah nyoba.
Salam,
HK
Sent from Samsung Mobile
-------- Original message --------
From: "AKBAR Latif bams_99999@yahoo.co.id [belajar-excel]"
Date:01/10/2014 14:16 (GMT+07:00)
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Belajar aplikasi macro excel Sistem FIFO
Dear Master Excel,
Mohon dibantau agar saya bisa belajar macro excel untuk langsung bisa buat aplikasi sederhana penghitungan kartu stock barang dengan sistem FIFO.
Terima kasih,
Bambang. T
Sat Oct 4, 2014 10:35 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
;)
Sepertinya simulasinya ndak serumit itu deh. Malah mungkin bisa ndak pake
loop terlalu banyak.
tapi itu hanya mungkin loh ya... lah wong yang dilihat cuman script nya pak
Lukman dan ndak tahu asumsi atau bahkan kriteria pokok lainnya dari alur
proses.
Wassalam,
Kid.
2014-10-02 2:09 GMT+10:00 lkm jktind lkmjktind@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Pak Kid.
>
> seperti ini :
> Sub Input_Summary2()
> Dim shR, shS, shM, shO, sh1, shM2 As Worksheet
> Dim rng1, rng2, rng3 As Range
> Dim r, c, t, w As Long
> Dim psa, psn, pkg, wkg As Long
> Dim va1, va2, va3 As Long
> Dim dbl As Double
> Set shS = Worksheets("Simulasi Aktual")
> Set shM = Worksheets("MonteCarlo")
> Set shR = Worksheets("Random")
> Set shO = Worksheets("OUTPUT")
> Set sh1 = Worksheets("Sheet1")
> Set shM2 = Worksheets("MonteCarlo2")
> Set rng1 = Worksheets("Random").Range("I2:J1001")
> Set rng2 = Worksheets("Random").Range("W2:X101")
> Set rng3 = Worksheets("Random").Range("T2:U101")
> '---- aktif sheet
> shM2.Activate
>
> Range("B10:C610").ClearContents
> Range("E10:I610").ClearContents
> Range("K10:K610").ClearContents
> Range("M10:O610").ClearContents
> Range("K1:N1").ClearContents
> dbl = Timer
> Cells(1, 13).Value = Time
> Cells(1, 6).Value = "Sumary2"
>
> 'ini buat copy randbetween
> Range("AP11:AP610").Copy
> Range("J11:J610").PasteSpecial xlValue
> Application.CutCopyMode = False
> Range("AR11:AR610").Copy
> Range("L11:L610").PasteSpecial xlValue
> Application.CutCopyMode = False
> Cells(11, 2).Select
>
> Application.Calculation = xlCalculationAutomatic
> 'Application.Calculation = xlCalculationManual
> Application.ScreenUpdating = False
>
> psa = shS.Cells(9, 2)
> 'psa = shM.Cells(100, 7)
> With Application.WorksheetFunction
> 'For C=3 to 8
> For c = 3 To 3
> 'For r =7 to 29
> For r = 7 To 7
> Range("H11:I3511").ClearContents
> psn = shO.Cells(r, 2)
> pkg = shO.Cells(6, c)
> 'For t = 11 to 3510
>
> For t = 11 To 610
> Cells(t, 2).Value = psa
> ' Cells(t, 4).Value = .RandBetween(1, 1000)
>
> If Cells(t, 4) > 0 Then
> Cells(t, 5).Value = .VLookup(Cells(t, 4), rng1, 2, False)
> End If
>
> If (Cells(t, 2) + Cells(t, 3)) < Cells(t, 5) Then
> Cells(t, 6).Value = (Cells(t, 5) - Cells(t, 3) - Cells(t, 2))
> * Cells(6, 3)
> End If
>
> psa = Cells(t, 2) + Cells(t, 3) - Cells(t, 5)
> Cells(t, 7).Value = psa
>
> If Cells(t, 7).Value < psn Then
> Cells(t, 8).Value = "Pesan"
> Cells(t, 9).Value = pkg
> ' Cells(t, 10).Value = .RandBetween(1, 100)
> ' Cells(t, 12).Value = .RandBetween(1, 100)
> '=====================
> Cells(t, 11).Value = .VLookup(Cells(t, 10), rng2, 2, False)
> w = Cells(t, 11).Value + t
> Cells(t, 15).Value = w
> wkg = Cells(w, 3).Value
> Cells(w, 3).Value = wkg + pkg
> Cells(t, 13).Value = .VLookup(Cells(t, 12), rng3, 2, False)
> '=======================
>
> ElseIf Cells(t, 7) > psn Then
> ' Cells(t, 8).Value = ""
> ' Cells(t, 9).Value = 0
> Cells(t, 10).Value = 0
> ' Cells(t, 11).Value = 0
> Cells(t, 12).Value = 0
> ' Cells(t, 13).Value = 0
> End If
>
> ' If Cells(t, 10) = 0 Then
> ' ElseIf Cells(t, 10) > 0 Then
> ' Cells(t, 11).Value = .VLookup(Cells(t, 10), rng2, 2, False)
> ' w = Cells(t, 11).Value + t
> ' Cells(t, 21).Value = w
> ' wkg = Cells(w, 3).Value
> ' Cells(w, 3).Value = wkg + pkg
> ' End If
>
> ' If Cells(t, 12) > 0 Then
> ' Cells(t, 13).Value = .VLookup(Cells(t, 12), rng3, 2, False)
> ' End If
>
> If Cells(t, 9) = 0 Then
> Cells(t, 14).Value = (Cells(t, 3) * Cells(5, 3)) +
> Cells(t, 6) + (Cells(t, 7) * Cells(3, 3))
> ElseIf Cells(t, 9) > 0 Then
> Cells(t, 14).Value = (Cells(t, 9) * Cells(t, 13)) +
> (Cells(t, 3) * Cells(5, 3)) _
> + Cells(t, 6) + (Cells(t, 7) * Cells(3,
> 3)) + Cells(4, 3)
> End If
>
> Next t
> Cells(t, 14).Value = .Sum(Range(Cells(11, 14), Cells(t, 14)))
> shO.Cells(r, c).Value = shM2.Cells(t, 14)
> Next r
> Next c
> End With
> Application.ScreenUpdating = True
>
> ' MsgBox "Proses Selesai", vbInformation
>
> dbl = Timer - dbl
> Cells(1, 11).Value = dbl
> Cells(1, 14).Value = Time
> End Sub
>
> ini yg pertama ---- dari percobaan kedua.
>
> dibawah ini : yg kedua dari percobaan kedua.
> bedanya untuk randbetween dan vlookup --- saya ambil dari sebelah
> kanannya.
>
> If Cells(t, 27).Value < psn Then
> Cells(t, 28).Value = "Pesan"
> Cells(t, 29).Value = pkg
> ' Cells(t, 30).Value = .RandBetween(1, 100)
> ' Cells(t, 32).Value = .RandBetween(1, 100)
> Cells(t, 30).Value = Cells(t, 30).Offset(0, 12)
> Cells(t, 31).Value = Cells(t, 31).Offset(0, 12)
> Cells(t, 32).Value = Cells(t, 32).Offset(0, 12)
> Cells(t, 33).Value = Cells(t, 33).Offset(0, 12)
> w = Cells(t, 31).Value + t
> Cells(t, 35).Value = w
>
>
> ElseIf Cells(t, 27) > psn Then
> ' Cells(t, 28).Value = ""
> ' Cells(t, 29).Value = 0
> ' Cells(t, 30).Value = 0
> ' Cells(t, 31).Value = 0
> ' Cells(t, 32).Value = 0
> ' Cells(t, 33).Value = 0
> End If
>
> -------------> hasil percobaan kedua dari kedua --- lebih lambat .
> sampai setengah putus asa.
>
> baru saya coba ganti
> Application.Calculation = xlCalculationAutomatic
> Application.ScreenUpdating = False
>
> ' kan cuma ada 4 kemungkinan saja .
>
> ternyata yg sebelumnya hanya di kasih
> Application.Calculation = xlCalculationAutomatic ------> menjadi : manual
> -------- hasil nya nga pakai lama .
>
> setelah selesai ----------- saya masukan formula xl biasa ---------- dan
> ternyata hasil nya sama .
> didalam nya terkandung ------------ nilai total per baris .
> dan ada ginian .
> If t = 11 Then
> Cells(t, 2).Value = psa
> ElseIf t > 11 Then
> Cells(t, 2).Value = Cells(t - 1, 7)
> End If
> ---------------------------
> dibawah ini percobaan yg pertma.
>
> Sub Input_Summary1()
> Dim shR, shS, shM, shO, sh1 As Worksheet
> Dim rng1, rng2, rng3 As Range
> Dim r, c, t, w As Long
> Dim psa, psn, pkg, wkg As Long
> Dim has1, has2 As Variant
> Dim va1, va2, va3 As Long
> Dim dbl As Double
> Set shS = Worksheets("Simulasi Aktual")
> Set shM = Worksheets("MonteCarlo")
> Set shR = Worksheets("Random")
> Set shO = Worksheets("OUTPUT")
> Set sh1 = Worksheets("Sheet1")
> Set rng1 = Worksheets("Random").Range("I2:J1001")
> Set rng2 = Worksheets("Random").Range("W2:X101")
> Set rng3 = Worksheets("Random").Range("T2:U101")
> shM.Activate
> dbl = Timer
> Cells(1, 13).Value = Time
> 'Application.Calculation = xlCalculationAutomatic
> Application.Calculation = xlCalculationManual
> Application.ScreenUpdating = False
>
> Range("B10:O3500").ClearContents
>
> psa = shS.Cells(9, 2)
> 'psa = shM.Cells(100, 7)
> With Application.WorksheetFunction
>
> 'For c = 3 To 8
> For c = 3 To 3
> 'For r = 7 To 29
> For r = 7 To 8
>
> psn = shO.Cells(r, 2)
> pkg = shO.Cells(6, c)
>
> 'For t = 11 to 3495
> For t = 11 To 3495
> Cells(t, 4).Value = .RandBetween(1, 1000)
> Cells(t, 10).Value = .RandBetween(1, 100)
> Cells(t, 12).Value = .RandBetween(1, 100)
>
>
> If t = 11 Then
> Cells(t, 2).Value = psa
> ElseIf t > 11 Then
> Cells(t, 2).Value = Cells(t - 1, 7)
> End If
>
>
> If Cells(t, 4) > 0 Then
> Cells(t, 5).Value = .VLookup(Cells(t, 4), rng1, 2, False)
> End If
>
> If (Cells(t, 2) + Cells(t, 3)) < Cells(t, 5) Then
> Cells(t, 6).Value = (Cells(t, 5) - Cells(t, 3) - Cells(t, 2))
> * Cells(6, 3)
> End If
> Cells(t, 7).Value = Cells(t, 2) + Cells(t, 3) - Cells(t, 5)
> If Cells(t, 7).Value < psn Then
> Cells(t, 8).Value = "Pesan"
> Cells(t, 9).Value = pkg
>
> ElseIf Cells(t, 7) > psn Then
> Cells(t, 8).Value = ""
> Cells(t, 9).Value = 0
> Cells(t, 10).Value = 0
> Cells(t, 11).Value = 0
> Cells(t, 12).Value = 0
> Cells(t, 13).Value = 0
> End If
>
> If Cells(t, 7) > psn Then
>
> ElseIf Cells(t, 7) <= psn Then
> Cells(t, 11).Value = .VLookup(Cells(t, 10), rng2, 2, False)
> w = Cells(t, 11).Value + t
> Cells(t, 15).Value = w
> wkg = Cells(w, 3).Value
> If w <= 3495 Then
> Cells(w, 3).Value = wkg + pkg
> End If
> End If
>
> If Cells(t, 12) > 0 Then
> Cells(t, 13).Value = .VLookup(Cells(t, 12), rng3, 2, False)
> End If
>
> If Cells(t, 9) = 0 Then
> Cells(t, 14).Value = (Cells(t, 3) * Cells(5, 3)) +
> Cells(t, 6) + (Cells(t, 7) * Cells(3, 3))
> ElseIf Cells(t, 9) > 0 Then
> Cells(t, 14).Value = (Cells(t, 9) * Cells(t, 13)) +
> (Cells(t, 3) * Cells(5, 3)) _
> + Cells(t, 6) + (Cells(t, 7) * Cells(3,
> 3)) + Cells(4, 3)
> End If
> has2 = has2 + Cells(t, 14)
> If t = 3495 Then
> has1 = .Sum(Range(Cells(11, 14), Cells(t, 14)))
> Cells(3496, 14).Value = .Sum(Range(Cells(11, 14), Cells(t,
> 14)))
> shO.Cells(r, c).Value = Cells(3496, 14)
> End If
>
> Next t
> shO.Cells(r + 28, c).Value = has2
> has1 = 0
> has2 = 0
> Next r
> Next c
> End With
> Application.ScreenUpdating = True
>
> ' MsgBox "Proses Selesai", vbInformation
> Application.Calculation = xlCalculationAutomatic
> dbl = Timer - dbl
> Cells(1, 11).Value = dbl
> Cells(1, 14).Value = Time
> End Sub
>
> ------------ disitu full VBA.
> cuma masih ada yg aneh .
>
> bila di running terlalu cepat :
> yg ini jadi kacau balau :
> w = Cells(t, 11).Value + t
> Cells(t, 15).Value = w
> wkg = Cells(w, 3).Value
> If w <= 3495 Then
> Cells(w, 3).Value = wkg + pkg
>
> Kalau step by step --- normal.
>
> seandai saya buat bikin range : inputan dari nilai w itu
> Cells(t, 15).Value = w
> maka saya akan mengunakan sumifs
> dan yg dibawah ini tidak di perlukan lagi
> If w <= 3495 Then
> Cells(w, 3).Value = wkg + pkg
>
> Salam
>
>
> Lukman
>
>
>
> 2014-10-01 20:37 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
>>
>> :)
>>
>> Saya ndak tahu dalam cell ada yang menggunakan fungsi randbetween atau
>> ndak. Poin pentingnya, setting kalkulasi manual atau automatic tidak akan
>> mengubah sifat fungsi RandBetween. Jika fungsi ini dipakai dalam sebuah
>> cell alias di cell tersebut berisi formula berbunyi =Randbetween( bla , bli
>> ) ataupun fungsi-fungsi yang bersifat volatile lainnya, maka cell tersebut
>> akan berubah nilainya begitu setting kalkulasi dikembalikan menjadi
>> automatic.
>>
>> Secara umum, cerita proses yang berkaitan dengan cell berfungsi volatile
>> seperti RandBetween adalah sebagai berikut :
>> > jika di cell 1 diberi fungsi RandBetween : (di cell 1 ada formula
>> berbunyi =RandBetween( bla , bli )
>> a. Nilai cell 1 awal adalah x1,
>> b. VBA mengubah setting kalkulasi ke manual,
>> c. VBA hitung berdasar nilai hasil cell 1, yaitu nilai x1
>> d. VBA tulis hasil hitungannya ke sebuah cell 2,
>> e. VBA mengubah setting kalkulasi ke automatic lagi,
>> f. nilai di cell 1 sudah berubah menjadi x2 yang kemungkinan besar
>> x1<>x2
>>
>> > jika di cell 1 *tidak ada* fungsi randbetween : (di cell 1 berisi
>> nilai konstan atau malah masih kosong)
>> a. VBA mengubah setting kalkulasi ke manual,
>> b. VBA pasang formula di cell 1 berupa fungsi RandBetween (cell 1
>> berisi formula randbetween jadinya)
>> c. Nilai cell 1 awal adalah x1 (saat kalkulasi set manual),
>> d. VBA hitung berdasar nilai hasil cell 1, yaitu nilai x1
>> e. VBA tulis hasil hitungannya ke sebuah cell 2,
>> f. VBA mengubah setting kalkulasi ke automatic lagi,
>> g. nilai di cell 1 sudah berubah menjadi x2 yang kemungkinan besar
>> x1<>x2
>>
>> > jika di cell 1 *tidak ada* fungsi randbetween dan semua proses
>> dilakukan di dalam VBA (malah ndak perlu set kalkulasi ke manual)
>> a. VBA tulis ke cell 1 hasil worksheetfunction randbetween
>> b. VBA ambil nilai dari cell 1, misal bernilai x1
>> c. VBA hitung berdasar nilai cell 1, yaitu nilai x1
>> d. VBA tulis hasil hitungannya ke sebuah cell 2,
>> e. nilai di cell 1 tetaplah x1
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>> 2014-10-01 20:57 GMT+10:00 lkm jktind lkmjktind@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>
>>>
>>> Pak Kid.
>>>
>>> Terima kasih.
>>>
>>> sudah kutemukan masalahnya .
>>> ternyata didalam VBA ada : Application.Calculation =
>>> xlCalculationAutomatic
>>> kacau.
>>>
>>> Hasilnya :
>>> dengan formula tetap menempel di work sheet , dan pakai automatic :
>>> 7.338 detik
>>> dengan formula tetap menempel di work sheet , dan dicentang automatic :
>>> 635 detik --- di excel - posisi manual
>>> dengan formula full di VBA Application.Calculation =
>>> xlCalculationManual : beberapa detik saja.
>>> (dibawah 2 detik) ---- sebanding dengan cpu usage nya dipakai semua .
>>>
>>> dengan data 3495 ---- bila ini di loop lagi 23 X 6 --- masih nga ada
>>> artinya.
>>>
>>> mungkin harus saya biasakan . --- sebelum masuk ke perhitungan dengan
>>> full VBA .
>>> Application.Calculation = xlCalculationManual.
>>>
>>> menjelang akhir baru di beri :
>>> Application.Calculation = xlCalculationAutomatic
>>>
>>> sedangkan : screen up to dating --- true atau false . ---selisih
>>> waktunya beda dikit saja.
>>>
>>> telah saya cross check : hasil dari full vba --------- lalu saya input
>>> formula dari excel .
>>> kecuali randbetween --- yg tidak di ganggu ------. dan hasil akhirnya
>>> sama .
>>> boleh kah saya artikan : bahwa formula yg saya gunakan di VBA --- sudah
>>> sesuai dengan di excel .
>>>
>>>
>>>
>>> Salam
>>>
>>>
>>> Lukman
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> 2014-10-01 3:41 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
>>> belajar-excel@yahoogroups.com>:
>>>
>>>
>>>>
>>>> Pak Lukman,
>>>>
>>>> Semua fitur Excel ketika digunakan dalam VBA, akan bekerja lebih
>>>> lamban, karena dibutuhkan proses eksekusi baris script VBA.
>>>> Untuk lama proses sampai 1700 detik pada iterasi yang sangat banyak
>>>> (lebih dari 500K step iterasi) mungkin terhitung wajar. Untuk terasi
>>>> dibawah 500K, berarti ada yang kurang pas antara otomasi dengan sistem
>>>> simulasinya. Penjelasan sistem simulasi lengkap beserta dasar teori
>>>> pemilihan komponen simulasinya perlu diketahui lebih dahulu sebelum
>>>> menyusun otomasinya.
>>>>
>>>> Diemail Anda dikatakan ada penggunaan RandBetween dan vLookUp. Maka
>>>> harus dipertanyakan lebih dulu, apakah simulasinya akan membentuk langsung
>>>> 1 dataset (series waktu) sekaligus atau satu per satu setiap waktu sampai
>>>> seluruh dataset terbentuk. Maksudnya, harus digenerate langsung dari
>>>> tanggal ke-1 sampai tanggal ke-1000 atau tanggal ke-1 selesai lalu muncul
>>>> tanggal ke-2 dst sampai tanggal ke-1000.
>>>>
>>>> Kondisi yang mungkin :
>>>> A. Jika menggunakan randbetween, berarti tanggal ke-1 sampai tanggal
>>>> ke-1000 langsung terbentuk bilangan acak dan bagian lain (kolom lain) pun
>>>> harus bekerja simultan langsung mengolah bersamaan dari tanggal ke-1 sampai
>>>> ke-1000. Artinya, yang paling memungkinkan adalah memasang formula dalam
>>>> worksheet bukan menghitung formula dengan VBA.
>>>>
>>>> B. Jika yang dimaksud adalah tanggal ke-1 selesai disimulasi lalu
>>>> pindah ke tanggal ke-2 lalu disimulasi sampai tanggal ke-1000,
>>>> maka :
>>>> 1. jika ada proses untuk menggunakan hasil sebuah cell yang sama untuk
>>>> lebih dari satu proses simulasi.
>>>> >> proses otomasinya menggunakan loop dari satu tanggal ke tanggal
>>>> berikutnya.
>>>> 2. jika tidak ada proses untuk menggunakan hasil sebuah cell yang sama
>>>> untuk lebih dari satu proses simulasi
>>>> >> proses otomasi bisa menggunakan VBA atau dengan formula dalam
>>>> worksheet
>>>>
>>>> Kalo ndak salah kira-kira, jika kondisi A disusun dengan baik, mestinya
>>>> proses membutuhkan waktu sekitar 30 sampai 350 detik saja untuk data kurang
>>>> dari 30K. Jika kondisi B, maka proses VBA membutuhkan waktu sekitar 30
>>>> sampai 350 detik juga pada data kurang dari 30K. Sedang untuk penggunaan
>>>> formula di kondisi B.2., bisa tergantung jumlah formula dalam workbook yang
>>>> butuh dikalkulasi Excel (antrian dalam proses kalkulasi Excel).
>>>>
>>>> Wassalam,
>>>> Kid.
>>>>
>>>>
>>>>
>>>> 2014-09-30 20:47 GMT+10:00 lkm jktind lkmjktind@gmail.com
>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>
>>>>
>>>>>
>>>>> menggunakan data montecarlo
>>>>>
>>>>> 1. sebagian besar formula menempel di work sheet.
>>>>> 2. semuanya mengunakan VBA -- --(mengunakan vlookup dan randbtween
>>>>> -- masing 3 pasang)
>>>>>
>>>>> dengan hasil
>>>>> 1. 7000 detik -- cpu usage = 25 %
>>>>> 2 .12.000 detik . ---> cpu useage = maksimal
>>>>>
>>>>> apakah bisa di artikan . formula di vba --- akan lebih lamban dari
>>>>> pada di work sheet ?
>>>>>
>>>>>
>>>>> Salam
>>>>>
>>>>> Lukman
>>>>>
>>>>>
>>>>
>>>
>>
>
>
Sepertinya simulasinya ndak serumit itu deh. Malah mungkin bisa ndak pake
loop terlalu banyak.
tapi itu hanya mungkin loh ya... lah wong yang dilihat cuman script nya pak
Lukman dan ndak tahu asumsi atau bahkan kriteria pokok lainnya dari alur
proses.
Wassalam,
Kid.
2014-10-02 2:09 GMT+10:00 lkm jktind lkmjktind@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Pak Kid.
>
> seperti ini :
> Sub Input_Summary2()
> Dim shR, shS, shM, shO, sh1, shM2 As Worksheet
> Dim rng1, rng2, rng3 As Range
> Dim r, c, t, w As Long
> Dim psa, psn, pkg, wkg As Long
> Dim va1, va2, va3 As Long
> Dim dbl As Double
> Set shS = Worksheets("Simulasi Aktual")
> Set shM = Worksheets("MonteCarlo")
> Set shR = Worksheets("Random")
> Set shO = Worksheets("OUTPUT")
> Set sh1 = Worksheets("Sheet1")
> Set shM2 = Worksheets("MonteCarlo2")
> Set rng1 = Worksheets("Random").Range("I2:J1001")
> Set rng2 = Worksheets("Random").Range("W2:X101")
> Set rng3 = Worksheets("Random").Range("T2:U101")
> '---- aktif sheet
> shM2.Activate
>
> Range("B10:C610").ClearContents
> Range("E10:I610").ClearContents
> Range("K10:K610").ClearContents
> Range("M10:O610").ClearContents
> Range("K1:N1").ClearContents
> dbl = Timer
> Cells(1, 13).Value = Time
> Cells(1, 6).Value = "Sumary2"
>
> 'ini buat copy randbetween
> Range("AP11:AP610").Copy
> Range("J11:J610").PasteSpecial xlValue
> Application.CutCopyMode = False
> Range("AR11:AR610").Copy
> Range("L11:L610").PasteSpecial xlValue
> Application.CutCopyMode = False
> Cells(11, 2).Select
>
> Application.Calculation = xlCalculationAutomatic
> 'Application.Calculation = xlCalculationManual
> Application.ScreenUpdating = False
>
> psa = shS.Cells(9, 2)
> 'psa = shM.Cells(100, 7)
> With Application.WorksheetFunction
> 'For C=3 to 8
> For c = 3 To 3
> 'For r =7 to 29
> For r = 7 To 7
> Range("H11:I3511").ClearContents
> psn = shO.Cells(r, 2)
> pkg = shO.Cells(6, c)
> 'For t = 11 to 3510
>
> For t = 11 To 610
> Cells(t, 2).Value = psa
> ' Cells(t, 4).Value = .RandBetween(1, 1000)
>
> If Cells(t, 4) > 0 Then
> Cells(t, 5).Value = .VLookup(Cells(t, 4), rng1, 2, False)
> End If
>
> If (Cells(t, 2) + Cells(t, 3)) < Cells(t, 5) Then
> Cells(t, 6).Value = (Cells(t, 5) - Cells(t, 3) - Cells(t, 2))
> * Cells(6, 3)
> End If
>
> psa = Cells(t, 2) + Cells(t, 3) - Cells(t, 5)
> Cells(t, 7).Value = psa
>
> If Cells(t, 7).Value < psn Then
> Cells(t, 8).Value = "Pesan"
> Cells(t, 9).Value = pkg
> ' Cells(t, 10).Value = .RandBetween(1, 100)
> ' Cells(t, 12).Value = .RandBetween(1, 100)
> '=====================
> Cells(t, 11).Value = .VLookup(Cells(t, 10), rng2, 2, False)
> w = Cells(t, 11).Value + t
> Cells(t, 15).Value = w
> wkg = Cells(w, 3).Value
> Cells(w, 3).Value = wkg + pkg
> Cells(t, 13).Value = .VLookup(Cells(t, 12), rng3, 2, False)
> '=======================
>
> ElseIf Cells(t, 7) > psn Then
> ' Cells(t, 8).Value = ""
> ' Cells(t, 9).Value = 0
> Cells(t, 10).Value = 0
> ' Cells(t, 11).Value = 0
> Cells(t, 12).Value = 0
> ' Cells(t, 13).Value = 0
> End If
>
> ' If Cells(t, 10) = 0 Then
> ' ElseIf Cells(t, 10) > 0 Then
> ' Cells(t, 11).Value = .VLookup(Cells(t, 10), rng2, 2, False)
> ' w = Cells(t, 11).Value + t
> ' Cells(t, 21).Value = w
> ' wkg = Cells(w, 3).Value
> ' Cells(w, 3).Value = wkg + pkg
> ' End If
>
> ' If Cells(t, 12) > 0 Then
> ' Cells(t, 13).Value = .VLookup(Cells(t, 12), rng3, 2, False)
> ' End If
>
> If Cells(t, 9) = 0 Then
> Cells(t, 14).Value = (Cells(t, 3) * Cells(5, 3)) +
> Cells(t, 6) + (Cells(t, 7) * Cells(3, 3))
> ElseIf Cells(t, 9) > 0 Then
> Cells(t, 14).Value = (Cells(t, 9) * Cells(t, 13)) +
> (Cells(t, 3) * Cells(5, 3)) _
> + Cells(t, 6) + (Cells(t, 7) * Cells(3,
> 3)) + Cells(4, 3)
> End If
>
> Next t
> Cells(t, 14).Value = .Sum(Range(Cells(11, 14), Cells(t, 14)))
> shO.Cells(r, c).Value = shM2.Cells(t, 14)
> Next r
> Next c
> End With
> Application.ScreenUpdating = True
>
> ' MsgBox "Proses Selesai", vbInformation
>
> dbl = Timer - dbl
> Cells(1, 11).Value = dbl
> Cells(1, 14).Value = Time
> End Sub
>
> ini yg pertama ---- dari percobaan kedua.
>
> dibawah ini : yg kedua dari percobaan kedua.
> bedanya untuk randbetween dan vlookup --- saya ambil dari sebelah
> kanannya.
>
> If Cells(t, 27).Value < psn Then
> Cells(t, 28).Value = "Pesan"
> Cells(t, 29).Value = pkg
> ' Cells(t, 30).Value = .RandBetween(1, 100)
> ' Cells(t, 32).Value = .RandBetween(1, 100)
> Cells(t, 30).Value = Cells(t, 30).Offset(0, 12)
> Cells(t, 31).Value = Cells(t, 31).Offset(0, 12)
> Cells(t, 32).Value = Cells(t, 32).Offset(0, 12)
> Cells(t, 33).Value = Cells(t, 33).Offset(0, 12)
> w = Cells(t, 31).Value + t
> Cells(t, 35).Value = w
>
>
> ElseIf Cells(t, 27) > psn Then
> ' Cells(t, 28).Value = ""
> ' Cells(t, 29).Value = 0
> ' Cells(t, 30).Value = 0
> ' Cells(t, 31).Value = 0
> ' Cells(t, 32).Value = 0
> ' Cells(t, 33).Value = 0
> End If
>
> -------------> hasil percobaan kedua dari kedua --- lebih lambat .
> sampai setengah putus asa.
>
> baru saya coba ganti
> Application.Calculation = xlCalculationAutomatic
> Application.ScreenUpdating = False
>
> ' kan cuma ada 4 kemungkinan saja .
>
> ternyata yg sebelumnya hanya di kasih
> Application.Calculation = xlCalculationAutomatic ------> menjadi : manual
> -------- hasil nya nga pakai lama .
>
> setelah selesai ----------- saya masukan formula xl biasa ---------- dan
> ternyata hasil nya sama .
> didalam nya terkandung ------------ nilai total per baris .
> dan ada ginian .
> If t = 11 Then
> Cells(t, 2).Value = psa
> ElseIf t > 11 Then
> Cells(t, 2).Value = Cells(t - 1, 7)
> End If
> ---------------------------
> dibawah ini percobaan yg pertma.
>
> Sub Input_Summary1()
> Dim shR, shS, shM, shO, sh1 As Worksheet
> Dim rng1, rng2, rng3 As Range
> Dim r, c, t, w As Long
> Dim psa, psn, pkg, wkg As Long
> Dim has1, has2 As Variant
> Dim va1, va2, va3 As Long
> Dim dbl As Double
> Set shS = Worksheets("Simulasi Aktual")
> Set shM = Worksheets("MonteCarlo")
> Set shR = Worksheets("Random")
> Set shO = Worksheets("OUTPUT")
> Set sh1 = Worksheets("Sheet1")
> Set rng1 = Worksheets("Random").Range("I2:J1001")
> Set rng2 = Worksheets("Random").Range("W2:X101")
> Set rng3 = Worksheets("Random").Range("T2:U101")
> shM.Activate
> dbl = Timer
> Cells(1, 13).Value = Time
> 'Application.Calculation = xlCalculationAutomatic
> Application.Calculation = xlCalculationManual
> Application.ScreenUpdating = False
>
> Range("B10:O3500").ClearContents
>
> psa = shS.Cells(9, 2)
> 'psa = shM.Cells(100, 7)
> With Application.WorksheetFunction
>
> 'For c = 3 To 8
> For c = 3 To 3
> 'For r = 7 To 29
> For r = 7 To 8
>
> psn = shO.Cells(r, 2)
> pkg = shO.Cells(6, c)
>
> 'For t = 11 to 3495
> For t = 11 To 3495
> Cells(t, 4).Value = .RandBetween(1, 1000)
> Cells(t, 10).Value = .RandBetween(1, 100)
> Cells(t, 12).Value = .RandBetween(1, 100)
>
>
> If t = 11 Then
> Cells(t, 2).Value = psa
> ElseIf t > 11 Then
> Cells(t, 2).Value = Cells(t - 1, 7)
> End If
>
>
> If Cells(t, 4) > 0 Then
> Cells(t, 5).Value = .VLookup(Cells(t, 4), rng1, 2, False)
> End If
>
> If (Cells(t, 2) + Cells(t, 3)) < Cells(t, 5) Then
> Cells(t, 6).Value = (Cells(t, 5) - Cells(t, 3) - Cells(t, 2))
> * Cells(6, 3)
> End If
> Cells(t, 7).Value = Cells(t, 2) + Cells(t, 3) - Cells(t, 5)
> If Cells(t, 7).Value < psn Then
> Cells(t, 8).Value = "Pesan"
> Cells(t, 9).Value = pkg
>
> ElseIf Cells(t, 7) > psn Then
> Cells(t, 8).Value = ""
> Cells(t, 9).Value = 0
> Cells(t, 10).Value = 0
> Cells(t, 11).Value = 0
> Cells(t, 12).Value = 0
> Cells(t, 13).Value = 0
> End If
>
> If Cells(t, 7) > psn Then
>
> ElseIf Cells(t, 7) <= psn Then
> Cells(t, 11).Value = .VLookup(Cells(t, 10), rng2, 2, False)
> w = Cells(t, 11).Value + t
> Cells(t, 15).Value = w
> wkg = Cells(w, 3).Value
> If w <= 3495 Then
> Cells(w, 3).Value = wkg + pkg
> End If
> End If
>
> If Cells(t, 12) > 0 Then
> Cells(t, 13).Value = .VLookup(Cells(t, 12), rng3, 2, False)
> End If
>
> If Cells(t, 9) = 0 Then
> Cells(t, 14).Value = (Cells(t, 3) * Cells(5, 3)) +
> Cells(t, 6) + (Cells(t, 7) * Cells(3, 3))
> ElseIf Cells(t, 9) > 0 Then
> Cells(t, 14).Value = (Cells(t, 9) * Cells(t, 13)) +
> (Cells(t, 3) * Cells(5, 3)) _
> + Cells(t, 6) + (Cells(t, 7) * Cells(3,
> 3)) + Cells(4, 3)
> End If
> has2 = has2 + Cells(t, 14)
> If t = 3495 Then
> has1 = .Sum(Range(Cells(11, 14), Cells(t, 14)))
> Cells(3496, 14).Value = .Sum(Range(Cells(11, 14), Cells(t,
> 14)))
> shO.Cells(r, c).Value = Cells(3496, 14)
> End If
>
> Next t
> shO.Cells(r + 28, c).Value = has2
> has1 = 0
> has2 = 0
> Next r
> Next c
> End With
> Application.ScreenUpdating = True
>
> ' MsgBox "Proses Selesai", vbInformation
> Application.Calculation = xlCalculationAutomatic
> dbl = Timer - dbl
> Cells(1, 11).Value = dbl
> Cells(1, 14).Value = Time
> End Sub
>
> ------------ disitu full VBA.
> cuma masih ada yg aneh .
>
> bila di running terlalu cepat :
> yg ini jadi kacau balau :
> w = Cells(t, 11).Value + t
> Cells(t, 15).Value = w
> wkg = Cells(w, 3).Value
> If w <= 3495 Then
> Cells(w, 3).Value = wkg + pkg
>
> Kalau step by step --- normal.
>
> seandai saya buat bikin range : inputan dari nilai w itu
> Cells(t, 15).Value = w
> maka saya akan mengunakan sumifs
> dan yg dibawah ini tidak di perlukan lagi
> If w <= 3495 Then
> Cells(w, 3).Value = wkg + pkg
>
> Salam
>
>
> Lukman
>
>
>
> 2014-10-01 20:37 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
>>
>> :)
>>
>> Saya ndak tahu dalam cell ada yang menggunakan fungsi randbetween atau
>> ndak. Poin pentingnya, setting kalkulasi manual atau automatic tidak akan
>> mengubah sifat fungsi RandBetween. Jika fungsi ini dipakai dalam sebuah
>> cell alias di cell tersebut berisi formula berbunyi =Randbetween( bla , bli
>> ) ataupun fungsi-fungsi yang bersifat volatile lainnya, maka cell tersebut
>> akan berubah nilainya begitu setting kalkulasi dikembalikan menjadi
>> automatic.
>>
>> Secara umum, cerita proses yang berkaitan dengan cell berfungsi volatile
>> seperti RandBetween adalah sebagai berikut :
>> > jika di cell 1 diberi fungsi RandBetween : (di cell 1 ada formula
>> berbunyi =RandBetween( bla , bli )
>> a. Nilai cell 1 awal adalah x1,
>> b. VBA mengubah setting kalkulasi ke manual,
>> c. VBA hitung berdasar nilai hasil cell 1, yaitu nilai x1
>> d. VBA tulis hasil hitungannya ke sebuah cell 2,
>> e. VBA mengubah setting kalkulasi ke automatic lagi,
>> f. nilai di cell 1 sudah berubah menjadi x2 yang kemungkinan besar
>> x1<>x2
>>
>> > jika di cell 1 *tidak ada* fungsi randbetween : (di cell 1 berisi
>> nilai konstan atau malah masih kosong)
>> a. VBA mengubah setting kalkulasi ke manual,
>> b. VBA pasang formula di cell 1 berupa fungsi RandBetween (cell 1
>> berisi formula randbetween jadinya)
>> c. Nilai cell 1 awal adalah x1 (saat kalkulasi set manual),
>> d. VBA hitung berdasar nilai hasil cell 1, yaitu nilai x1
>> e. VBA tulis hasil hitungannya ke sebuah cell 2,
>> f. VBA mengubah setting kalkulasi ke automatic lagi,
>> g. nilai di cell 1 sudah berubah menjadi x2 yang kemungkinan besar
>> x1<>x2
>>
>> > jika di cell 1 *tidak ada* fungsi randbetween dan semua proses
>> dilakukan di dalam VBA (malah ndak perlu set kalkulasi ke manual)
>> a. VBA tulis ke cell 1 hasil worksheetfunction randbetween
>> b. VBA ambil nilai dari cell 1, misal bernilai x1
>> c. VBA hitung berdasar nilai cell 1, yaitu nilai x1
>> d. VBA tulis hasil hitungannya ke sebuah cell 2,
>> e. nilai di cell 1 tetaplah x1
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>> 2014-10-01 20:57 GMT+10:00 lkm jktind lkmjktind@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>
>>>
>>> Pak Kid.
>>>
>>> Terima kasih.
>>>
>>> sudah kutemukan masalahnya .
>>> ternyata didalam VBA ada : Application.Calculation =
>>> xlCalculationAutomatic
>>> kacau.
>>>
>>> Hasilnya :
>>> dengan formula tetap menempel di work sheet , dan pakai automatic :
>>> 7.338 detik
>>> dengan formula tetap menempel di work sheet , dan dicentang automatic :
>>> 635 detik --- di excel - posisi manual
>>> dengan formula full di VBA Application.Calculation =
>>> xlCalculationManual : beberapa detik saja.
>>> (dibawah 2 detik) ---- sebanding dengan cpu usage nya dipakai semua .
>>>
>>> dengan data 3495 ---- bila ini di loop lagi 23 X 6 --- masih nga ada
>>> artinya.
>>>
>>> mungkin harus saya biasakan . --- sebelum masuk ke perhitungan dengan
>>> full VBA .
>>> Application.Calculation = xlCalculationManual.
>>>
>>> menjelang akhir baru di beri :
>>> Application.Calculation = xlCalculationAutomatic
>>>
>>> sedangkan : screen up to dating --- true atau false . ---selisih
>>> waktunya beda dikit saja.
>>>
>>> telah saya cross check : hasil dari full vba --------- lalu saya input
>>> formula dari excel .
>>> kecuali randbetween --- yg tidak di ganggu ------. dan hasil akhirnya
>>> sama .
>>> boleh kah saya artikan : bahwa formula yg saya gunakan di VBA --- sudah
>>> sesuai dengan di excel .
>>>
>>>
>>>
>>> Salam
>>>
>>>
>>> Lukman
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> 2014-10-01 3:41 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
>>> belajar-excel@yahoogroups.com>:
>>>
>>>
>>>>
>>>> Pak Lukman,
>>>>
>>>> Semua fitur Excel ketika digunakan dalam VBA, akan bekerja lebih
>>>> lamban, karena dibutuhkan proses eksekusi baris script VBA.
>>>> Untuk lama proses sampai 1700 detik pada iterasi yang sangat banyak
>>>> (lebih dari 500K step iterasi) mungkin terhitung wajar. Untuk terasi
>>>> dibawah 500K, berarti ada yang kurang pas antara otomasi dengan sistem
>>>> simulasinya. Penjelasan sistem simulasi lengkap beserta dasar teori
>>>> pemilihan komponen simulasinya perlu diketahui lebih dahulu sebelum
>>>> menyusun otomasinya.
>>>>
>>>> Diemail Anda dikatakan ada penggunaan RandBetween dan vLookUp. Maka
>>>> harus dipertanyakan lebih dulu, apakah simulasinya akan membentuk langsung
>>>> 1 dataset (series waktu) sekaligus atau satu per satu setiap waktu sampai
>>>> seluruh dataset terbentuk. Maksudnya, harus digenerate langsung dari
>>>> tanggal ke-1 sampai tanggal ke-1000 atau tanggal ke-1 selesai lalu muncul
>>>> tanggal ke-2 dst sampai tanggal ke-1000.
>>>>
>>>> Kondisi yang mungkin :
>>>> A. Jika menggunakan randbetween, berarti tanggal ke-1 sampai tanggal
>>>> ke-1000 langsung terbentuk bilangan acak dan bagian lain (kolom lain) pun
>>>> harus bekerja simultan langsung mengolah bersamaan dari tanggal ke-1 sampai
>>>> ke-1000. Artinya, yang paling memungkinkan adalah memasang formula dalam
>>>> worksheet bukan menghitung formula dengan VBA.
>>>>
>>>> B. Jika yang dimaksud adalah tanggal ke-1 selesai disimulasi lalu
>>>> pindah ke tanggal ke-2 lalu disimulasi sampai tanggal ke-1000,
>>>> maka :
>>>> 1. jika ada proses untuk menggunakan hasil sebuah cell yang sama untuk
>>>> lebih dari satu proses simulasi.
>>>> >> proses otomasinya menggunakan loop dari satu tanggal ke tanggal
>>>> berikutnya.
>>>> 2. jika tidak ada proses untuk menggunakan hasil sebuah cell yang sama
>>>> untuk lebih dari satu proses simulasi
>>>> >> proses otomasi bisa menggunakan VBA atau dengan formula dalam
>>>> worksheet
>>>>
>>>> Kalo ndak salah kira-kira, jika kondisi A disusun dengan baik, mestinya
>>>> proses membutuhkan waktu sekitar 30 sampai 350 detik saja untuk data kurang
>>>> dari 30K. Jika kondisi B, maka proses VBA membutuhkan waktu sekitar 30
>>>> sampai 350 detik juga pada data kurang dari 30K. Sedang untuk penggunaan
>>>> formula di kondisi B.2., bisa tergantung jumlah formula dalam workbook yang
>>>> butuh dikalkulasi Excel (antrian dalam proses kalkulasi Excel).
>>>>
>>>> Wassalam,
>>>> Kid.
>>>>
>>>>
>>>>
>>>> 2014-09-30 20:47 GMT+10:00 lkm jktind lkmjktind@gmail.com
>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>
>
Sat Oct 4, 2014 10:36 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Wildan,
File terlampir berisi formula-formula yang digunakan. Silakan digunakan dan
dikembangkan sesuai kebutuhan.
Wassalam,
Kid.
2014-10-01 16:30 GMT+10:00 Wildan Fauzi wildanfauzy@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Senior Jagoan Excel yg saya hormati
>
> saya ada kasus database monitoring unit dimana inputnya adalah kode unit
> dan tanggal jika unit tersebut dipindahkan. Selain itu dianggap tetap di
> lokasi tersebut.
> Jika saya ingin membuat tabel summary dari table awal, bagaimanakah
> formulanya.
>
> berikut ini lampirannya
>
> Terimakasih banyak Jagoan
>
> Salam
>
> Wildan F
>
>
>
File terlampir berisi formula-formula yang digunakan. Silakan digunakan dan
dikembangkan sesuai kebutuhan.
Wassalam,
Kid.
2014-10-01 16:30 GMT+10:00 Wildan Fauzi wildanfauzy@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Senior Jagoan Excel yg saya hormati
>
> saya ada kasus database monitoring unit dimana inputnya adalah kode unit
> dan tanggal jika unit tersebut dipindahkan. Selain itu dianggap tetap di
> lokasi tersebut.
> Jika saya ingin membuat tabel summary dari table awal, bagaimanakah
> formulanya.
>
> berikut ini lampirannya
>
> Terimakasih banyak Jagoan
>
> Salam
>
> Wildan F
>
>
>
Sat Oct 4, 2014 10:40 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Haikal,
File terlampir adalah contoh template pengolahan data tanpa VBA, sehingga
bisa lebih mudah dikembangkan sewaktu-waktu dibutuhkan jika ndak memiliki
kemampuan programming (kecuali kalau mau belajar VBA atau minta dibikinin
terus atau punya kelebihan dana untuk bayar yang bikin otomasi dengan
VBA-nya). Penyusunan output bisa dikombinasikan dengan formula dibantu
pivot table.
Wassalam,
Kid.
2014-10-02 15:22 GMT+10:00 Muh Nuh Haikal juz13_9999@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear para suhu be-excel yg berbahagia,
>
> mohon bantuannya para suhu be-eXcel dengan kasus data excel saya ....file
> saya lampirkan ...
> saya haturkan terima kasih ...
>
>
> best regards,
> m nuh haikal
>
>
>
File terlampir adalah contoh template pengolahan data tanpa VBA, sehingga
bisa lebih mudah dikembangkan sewaktu-waktu dibutuhkan jika ndak memiliki
kemampuan programming (kecuali kalau mau belajar VBA atau minta dibikinin
terus atau punya kelebihan dana untuk bayar yang bikin otomasi dengan
VBA-nya). Penyusunan output bisa dikombinasikan dengan formula dibantu
pivot table.
Wassalam,
Kid.
2014-10-02 15:22 GMT+10:00 Muh Nuh Haikal juz13_9999@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear para suhu be-excel yg berbahagia,
>
> mohon bantuannya para suhu be-eXcel dengan kasus data excel saya ....file
> saya lampirkan ...
> saya haturkan terima kasih ...
>
>
> best regards,
> m nuh haikal
>
>
>
Sat Oct 4, 2014 10:53 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Kausar,
Bagaimana jika lebih teliti dalam memberi nama, memanggil nama, dan
menggunakan nama apa saja. Contohnya seperti yang dikuning dibawah yang
ndak cocok alurnya :
Private Sub CommandButton1_Click()
Buka*Form*Pesan
End Sub
Sub Buka*From*Pesan()
frmPesan.Show
End Sub
Wassalam,
Kid.
2014-10-03 1:14 GMT+10:00 Abid Kausar muhabka@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Dear Suhu Excel,
>
> mohon bantuannya,
> saya lagi belajar membuat form, pada saat saya click command button
> (Axtive Control) tidak bisa.
>
> Mohon bantuannya suhu,
> saya sertakan dengan lampiran contohnya
>
>
> Wassalam,
> Kausar
>
>
>
Bagaimana jika lebih teliti dalam memberi nama, memanggil nama, dan
menggunakan nama apa saja. Contohnya seperti yang dikuning dibawah yang
ndak cocok alurnya :
Private Sub CommandButton1_Click()
Buka*Form*Pesan
End Sub
Sub Buka*From*Pesan()
frmPesan.Show
End Sub
Wassalam,
Kid.
2014-10-03 1:14 GMT+10:00 Abid Kausar muhabka@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Dear Suhu Excel,
>
> mohon bantuannya,
> saya lagi belajar membuat form, pada saat saya click command button
> (Axtive Control) tidak bisa.
>
> Mohon bantuannya suhu,
> saya sertakan dengan lampiran contohnya
>
>
> Wassalam,
> Kausar
>
>
>
Sat Oct 4, 2014 11:02 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Niky,
Coba formula :
=FLOOR(F4,LOOKUP(F4,{10,50,500}*10^6))*LOOKUP(F4,{10,50,500}*10^6,{5,5,10}/100)
untuk regional setting komputer Indonesia, kira-kira seperti ini :
=FLOOR(F4;LOOKUP(F4;{10\50\500}*10^6))*LOOKUP(F4;{10\50\500}*10^6;{5\5\10}/100)
Wassalam,
Kid.
On Fri, Oct 3, 2014 at 5:47 PM, Niky_Nugraha@manulife.com [belajar-excel] <
belajar-excel@yahoogroups.com> wrote:
>
>
> Dear Master Excel,
>
>
> Mohon bantuannya bagaimana cara membuat tiering hadiah dengan tanpa
> membuat tabel bantu yang panjang untuk menterjemahkan tiering hadiah.
>
>
>
>
>
> Regards,
>
>
> Niky N
>
>
>
> ==========================================================
>
> Please consider the environment before printing this email.
>
> This message is confidential and may also be privileged. If you are not
> the intended recipient, please notify me by return e-mail and delete this
> message from your system. If you are not the intended recipient, any use by
> you of this message is strictly prohibited. We reserve our right to pursue
> any available legal action based on the prevailing laws due to any misuse
> of this e-mail or information contained herein.
>
>
Coba formula :
=FLOOR(F4,LOOKUP(F4,{10,50,500}*10^6))*LOOKUP(F4,{10,50,500}*10^6,{5,5,10}/100)
untuk regional setting komputer Indonesia, kira-kira seperti ini :
=FLOOR(F4;LOOKUP(F4;{10\50\500}*10^6))*LOOKUP(F4;{10\50\500}*10^6;{5\5\10}/100)
Wassalam,
Kid.
On Fri, Oct 3, 2014 at 5:47 PM, Niky_Nugraha@manulife.com [belajar-excel] <
belajar-excel@yahoogroups.com> wrote:
>
>
> Dear Master Excel,
>
>
> Mohon bantuannya bagaimana cara membuat tiering hadiah dengan tanpa
> membuat tabel bantu yang panjang untuk menterjemahkan tiering hadiah.
>
>
>
>
>
> Regards,
>
>
> Niky N
>
>
>
> ============
>
> Please consider the environment before printing this email.
>
> This message is confidential and may also be privileged. If you are not
> the intended recipient, please notify me by return e-mail and delete this
> message from your system. If you are not the intended recipient, any use by
> you of this message is strictly prohibited. We reserve our right to pursue
> any available legal action based on the prevailing laws due to any misuse
> of this e-mail or information contained herein.
>
>
Sat Oct 4, 2014 11:37 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Rangga,
File terlampir dengan formula dan conditional formatting.
Wassalam,
Kid.
2014-10-03 22:05 GMT+10:00 Denmas Rangga denmas_r@yahoo.com [belajar-excel]
<belajar-excel@yahoogroups.com>:
>
>
> Buat para master excel , mohon dibantu dibuatkan rumus Macro untuk insert
> row otomatis di kolom tertentu sejumlah nilai ( nominal ) yang tertera di
> kolom tersebut, maksih atas bantuannya
>
> On Friday, October 3, 2014 6:58 PM, Denmas Rangga wrote:
>
>
>
>
>
>
>
>
>
>
>
>
>
>
File terlampir dengan formula dan conditional formatting.
Wassalam,
Kid.
2014-10-03 22:05 GMT+10:00 Denmas Rangga denmas_r@yahoo.com [belajar-excel]
<belajar-excel@yahoogroups.com>:
>
>
> Buat para master excel , mohon dibantu dibuatkan rumus Macro untuk insert
> row otomatis di kolom tertentu sejumlah nilai ( nominal ) yang tertera di
> kolom tersebut, maksih atas bantuannya
>
> On Friday, October 3, 2014 6:58 PM, Denmas Rangga wrote:
>
>
>
>
>
>
>
>
>
>
>
>
>
>
Sun Oct 5, 2014 12:42 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam wr. wb.
Hai Yudha,
Kebanyakan pengguna Excel yang saya temui yang juga memiliki data kegiatan
transaksi seperti Anda, akan tidak terima ketika data seperti pada sheet
bernama Transaksi dan Sheet1 milik Anda adalah salah satu dari berbagai
bentuk output karena inputan memang dibentuk seperti kedua sheet tersebut.
Pada file terlampir, sheet Data adalah sheet penyimpan data histori. Jika
input dilakukan seperti pada sheet bernama Transaksi, sebaiknya diotomasi
dan disimpan dalam bentuk seperti sheet Data. Kolom pokok dalam sheet Data
adalah kolom A:D. Kolom sisanya adalah kolom informasi yang biasanya
merupakan bagian pembentukan data source output. Kolom-kolom mulai kolom E
pada sheet Data akan bervariasi jumlahnya tergantung cara penyusunan
outputnya.
Ketika menggunakan Excel sebagai penyusun output dan tidak akan menggunakan
fitur Get External Data yang bisa memanfaatkan SQL, maka disusunlah
kolom-kolom informasi output seperti kolom E:H pada sheet Data.
Jika data disimpan pada sebuah aplikasi atau sistem database, maka
kolom-kolom E:H dibentuk dengan query (SQL) dan database tidak bertambah
ukurannya akibat data di kolom E:H.
Dari data source output yang dibentuk (sheet Data), dapat disusun berbagai
output sederhana dengan memanfaatkan fitur Excel Pivot Table (mulai xl2010
bisa juga memanfaatkan Power Pivot maupun salah satu fitur milik Excel
pivot table yang bernama Repeat All Item Label). Beberapa output yang dapat
dibentuk dari data source yang disusun dalam sheet Data adalah seperti yang
ada di sheet Output. Output seperti sheet Transaksi atau Sheet1 juga bisa
disusun kembali dengan mudah.
;)
Wassalamu'alaikum Wr. Wb.
Kid.
2014-10-03 21:47 GMT+10:00 yudha cahayaoptikmandiri@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Assalamualaikum master
>
> saya punya pertanyaan mengenai pivottable..bagaimana caranya pivot yg
> dinamis menjadi terkunci jumlah barisnya
> trus bagaimana caranya agar baris kunci dipivot bisa mengisi tiap
> baris..lebih lengkapnya saya lampirkan filenya
>
> terima kasih
> assalamualaikum
> yudha
>
>
Hai Yudha,
Kebanyakan pengguna Excel yang saya temui yang juga memiliki data kegiatan
transaksi seperti Anda, akan tidak terima ketika data seperti pada sheet
bernama Transaksi dan Sheet1 milik Anda adalah salah satu dari berbagai
bentuk output karena inputan memang dibentuk seperti kedua sheet tersebut.
Pada file terlampir, sheet Data adalah sheet penyimpan data histori. Jika
input dilakukan seperti pada sheet bernama Transaksi, sebaiknya diotomasi
dan disimpan dalam bentuk seperti sheet Data. Kolom pokok dalam sheet Data
adalah kolom A:D. Kolom sisanya adalah kolom informasi yang biasanya
merupakan bagian pembentukan data source output. Kolom-kolom mulai kolom E
pada sheet Data akan bervariasi jumlahnya tergantung cara penyusunan
outputnya.
Ketika menggunakan Excel sebagai penyusun output dan tidak akan menggunakan
fitur Get External Data yang bisa memanfaatkan SQL, maka disusunlah
kolom-kolom informasi output seperti kolom E:H pada sheet Data.
Jika data disimpan pada sebuah aplikasi atau sistem database, maka
kolom-kolom E:H dibentuk dengan query (SQL) dan database tidak bertambah
ukurannya akibat data di kolom E:H.
Dari data source output yang dibentuk (sheet Data), dapat disusun berbagai
output sederhana dengan memanfaatkan fitur Excel Pivot Table (mulai xl2010
bisa juga memanfaatkan Power Pivot maupun salah satu fitur milik Excel
pivot table yang bernama Repeat All Item Label). Beberapa output yang dapat
dibentuk dari data source yang disusun dalam sheet Data adalah seperti yang
ada di sheet Output. Output seperti sheet Transaksi atau Sheet1 juga bisa
disusun kembali dengan mudah.
;)
Wassalamu'alaikum Wr. Wb.
Kid.
2014-10-03 21:47 GMT+10:00 yudha cahayaoptikmandiri@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Assalamualaikum master
>
> saya punya pertanyaan mengenai pivottable..
> dinamis menjadi terkunci jumlah barisnya
> trus bagaimana caranya agar baris kunci dipivot bisa mengisi tiap
> baris..lebih lengkapnya saya lampirkan filenya
>
> terima kasih
> assalamualaikum
> yudha
>
>
============================================================
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
---------------------------------------------------------------------
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:
Posting Komentar