Senin, 06 Oktober 2014

[belajar-excel] Digest Number 3123

12 Messages

Digest #3123
1a
Re: formula di VBA dan worksheet by "lkm jktind" lkmjkt
2
BelajarVBA : Listbox multi select by "Mr. Kid" nmkid.family@ymail.com
3a
5a
5b
Re: Bls: [belajar-excel] Program gudang Excel by "Hendrik Karnadi" hendrikkarnadi
7a
pivot table by "yudha" cahayaoptikmandiri
11
Ganda 7 Baris by "Roy@ld" talengong@ymail.com

Messages

Sun Oct 5, 2014 8:19 am (PDT) . Posted by:

"lkm jktind" lkmjkt

Pak Kid.

mengenai loop nya : memang ada 3 .

1. untuk = 6 colomn
2. untuk = 23 baris
3. untuk 3485 baris

kalau kriteriaanya memang jadi banyak .
disebabkan kalau dijadikan satu --- hitunganannya jadi kacau .
hanya untuk yg ini saja . --- mungkin di sebabkan ada randbetween . hasil
nya untuk ---> di pakai vloopup ---->
hasil dari Vlookup -- nya benar ----------- tapi bila hasil itu digunakan
untuk menghitung : tgl kedatangannya. --->
ini yg kacau balau.

sudah saya utak atik --- disatukan ----------- dipisahkan --dibawahnya
---> juga gagal dan anehnya setelah di letakan dibagian paling akhir ---
baru bisa benar ----> nga bisa menjelaskan . mengapa bisa begitu ?

mungkin memang sulit . kalau randbetween --- dimasukan kedalam VBA . cuma
saya membayangkan .
randbetween ini seakan akan seperti dadu yg sedang berguling guling ----
lalu di paksa hasil nya ---> dengan cara menutup dadu itu dengan tangan .

na kalau saya masukan dulu randbetween -- terlebih dulu jauh lebih mudah
--- tapi sudah menjadi data /angka
hanya saya belum mencoba seandainya di beri randbetween (VBA) bila
sekelilingnya kosong atau bila
sekeliling nya sudah terisi angka --------> ada kemungkinan --- hasilnya
akan lebih besar bila sekeliling nya sudah terisi angka ( ini cuma
bayangan saya saja ---> yg belum saya buktikan / dan sulit untuk dibuktikan
dadu --- angkanya yg nga menetu

salam

Lukman

2014-10-05 12:34 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.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
>>>>>>
>>>>>>
>>>>>
>>>>
>>>
>>
>
>

Sun Oct 5, 2014 11:30 am (PDT) . Posted by:

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

Assalamu'alaikum Wr. Wb.

Dear BeExceller,

Sudah lama ndak nyoret-nyoret lanjutan tentang belajar VBA.

Kali ini bahasannya tentang ListBox
<http://b-excel.blogspot.com/2014/10/belajarvba-103-listbox.html>. Control
yang menampilkan daftar dan bisa dipilih oleh user.

Terakhir kali, saat pembahasan combobox, telah dijelaskan banyak properti
ComboBox yang sering digunakan. Properti tersebut juga digunakan dalam
ListBox <http://b-excel.blogspot.com/2014/10/belajarvba-103-listbox.html>.
Jadi, pembahasan kali ini tidak terfokus pada properti yang sering
digunakan.

Pembahasan kali ini adalah tentang properti ListBox
<http://b-excel.blogspot.com/2014/10/belajarvba-103-listbox.html> (khusus
milik ListBox
<http://b-excel.blogspot.com/2014/10/belajarvba-103-listbox.html>) yang
membuat user bisa memilih banyak item dalam listbox
<http://b-excel.blogspot.com/2014/10/belajarvba-103-listbox.html>.

Untuk lebih puyengnya, sila mampir kesini
<http://b-excel.blogspot.com/2014/10/belajarvba-103-listbox.html> (ada file
yang bisa diunduh juga loh).

;)

Wassalamu'alaikum Wr. Wb.
Kid.

Sun Oct 5, 2014 7:56 pm (PDT) . Posted by:

"lkm jktind" lkmjkt

Pak Topenk

tolong kasih contoh hasilnya

On Sat, Oct 4, 2014 at 7:44 AM, Topenk Baday topenk_baday@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> sudah saya coba..
> maksudnya bukan jumlahnya tetapi per baris
> terima kasih sebelumnya
>
>
> On Friday, October 3, 2014 9:40 AM, "Nang Agus nangagus@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Dear Bapak Topenk
>
> apakah yang dimaksud menjumlah anggaran yang digunakan sesuai peruntukan
> pada BOS?
> coba gunakan rumus:
> =SUMPRODUCT(($D$3:$D$22=K1)*($C$3:$C$22))
>
> Wasalam
> NangAgus
>
> 2014-10-02 11:56 GMT+07:00 Topenk Baday topenk_baday@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Mohon batuannya kepada para master excel
> Kemarin saya sudah meminta bantuan untuk rumus excel
> yang masuk ke shhet yang diinginkan
>
> sekarang saya meminta bantuan untuk bisa masuk ke kolom yang diinginkan
>
> contoh saya lampirkan
>
> terima kasih sebelumnya
>
>
>
>
>
>

Sun Oct 5, 2014 8:08 pm (PDT) . Posted by:

"De Premor" de.premor

Dh,

Berikut saya coba buat beberapa baris kode untuk menghasilkan data
seperti yang diinginkan pada file yang dilampirkan + berdasarkan data
yang ada saja, kemungkinan besar masih perlu diacak-acak lagi karena
sample data cukup sedikit dan tidak terlalu njelimet :D

Validasi pencarian pencocokan data hanya berdasarkan pada jumlah Lot dan
Open Price saja karena tidak ada sesuatu yang unique di datanya, misal
order id atau semacamnya.

Rgds,
[dp]

On 04/10/2014 16:08, Muh Nuh Haikal juz13_9999@yahoo.co.id
[belajar-excel] wrote:
> 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
> <mailto:juz13_9999@yahoo.co.id> [belajar-excel]
> <belajar-excel@yahoogroups.com <mailto: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
>
>
>
>
>

Sun Oct 5, 2014 8:27 pm (PDT) . Posted by:

"Liem Suliem" liemsuliem

pak hk.
makasih pak infonya,
kira2 judul bukunya apa pak?

salam

liem

Pada Rabu, 1 Oktober 2014 19:47, "Hendrik Karnadi hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


Hai Liem,
Coba survey ke Gramed. Saya pernah beli buku sejenis yang ada cd bonusnya.
Sayangnya buku dan cdnya sdh dibawa mantan anak buah yang sdh raib entah kemana.

Salam,
HK

Sent from Samsung Mobile

-------- Original message --------
From: "Liem Suliem liemsuliem@yahoo.co.id [belajar-excel]"
Date:01/10/2014 15:10 (GMT+07:00)
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Program gudang Excel

dh
salam be excel.
dear temen2 milis ada yang pernah pakai aplikasi excel untuk program gudang??

jika ada mohon infonya??

liem

Sun Oct 5, 2014 10:58 pm (PDT) . Posted by:

"Hendrik Karnadi" hendrikkarnadi

Judulnya saya lupa...tapi seingat saya pengarangnya Yudhi Wicaksono.

Salam,
HK

Sent from Samsung Mobile

<div>-------- Original message --------</div><div>From: "Liem Suliem liemsuliem@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> </div><div>Date:06/10/2014 08:08 (GMT+07:00) </div><div>To: belajar-excel@yahoogroups.com </div><div>Subject: Bls: [belajar-excel] Program gudang Excel </div><div>
</div>pak hk.
makasih pak infonya,
kira2 judul bukunya apa pak?

salam

liem

Pada Rabu, 1 Oktober 2014 19:47, "Hendrik Karnadi hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:

Hai Liem,
Coba survey ke Gramed. Saya pernah beli buku sejenis yang ada cd bonusnya.
Sayangnya buku dan cdnya sdh dibawa mantan anak buah yang sdh raib entah kemana.

Salam,
HK

Sent from Samsung Mobile

-------- Original message --------
From: "Liem Suliem liemsuliem@yahoo.co.id [belajar-excel]"
Date:01/10/2014 15:10 (GMT+07:00)
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Program gudang Excel

dh
salam be excel.
dear temen2 milis ada yang pernah pakai aplikasi excel untuk program gudang??
jika ada mohon infonya??

liem

Sun Oct 5, 2014 9:15 pm (PDT) . Posted by:

kholilurr_27

maaf gan ganggu aq minta tolong nih......
bagaimana rumusnya penjumlahan dan pengurangan dalam dua sel dan itu secara otomatis? klo penjumlahan secara otomatis kan pakai =SUM(A1:A7) Klo perkalian otomatis kan pakai =PRODUCT(A1:A7)
trus klo penjumlahan dan pengurangan dalam dua sel Sehingga menjadi Total itu Rumus otomatisnya bagaimana?


Sun Oct 5, 2014 9:31 pm (PDT) . Posted by:

"yudha" cahayaoptikmandiri

selamat siang Om Kid

oh..jadi pada prinsipnya memang perlu kolom bantu ya..dan tdk bisa langsung
oh ya kalo melihat contoh lampirannya..kayaknya data antara entry penjualan dgn penagihan dijadikan 1 sheet bahkan 1 kolom..apakah memang kaidah database yg benar seperti itu ? maaf kalo banyak nanya..soalnya kita memang ingin administrasi yg simple tapi bisa mancakup semuanya..

terima kasih
Yudha

Sun Oct 5, 2014 9:54 pm (PDT) . Posted by:

"Bagus" bagus4bls

Hai Topenk;

Coba begini, Array formula ya...

=IFERROR(INDEX($C$3:$C$22,SMALL(IF($D$3:$D$22=K$1,ROW($C$3:$C$22)-ROW($C$2)),ROW(1:1))),"")
Copas kekanan dan kebawah

Wassalam

~ Bagus ~

----- Original Message -----
From: Topenk Baday topenk_baday@yahoo.com [belajar-excel]
To: belajar-excel@yahoogroups.com
Sent: Thursday, October 02, 2014 11:56 AM
Subject: [belajar-excel] Masuk ke kolom yang diinginkan [1 Attachment]

Mohon batuannya kepada para master excel
Kemarin saya sudah meminta bantuan untuk rumus excel
yang masuk ke shhet yang diinginkan

sekarang saya meminta bantuan untuk bisa masuk ke kolom yang diinginkan

contoh saya lampirkan

terima kasih sebelumnya

Mon Oct 6, 2014 1:23 am (PDT) . Posted by:

"fatimah nazmy"

terima kasih mr karena telah mengingatkan, sy baru sadar kok pake singkatan. solusi dari mr sudah sesuai dengan pertanyaan, tp saya minta maaf kalau sebelumnya pertanyaan kemarin belum lengkap, bahwasanya rentang angka nantinya akan ditentukan sesuai keinginan. contohnya seperti randbetween(1;5), artinya angka yang tersebar dapat ditetapkan angka terendah dan tertingginya. sudah diutak atik belum nemu juga.

file terlampir

Mon Oct 6, 2014 1:33 am (PDT) . Posted by:

"fatimah nazmy"

Assalamu 'alaikum Wr.Wb.


nyontek rumus mr kid di file combine.txt (karena keterbatasan jadi belum bisa memahami alur rumusnya) jadi coba utak atik buat rumus sendiri ternyata blum jg berhasil malah eror. mohon bantuan rekan2 milis atas masalah ini. file terlampir




On Sunday, October 5, 2014 11:57 PM, fatimah nazmy wrote:















Mon Oct 6, 2014 3:32 am (PDT) . Posted by:

"Roy@ld" talengong@ymail.com

selamat sore para suhu-2 Excel

mohon bantuannya ...
sekiranya berkenan membantu saya untuk menyelesaikan
permasalaha sebagaimana terlampir datanya

besar harapan saya para pakar excel dapat membantu

terima kasih.
============================================================
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