13 New Messages
Digest #1758
Messages
Wed Sep 5, 2012 12:00 pm (PDT) . Posted by:
"Abang Tukang tanya" abangtukangtanya
Dear Para Master, dan teman2 lainnya,
Ada yang punya form gaji pegawai ga ya, dan mencetaknya secara otomatis.
Kalo ada yang punya boleh minta ga ya?
Regards
Abang Tukang Tanya
Ada yang punya form gaji pegawai ga ya, dan mencetaknya secara otomatis.
Kalo ada yang punya boleh minta ga ya?
Regards
Abang Tukang Tanya
Wed Sep 5, 2012 6:21 pm (PDT) . Posted by:
"M.Ade Alfarid" aderyo
Coba dulu bikin sendiri Mas,
minimal draftnya deh.
Coba dikirim ke milis untuk bantuan formulanya,
Member BeXceller lain nggak ngerti form seperti apa yang diinginkan.
Ade
On Thu, 06 Sep 2012 02:00:16 +0700, Abang Tukang tanya
<abangtukangtanya@yahoo.co.id > wrote:
> Dear Para Master, dan teman2 lainnya,
>
> Ada yang punya form gaji pegawai ga ya, dan mencetaknya secara otomatis.
> Kalo ada yang punya boleh minta ga ya?
>
>
> Regards
>
>
>
> Abang Tukang Tanya
minimal draftnya deh.
Coba dikirim ke milis untuk bantuan formulanya,
Member BeXceller lain nggak ngerti form seperti apa yang diinginkan.
Ade
On Thu, 06 Sep 2012 02:00:16 +0700, Abang Tukang tanya
<abangtukangtanya@
> Dear Para Master, dan teman2 lainnya,
>
> Ada yang punya form gaji pegawai ga ya, dan mencetaknya secara otomatis.
> Kalo ada yang punya boleh minta ga ya?
>
>
> Regards
>
>
>
> Abang Tukang Tanya
Wed Sep 5, 2012 2:47 pm (PDT) . Posted by:
"sin.ur4t" sin.ur4t
Pak Mr Kid,
Makasih Link-nya sdh saya baca meski terbata-bata, susah bhs inggris:D
Dari situ Kemudian Kode Sorting-Nya dimodifikasi seperti ini:
'1. Awalnya di Module1 seperti ini:
'sort hasil (berdasar kolom nama ~ kolom F)
'rng.CurrentRegion.Sort Sheet4.Range("f3"), xlAscending, Header:=xlYes
'2. Lalu Diubah di Module2 menjadi seperti ini:
'sort hasil (berdasar kolom nama yaitu F dan kolom bayar yaitu G)
With Sheet4
Set rng1 = rng.Offset(1, 1).Resize(rng.Rows.Count - 1, 1)
Set rng2 = rng.Offset(1, 2).Resize(rng.Rows.Count - 1, 1)
Sheet4.Sort.SortFields.Add Key:=rng1, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
Sheet4.Sort.SortFields.Add Key:=rng2, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With Sheet4.Sort
.SetRange rng
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
'Sudah ditest dan sukses. Sayangnya blm bisa saya pastikan apakah kodenya mmg sudah benar/efisien atau faktor kebetulan saja.
'Jika berkenan agar diberi tanggapan. Sekali lagi makasih.
wassalam
Sinurat
--- In belajar-excel@yahoogroups.com , "Kid Mr." <mr.nmkid@...> wrote:
>
> Sort 2 kolom kunci dengan VBA memanfaatkan methods Sort berikut :
> http://msdn.microsoft.com/en-us/library/office/aa213557%28v=office.11%29.aspx
>
> Wassalam,
> Kid.
>
> 2012/9/5 Imam Sinurat <sin.ur4t@...>
>
> > **
> >
> >
> > salam be excel..
> >
> > ini merupakan lanjutan pertanyaan pak Ferdy (krn kasusnya mirip) yang
> > direspon oleh pak Ghozi dan pak Mr Kid pd tgl 23 Agustus 2012 berjudul
> > "Filter dengan Kriteria dan Secara Urut", posting nomor 18636, 18637 dan
> > 18643. tadinya ingin me-reply tapi bingung gmn cara nge-attach file..
> > jadinya dibuat dlm thread baru :D.. Mohon izin datanya saya modifikasi.
> >
> > Solusi makro dari pak mr kid/ghozi di Module1 saya copast ke Module2.
> > Pada bagian makro advanced filter, unique saya ubah menjadi False, sehingga
> > hasilnya semua data yg memenuhi kriteria muncul di sheet 'VBATakUnik',
> > tersort secara ascending.
> >
> > Dari hasil sort tsb, saya ingin untuk setiap Nama Yang Sama dilakukan sort
> > sekali lagi pada kolom bayar secara descending. Detail terlampir.
> >
> > Mohon bantuan solusi, terima kasih sebelumnya.
> >
> > wassalam,
> > Sinurat - Sumut
> >
> >
> >
> >
> >
> >
>
Makasih Link-nya sdh saya baca meski terbata-bata, susah bhs inggris:D
Dari situ Kemudian Kode Sorting-Nya dimodifikasi seperti ini:
'1. Awalnya di Module1 seperti ini:
'sort hasil (berdasar kolom nama ~ kolom F)
'rng.CurrentRegion.
'2. Lalu Diubah di Module2 menjadi seperti ini:
'sort hasil (berdasar kolom nama yaitu F dan kolom bayar yaitu G)
With Sheet4
Set rng1 = rng.Offset(1, 1).Resize(rng.
Set rng2 = rng.Offset(1, 2).Resize(rng.
Sheet4.Sort.
xlSortNormal
Sheet4.Sort.
xlSortNormal
With Sheet4.Sort
.SetRange rng
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
'Sudah ditest dan sukses. Sayangnya blm bisa saya pastikan apakah kodenya mmg sudah benar/efisien atau faktor kebetulan saja.
'Jika berkenan agar diberi tanggapan. Sekali lagi makasih.
wassalam
Sinurat
--- In belajar-excel@
>
> Sort 2 kolom kunci dengan VBA memanfaatkan methods Sort berikut :
> http://msdn.
>
> Wassalam,
> Kid.
>
> 2012/9/5 Imam Sinurat <sin.ur4t@..
>
> > **
> >
> >
> > salam be excel..
> >
> > ini merupakan lanjutan pertanyaan pak Ferdy (krn kasusnya mirip) yang
> > direspon oleh pak Ghozi dan pak Mr Kid pd tgl 23 Agustus 2012 berjudul
> > "Filter dengan Kriteria dan Secara Urut", posting nomor 18636, 18637 dan
> > 18643. tadinya ingin me-reply tapi bingung gmn cara nge-attach file..
> > jadinya dibuat dlm thread baru :D.. Mohon izin datanya saya modifikasi.
> >
> > Solusi makro dari pak mr kid/ghozi di Module1 saya copast ke Module2.
> > Pada bagian makro advanced filter, unique saya ubah menjadi False, sehingga
> > hasilnya semua data yg memenuhi kriteria muncul di sheet 'VBATakUnik'
> > tersort secara ascending.
> >
> > Dari hasil sort tsb, saya ingin untuk setiap Nama Yang Sama dilakukan sort
> > sekali lagi pada kolom bayar secara descending. Detail terlampir.
> >
> > Mohon bantuan solusi, terima kasih sebelumnya.
> >
> > wassalam,
> > Sinurat - Sumut
> >
> >
> >
> >
> >
> >
>
Wed Sep 5, 2012 3:07 pm (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Dari link tersebut, diketahui sebuah syntax sort sedehana :
*expression*.*Sort*(*Key1*, *Order1*, *Key2*, *Type*, *Order2*, *Key3*, *
Order3*, *Header*, *OrderCustom*, *MatchCase*, *Orientation*, *SortMethod*,
*DataOption1*, *DataOption2*, *DataOption3*)
'1. Awalnya di Module1 seperti ini:
'sort hasil (berdasar kolom nama ~ kolom F)
'*rng.CurrentRegion.Sort Sheet4.Range("f3")*, *xlAscending*, *Header:=xlYes*
'2. Lalu Diubah di Module2 menjadi seperti ini:
'sort hasil (berdasar kolom nama yaitu F dan kolom bayar yaitu G)
artinya dibutuhkan *Key2 *dan *Order2*.
*rng.CurrentRegion.Sort Sheet4.Range("f3")*, *xlAscending*, *
sheet4.range("g3")*, *Order2:=xlDescending*, *Header:=xlYes*
yang lebih lengkapnya :
*rng.CurrentRegion.Sort key1:=Sheet4.Range("f3")*, *order1:=**xlAscending*,
*key2:=sheet4.range("g3")*, *Order2:=xlDescending*, *Header:=xlYes*
Nama input parameter (seperti key1,order1,key2) dibutuhkan secara berurutan
sejak awal (parameter pertama), oleh sebab itu boleh tidak dituliskan
seperti yang atas. Mulai kebutuhan akan parameter Order2, ada parameter
yang tidak dibutuhkan, yaitu parameter Type. Oleh sebab itu harus
dituliskan nama parameternya, yaitu Order2:=
Parameter setelahnya harus menuliskan nama parameternya, karena sudah ada
parameter yang dituliskan namanya.
Wassalam,
Kid.
2012/9/6 sin.ur4t <sin.ur4t@yahoo.com >
> **
>
>
> Pak Mr Kid,
> Makasih Link-nya sdh saya baca meski terbata-bata, susah bhs inggris:D
> Dari situ Kemudian Kode Sorting-Nya dimodifikasi seperti ini:
>
> '1. Awalnya di Module1 seperti ini:
> 'sort hasil (berdasar kolom nama ~ kolom F)
> 'rng.CurrentRegion.Sort Sheet4.Range("f3"), xlAscending, Header:=xlYes
>
> '2. Lalu Diubah di Module2 menjadi seperti ini:
> 'sort hasil (berdasar kolom nama yaitu F dan kolom bayar yaitu G)
>
> With Sheet4
> Set rng1 = rng.Offset(1, 1).Resize(rng.Rows.Count - 1, 1)
> Set rng2 = rng.Offset(1, 2).Resize(rng.Rows.Count - 1, 1)
>
> Sheet4.Sort.SortFields.Add Key:=rng1, SortOn:=xlSortOnValues,
> Order:=xlAscending, DataOption:= _
> xlSortNormal
> Sheet4.Sort.SortFields.Add Key:=rng2, SortOn:=xlSortOnValues,
> Order:=xlDescending, DataOption:= _
> xlSortNormal
>
> With Sheet4.Sort
> .SetRange rng
> .Header = xlYes
> .MatchCase = False
> .Orientation = xlTopToBottom
> .SortMethod = xlPinYin
> .Apply
> End With
> End With
>
> 'Sudah ditest dan sukses. Sayangnya blm bisa saya pastikan apakah kodenya
> mmg sudah benar/efisien atau faktor kebetulan saja.
> 'Jika berkenan agar diberi tanggapan. Sekali lagi makasih.
>
> wassalam
> Sinurat
>
> --- In belajar-excel@yahoogroups.com , "Kid Mr." <mr.nmkid@...> wrote:
> >
> > Sort 2 kolom kunci dengan VBA memanfaatkan methods Sort berikut :
> >
> http://msdn.microsoft.com/en-us/library/office/aa213557%28v=office.11%29.aspx
> >
> > Wassalam,
> > Kid.
> >
> > 2012/9/5 Imam Sinurat <sin.ur4t@...>
> >
> > > **
>
> > >
> > >
> > > salam be excel..
> > >
> > > ini merupakan lanjutan pertanyaan pak Ferdy (krn kasusnya mirip) yang
> > > direspon oleh pak Ghozi dan pak Mr Kid pd tgl 23 Agustus 2012 berjudul
> > > "Filter dengan Kriteria dan Secara Urut", posting nomor 18636, 18637
> dan
> > > 18643. tadinya ingin me-reply tapi bingung gmn cara nge-attach file..
> > > jadinya dibuat dlm thread baru :D.. Mohon izin datanya saya modifikasi.
> > >
> > > Solusi makro dari pak mr kid/ghozi di Module1 saya copast ke Module2.
> > > Pada bagian makro advanced filter, unique saya ubah menjadi False,
> sehingga
> > > hasilnya semua data yg memenuhi kriteria muncul di sheet 'VBATakUnik',
> > > tersort secara ascending.
> > >
> > > Dari hasil sort tsb, saya ingin untuk setiap Nama Yang Sama dilakukan
> sort
> > > sekali lagi pada kolom bayar secara descending. Detail terlampir.
> > >
> > > Mohon bantuan solusi, terima kasih sebelumnya.
> > >
> > > wassalam,
> > > Sinurat - Sumut
> > >
> > >
> > >
> > >
> > >
> > >
> >
>
>
>
*expression*
Order3*, *Header*, *OrderCustom*
*DataOption1*
'1. Awalnya di Module1 seperti ini:
'sort hasil (berdasar kolom nama ~ kolom F)
'*rng.CurrentRegion
'2. Lalu Diubah di Module2 menjadi seperti ini:
'sort hasil (berdasar kolom nama yaitu F dan kolom bayar yaitu G)
artinya dibutuhkan *Key2 *dan *Order2*.
*rng.CurrentRegion.
sheet4.range(
yang lebih lengkapnya :
*rng.CurrentRegion.
*key2:=sheet4.
Nama input parameter (seperti key1,order1,
sejak awal (parameter pertama), oleh sebab itu boleh tidak dituliskan
seperti yang atas. Mulai kebutuhan akan parameter Order2, ada parameter
yang tidak dibutuhkan, yaitu parameter Type. Oleh sebab itu harus
dituliskan nama parameternya, yaitu Order2:=
Parameter setelahnya harus menuliskan nama parameternya, karena sudah ada
parameter yang dituliskan namanya.
Wassalam,
Kid.
2012/9/6 sin.ur4t <sin.ur4t@yahoo.
> **
>
>
> Pak Mr Kid,
> Makasih Link-nya sdh saya baca meski terbata-bata, susah bhs inggris:D
> Dari situ Kemudian Kode Sorting-Nya dimodifikasi seperti ini:
>
> '1. Awalnya di Module1 seperti ini:
> 'sort hasil (berdasar kolom nama ~ kolom F)
> 'rng.CurrentRegion.
>
> '2. Lalu Diubah di Module2 menjadi seperti ini:
> 'sort hasil (berdasar kolom nama yaitu F dan kolom bayar yaitu G)
>
> With Sheet4
> Set rng1 = rng.Offset(1, 1).Resize(rng.
> Set rng2 = rng.Offset(1, 2).Resize(rng.
>
> Sheet4.Sort.
> Order:=xlAscending, DataOption:= _
> xlSortNormal
> Sheet4.Sort.
> Order:=xlDescending
> xlSortNormal
>
> With Sheet4.Sort
> .SetRange rng
> .Header = xlYes
> .MatchCase = False
> .Orientation = xlTopToBottom
> .SortMethod = xlPinYin
> .Apply
> End With
> End With
>
> 'Sudah ditest dan sukses. Sayangnya blm bisa saya pastikan apakah kodenya
> mmg sudah benar/efisien atau faktor kebetulan saja.
> 'Jika berkenan agar diberi tanggapan. Sekali lagi makasih.
>
> wassalam
> Sinurat
>
> --- In belajar-excel@
> >
> > Sort 2 kolom kunci dengan VBA memanfaatkan methods Sort berikut :
> >
> http://msdn.
> >
> > Wassalam,
> > Kid.
> >
> > 2012/9/5 Imam Sinurat <sin.ur4t@..
> >
> > > **
>
> > >
> > >
> > > salam be excel..
> > >
> > > ini merupakan lanjutan pertanyaan pak Ferdy (krn kasusnya mirip) yang
> > > direspon oleh pak Ghozi dan pak Mr Kid pd tgl 23 Agustus 2012 berjudul
> > > "Filter dengan Kriteria dan Secara Urut", posting nomor 18636, 18637
> dan
> > > 18643. tadinya ingin me-reply tapi bingung gmn cara nge-attach file..
> > > jadinya dibuat dlm thread baru :D.. Mohon izin datanya saya modifikasi.
> > >
> > > Solusi makro dari pak mr kid/ghozi di Module1 saya copast ke Module2.
> > > Pada bagian makro advanced filter, unique saya ubah menjadi False,
> sehingga
> > > hasilnya semua data yg memenuhi kriteria muncul di sheet 'VBATakUnik'
> > > tersort secara ascending.
> > >
> > > Dari hasil sort tsb, saya ingin untuk setiap Nama Yang Sama dilakukan
> sort
> > > sekali lagi pada kolom bayar secara descending. Detail terlampir.
> > >
> > > Mohon bantuan solusi, terima kasih sebelumnya.
> > >
> > > wassalam,
> > > Sinurat - Sumut
> > >
> > >
> > >
> > >
> > >
> > >
> >
>
>
>
Thu Sep 6, 2012 1:01 am (PDT) . Posted by:
"Imam Sinurat" sin.ur4t
"Mulai kebutuhan akan parameter Order2, ada parameter yang tidak
dibutuhkan, yaitu parameter Type. Oleh sebab itu harus dituliskan nama
parameternya, yaitu Order2:=
Parameter setelahnya harus menuliskan nama parameternya, karena sudah ada parameter yang dituliskan namanya."
ini dia penyebabnya makanya gagal melulu kode yg saya tulis, ternyata input parameternya belum jelas.. makasih sdh diarahkan..
Satu lagi mohon dijelaskan, Kenapa nama macro-nya gak keliatan di Macro Dialog Box??
Public Sub AdvFilter(Optional bValue As Boolean = False)
Kode
End Sub
saya buka developer--> macros --> kosong..
Trm ksh, wassalam
Sinurat
________________________________
Dari: Kid Mr. <mr.nmkid@gmail.com >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Rabu, 5 September 2012 15:06
Judul: Re: [belajar-excel] Re: Makro Filter Sort Data Tak Unik
Dari link tersebut, diketahui sebuah syntax sort sedehana :
expression.Sort(Key1, Order1, Key2, Type, Order2, Key3, Order3, Header, OrderCustom, MatchCase, Orientation, SortMethod, DataOption1, DataOption2, DataOption3)
'1. Awalnya di Module1 seperti ini:
'sort hasil (berdasar kolom nama ~ kolom F)
'rng.CurrentRegion.Sort Sheet4.Range("f3"), xlAscending, Header:=xlYes
'2. Lalu Diubah di Module2 menjadi seperti ini:
'sort hasil (berdasar kolom nama yaitu F dan kolom bayar yaitu G)
artinya dibutuhkan Key2 dan Order2.
rng.CurrentRegion.Sort Sheet4.Range("f3"), xlAscending, sheet4.range("g3"), Order2:=xlDescending, Header:=xlYes
yang lebih lengkapnya :
rng.CurrentRegion.Sort key1:=Sheet4.Range("f3"), order1:=xlAscending, key2:=sheet4.range("g3"), Order2:=xlDescending, Header:=xlYes
Nama input parameter (seperti key1,order1,key2) dibutuhkan secara berurutan sejak awal (parameter pertama), oleh sebab itu boleh tidak dituliskan seperti yang atas. Mulai kebutuhan akan parameter Order2, ada parameter yang tidak dibutuhkan, yaitu parameter Type. Oleh sebab itu harus dituliskan nama parameternya, yaitu Order2:=
Parameter setelahnya harus menuliskan nama parameternya, karena sudah ada parameter yang dituliskan namanya.
Wassalam,
Kid.
2012/9/6 sin.ur4t <sin.ur4t@yahoo.com >
>
>Pak Mr Kid,
>Makasih Link-nya sdh saya baca meski terbata-bata, susah bhs inggris:D
>Dari situ Kemudian Kode Sorting-Nya dimodifikasi seperti ini:
>
>'1. Awalnya di Module1 seperti ini:
>'sort hasil (berdasar kolom nama ~ kolom F)
>'rng.CurrentRegion.Sort Sheet4.Range("f3"), xlAscending, Header:=xlYes
>
>'2. Lalu Diubah di Module2 menjadi seperti ini:
>'sort hasil (berdasar kolom nama yaitu F dan kolom bayar yaitu G)
>
>With Sheet4
>Set rng1 = rng.Offset(1, 1).Resize(rng.Rows.Count - 1, 1)
>Set rng2 = rng.Offset(1, 2).Resize(rng.Rows.Count - 1, 1)
>
>Sheet4.Sort.SortFields.Add Key:=rng1, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
>xlSortNormal
>Sheet4.Sort.SortFields.Add Key:=rng2, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
>xlSortNormal
>
>With Sheet4.Sort
>.SetRange rng
>.Header = xlYes
>.MatchCase = False
>.Orientation = xlTopToBottom
>.SortMethod = xlPinYin
>.Apply
>End With
>End With
>
>'Sudah ditest dan sukses. Sayangnya blm bisa saya pastikan apakah kodenya mmg sudah benar/efisien atau faktor kebetulan saja.
>'Jika berkenan agar diberi tanggapan. Sekali lagi makasih.
>
>wassalam
>Sinurat
>
>
>--- In belajar-excel@yahoogroups.com , "Kid Mr." <mr.nmkid@...> wrote:
>>
>> Sort 2 kolom kunci dengan VBA memanfaatkan methods Sort berikut :
>> http://msdn.microsoft.com/en-us/library/office/aa213557%28v=office.11%29.aspx
>>
>> Wassalam,
>> Kid.
>>
>
> 2012/9/5 Imam Sinurat <sin.ur4t@...>
>>
>> > **
>
>> >
>> >
>> > salam be excel..
>> >
>> > ini merupakan lanjutan pertanyaan pak Ferdy (krn kasusnya mirip) yang
>> > direspon oleh pak Ghozi dan pak Mr Kid pd tgl 23 Agustus 2012 berjudul
>> > "Filter dengan Kriteria dan Secara Urut", posting nomor 18636, 18637 dan
>> > 18643. tadinya ingin me-reply tapi bingung gmn cara nge-attach file..
>> > jadinya dibuat dlm thread baru :D.. Mohon izin datanya saya modifikasi.
>> >
>> > Solusi makro dari pak mr kid/ghozi di Module1 saya copast ke Module2.
>> > Pada bagian makro advanced filter, unique saya ubah menjadi False, sehingga
>> > hasilnya semua data yg memenuhi kriteria muncul di sheet 'VBATakUnik',
>> > tersort secara ascending.
>> >
>> > Dari hasil sort tsb, saya ingin untuk setiap Nama Yang Sama dilakukan sort
>> > sekali lagi pada kolom bayar secara descending. Detail terlampir.
>> >
>> > Mohon bantuan solusi, terima kasih sebelumnya.
>> >
>> > wassalam,
>> > Sinurat - Sumut
>> >
>> >
>> >
>> >
>> >
>> >
>>
>
>
dibutuhkan, yaitu parameter Type. Oleh sebab itu harus dituliskan nama
parameternya, yaitu Order2:=
Parameter setelahnya harus menuliskan nama parameternya, karena sudah ada parameter yang dituliskan namanya."
ini dia penyebabnya makanya gagal melulu kode yg saya tulis, ternyata input parameternya belum jelas.. makasih sdh diarahkan..
Satu lagi mohon dijelaskan, Kenapa nama macro-nya gak keliatan di Macro Dialog Box??
Public Sub AdvFilter(Optional bValue As Boolean = False)
Kode
End Sub
saya buka developer--> macros --> kosong..
Trm ksh, wassalam
Sinurat
____________
Dari: Kid Mr. <mr.nmkid@gmail.
Kepada: belajar-excel@
Dikirim: Rabu, 5 September 2012 15:06
Judul: Re: [belajar-excel] Re: Makro Filter Sort Data Tak Unik
Dari link tersebut, diketahui sebuah syntax sort sedehana :
expression.Sort(
'1. Awalnya di Module1 seperti ini:
'sort hasil (berdasar kolom nama ~ kolom F)
'rng.CurrentRegion.
'2. Lalu Diubah di Module2 menjadi seperti ini:
'sort hasil (berdasar kolom nama yaitu F dan kolom bayar yaitu G)
artinya dibutuhkan Key2 dan Order2.
rng.CurrentRegion.
yang lebih lengkapnya :
rng.CurrentRegion.
Nama input parameter (seperti key1,order1,
Parameter setelahnya harus menuliskan nama parameternya, karena sudah ada parameter yang dituliskan namanya.
Wassalam,
Kid.
2012/9/6 sin.ur4t <sin.ur4t@yahoo.
>
>Pak Mr Kid,
>Makasih Link-nya sdh saya baca meski terbata-bata, susah bhs inggris:D
>Dari situ Kemudian Kode Sorting-Nya dimodifikasi seperti ini:
>
>'1. Awalnya di Module1 seperti ini:
>'sort hasil (berdasar kolom nama ~ kolom F)
>'rng.CurrentRegion
>
>'2. Lalu Diubah di Module2 menjadi seperti ini:
>'sort hasil (berdasar kolom nama yaitu F dan kolom bayar yaitu G)
>
>With Sheet4
>Set rng1 = rng.Offset(1, 1).Resize(rng.
>Set rng2 = rng.Offset(1, 2).Resize(rng.
>
>Sheet4.Sort.
>xlSortNormal
>Sheet4.Sort.
>xlSortNormal
>
>With Sheet4.Sort
>.SetRange rng
>.Header = xlYes
>.MatchCase = False
>.Orientation = xlTopToBottom
>.SortMethod = xlPinYin
>.Apply
>End With
>End With
>
>'Sudah ditest dan sukses. Sayangnya blm bisa saya pastikan apakah kodenya mmg sudah benar/efisien atau faktor kebetulan saja.
>'Jika berkenan agar diberi tanggapan. Sekali lagi makasih.
>
>wassalam
>Sinurat
>
>
>--- In belajar-excel@
>>
>> Sort 2 kolom kunci dengan VBA memanfaatkan methods Sort berikut :
>> http://msdn.
>>
>> Wassalam,
>> Kid.
>>
>
> 2012/9/5 Imam Sinurat <sin.ur4t@..
>>
>> > **
>
>> >
>> >
>> > salam be excel..
>> >
>> > ini merupakan lanjutan pertanyaan pak Ferdy (krn kasusnya mirip) yang
>> > direspon oleh pak Ghozi dan pak Mr Kid pd tgl 23 Agustus 2012 berjudul
>> > "Filter dengan Kriteria dan Secara Urut", posting nomor 18636, 18637 dan
>> > 18643. tadinya ingin me-reply tapi bingung gmn cara nge-attach file..
>> > jadinya dibuat dlm thread baru :D.. Mohon izin datanya saya modifikasi.
>> >
>> > Solusi makro dari pak mr kid/ghozi di Module1 saya copast ke Module2.
>> > Pada bagian makro advanced filter, unique saya ubah menjadi False, sehingga
>> > hasilnya semua data yg memenuhi kriteria muncul di sheet 'VBATakUnik'
>> > tersort secara ascending.
>> >
>> > Dari hasil sort tsb, saya ingin untuk setiap Nama Yang Sama dilakukan sort
>> > sekali lagi pada kolom bayar secara descending. Detail terlampir.
>> >
>> > Mohon bantuan solusi, terima kasih sebelumnya.
>> >
>> > wassalam,
>> > Sinurat - Sumut
>> >
>> >
>> >
>> >
>> >
>> >
>>
>
>
Thu Sep 6, 2012 1:07 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Berikut ini deklarasi prosedurnya :
Public Sub AdvFilter(*Optional bValue As Boolean = False*)
Bagian yang di-*biru *adalah penyebabnya.
Hal tersebut disengaja untuk menghindari user yang sering salah klik.
Kuatirnya ketika salah klik, yang dihapus adalah sebuah prosedur.
Untuk assign macro pada sebuah shape atau form2 control, maka bagian yang
di-*biru *harus dinon aktifkan lebih dulu
Bagian yang di-*biru *adalah sebuah deklarasi parameter input yang bersifat
optional. Disana, sudah ditetapkan nilai defaultnya adalah FALSE karena
tipenya boolean.
Karena parameter ini bersifat optional, maka bisa dipanggil atau dieksekusi
tanpa harus menyediakan nilai untuk input parameternya.
Wassalam,
Kid.
2012/9/6 Imam Sinurat <sin.ur4t@yahoo.com >
> Public Sub AdvFilter(Optional bValue As Boolean = False)
Public Sub AdvFilter(*Optional bValue As Boolean = False*)
Bagian yang di-*biru *adalah penyebabnya.
Hal tersebut disengaja untuk menghindari user yang sering salah klik.
Kuatirnya ketika salah klik, yang dihapus adalah sebuah prosedur.
Untuk assign macro pada sebuah shape atau form2 control, maka bagian yang
di-*biru *harus dinon aktifkan lebih dulu
Bagian yang di-*biru *adalah sebuah deklarasi parameter input yang bersifat
optional. Disana, sudah ditetapkan nilai defaultnya adalah FALSE karena
tipenya boolean.
Karena parameter ini bersifat optional, maka bisa dipanggil atau dieksekusi
tanpa harus menyediakan nilai untuk input parameternya.
Wassalam,
Kid.
2012/9/6 Imam Sinurat <sin.ur4t@yahoo.
> Public Sub AdvFilter(Optional bValue As Boolean = False)
Thu Sep 6, 2012 2:06 am (PDT) . Posted by:
"Imam Sinurat" sin.ur4t
____________
Dari: Kid Mr. <mr.nmkid@gmail.
Kepada: belajar-excel@
Dikirim: Kamis, 6 September 2012 1:07
Judul: Re: [belajar-excel] Re: Makro Filter Sort Data Tak Unik
Makasih banyak penjelasannya Pak MrKid. Kasus terpecahkan.
Berikut ini deklarasi prosedurnya :
Public Sub AdvFilter(Optional bValue As Boolean = False)
Bagian yang di-biru adalah penyebabnya.
Hal tersebut disengaja untuk menghindari user yang sering salah klik. Kuatirnya ketika salah klik, yang dihapus adalah sebuah prosedur.
Untuk assign macro pada sebuah shape atau form2 control, maka bagian yang di-biru harus dinon aktifkan lebih dulu
Bagian yang di-biru adalah sebuah deklarasi parameter input yang bersifat optional. Disana, sudah ditetapkan nilai defaultnya adalah FALSE karena tipenya boolean.
Karena parameter ini bersifat optional, maka bisa dipanggil atau dieksekusi tanpa harus menyediakan nilai untuk input parameternya.
Wassalam,
Kid.
2012/9/6 Imam Sinurat <sin.ur4t@yahoo.
Public Sub AdvFilter(Optional bValue As Boolean = False)
Wed Sep 5, 2012 6:11 pm (PDT) . Posted by:
"Wasis Zain" wasis.zain
yang
pertama saya minta maaf telah merepotkan
saya hanya ingin membuat form input seperti disamping namun dengan inputan
MACRO..seperti halnya kita menginput dikasir, tiap kali kita input maka data
akan berada dismping i
bisa
ga ya kira kira
saya
ingin membuat menu macro seperti ini, tapi harus on the top
bagaimana ya langkahnya secara detail????
Ketika nanti salah satu menu diklik maka kita pindah sheet tapi menu ini tetap
adsa pada setiap sheet , dan hanya akan hilang bila kita close, n diganti
dengan tombol home yang selalu ada diatas
karena
saya memang belum mengerti macro dan cara memulainya maka bisa ga kira kira
para master untuk menuntunnya. atau ada ga link yang buat belajar memulai macro
dengan membuat menu seperti disamping
terimakasih
banyak mungkin ini merepotkan
pertama saya minta maaf telah merepotkan
saya hanya ingin membuat form input seperti disamping namun dengan inputan
MACRO..seperti halnya kita menginput dikasir, tiap kali kita input maka data
akan berada dismping i
bisa
ga ya kira kira
saya
ingin membuat menu macro seperti ini, tapi harus on the top
bagaimana ya langkahnya secara detail????
Ketika nanti salah satu menu diklik maka kita pindah sheet tapi menu ini tetap
adsa pada setiap sheet , dan hanya akan hilang bila kita close, n diganti
dengan tombol home yang selalu ada diatas
karena
saya memang belum mengerti macro dan cara memulainya maka bisa ga kira kira
para master untuk menuntunnya. atau ada ga link yang buat belajar memulai macro
dengan membuat menu seperti disamping
terimakasih
banyak mungkin ini merepotkan
Wed Sep 5, 2012 9:10 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Yth. Pak Mansor,
Karena jawaban sebelumnya mungkin belum jelas, jadi saya tambahkan sheet "Penjelasan" mengenai Goal Seek pada file terlampir.
Untuk otomatisasi, saya juga membuatkan macronya.
Semoga bermanfaat.
Salam,
Hendrik Karnadi
----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Wednesday, 5 September 2012, 17:45
Subject: Re: [belajar-excel] Mencari bilangan denominasi
Pakai Goal Seek pada kolom bantu (satu persatu - semi manual).
Asumsi dan Contoh perhitungan untuk data pertama adalah sbb:
Asumsi:
Max 2 denominasi
Contoh untuk Jumlah 70
Persamaan matematikanya adalah:
x + y = 3 --> x =3 - y
x*20+y*30= 70
Persamaan :
(3-y)*20+y*30 = 70
10 y = 10
y = 1
x = 3 -1
x = 2
File terlampir
Salam,
Hendrik Karnadi
________________________________
From: Mansor <dbpermatasari@gmail.com >
To: belajar-excel <belajar-excel@yahoogroups.com >
Sent: Wednesday, 5 September 2012, 8:48
Subject: [belajar-excel] Mencari bilangan denominasi
TemanbeExcel,
Gimana caranya kolum denominasi 20, 30, 50 dan 100 terisi otomatis, sesuai dengan bilangan nya.
Contohnya jika jumlah 70, dan bilangan nya 3, berarti deno 20 ada 2 dan 30 ada 1.
Mohon pencerahannya.
Terima kasih
-Mansor
Hasil yang diinginkan
Denominasi
Bilangan Jumlah 20 30 50 100
3 70 2 1
1 20 1
1 30 1
1 20 1
2 50 1 1
1 20 1
1 20 1
2 50 1 1
3 80 1 2
7 160 5 2
1 20 1
Karena jawaban sebelumnya mungkin belum jelas, jadi saya tambahkan sheet "Penjelasan" mengenai Goal Seek pada file terlampir.
Untuk otomatisasi, saya juga membuatkan macronya.
Semoga bermanfaat.
Salam,
Hendrik Karnadi
----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@
To: "belajar-excel@
Sent: Wednesday, 5 September 2012, 17:45
Subject: Re: [belajar-excel] Mencari bilangan denominasi
Pakai Goal Seek pada kolom bantu (satu persatu - semi manual).
Asumsi dan Contoh perhitungan untuk data pertama adalah sbb:
Asumsi:
Max 2 denominasi
Contoh untuk Jumlah 70
Persamaan matematikanya adalah:
x + y = 3 --> x =3 - y
x*20+y*30= 70
Persamaan :
(3-y)*20+y*30 = 70
10 y = 10
y = 1
x = 3 -1
x = 2
File terlampir
Salam,
Hendrik Karnadi
____________
From: Mansor <dbpermatasari@
To: belajar-excel <belajar-excel@
Sent: Wednesday, 5 September 2012, 8:48
Subject: [belajar-excel] Mencari bilangan denominasi
TemanbeExcel,
Gimana caranya kolum denominasi 20, 30, 50 dan 100 terisi otomatis, sesuai dengan bilangan nya.
Contohnya jika jumlah 70, dan bilangan nya 3, berarti deno 20 ada 2 dan 30 ada 1.
Mohon pencerahannya.
Terima kasih
-Mansor
Hasil yang diinginkan
Denominasi
Bilangan Jumlah 20 30 50 100
3 70 2 1
1 20 1
1 30 1
1 20 1
2 50 1 1
1 20 1
1 20 1
2 50 1 1
3 80 1 2
7 160 5 2
1 20 1
Wed Sep 5, 2012 10:20 pm (PDT) . Posted by:
"Mansor" nbmy1980
Terima kasih Pak Hendrik atas bantuannya,
Contohnya jika jumlahnya 260 dan bilangannya ada 6, hasil yang diharapkan
adalah seperti ini.
4 Deno yang dipake adalah deno 20 ada 1, deno 30 ada 3,deno 50 ada 1 dan
100 ada 1 (ini dihitung manual)
Gimana makro dapat menghasilkan output secara otomatis
Bilangan Jumlah Deno 20 Deno 30 Deno
50 Deno 100
6 260 1 3 1 1
Jika menggunakan makro Pak Henrik, hasilnya adalah seperti ini.
Denominasi *Bilangan* *Jumlah * 20 30 50 100 *Kolom Bantu* 6 260 -8
14 * * * * 260
Mohon pencerahan lagi dari Bapak, supaya deno tidak terbatas hanya 2, bisa
jadi 4 deno yg harus di pake.
Terima kasih.
Mansor
2012/9/6 hendrik karnadi <hendrikkarnadi@yahoo.com >
> **
>
>
> Yth. Pak Mansor,
>
> Karena jawaban sebelumnya mungkin belum jelas, jadi saya tambahkan sheet
> "Penjelasan" mengenai Goal Seek pada file terlampir.
>
> Untuk otomatisasi, saya juga membuatkan macronya.
>
> Semoga bermanfaat.
>
> Salam,
> Hendrik Karnadi
>
> ----- Forwarded Message -----
> *From:* hendrik karnadi <hendrikkarnadi@yahoo.com >
> *To:* "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
> *Sent:* Wednesday, 5 September 2012, 17:45
> *Subject:* Re: [belajar-excel] Mencari bilangan denominasi
>
>
> Pakai Goal Seek pada kolom bantu (satu persatu - semi manual).
> Asumsi dan Contoh perhitungan untuk data pertama adalah sbb:
>
> Asumsi: Max 2 denominasi Contoh untuk Jumlah 70 Persamaan
> matematikanya adalah: x + y = 3 --> x =3 - y x*20+y*30= 70 Persamaan : (3-y)*20+y*30
> = 70 10 y = 10 y = 1 x = 3 -1 x = 2
>
> File terlampir
>
> Salam,
> Hendrik Karnadi
>
> ------------------------------
> *From:* Mansor <dbpermatasari@gmail.com >
> *To:* belajar-excel <belajar-excel@yahoogroups.com >
> *Sent:* Wednesday, 5 September 2012, 8:48
> *Subject:* [belajar-excel] Mencari bilangan denominasi
>
>
>
> Teman beExcel,
> Gimana caranya kolum denominasi 20, 30, 50 dan 100 terisi otomatis,
> sesuai dengan bilangan nya.
> Contohnya jika jumlah 70, dan bilangan nya 3, berarti deno 20 ada 2 dan 30
> ada 1.
> Mohon pencerahannya.
> Terima kasih
> -Mansor
>
> Hasil yang diinginkan Denominasi *Bilangan* *Jumlah * 20 30 50 100 3
> 70 2 1 1 20 1 1 30 1 1 20 1 2 50 1 1 1 20 1
> 1 20 1 2 50 1 1 3 80 1 2 7 160 5 2 1 20 1
>
>
>
>
>
>
Contohnya jika jumlahnya 260 dan bilangannya ada 6, hasil yang diharapkan
adalah seperti ini.
4 Deno yang dipake adalah deno 20 ada 1, deno 30 ada 3,deno 50 ada 1 dan
100 ada 1 (ini dihitung manual)
Gimana makro dapat menghasilkan output secara otomatis
Bilangan Jumlah Deno 20 Deno 30 Deno
50 Deno 100
6 260 1 3 1 1
Jika menggunakan makro Pak Henrik, hasilnya adalah seperti ini.
Denominasi *Bilangan* *Jumlah * 20 30 50 100 *Kolom Bantu* 6 260 -8
14 * * * * 260
Mohon pencerahan lagi dari Bapak, supaya deno tidak terbatas hanya 2, bisa
jadi 4 deno yg harus di pake.
Terima kasih.
Mansor
2012/9/6 hendrik karnadi <hendrikkarnadi@
> **
>
>
> Yth. Pak Mansor,
>
> Karena jawaban sebelumnya mungkin belum jelas, jadi saya tambahkan sheet
> "Penjelasan" mengenai Goal Seek pada file terlampir.
>
> Untuk otomatisasi, saya juga membuatkan macronya.
>
> Semoga bermanfaat.
>
> Salam,
> Hendrik Karnadi
>
> ----- Forwarded Message -----
> *From:* hendrik karnadi <hendrikkarnadi@
> *To:* "belajar-excel@
> *Sent:* Wednesday, 5 September 2012, 17:45
> *Subject:* Re: [belajar-excel] Mencari bilangan denominasi
>
>
> Pakai Goal Seek pada kolom bantu (satu persatu - semi manual).
> Asumsi dan Contoh perhitungan untuk data pertama adalah sbb:
>
> Asumsi: Max 2 denominasi Contoh untuk Jumlah 70 Persamaan
> matematikanya adalah: x + y = 3 --> x =3 - y x*20+y*30= 70 Persamaan : (3-y)*20+y*30
> = 70 10 y = 10 y = 1 x = 3 -1 x = 2
>
> File terlampir
>
> Salam,
> Hendrik Karnadi
>
> ------------
> *From:* Mansor <dbpermatasari@
> *To:* belajar-excel <belajar-excel@
> *Sent:* Wednesday, 5 September 2012, 8:48
> *Subject:* [belajar-excel] Mencari bilangan denominasi
>
>
>
> Teman beExcel,
> Gimana caranya kolum denominasi 20, 30, 50 dan 100 terisi otomatis,
> sesuai dengan bilangan nya.
> Contohnya jika jumlah 70, dan bilangan nya 3, berarti deno 20 ada 2 dan 30
> ada 1.
> Mohon pencerahannya.
> Terima kasih
> -Mansor
>
> Hasil yang diinginkan Denominasi *Bilangan* *Jumlah * 20 30 50 100 3
> 70 2 1 1 20 1 1 30 1 1 20 1 2 50 1 1 1 20 1
> 1 20 1 2 50 1 1 3 80 1 2 7 160 5 2 1 20 1
>
>
>
>
>
>
Thu Sep 6, 2012 12:15 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Yth.Pak Mansor,
Semakin banyak denominasi, semakin banyak pula alternatifnya.
Contoh terlampir adalah warisan Mbak Siti yang telah saya modifikasi (maaf Mbak belum minta ijin).
Dalam contoh, saya masukkan target Jumlah = 350 dan target Bilangan = 7
Dengan 4 denominasi (20, 30 ,50 , 100) paling tidak ada 4 alternatif yang berhasil saya dapatkan dari program tersebut.
Alternatif 1Alternatif 2Alternatif 3 Alternatif 4
202100
302150
501407
1002120
Jumlah 350 350 350 350
Bilangan7777
Bapak pilih yang mana ?
Salam,
Hendrik Karnadi
________________________________
From: Mansor <dbpermatasari@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Thursday, 6 September 2012, 12:16
Subject: Re: Fw: [belajar-excel] Mencari bilangan denominasi
Terima kasih Pak Hendrik atas bantuannya,
Contohnya jika jumlahnya 260 dan bilangannya ada 6, hasil yang diharapkan adalah seperti ini.
4 Deno yang dipake adalah deno 20 ada 1, deno 30 ada 3,deno 50 ada 1 dan 100 ada 1 (ini dihitung manual)
Gimana makro dapat menghasilkan output secara otomatis
Bilangan Jumlah Deno 20 Deno 30 Deno 50 Deno 100
6 260 1 3 1 1
Jika menggunakan makro Pak Henrik, hasilnya adalah seperti ini.
Denominasi
Bilangan Jumlah 20 30 50 100 Kolom Bantu
6 260 -8 14 260
Mohon pencerahan lagi dari Bapak, supaya deno tidak terbatas hanya 2, bisa jadi 4 deno yg harus di pake.
Terima kasih.
Mansor
2012/9/6 hendrik karnadi <hendrikkarnadi@yahoo.com >
>
>Yth. Pak Mansor,
>
>
>Karena jawaban sebelumnya mungkin belum jelas, jadi saya tambahkan sheet "Penjelasan" mengenai Goal Seek pada file terlampir.
>
>
>Untuk otomatisasi, saya juga membuatkan macronya.
>
>
>Semoga bermanfaat.
>
>
>Salam,
>Hendrik Karnadi
>
>
>----- Forwarded Message -----
>From: hendrik karnadi <hendrikkarnadi@yahoo.com >
>To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
>Sent: Wednesday, 5 September 2012, 17:45
>Subject: Re: [belajar-excel] Mencari bilangan denominasi
>
>
>
>Pakai Goal Seek pada kolom bantu (satu persatu - semi manual).
>Asumsi dan Contoh perhitungan untuk data pertama adalah sbb:
>
>
>Asumsi:
>Max 2 denominasi
>Contoh untuk Jumlah 70
>Persamaan matematikanya adalah:
>x + y = 3 --> x =3 - y
>x*20+y*30= 70
>Persamaan :
>(3-y)*20+y*30 = 70
>10 y = 10
>y = 1
>x = 3 -1
>x = 2
>
>File terlampir
>
>Salam,
>Hendrik Karnadi
>
>
>
>________________________________
> From: Mansor <dbpermatasari@gmail.com >
>To: belajar-excel <belajar-excel@yahoogroups.com >
>Sent: Wednesday, 5 September 2012, 8:48
>Subject: [belajar-excel] Mencari bilangan denominasi
>
>
>
>
>TemanbeExcel,
>Gimana caranya kolum denominasi 20, 30, 50 dan 100 terisi otomatis, sesuai dengan bilangan nya.
>Contohnya jika jumlah 70, dan bilangan nya 3, berarti deno 20 ada 2 dan 30 ada 1.
>Mohon pencerahannya.
>Terima kasih
>-Mansor
>
> Hasil yang diinginkan
> Denominasi
>Bilangan Jumlah 20 30 50 100
>3 70 2 1
>1 20 1
>1 30 1
>1 20 1
>2 50 1 1
>1 20 1
>1 20 1
>2 50 1 1
>3 80 1 2
>7 160 5 2
>1 20 1
>
>
>
>
Semakin banyak denominasi, semakin banyak pula alternatifnya.
Contoh terlampir adalah warisan Mbak Siti yang telah saya modifikasi (maaf Mbak belum minta ijin).
Dalam contoh, saya masukkan target Jumlah = 350 dan target Bilangan = 7
Dengan 4 denominasi (20, 30 ,50 , 100) paling tidak ada 4 alternatif yang berhasil saya dapatkan dari program tersebut.
Alternatif 1Alternatif 2Alternatif 3 Alternatif 4
202100
302150
501407
1002120
Jumlah 350 350 350 350
Bilangan7777
Bapak pilih yang mana ?
Salam,
Hendrik Karnadi
____________
From: Mansor <dbpermatasari@
To: belajar-excel@
Sent: Thursday, 6 September 2012, 12:16
Subject: Re: Fw: [belajar-excel] Mencari bilangan denominasi
Terima kasih Pak Hendrik atas bantuannya,
Contohnya jika jumlahnya 260 dan bilangannya ada 6, hasil yang diharapkan adalah seperti ini.
4 Deno yang dipake adalah deno 20 ada 1, deno 30 ada 3,deno 50 ada 1 dan 100 ada 1 (ini dihitung manual)
Gimana makro dapat menghasilkan output secara otomatis
Bilangan Jumlah Deno 20 Deno 30 Deno 50 Deno 100
6 260 1 3 1 1
Jika menggunakan makro Pak Henrik, hasilnya adalah seperti ini.
Denominasi
Bilangan Jumlah 20 30 50 100 Kolom Bantu
6 260 -8 14 260
Mohon pencerahan lagi dari Bapak, supaya deno tidak terbatas hanya 2, bisa jadi 4 deno yg harus di pake.
Terima kasih.
Mansor
2012/9/6 hendrik karnadi <hendrikkarnadi@
>
>Yth. Pak Mansor,
>
>
>Karena jawaban sebelumnya mungkin belum jelas, jadi saya tambahkan sheet "Penjelasan" mengenai Goal Seek pada file terlampir.
>
>
>Untuk otomatisasi, saya juga membuatkan macronya.
>
>
>Semoga bermanfaat.
>
>
>Salam,
>Hendrik Karnadi
>
>
>----- Forwarded Message -----
>From: hendrik karnadi <hendrikkarnadi@
>To: "belajar-excel@
>Sent: Wednesday, 5 September 2012, 17:45
>Subject: Re: [belajar-excel] Mencari bilangan denominasi
>
>
>
>Pakai Goal Seek pada kolom bantu (satu persatu - semi manual).
>Asumsi dan Contoh perhitungan untuk data pertama adalah sbb:
>
>
>Asumsi:
>Max 2 denominasi
>Contoh untuk Jumlah 70
>Persamaan matematikanya adalah:
>x + y = 3 --> x =3 - y
>x*20+y*30= 70
>Persamaan :
>(3-y)*20+y*
>10 y = 10
>y = 1
>x = 3 -1
>x = 2
>
>File terlampir
>
>Salam,
>Hendrik Karnadi
>
>
>
>___________
> From: Mansor <dbpermatasari@
>To: belajar-excel <belajar-excel@
>Sent: Wednesday, 5 September 2012, 8:48
>Subject: [belajar-excel] Mencari bilangan denominasi
>
>
>
>
>TemanbeExcel,
>Gimana caranya kolum denominasi 20, 30, 50 dan 100 terisi otomatis, sesuai dengan bilangan nya.
>Contohnya jika jumlah 70, dan bilangan nya 3, berarti deno 20 ada 2 dan 30 ada 1.
>Mohon pencerahannya.
>Terima kasih
>-Mansor
>
> Hasil yang diinginkan
> Denominasi
>Bilangan Jumlah 20 30 50 100
>3 70 2 1
>1 20 1
>1 30 1
>1 20 1
>2 50 1 1
>1 20 1
>1 20 1
>2 50 1 1
>3 80 1 2
>7 160 5 2
>1 20 1
>
>
>
>
Thu Sep 6, 2012 12:38 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Coba juga manfaatkan Solver Addin.
File terlampir memanfaatkan UDF KombinasiSum
Wassalam,
Kid.
2012/9/5 Mansor <dbpermatasari@gmail.com >
> **
>
>
>
>
> Teman beExcel,
>
> Gimana caranya kolum denominasi 20, 30, 50 dan 100 terisi otomatis, sesuai
> dengan bilangan nya.
>
> Contohnya jika jumlah 70, dan bilangan nya 3, berarti deno 20 ada 2 dan 30
> ada 1.
>
> Mohon pencerahannya.
>
> Terima kasih
>
> -Mansor
>
> Hasil yang diinginkan Denominasi *Bilangan* *Jumlah * 20 30 50 100
> 3 70 2 1 1 20 1 1 30 1 1 20 1 2 50 1 1 1 20 1
> 1 20 1 2 50 1 1 3 80 1 2 7 160 5 2 1 20 1
>
>
>
File terlampir memanfaatkan UDF KombinasiSum
Wassalam,
Kid.
2012/9/5 Mansor <dbpermatasari@
> **
>
>
>
>
> Teman beExcel,
>
> Gimana caranya kolum denominasi 20, 30, 50 dan 100 terisi otomatis, sesuai
> dengan bilangan nya.
>
> Contohnya jika jumlah 70, dan bilangan nya 3, berarti deno 20 ada 2 dan 30
> ada 1.
>
> Mohon pencerahannya.
>
> Terima kasih
>
> -Mansor
>
> Hasil yang diinginkan Denominasi *Bilangan* *Jumlah * 20 30 50 100
> 3 70 2 1 1 20 1 1 30 1 1 20 1 2 50 1 1 1 20 1
> 1 20 1 2 50 1 1 3 80 1 2 7 160 5 2 1 20 1
>
>
>
Thu Sep 6, 2012 9:06 am (PDT) . Posted by:
"Imam Sinurat" sin.ur4t
Salam Be-Excel..
Mohon dibantu bagaimana kode makro menyisip baris dan mengisi data yang sesuai.
Yang diinginkan adalah sbb:
1. Semua record Tabel 1. ditampilkan kembali pada Tabel 2., baik Nama maupun Nominal1.
2. Setiap record yang kolom Nominal2 ada nilainya, maka sisipkan satu baris kosong tepat dibawah record tersebut,
lalu isi nama yang sesuai dibubuhi tanda "(*)", dan Nominal2.
Terima kasih sebelumnya, wassalam
Imam F. Sinurat
Mohon dibantu bagaimana kode makro menyisip baris dan mengisi data yang sesuai.
Yang diinginkan adalah sbb:
1. Semua record Tabel 1. ditampilkan kembali pada Tabel 2., baik Nama maupun Nominal1.
2. Setiap record yang kolom Nominal2 ada nilainya, maka sisipkan satu baris kosong tepat dibawah record tersebut,
lalu isi nama yang sesuai dibubuhi tanda "(*)", dan Nominal2.
Terima kasih sebelumnya, wassalam
Imam F. Sinurat
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
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