Rabu, 01 Oktober 2014

[belajar-excel] Digest Number 3118

15 Messages

Digest #3118
1a
Re: formula di VBA dan worksheet by "lkm jktind" lkmjkt
1b
Re: formula di VBA dan worksheet by "Hendrik Karnadi" hendrikkarnadi
1c
Re: formula di VBA dan worksheet by "Mr. Kid" nmkid.family@ymail.com
1d
Re: formula di VBA dan worksheet by "lkm jktind" lkmjkt
2a
Re: Program gudang Excel by "Hendrik Karnadi" hendrikkarnadi
3
Re: Cara membuat daftar nama [1 Attachment] by "Hendrik Karnadi" hendrikkarnadi
4a
Re: Belajar aplikasi macro excel Sistem FIFO by "Hendrik Karnadi" hendrikkarnadi
6a
7a
Re: Mencari data sama by "Abid Kausar"
9a
10
Masuk ke kolom yang diinginkan by "Topenk Baday" topenk_baday

Messages

Wed Oct 1, 2014 3:57 am (PDT) . Posted by:

"lkm jktind" lkmjkt

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
>>
>>
>
>

Wed Oct 1, 2014 5:41 am (PDT) . Posted by:

"Hendrik Karnadi" hendrikkarnadi

Pak Lukman,
Sekedar berbagi warisan dari milis sebelumnya..
ScreenUpdating False/True juga diperlukan manakala macronya penuh pergerakan sel....
Contohnya ada didropbox yang saya share mengenai VBA (Tes speed).

Salam,
HK

Sent from Samsung Mobile

<div>-------- Original message --------</div><div>From: "lkm jktind lkmjktind@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> </div><div>Date:01/10/2014 17:57 (GMT+07:00) </div><div>To: "belajar-excel@yahoogroups com" <belajar-excel@yahoogroups.com> </div><div>Subject: Re: [belajar-excel] formula di VBA dan worksheet </div><div>
</div>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

Wed Oct 1, 2014 6:38 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.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
>>>
>>>
>>
>
>

Wed Oct 1, 2014 9:09 am (PDT) . Posted by:

"lkm jktind" lkmjkt

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
>>>>
>>>>
>>>
>>
>
>

Wed Oct 1, 2014 5:45 am (PDT) . Posted by:

"Hendrik Karnadi" hendrikkarnadi

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

<div>-------- Original message --------</div><div>From: "Liem Suliem liemsuliem@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> </div><div>Date:01/10/2014 15:10 (GMT+07:00) </div><div>To: belajar-excel@yahoogroups.com </div><div>Subject: [belajar-excel] Program gudang Excel </div><div>
</div>dh
salam be excel.
dear temen2 milis ada yang pernah pakai aplikasi excel untuk program gudang??
jika ada mohon infonya??

liem

Wed Oct 1, 2014 5:49 am (PDT) . Posted by:

"Hendrik Karnadi" hendrikkarnadi

Pak Paulus,
Sudah coba pakai countifs ?

Salam,
HK

Sent from Samsung Mobile

<div>-------- Original message --------</div><div>From: "Paulus Taripar paulustaripar@rocketmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> </div><div>Date:01/10/2014 15:15 (GMT+07:00) </div><div>To: belajar-excel@yahoogroups.com </div><div>Subject: [belajar-excel] Cara membuat daftar nama [1 Attachment] </div><div>
</div>Siang exceller, saya ingin membuat daftar nama2 yang tercantum dalam excell yg saya buat. Kira2 rumus excell apa yg mesti saya pakai? Terima kasih.

File Terlampir

Wed Oct 1, 2014 6:05 am (PDT) . Posted by:

"Hendrik Karnadi" hendrikkarnadi

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

<div>-------- Original message --------</div><div>From: "AKBAR Latif bams_99999@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> </div><div>Date:01/10/2014 14:16 (GMT+07:00) </div><div>To: belajar-excel@yahoogroups.com </div><div>Subject: [belajar-excel] Belajar aplikasi macro excel Sistem FIFO </div><div>
</div>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

Wed Oct 1, 2014 6:09 am (PDT) . Posted by:

"AKBAR Latif"

Dear master excel,
Saya berharap ada yg mau sharing apabila ada yang sudah pakai program excel gudang dengan acuan expired date untuk dasar in dan out nya dan saldo akhirnya.
Atau memberikan saran dan sharing knowledgenya tentang hal ini.








Terima kasih,

Bams

Dikirim dari Yahoo! Mail pada Android

Wed Oct 1, 2014 6:09 am (PDT) . Posted by:

"widodomuh2"

dh
salam be excel.
dear temen2 milis ada yang pernah pakai aplikasi excel untuk Program Penilaian & Raport SMK Kurikulum 2013?
jika ada mohon infonya?

Wed Oct 1, 2014 7:37 am (PDT) . Posted by:

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

Hai Saharoh,

File terlampir mencoba dengan 2 cara, yaitu dengan formula dan dengan pivot
table.

Wassalam,
Kid.

2014-10-01 12:59 GMT+10:00 Saharoh_Nylex choirose_04@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Dear All
>
> Mohon Bantuannya.
> Setiap bulan saya mengerjakan data seperti contoh terlampir .
> Data dikelompokkan berdasarkan usia dari produk tersebut.
> Apakah ada saran dari pakar excel untuk mempermudah pekerjaan saya,
> berhubung data yg saya kerjakan lumayan besar.
>
> Thanks
> Saharoh
>
>
>

Wed Oct 1, 2014 8:45 am (PDT) . Posted by:

"Abid Kausar"

Dear Mr. Kid

Terima kasih banyak atas bantuannya, rumus berjalan sesuai keinginan...

Wassalam,
Muhabka

Pada 30 September 2014 15.01, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com> menulis:

>
>
> Formula :
> =IF(COUNTIF($D$2:$D$11,E2)>1,"Double","Single")
> untuk cek, setiap satu keterangan cabang dipakai keterangan pusat oleh
> berapa cell.
>
> Jika butuh kondisi, setiap satu keterangan pusat dipakai oleh berapa
> keterangan cabang, maka sesuaikan bagian rujukan range ke kolom D dan E.
>
> Syarat pada formula tersebut, adalah yang penulisannya sama persis
> (termasuk jumlah spasi, letak si spasi, jenis si spasi, dsb).
>
> Wassalam,
> Kid.
>
>
>
>
>
> 2014-09-30 17:51 GMT+10:00 Abid Kausar muhabka@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
>>
>> Dear Mr. Kid,
>>
>> terima kasih atas penceahannya, tetapi setelah saya input di cell, rumus
>> tidak berjalan maksimal Mr.
>> mohon pencerahannya lagi.
>>
>>
>> Wassalam,
>> Muhabka
>>
>> Pada 30 September 2014 13.45, 'Mr. Kid' mr.nmkid@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
>>
>>>
>>>
>>> Hai Muhabka,
>>>
>>> Coba formula :
>>> =IF(COUNTIF($D$2:$D$11,E2)>1,"Double","Single")
>>>
>>> Fungsi CountIF bisa digunakan kan untuk menghitung jumlah cell
>>> berdasarkan *sebuah *kriteria tertentu. Untuk multi kriteria, gunakan
>>> CountIFs.
>>>
>>> Pada kasus ini, kriterianya adalah jumlah cell di pusat yang bunyinya
>>> seperti di cell E2. Jika hasilnya >1 berarti Double. Jika tidak, berarti
>>> Single.
>>>
>>> Wassalam,

>>> Kid.
>>>
>>>
>>>
>>>
>>>
>>> 2014-09-30 12:43 GMT+10:00 Abid Kausar muhabka@gmail.com
>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>
>>>
>>>>
>>>> Dear Suhu Excel,
>>>>
>>>> mohon pencerahannya :)
>>>> Saya punya data (Terlampir), saya ingin mencari data dari 2 kolom yang
>>>> sama (kolom Keterangan). dimana pada kolom keterangan kedua datanya acak,
>>>> sebenarnya data tsb sama dengan dikolom keterangan pertama. kalo saya
>>>> menggunakan rumus if pasti ngga ketemu, karena data di kolom keterangan
>>>> kedua masih acak.
>>>> Bagaimana caranya dari 2 kolom keterangan ini ditemukan data yang sama
>>>> tanpa harus merubah posisi baris nya.
>>>>
>>>> terima kasih suhu Excel atas bantuannya
>>>>
>>>>
>>>> Wassalam,
>>>> Muhabka
>>>>
>>>>
>>>
>>
>
>

Wed Oct 1, 2014 6:06 pm (PDT) . Posted by:

"odong nando"

Coba pakai rumus,

= SUMPRODUCT (--( D6:D10 = "apel" ),--( E6:E10 = "bayam" ))

Apel dan bayam bisa di ganti seauai kebutuhan, atau bisa diganti dgn cell rujukan

br,

odong nando

Wed Oct 1, 2014 9:43 pm (PDT) . Posted by:

"parlin regar"

Mr. Kid,

Terimakasih atas penjelasanya, saya pakai ini saja:
Validasi untk cek double dikolom B.
CF untk >=100 dikolom C.

Pada tanggal 01/10/14, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]
<belajar-excel@yahoogroups.com> menulis:
> Pak Parlin,
>
> hehehe... iya ya, harusnya =B2*100 untung udah disesuaikan sendiri oleh Pak
> Parlin.
>
> Kondisi di B2 (cell input) ada 2 proses validasi, yaitu cek double input
> dikolom B dan pembatasan hasil di kolom C, jika :
> 1. menggunakan fitur Data Validation, maka pesan error hanya bisa satu yang
> diisi dengan pesan error terhadap kedua validasi.
> misal dengan kalimat :
> Error karena double input di kolom B atau hasil di kolom C >= 100
>
> >> biasanya, hal ini kurang disukai karena user tidak bisa tahu dengan
> segera alasan pasti penyebab error selain dengan memeriksa langsung seluruh
> syaratnya. Apalagi, CF bekerja setelah fitur Data Validation.
>
> 2. menggunakan VBA untuk menampilkan MsgBox melalui event change milik
> sheet.
> >> biasanya cara ini banyak disukai, karena katanya 'tampilannya
> membuat Excel seperti sebuah program komputer beneran' (padahal Excel kan
> program komputer beneran). Terkadang, untuk proses meng-input banyak
> record, pesan yang ditampilkan saat ada error akan mengganggu peng-input.
> Andai script VBA dalam event change milik si worksheet akhirnya panjang
> sekali karena proses validasinya banyak atau lama, maka proses input juga
> akan terganggu meski dalam keadaan menginput yang benar sekalipun.
>
> 3. menggunakan sebuah kolom tambahan yang menjadi lokasi peletakan
> informasi kesalahan proses. (kalo saya, suka pake yang ini)
> >> biasanya, cara ini tidak disukai karena terkesan ribet, ndak cantik,
> dan tampak membuat tabel menjadi punya kolom tambahan diluar kolom-kolom
> pokok data.
> >> cara ini memang ndak bagus dari sisi tampilan, apalagi kalo
> ditampilkan tanpa diatur-atur pewarnaan dan segala macamnya.
> >> cara ini menuntut kemampuan menyusun formula validasi untuk
> menuliskan semua error yang terjadi pada record tersebut.
> >> cara ini membutuhkan resource komputer untuk mengkalkulasi formula
> validasi, yang artinya, bisa memperlambat proses kalkulasi.
>
> >> Cara ini bisa menerima proses batch input (input dalam jumlah banyak
> record sekaligus) dan record yang bermasalah bisa difilter dan di-sort,
> sehingga mudah dikeluarkan atau diperbaiki.
>
> Wassalam,
> Kid.
>
>
> 2014-10-01 0:03 GMT+10:00 parlin regar parlin.regar4@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Dear Mr. Kid
>>
>> Terimakasih atas responnya, mungkin maksud Mr kid formula di cell C2
>> =B2*10 bukan =A2*10.
>> Dan ini belum tuntas Mr. Kid, karna sebelumnya di B2 telah saya beri
>> validasi hasil coba2.
>>
>> coba1. =countif(B$1:B2,B2)=1 agar tidak ada data kembar yg diinputkan,
>>
>> coba2. =if(and(countif(B$1:B2,B2)=1,C2<100),true.false)
>>
>> dari validasi yg ke2, jika user menginput data yg kembar atau yg
>> membuat cell C2>=100 alert yg muncul slalu sama, pinginnya yg beda,
>> gimana caranya Mr. kid?
>>
>> Pada tanggal 30/09/14, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]
>> <belajar-excel@yahoogroups.com> menulis:
>> > Hai Parlin,
>> >
>> > Misal data di baris 2 Excel
>> > Cell C2 berisi formula =A2 * 10
>> >
>> > Ingin ada validasi di cell B2 agar user memasukkan nilai yang tidak
>> membuat
>> > C2 (hasil formula) melebihi atau sama dengan 100. Artinya, C2 selalu
>> berisi
>> > kurang dari 100.
>> >
>> > Langkah :
>> > 1. klik B2 -> ribbon Data -> group Data Tools -> Data Validation
>> > 2. pada dialog window yang muncul -> allow Custom -> hilangkan centang
>> dari
>> > opsi ignore blank -> formula diisi =C2<100 -> tekan OK
>> > 3. uji isi B2 dengan nilai : -1000, 0, 1, 10, 100
>> >
>> > Wassalam,
>> > Kid.
>> >
>> >
>> >
>> >
>> >
>> >
>> >
>> >
>> >
>> > 2014-09-30 14:47 GMT+10:00 parlin regar parlin.regar4@gmail.com
>> > [belajar-excel] <belajar-excel@yahoogroups.com>:
>> >
>> >>
>> >>
>> >> Dear be-ex
>> >>
>> >> Mohon bantuannya. Bagaimana cara melakukan validasi kolom hasil
>> >> kalkulasi formula.
>> >> Contoh: input di kolom B, kolom C berisi formula yg merujuk dari kolom
>> B.
>> >> Diinginkan validasi untuk kolom C, atau jika bisa validasi bertingkat
>> >> untuk kolom B.
>> >>
>> >> Terimakasih
>> >> regards
>> >> Parlin
>> >>
>> >>
>> >
>>
>> --
>> regards
>> Parlin
>>
>>
>

--
regards
Parlin

Wed Oct 1, 2014 10:41 pm (PDT) . Posted by:

"Topenk Baday" topenk_baday

Mohon batuannya kepada para master excelKemarin 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

Wed Oct 1, 2014 10:49 pm (PDT) . Posted by:

"Bagus" bagus4bls

Mas Topenk;

Ini yang mau dimasukkan apanya ya..??

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

============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com

berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Tidak ada komentar:

Poskan Komentar