9 Messages
Digest #3134
3b
Re: Bagaimana Cara Merubah Gabungan Cells menjadi Rumus yang Otomati by "Mr. Kid" nmkid.family@ymail.com
Messages
Mon Oct 13, 2014 6:40 am (PDT) . Posted by:
"belajar excell" belajar.excell
trima kasih banyak Pak NangAgus untuk bantuannya..
untuk nomor dua itu mksd saya ada tanda "x" pada user name Pak, jadi pada saat kita klik tanda x itu, workbook akan otomatis tertutup dengan sendirinya,
Mohon bantuannya ya Pak..
Regards
Ronny S
On Monday, October 13, 2014 8:30 AM, "Nang Agus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Dear Belajar Excel,
1. Coba dibuat pada object workbook dengan prosedur open:
Private Sub Workbook_Open()
Sheet1.visible = xlSheetVeryHidden
Sheet3.visible = xlSheetVeryHidden
Sheet4.visible = xlSheetVeryHidden
Sheet5.visible = xlSheetVeryHidden
Sheet6.visible = xlSheetVeryHidden
end sub
2.
Private sub userform_terminate ()
Me.Hide End
sub
Wasalam
NangAgus
2014-10-12 19:28 GMT+07:00 belajar excell belajar.excell@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>Selamat malam rekan2 pecinta excel,
>Pada saat ini saya sedang membuat userform, tapi ada
beberapa kendala yang saya temui,
>1. Bgaimana caranya agar Pada saat pertama kli
userform muncul, hanya sheet
>Hal Dep saja yang keliatan, dan sheet yang lainnya tersembunyi ?
>2. Untuk terminate userform, saya hanya memakain
VBA code seperti di bawah ini :
>Private sub userform_terminate ()
> Thisworkbook.close 1
>End
sub
> Tapi pada
saat saya mengisi user name dan juga password, yang ada malah excel langsung
tertutup.
>
>Mohon bantuannya ya teman2 smuanya,
>
>Terima kasih sebelummnya..
>
>
untuk nomor dua itu mksd saya ada tanda "x" pada user name Pak, jadi pada saat kita klik tanda x itu, workbook akan otomatis tertutup dengan sendirinya,
Mohon bantuannya ya Pak..
Regards
Ronny S
On Monday, October 13, 2014 8:30 AM, "Nang Agus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Dear Belajar Excel,
1. Coba dibuat pada object workbook dengan prosedur open:
Private Sub Workbook_Open()
Sheet1.visible = xlSheetVeryHidden
Sheet3.visible = xlSheetVeryHidden
Sheet4.visible = xlSheetVeryHidden
Sheet5.visible = xlSheetVeryHidden
Sheet6.visible = xlSheetVeryHidden
end sub
2.
Private sub userform_terminate ()
Me.Hide End
sub
Wasalam
NangAgus
2014-10-12 19:28 GMT+07:00 belajar excell belajar.excell@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>Selamat malam rekan2 pecinta excel,
>Pada saat ini saya sedang membuat userform, tapi ada
beberapa kendala yang saya temui,
>1. Bgaimana caranya agar Pada saat pertama kli
userform muncul, hanya sheet
>Hal Dep saja yang keliatan, dan sheet yang lainnya tersembunyi ?
>2. Untuk terminate userform, saya hanya memakain
VBA code seperti di bawah ini :
>Private sub userform_terminate ()
> Thisworkbook.
>End
sub
> Tapi pada
saat saya mengisi user name dan juga password, yang ada malah excel langsung
tertutup.
>
>Mohon bantuannya ya teman2 smuanya,
>
>Terima kasih sebelummnya.
>
>
Mon Oct 13, 2014 11:22 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba manfaatkan event QueryClose. Cek jika isi variabel CloseMode adalah 0
(akibat tekan close pada userform), maka lakukan close workbook.
Wassalam,
Kid.
2014-10-13 23:52 GMT+11:00 belajar excell belajar.excell@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> trima kasih banyak Pak NangAgus untuk bantuannya..
>
> untuk nomor dua itu mksd saya ada tanda "x" pada user name Pak, jadi pada
> saat kita klik tanda x itu, workbook akan otomatis tertutup dengan
> sendirinya,
>
> Mohon bantuannya ya Pak..
>
> Regards
> Ronny S
>
>
> On Monday, October 13, 2014 8:30 AM, "Nang Agus nangagus@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Dear Belajar Excel,
>
> 1. Coba dibuat pada object workbook dengan prosedur open:
> Private Sub Workbook_Open()
> Sheet1.visible = xlSheetVeryHidden
> Sheet3.visible = xlSheetVeryHidden
> Sheet4.visible = xlSheetVeryHidden
> Sheet5.visible = xlSheetVeryHidden
> Sheet6.visible = xlSheetVeryHidden
> end sub
>
> 2.
> Private sub userform_terminate ()
> Me.Hide
> End sub
>
> Wasalam
> NangAgus
>
> 2014-10-12 19:28 GMT+07:00 belajar excell belajar.excell@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Selamat malam rekan2 pecinta excel,
> Pada saat ini saya sedang membuat userform, tapi ada beberapa kendala yang
> saya temui,
> 1. Bgaimana caranya agar Pada saat pertama kli userform muncul,
> hanya sheet
> Hal Dep saja yang keliatan, dan sheet yang lainnya tersembunyi ?
> 2. Untuk terminate userform, saya hanya memakain VBA code seperti
> di bawah ini :
> Private sub userform_terminate ()
> Thisworkbook.close 1
> End sub
> Tapi pada saat saya mengisi user name dan juga password,
> yang ada malah excel langsung tertutup.
>
> Mohon bantuannya ya teman2 smuanya,
>
> Terima kasih sebelummnya..
>
>
>
>
>
>
(akibat tekan close pada userform), maka lakukan close workbook.
Wassalam,
Kid.
2014-10-13 23:52 GMT+11:00 belajar excell belajar.excell@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> trima kasih banyak Pak NangAgus untuk bantuannya..
>
> untuk nomor dua itu mksd saya ada tanda "x" pada user name Pak, jadi pada
> saat kita klik tanda x itu, workbook akan otomatis tertutup dengan
> sendirinya,
>
> Mohon bantuannya ya Pak..
>
> Regards
> Ronny S
>
>
> On Monday, October 13, 2014 8:30 AM, "Nang Agus nangagus@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Dear Belajar Excel,
>
> 1. Coba dibuat pada object workbook dengan prosedur open:
> Private Sub Workbook_Open()
> Sheet1.visible = xlSheetVeryHidden
> Sheet3.visible = xlSheetVeryHidden
> Sheet4.visible = xlSheetVeryHidden
> Sheet5.visible = xlSheetVeryHidden
> Sheet6.visible = xlSheetVeryHidden
> end sub
>
> 2.
> Private sub userform_terminate ()
> Me.Hide
> End sub
>
> Wasalam
> NangAgus
>
> 2014-10-12 19:28 GMT+07:00 belajar excell belajar.excell@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Selamat malam rekan2 pecinta excel,
> Pada saat ini saya sedang membuat userform, tapi ada beberapa kendala yang
> saya temui,
> 1. Bgaimana caranya agar Pada saat pertama kli userform muncul,
> hanya sheet
> Hal Dep saja yang keliatan, dan sheet yang lainnya tersembunyi ?
> 2. Untuk terminate userform, saya hanya memakain VBA code seperti
> di bawah ini :
> Private sub userform_terminate ()
> Thisworkbook.
> End sub
> Tapi pada saat saya mengisi user name dan juga password,
> yang ada malah excel langsung tertutup.
>
> Mohon bantuannya ya teman2 smuanya,
>
> Terima kasih sebelummnya.
>
>
>
>
>
>
Sekali lagi terima kasih Pa Kid fungsinya mujarab :D, maaf saya merepotkan
Wassalam
Yayan
Powered by Telkomsel BlackBerry®
-----Original Message-----
From: "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com>
Sender: belajar-excel@yahoogroups.com
Date: Mon, 13 Oct 2014 17:26:10
To: BeExcel<belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mencari dan menggabung isi cell
Wa'alaikumussalam Wr. Wb.
Tambahkan IF pada formulanya dengan susunan :
=IF( isnumber( match( cell_kode , range_kode_disheet_sebelah , 0 ) ) ,
formula_yang_sudah_ada , "Tidak ada" )
Wassalamu'alaikum Wr. Wb.
Kid.
2014-10-13 14:34 GMT+11:00 Yayan Ajah erte_try@yahoo.co.id [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Assalamu'alaikum
> Mr. Kid, ternyata setelah dipakai pada data real ada masalah pada saat
> kode barang di sheet 2 tidak ada di sheet 1, sehingga di sheet2 muncul No.
> Rak yang entah dari mana hasil pencariannya.
> Mohon bantuannya jika kode barang di sheet2 tidak ada pada sheet1 tidak
> muncul nomor rak (angka) atau mungkin di beri keterangan lain yang
> membedakan bahwa kode tsb tidak ada di sheet1
>
> Terima kasih
> Wassalam
> Yayan
>
>
> Pada Jumat, 10 Oktober 2014 18:05, "Yayan Ajah erte_try@yahoo.co.id
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Terima kasih banyak Mr. Kid sangat membantu sekali fungsinya dan
> hasilnya sesuai dengan yang saya inginkan.
>
> Wassalamu'alaikum Wr. Wb.
> Yayan
> Pada Jumat, 10 Oktober 2014 17:50, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
>
>
> Wa'alaikumussalam Wr. Wb.
>
> Hai Yayan,
>
> File terlampir menggunakan sebuah kolom bantu penyusun gabungan No Rak
> pada sisi tabel sumber data.
> Sumber data dituntut sorted berdasar kolom Kode (ASC) dan No. Rak
> (ASC/DESC)
>
> Wassalamu'alaikum Wr. Wb.
> Kid.
>
>
>
> 2014-10-10 21:33 GMT+11:00 Yayan Ajah erte_try@yahoo.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Assalamu'alaikum Wr. Wb.
> Mohon bantuannya kepada para master excel di milis ini, saya punya data
> stok opname yang datanya sampai puluhan ribu baris (data yang terlampir
> hanya sebagai sample saja)
>
> Yang ingin saya tanyakan adalah fungsi apa yang harus dipakai agar no rak
> pada data "sheet 1" bisa terekap di cell no rak "sheet 2" dengan patokan
> datanya adalah kode barang ? sehingga saya bisa tau barang pada sheet 2
> ada di rak ke berapa saja.
>
> Mohon bantuan fungsi dan penjelasannya
>
> Terima kasih
> Wassalamu'alaikum Wr. Wb.
>
> -Yayan-
>
>
>
>
>
>
>
>
>
Wassalam
Yayan
Powered by Telkomsel BlackBerry®
-----Original Message-----
From: "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com>
Sender: belajar-excel@yahoogroups.com
Date: Mon, 13 Oct 2014 17:26:10
To: BeExcel<belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mencari dan menggabung isi cell
Wa'alaikumussalam Wr. Wb.
Tambahkan IF pada formulanya dengan susunan :
=IF( isnumber( match( cell_kode , range_kode_disheet_sebelah , 0 ) ) ,
formula_yang_sudah_ada , "Tidak ada" )
Wassalamu'alaikum Wr. Wb.
Kid.
2014-10-13 14:34 GMT+11:00 Yayan Ajah erte_try@yahoo.co.id [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Assalamu'alaikum
> Mr. Kid, ternyata setelah dipakai pada data real ada masalah pada saat
> kode barang di sheet 2 tidak ada di sheet 1, sehingga di sheet2 muncul No.
> Rak yang entah dari mana hasil pencariannya.
> Mohon bantuannya jika kode barang di sheet2 tidak ada pada sheet1 tidak
> muncul nomor rak (angka) atau mungkin di beri keterangan lain yang
> membedakan bahwa kode tsb tidak ada di sheet1
>
> Terima kasih
> Wassalam
> Yayan
>
>
> Pada Jumat, 10 Oktober 2014 18:05, "Yayan Ajah erte_try@yahoo.co.id
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Terima kasih banyak Mr. Kid sangat membantu sekali fungsinya dan
> hasilnya sesuai dengan yang saya inginkan.
>
> Wassalamu'alaikum Wr. Wb.
> Yayan
> Pada Jumat, 10 Oktober 2014 17:50, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
>
>
> Wa'alaikumussalam Wr. Wb.
>
> Hai Yayan,
>
> File terlampir menggunakan sebuah kolom bantu penyusun gabungan No Rak
> pada sisi tabel sumber data.
> Sumber data dituntut sorted berdasar kolom Kode (ASC) dan No. Rak
> (ASC/DESC)
>
> Wassalamu'alaikum Wr. Wb.
> Kid.
>
>
>
> 2014-10-10 21:33 GMT+11:00 Yayan Ajah erte_try@yahoo.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Assalamu'
> Mohon bantuannya kepada para master excel di milis ini, saya punya data
> stok opname yang datanya sampai puluhan ribu baris (data yang terlampir
> hanya sebagai sample saja)
>
> Yang ingin saya tanyakan adalah fungsi apa yang harus dipakai agar no rak
> pada data "sheet 1" bisa terekap di cell no rak "sheet 2" dengan patokan
> datanya adalah kode barang ? sehingga saya bisa tau barang pada sheet 2
> ada di rak ke berapa saja.
>
> Mohon bantuan fungsi dan penjelasannya
>
> Terima kasih
> Wassalamu'
>
> -Yayan-
>
>
>
>
>
>
>
>
>
Mon Oct 13, 2014 10:09 am (PDT) . Posted by:
boim36
Assalamualaikum, Wr. Wb.
Sebelumnya saya ucapkan terima kasih,
karena saya baru bergabung di grup ini.
saya lampirkan file excel,
Silahkan download terlebih dahulu.
---
Dari gambar tersebut,
di Cells C4
saya tulis rumus
=D4&E4&F4
sehingga penggabungan dari cells D4, E4, dan F4
dan hasilnya akan terlihat tampilan
=A1
---
Saya mau tanyakan yaitu :
Bagaimana cara tampilan di cells C4
bukan tampilan =A1
tapi terlihat tampilan langsung nilai di cells A1
secara otomatis yaitu angka 20
---
Kalau cara copy, lalu paste special (values)
saya sudah tahu
---
saya ingin tahu rumus excel nya secara otomatis,
tanpa cara copy, lalu paste special (values)
---
Terima kasih,
Wassalamualaikum, Wr. Wb.
Sebelumnya saya ucapkan terima kasih,
karena saya baru bergabung di grup ini.
saya lampirkan file excel,
Silahkan download terlebih dahulu.
---
Dari gambar tersebut,
di Cells C4
saya tulis rumus
=D4&E4&F4
sehingga penggabungan dari cells D4, E4, dan F4
dan hasilnya akan terlihat tampilan
=A1
---
Saya mau tanyakan yaitu :
Bagaimana cara tampilan di cells C4
bukan tampilan =A1
tapi terlihat tampilan langsung nilai di cells A1
secara otomatis yaitu angka 20
---
Kalau cara copy, lalu paste special (values)
saya sudah tahu
---
saya ingin tahu rumus excel nya secara otomatis,
tanpa cara copy, lalu paste special (values)
---
Terima kasih,
Wassalamualaikum, Wr. Wb.
Mon Oct 13, 2014 10:50 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam Wr. Wb.
Hai Boim,
Selamat bergabung di milis Belajar-Excel.
Mungkin maksudnya, jika ada formula yang menghasilkan alamat suatu cell,
maka ingin mengambil nilai di alamat cell hasil formula tersebut ya.
Berarti, kasus tersebut adalah mengambil nilai secara tidak langsung
(indirect) berdasar suatu teks alamat cell tertentu.
Fungsi yang dapat digunakan adalah Indirect.
Contoh :
=Indirect( "a1" ) '-> akan mengambil nilai dari cell beralamat 'a1'
bunyi 'a1' biusa disusun dengan proses concatenate seperti yang Anda
lakukan.
Berhubung formula Anda yang berbunyi :
=D4&E4&F4
menghasilkan teks berbunyi :
'=A1'
maka bagian yang dibutuhkan untuk menghasilkan teks berbunyi alamat cell
adalah :
E4&F4
sehingga fungsi Indirect :
=Indirect( E4&F4 )
dan akan menghasilkan nilai dialamat cell hasil komputasi E4&F4. Berhubung
E4&F4 menghasilkan teks berbunyi A1, berarti fungsi Indirect akan mengambil
nilai yang ada di cell A1.
Cakep ya fungsi Indirect-nya....
Sayangnya, jika Anda gunakan fungsi ini secara masif, maka dimanapun ada
proses yang memicu kalkulasi Excel, maka seluruh cell yang berisi fungsi
Indirect ini akan dikalkulasi juga.
Coba bayangkan, Anda memiliki 10 sheet yang setiap sheetnya ada 1000 cells
berisi fungsi Indirect, yang berarti ada 10000 cell berisi fungsi Indirect
di workbook tersebut. Kemudian Anda membuat sebuah sheet baru. Jadi
pastilah seluruh cell di sheet baru ini tidak pernah memiliki hubungan
kekerabatan formula dengan 10 sheet sebelumnya. Kemudian di sheet baru
(sheet ke-11) ini pada cell z7 nya diberi suatu nilai seperti menulis bunyi
Kid lalu Enter. Maka 10000 cell yang ada fungsi Indirect nya tadi akan
dikalkulasi.
Itulah tadi gambaran dari sifat fungsi yang berjuluk VOLATILE.
Excel memiliki beberapa fungsi yang memiliki sifat volatile, yaitu antara
lain :
1. OFFSET
2. INDIRECT
3. RAND
4. RANDBETWEEN (xl2007 ke atas)
5. TODAY
6. NOW
setidaknya, 6 fungsi di atas, jika digunakan atau dirujuk secara masif oleh
banyak cells berformula, maka cells tersebut akan dikalkulasi oleh Excel
setiap kali ada cell yang berubah dimanapun, karena akan memicu kalkulasi
Excel. Cells dinyatakan berubah jika terjadi hal-hal berikut :
1. menghapus sheet
2. membuang cells (baris [delete entire row] atau kolom [delete entire
column] atau sebuah cell [delete shift cell arah tertentu] )
3. mengubah nilai dalam cells
4. mengubah bunyi formula dalam cells
Proses kalkulasi Excel bisa di-set manual supaya tidak selalu terjadi
kalkulasi setiap saat. Setting kalkulasi ke-manual bukanlah mencegah proses
kalkulasi, tetapi menunda kalkulasi. Begitu ada perintah kalkulasi atau
setting kembali ke automatic, maka seluruh antrian kalkulasi akibat sifat
volatile tadi (tentu sudah bertumpuk banyak sekali daftar cell yang harus
dikalkulasi) akan dikalkulasi.
Tapi lumayanlah, setting kalkulasi ke manual tidak akan mengganggu peroses
penggantian suatu cells.
Untuk kasus Anda ini, ada cara lain yang tidak lebih simple... maksudnya
yang jauh lebih ribet dan rumit, tetapi tidak volatile.
Contoh :
- jika di cell E5 berisi angka 1 yang mewakili kolom ke-1 (di cell E4
berisi A kan ya)
- lalu di cell F5 berisi angka 1 yang mewakili baris ke-1 (di cell F4
berisi 1 kan ya)
maka untuk mengambil nilai di cell A1 (kolom ke-1 pada baris ke-1 Excel)
bisa dilakukan dengan fungsi Index.
Syntax :
=Index( area_data , baris_data , kolom_data )
Pada kasus ini, area_data adalah seluruh cells Excel.
Jika di xl2003 (file Anda berekstensi xls loh, jadi asumsinya pakai xl2003)
berarti merujuk ke 1:65536 (di xl2007 ke atas 1048576)
baris_data merujuk ke cell F5
kolom_data merujuk ke cell E5
maka cell hasil bisa diisi dengan fungsi Index berbunyi :
=Index( $1:$65536 , f5 , e5 )
*** Syarat dan ketentuan : f5 dan e5 tidak merujuk ke cell yang berisi
formula Index tersebut, agar tidak circular reference
Jadi, inputan alamat cellnya adalah nomor kolom dan nomor baris Excel.
Andai, (andai ajah loh ya)
Anda ndak suka kalau inputannya diubah-ubah, dan tetap ngotot maunya
inputannya adalah hurufnya si kolom dan barisnya seperti E4 dan F4, berarti
harus beribet ria agar tidak volatile. Fungsi Index, Match, Address bisa
digunakan.
Sebenarnya ada fungsi evaluate yang juga bisa digunakan, sayangnya harus
diletakkan pada sebuah nama range dan sayangnya, pengubahan nilai di cell
yang akan diambil hasilnya tidak akan memicu si evaluate untuk dikalkulasi
alias tidak akan membuat cell yang menggunakan fungsi Evaluate akan ikut
berubah hasilnya. Pada kasus ini, jika cell hasil memanfaatkan evaluate
melalui nama range tertentu yang akan mengambil nilai di A1, maka
pengubahan di cell A1 tidak akan mengubah cell hasil. Jika yang diubah
adalah cell yang dirujuk oleh evaluate (dalam hal ini cell e4 dan f4 yang
menunjukkan alamat cell yang akan diambil nilainya), maka cell hasil akan
berubah.
Pakai Index, Match, Address saja ya... (supaya lebih mirip dengan fungsi
Indirect)
Kolom di E4 (bernilai 'A') dan baris di F4 (bernilai 1)
di cell hasil diberi formula :
=Index( $1:$65536 , F4 , Match( "$" & E4 & "$1" , Index( Address( 1 ,
Column($1:$1) ) , 0 ) , 0 ) )
Cara lainnya lagi adalah dengan VBA event change (tapi cara ini kurang
keren karena ndak tricky n ndak memanfaatkan fitur Formula yang menjadi
kekuatan utama Excel)
Wassalamu'alaikum Wr. Wb.
Kid.
2014-10-14 3:48 GMT+11:00 boim36@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Assalamualaikum, Wr. Wb.
>
> Sebelumnya saya ucapkan terima kasih,
> karena saya baru bergabung di grup ini.
>
> saya lampirkan file excel,
> Silahkan download terlebih dahulu.
>
> ---
>
> Dari gambar tersebut,
> di Cells C4
> saya tulis rumus
> =D4&E4&F4
> sehingga penggabungan dari cells D4, E4, dan F4
> dan hasilnya akan terlihat tampilan
> =A1
>
> ---
>
> Saya mau tanyakan yaitu :
> Bagaimana cara tampilan di cells C4
> bukan tampilan =A1
> tapi terlihat tampilan langsung nilai di cells A1
> secara otomatis yaitu angka 20
>
> ---
>
> Kalau cara copy, lalu paste special (values)
> saya sudah tahu
>
> ---
>
> saya ingin tahu rumus excel nya secara otomatis,
> tanpa cara copy, lalu paste special (values)
>
> ---
>
> Terima kasih,
> Wassalamualaikum, Wr. Wb.
>
>
>
>
Hai Boim,
Selamat bergabung di milis Belajar-Excel.
Mungkin maksudnya, jika ada formula yang menghasilkan alamat suatu cell,
maka ingin mengambil nilai di alamat cell hasil formula tersebut ya.
Berarti, kasus tersebut adalah mengambil nilai secara tidak langsung
(indirect) berdasar suatu teks alamat cell tertentu.
Fungsi yang dapat digunakan adalah Indirect.
Contoh :
=Indirect( "a1" ) '-> akan mengambil nilai dari cell beralamat 'a1'
bunyi 'a1' biusa disusun dengan proses concatenate seperti yang Anda
lakukan.
Berhubung formula Anda yang berbunyi :
=D4&E4&F4
menghasilkan teks berbunyi :
'=A1'
maka bagian yang dibutuhkan untuk menghasilkan teks berbunyi alamat cell
adalah :
E4&F4
sehingga fungsi Indirect :
=Indirect( E4&F4 )
dan akan menghasilkan nilai dialamat cell hasil komputasi E4&F4. Berhubung
E4&F4 menghasilkan teks berbunyi A1, berarti fungsi Indirect akan mengambil
nilai yang ada di cell A1.
Cakep ya fungsi Indirect-nya....
Sayangnya, jika Anda gunakan fungsi ini secara masif, maka dimanapun ada
proses yang memicu kalkulasi Excel, maka seluruh cell yang berisi fungsi
Indirect ini akan dikalkulasi juga.
Coba bayangkan, Anda memiliki 10 sheet yang setiap sheetnya ada 1000 cells
berisi fungsi Indirect, yang berarti ada 10000 cell berisi fungsi Indirect
di workbook tersebut. Kemudian Anda membuat sebuah sheet baru. Jadi
pastilah seluruh cell di sheet baru ini tidak pernah memiliki hubungan
kekerabatan formula dengan 10 sheet sebelumnya. Kemudian di sheet baru
(sheet ke-11) ini pada cell z7 nya diberi suatu nilai seperti menulis bunyi
Kid lalu Enter. Maka 10000 cell yang ada fungsi Indirect nya tadi akan
dikalkulasi.
Itulah tadi gambaran dari sifat fungsi yang berjuluk VOLATILE.
Excel memiliki beberapa fungsi yang memiliki sifat volatile, yaitu antara
lain :
1. OFFSET
2. INDIRECT
3. RAND
4. RANDBETWEEN (xl2007 ke atas)
5. TODAY
6. NOW
setidaknya, 6 fungsi di atas, jika digunakan atau dirujuk secara masif oleh
banyak cells berformula, maka cells tersebut akan dikalkulasi oleh Excel
setiap kali ada cell yang berubah dimanapun, karena akan memicu kalkulasi
Excel. Cells dinyatakan berubah jika terjadi hal-hal berikut :
1. menghapus sheet
2. membuang cells (baris [delete entire row] atau kolom [delete entire
column] atau sebuah cell [delete shift cell arah tertentu] )
3. mengubah nilai dalam cells
4. mengubah bunyi formula dalam cells
Proses kalkulasi Excel bisa di-set manual supaya tidak selalu terjadi
kalkulasi setiap saat. Setting kalkulasi ke-manual bukanlah mencegah proses
kalkulasi, tetapi menunda kalkulasi. Begitu ada perintah kalkulasi atau
setting kembali ke automatic, maka seluruh antrian kalkulasi akibat sifat
volatile tadi (tentu sudah bertumpuk banyak sekali daftar cell yang harus
dikalkulasi) akan dikalkulasi.
Tapi lumayanlah, setting kalkulasi ke manual tidak akan mengganggu peroses
penggantian suatu cells.
Untuk kasus Anda ini, ada cara lain yang tidak lebih simple... maksudnya
yang jauh lebih ribet dan rumit, tetapi tidak volatile.
Contoh :
- jika di cell E5 berisi angka 1 yang mewakili kolom ke-1 (di cell E4
berisi A kan ya)
- lalu di cell F5 berisi angka 1 yang mewakili baris ke-1 (di cell F4
berisi 1 kan ya)
maka untuk mengambil nilai di cell A1 (kolom ke-1 pada baris ke-1 Excel)
bisa dilakukan dengan fungsi Index.
Syntax :
=Index( area_data , baris_data , kolom_data )
Pada kasus ini, area_data adalah seluruh cells Excel.
Jika di xl2003 (file Anda berekstensi xls loh, jadi asumsinya pakai xl2003)
berarti merujuk ke 1:65536 (di xl2007 ke atas 1048576)
baris_data merujuk ke cell F5
kolom_data merujuk ke cell E5
maka cell hasil bisa diisi dengan fungsi Index berbunyi :
=Index( $1:$65536 , f5 , e5 )
*** Syarat dan ketentuan : f5 dan e5 tidak merujuk ke cell yang berisi
formula Index tersebut, agar tidak circular reference
Jadi, inputan alamat cellnya adalah nomor kolom dan nomor baris Excel.
Andai, (andai ajah loh ya)
Anda ndak suka kalau inputannya diubah-ubah, dan tetap ngotot maunya
inputannya adalah hurufnya si kolom dan barisnya seperti E4 dan F4, berarti
harus beribet ria agar tidak volatile. Fungsi Index, Match, Address bisa
digunakan.
Sebenarnya ada fungsi evaluate yang juga bisa digunakan, sayangnya harus
diletakkan pada sebuah nama range dan sayangnya, pengubahan nilai di cell
yang akan diambil hasilnya tidak akan memicu si evaluate untuk dikalkulasi
alias tidak akan membuat cell yang menggunakan fungsi Evaluate akan ikut
berubah hasilnya. Pada kasus ini, jika cell hasil memanfaatkan evaluate
melalui nama range tertentu yang akan mengambil nilai di A1, maka
pengubahan di cell A1 tidak akan mengubah cell hasil. Jika yang diubah
adalah cell yang dirujuk oleh evaluate (dalam hal ini cell e4 dan f4 yang
menunjukkan alamat cell yang akan diambil nilainya), maka cell hasil akan
berubah.
Pakai Index, Match, Address saja ya... (supaya lebih mirip dengan fungsi
Indirect)
Kolom di E4 (bernilai 'A') dan baris di F4 (bernilai 1)
di cell hasil diberi formula :
=Index( $1:$65536 , F4 , Match( "$" & E4 & "$1" , Index( Address( 1 ,
Column($1:$1) ) , 0 ) , 0 ) )
Cara lainnya lagi adalah dengan VBA event change (tapi cara ini kurang
keren karena ndak tricky n ndak memanfaatkan fitur Formula yang menjadi
kekuatan utama Excel)
Wassalamu'alaikum Wr. Wb.
Kid.
2014-10-14 3:48 GMT+11:00 boim36@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Assalamualaikum, Wr. Wb.
>
> Sebelumnya saya ucapkan terima kasih,
> karena saya baru bergabung di grup ini.
>
> saya lampirkan file excel,
> Silahkan download terlebih dahulu.
>
> ---
>
> Dari gambar tersebut,
> di Cells C4
> saya tulis rumus
> =D4&E4&F4
> sehingga penggabungan dari cells D4, E4, dan F4
> dan hasilnya akan terlihat tampilan
> =A1
>
> ---
>
> Saya mau tanyakan yaitu :
> Bagaimana cara tampilan di cells C4
> bukan tampilan =A1
> tapi terlihat tampilan langsung nilai di cells A1
> secara otomatis yaitu angka 20
>
> ---
>
> Kalau cara copy, lalu paste special (values)
> saya sudah tahu
>
> ---
>
> saya ingin tahu rumus excel nya secara otomatis,
> tanpa cara copy, lalu paste special (values)
>
> ---
>
> Terima kasih,
> Wassalamualaikum, Wr. Wb.
>
>
>
>
Mon Oct 13, 2014 8:11 pm (PDT) . Posted by:
"lkm jktind" lkmjkt
Pak Kid.
Terima kasih .
sudah bisa .
path = ActiveWorkbook.path
flnm = ActiveWorkbook.Name
datS1 = "Ringkasan Saham(10 Oktober 2014).xls"
datS2 = "OHLC-20140815.xlsx"
datS1 = flnm
datC1 = "("
datC2 = "-"
If InStr(flnm, datC1) > 0 Then
MsgBox "ada karakter ( "
ElseIf InStr(flnm, datC2) > 0 Then
MsgBox "ada karakter - "
Else
MsgBox "kosong "
End If
yg sekarang ini nga pakai error , error an
Salam
Lukman
2014-10-13 13:27 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Untuk kasus Anda ini, coba pelajari fungsi InStr milik VB daripada
> menggunakan methods milik WorksheetFunction
>
> Wassalam,
> Kid.
>
>
>
> 2014-10-10 23:44 GMT+11:00 lkm jktind lkmjktind@gmail.com [belajar-excel]
> <belajar-excel@yahoogroups.com>:
>
>
>>
>> Pak Kid.
>>
>> file nya ada beberapa macam .
>> Ringkasan Saham(10 Oktober 2014).xls
>> OHLC-2014-08-15.xls
>>
>> saya hendak mengambil tgl nya .
>>
>> Dim bResult As Boolean ' sebelum nya saya pakai variant,
>> long dll nga bisa juga
>> path = ActiveWorkbook.path
>> flnm = ActiveWorkbook.Name
>>
>> With Application.WorksheetFunction
>>
>> If bResult = IsError(.Find("(", flnm, 1)) Then
>> MsgBox "berhasil"
>> ElseIf bResult = IsError(.Find("-", flnm, 1)) Then
>> MsgBox "berhasil 1"
>> End If
>>
>> End With
>>
>> disitu saya gagal terus .
>>
>> Karena nga bisa jadinya seperti ini :
>>
>> With Application.WorksheetFunction
>>
>> On Error GoTo Pesan1
>> If bResult = IsError(.Find("(", flnm, 1)) Then
>> MsgBox "berhasil 1"
>> End If
>>
>> Pesan1:
>> On Error GoTo Pesan2
>> If bResult = IsError(.Find("-", flnm, 1)) Then
>> MsgBox "berhasil 2"
>> End If
>> Pesan2:
>> End With
>>
>>
>>
>> Salam
>>
>> Lukman
>>
>>
>>
>>
>> 2014-10-10 16:58 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com>:
>>
>>
>>>
>>> Hai Lukman,
>>>
>>> Untuk formula sederhana seperti contoh tersebut, biasanya dibiarkan
>>> dipasang dalam cells saja. Menghitung dengan perintah VBA jauh lebih lambat
>>> dibanding dibiarkan berada dalam cells dan lebih ribet mengubah-ubahnya.
>>> Hasil dari kalkulasi formula dalam cell yang digunakan oleh VBA. Metode ini
>>> jauh lebih efisien untuk berbagai jumlah record data yang akan diproses.
>>> Terkadang muncul ketidak efisienan ketika ada formula proses yang tidak
>>> sederhana atau menggunakan fungsi volatile dalam formula.
>>>
>>> otherwise...
>>> Ketika ingin semuanya di-VBA-ken, banyak pilihan dalam memanfaatkan
>>> formula melalui VBA.
>>> Antara lain : =ISERROR(MATCH("Ticker";A1:K1;0))
>>> 1. WorksheetFunction :
>>> dim bResult as boolean
>>> with application.worksheetfunction
>>> bresult=.iserror( .match( "Ticker" , A1:K1 ,0 ) )
>>> end with
>>>
>>> 2. Evaluate :
>>> dim bResult as boolean
>>> bresult =evaluate( "=ISERROR(MATCH(""Ticker"";A1:K1;0))" )
>>>
>>> 3. Pasang formula ke cell lalu di values
>>> application.calculation=xlcalculationautomatic
>>> with sheets("nama sheet hasil").range("alamat cell hasil")
>>> .formula="=ISERROR(MATCH(""Ticker"";A1:K1;0))"
>>> .value=.value
>>> end with
>>>
>>> 4. Loop (jika data yang diproses sedikit [kurang dari 50K loop], akan
>>> lebih cepat dari 3 cara di atas)
>>> dim lCells as long, bResult as boolean
>>> with range("a1:k1")
>>> for lcells=1 to .cells.count
>>> if .cells( lcells ).value<>"Ticker" then
>>> bresult=true
>>> exit for
>>> endif
>>> next lcells
>>> end with
>>>
>>> Wassalam,
>>> Kid.
>>>
>>>
>>>
>>> On Fri, Oct 10, 2014 at 3:54 PM, lkm jktind lkmjktind@gmail.com
>>> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>>>
>>>>
>>>>
>>>> Tanya :
>>>>
>>>> Kalau Di worksheet :
>>>> =ISERROR(MATCH("Ticker";A1:K1;0))
>>>> =ISERROR(MATCH("Low";A1:K1;0))
>>>> =ISERROR(FIND("(";C14;1))
>>>> =ISERROR(FIND("H";C14;1))
>>>>
>>>> Kalau di VBA harus pakai apa ?
>>>>
>>>> Salam
>>>>
>>>> Lukman
>>>>
>>>>
>>>
>>
>
>
Terima kasih .
sudah bisa .
path = ActiveWorkbook.path
flnm = ActiveWorkbook.Name
datS1 = "Ringkasan Saham(10 Oktober 2014).xls"
datS2 = "OHLC-20140815.xlsx"
datS1 = flnm
datC1 = "("
datC2 = "-"
If InStr(flnm, datC1) > 0 Then
MsgBox "ada karakter ( "
ElseIf InStr(flnm, datC2) > 0 Then
MsgBox "ada karakter - "
Else
MsgBox "kosong "
End If
yg sekarang ini nga pakai error , error an
Salam
Lukman
2014-10-13 13:27 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Untuk kasus Anda ini, coba pelajari fungsi InStr milik VB daripada
> menggunakan methods milik WorksheetFunction
>
> Wassalam,
> Kid.
>
>
>
> 2014-10-10 23:44 GMT+11:00 lkm jktind lkmjktind@gmail.com [belajar-excel]
> <belajar-excel@yahoogroups.com>:
>
>
>>
>> Pak Kid.
>>
>> file nya ada beberapa macam .
>> Ringkasan Saham(10 Oktober 2014).xls
>> OHLC-2014-08-15.xls
>>
>> saya hendak mengambil tgl nya .
>>
>> Dim bResult As Boolean ' sebelum nya saya pakai variant,
>> long dll nga bisa juga
>> path = ActiveWorkbook.path
>> flnm = ActiveWorkbook.Name
>>
>> With Application.WorksheetFunction
>>
>> If bResult = IsError(.Find("(", flnm, 1)) Then
>> MsgBox "berhasil"
>> ElseIf bResult = IsError(.Find("-", flnm, 1)) Then
>> MsgBox "berhasil 1"
>> End If
>>
>> End With
>>
>> disitu saya gagal terus .
>>
>> Karena nga bisa jadinya seperti ini :
>>
>> With Application.WorksheetFunction
>>
>> On Error GoTo Pesan1
>> If bResult = IsError(.Find("(", flnm, 1)) Then
>> MsgBox "berhasil 1"
>> End If
>>
>> Pesan1:
>> On Error GoTo Pesan2
>> If bResult = IsError(.Find("-", flnm, 1)) Then
>> MsgBox "berhasil 2"
>> End If
>> Pesan2:
>> End With
>>
>>
>>
>> Salam
>>
>> Lukman
>>
>>
>>
>>
>> 2014-10-10 16:58 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com>:
>>
>>
>>>
>>> Hai Lukman,
>>>
>>> Untuk formula sederhana seperti contoh tersebut, biasanya dibiarkan
>>> dipasang dalam cells saja. Menghitung dengan perintah VBA jauh lebih lambat
>>> dibanding dibiarkan berada dalam cells dan lebih ribet mengubah-ubahnya.
>>> Hasil dari kalkulasi formula dalam cell yang digunakan oleh VBA. Metode ini
>>> jauh lebih efisien untuk berbagai jumlah record data yang akan diproses.
>>> Terkadang muncul ketidak efisienan ketika ada formula proses yang tidak
>>> sederhana atau menggunakan fungsi volatile dalam formula.
>>>
>>> otherwise...
>>> Ketika ingin semuanya di-VBA-ken, banyak pilihan dalam memanfaatkan
>>> formula melalui VBA.
>>> Antara lain : =ISERROR(MATCH("Ticker";A1:K1;0))
>>> 1. WorksheetFunction :
>>> dim bResult as boolean
>>> with application.worksheetfunction
>>> bresult=.iserror( .match( "Ticker" , A1:K1 ,0 ) )
>>> end with
>>>
>>> 2. Evaluate :
>>> dim bResult as boolean
>>> bresult =evaluate( "=ISERROR(MATCH(""Ticker"";A1:K1;0))" )
>>>
>>> 3. Pasang formula ke cell lalu di values
>>> application.calculation=xlcalculationautomatic
>>> with sheets("nama sheet hasil").range("alamat cell hasil")
>>> .formula="=ISERROR(MATCH(""Ticker"";A1:K1;0))"
>>> .value=.value
>>> end with
>>>
>>> 4. Loop (jika data yang diproses sedikit [kurang dari 50K loop], akan
>>> lebih cepat dari 3 cara di atas)
>>> dim lCells as long, bResult as boolean
>>> with range("a1:k1")
>>> for lcells=1 to .cells.count
>>> if .cells( lcells ).value<>"Ticker" then
>>> bresult=true
>>> exit for
>>> endif
>>> next lcells
>>> end with
>>>
>>> Wassalam,
>>> Kid.
>>>
>>>
>>>
>>> On Fri, Oct 10, 2014 at 3:54 PM, lkm jktind lkmjktind@gmail.com
>>> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>
>
Mon Oct 13, 2014 8:44 pm (PDT) . Posted by:
"ris ha" har1sn.excel
Subhanallah, mantab banget formula. Thanks Mr. Kid
SalamHaris
On Friday, October 10, 2014 3:22 AM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Wa'alaikumussalam Wr. Wb.
Coba begini :
0. dikolom D sheet Data (cell D2) beri formula bantu penyusun nomor urut :
=IF(B2<>B1,1,IF(C2<>C1,1+INT(D1),D1+0.000001))
copy ke bawah ke seluruh record data
1. sheet Data di sort berdasar Bulan (Asc) dan Data (Desc) [bila perlu, pasang autofilter lebih dulu agar bisa memanfaatkan Reapply]
2. ke sheet hasil, cell A2 diberi formula :
=SUMIFS(Data!$C$2:$C$10,Data!$B$2:$B$10,MONTH(A$1),Data!$D$2:$D$10,ROW()-ROW($A$1))
copy ke kanan dan ke bawah [manfaatkan Custom Number Formats untuk sembunyikan angka 0 bila perlu]
Wassalamu'alaikum Wr. Wb.
Kid.
2014-10-09 12:49 GMT+11:00 ris ha har1sn.excel@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Assalamu'alaikum.
semoga para master semua sehat selalu dan dimudahkan segala urusannya oleh Alloh Swt. Amin
Bagaimana caranya memilah data berdasarkan bulan, sekaligus :
1. Menghilangkan data yang sama
2. Mengurutkan data dari yang terbesar
File terlampir.
Terima kasih banyak atas solusinya.
Salam
Haris
#yiv1762249956 #yiv1762249956 -- #yiv1762249956ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv1762249956 #yiv1762249956ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv1762249956 #yiv1762249956ygrp-mkp #yiv1762249956hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv1762249956 #yiv1762249956ygrp-mkp #yiv1762249956ads {margin-bottom:10px;}#yiv1762249956 #yiv1762249956ygrp-mkp .yiv1762249956ad {padding:0 0;}#yiv1762249956 #yiv1762249956ygrp-mkp .yiv1762249956ad p {margin:0;}#yiv1762249956 #yiv1762249956ygrp-mkp .yiv1762249956ad a {color:#0000ff;text-decoration:none;}#yiv1762249956 #yiv1762249956ygrp-sponsor #yiv1762249956ygrp-lc {font-family:Arial;}#yiv1762249956 #yiv1762249956ygrp-sponsor #yiv1762249956ygrp-lc #yiv1762249956hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv1762249956 #yiv1762249956ygrp-sponsor #yiv1762249956ygrp-lc .yiv1762249956ad {margin-bottom:10px;padding:0 0;}#yiv1762249956 #yiv1762249956actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv1762249956 #yiv1762249956activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv1762249956 #yiv1762249956activity span {font-weight:700;}#yiv1762249956 #yiv1762249956activity span:first-child {text-transform:uppercase;}#yiv1762249956 #yiv1762249956activity span a {color:#5085b6;text-decoration:none;}#yiv1762249956 #yiv1762249956activity span span {color:#ff7900;}#yiv1762249956 #yiv1762249956activity span .yiv1762249956underline {text-decoration:underline;}#yiv1762249956 .yiv1762249956attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv1762249956 .yiv1762249956attach div a {text-decoration:none;}#yiv1762249956 .yiv1762249956attach img {border:none;padding-right:5px;}#yiv1762249956 .yiv1762249956attach label {display:block;margin-bottom:5px;}#yiv1762249956 .yiv1762249956attach label a {text-decoration:none;}#yiv1762249956 blockquote {margin:0 0 0 4px;}#yiv1762249956 .yiv1762249956bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv1762249956 .yiv1762249956bold a {text-decoration:none;}#yiv1762249956 dd.yiv1762249956last p a {font-family:Verdana;font-weight:700;}#yiv1762249956 dd.yiv1762249956last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv1762249956 dd.yiv1762249956last p span.yiv1762249956yshortcuts {margin-right:0;}#yiv1762249956 div.yiv1762249956attach-table div div a {text-decoration:none;}#yiv1762249956 div.yiv1762249956attach-table {width:400px;}#yiv1762249956 div.yiv1762249956file-title a, #yiv1762249956 div.yiv1762249956file-title a:active, #yiv1762249956 div.yiv1762249956file-title a:hover, #yiv1762249956 div.yiv1762249956file-title a:visited {text-decoration:none;}#yiv1762249956 div.yiv1762249956photo-title a, #yiv1762249956 div.yiv1762249956photo-title a:active, #yiv1762249956 div.yiv1762249956photo-title a:hover, #yiv1762249956 div.yiv1762249956photo-title a:visited {text-decoration:none;}#yiv1762249956 div#yiv1762249956ygrp-mlmsg #yiv1762249956ygrp-msg p a span.yiv1762249956yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv1762249956 .yiv1762249956green {color:#628c2a;}#yiv1762249956 .yiv1762249956MsoNormal {margin:0 0 0 0;}#yiv1762249956 o {font-size:0;}#yiv1762249956 #yiv1762249956photos div {float:left;width:72px;}#yiv1762249956 #yiv1762249956photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv1762249956 #yiv1762249956photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv1762249956 #yiv1762249956reco-category {font-size:77%;}#yiv1762249956 #yiv1762249956reco-desc {font-size:77%;}#yiv1762249956 .yiv1762249956replbq {margin:4px;}#yiv1762249956 #yiv1762249956ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv1762249956 #yiv1762249956ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv1762249956 #yiv1762249956ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv1762249956 #yiv1762249956ygrp-mlmsg select, #yiv1762249956 input, #yiv1762249956 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv1762249956 #yiv1762249956ygrp-mlmsg pre, #yiv1762249956 code {font:115% monospace;}#yiv1762249956 #yiv1762249956ygrp-mlmsg * {line-height:1.22em;}#yiv1762249956 #yiv1762249956ygrp-mlmsg #yiv1762249956logo {padding-bottom:10px;}#yiv1762249956 #yiv1762249956ygrp-msg p a {font-family:Verdana;}#yiv1762249956 #yiv1762249956ygrp-msg p#yiv1762249956attach-count span {color:#1E66AE;font-weight:700;}#yiv1762249956 #yiv1762249956ygrp-reco #yiv1762249956reco-head {color:#ff7900;font-weight:700;}#yiv1762249956 #yiv1762249956ygrp-reco {margin-bottom:20px;padding:0px;}#yiv1762249956 #yiv1762249956ygrp-sponsor #yiv1762249956ov li a {font-size:130%;text-decoration:none;}#yiv1762249956 #yiv1762249956ygrp-sponsor #yiv1762249956ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv1762249956 #yiv1762249956ygrp-sponsor #yiv1762249956ov ul {margin:0;padding:0 0 0 8px;}#yiv1762249956 #yiv1762249956ygrp-text {font-family:Georgia;}#yiv1762249956 #yiv1762249956ygrp-text p {margin:0 0 1em 0;}#yiv1762249956 #yiv1762249956ygrp-text tt {font-size:120%;}#yiv1762249956 #yiv1762249956ygrp-vital ul li:last-child {border-right:none !important;}#yiv1762249956
SalamHaris
On Friday, October 10, 2014 3:22 AM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Wa'alaikumussalam Wr. Wb.
Coba begini :
0. dikolom D sheet Data (cell D2) beri formula bantu penyusun nomor urut :
=IF(B2<>B1,1,IF(C2<>C1,1+INT(D1),D1+0.000001))
copy ke bawah ke seluruh record data
1. sheet Data di sort berdasar Bulan (Asc) dan Data (Desc) [bila perlu, pasang autofilter lebih dulu agar bisa memanfaatkan Reapply]
2. ke sheet hasil, cell A2 diberi formula :
=SUMIFS(Data!$C$2:$C$10,Data!$B$2:$B$10,MONTH(A$1),Data!$D$2:$D$10,ROW()-ROW($A$1))
copy ke kanan dan ke bawah [manfaatkan Custom Number Formats untuk sembunyikan angka 0 bila perlu]
Wassalamu'alaikum Wr. Wb.
Kid.
2014-10-09 12:49 GMT+11:00 ris ha har1sn.excel@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Assalamu'
semoga para master semua sehat selalu dan dimudahkan segala urusannya oleh Alloh Swt. Amin
Bagaimana caranya memilah data berdasarkan bulan, sekaligus :
1. Menghilangkan data yang sama
2. Mengurutkan data dari yang terbesar
File terlampir.
Terima kasih banyak atas solusinya.
Salam
Haris
#yiv1762249956 #yiv1762249956 -- #yiv1762249956ygrp-
Mon Oct 13, 2014 11:03 pm (PDT) . Posted by:
"ris ha" har1sn.excel
Assalamu'alaikum.
Puja dan puji syukur kepada Alloh Swt yang telah mempertemukan saya dengan para master excel semua dalam milis excel ini.
Hari ini saya ada kendala, terkait dengan print merge. Saya telah membuat print merge dengan metode menentukan batas awal dan akhir record. Namun saya kesulitan untuk membuat macro print All dengan data print record yang tidak urut. Berikut saya sertakan contoh gambarnya. Data yang hendak dicetak ada pada jendela Cetak Lulus Uji Mutu.
Terima kasih atas solusinya.
SalamHaris
Puja dan puji syukur kepada Alloh Swt yang telah mempertemukan saya dengan para master excel semua dalam milis excel ini.
Hari ini saya ada kendala, terkait dengan print merge. Saya telah membuat print merge dengan metode menentukan batas awal dan akhir record. Namun saya kesulitan untuk membuat macro print All dengan data print record yang tidak urut. Berikut saya sertakan contoh gambarnya. Data yang hendak dicetak ada pada jendela Cetak Lulus Uji Mutu.
Terima kasih atas solusinya.
SalamHaris
Tue Oct 14, 2014 2:41 am (PDT) . Posted by:
"Dahlia Kudriyani" lia82imut
Dear pakar2 excell,
Aku baru ikutan gabung nih. Ingin belajar Makro & VBA dari awal alias pemula bingits.
Makro & VBA aja aku nggak ngerti maininnya bagaimana.
Apakah para senior disini punya buku pemula (yang paling dasar) untuk belajar Makro & VBA ?
Mohon infonya, nanti aku cari di Gramedia.
Terima kasih ya
Lia
Aku baru ikutan gabung nih. Ingin belajar Makro & VBA dari awal alias pemula bingits.
Makro & VBA aja aku nggak ngerti maininnya bagaimana.
Apakah para senior disini punya buku pemula (yang paling dasar) untuk belajar Makro & VBA ?
Mohon infonya, nanti aku cari di Gramedia.
Terima kasih ya
Lia
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar