RE: [belajar-excel] Sum kolom (Per Jan-Mar)
Muhun maaf Mr. Kid, bukan hati bermaksud melecehkan atau apalahbaca emailnya ga tuntas...langsung ke lampiran, ternyata yg kirim Mr. KidThanks a lotMaaf OOT nih Mod(Takut kena sumpah serapah dari Mr Kid) From: belajar-excel@yahoogroups.com [mailto:belajar-ex...@yahoogroups.com] On Behalf Of siti Vi Sent: Wednesday, December 23, 2009 2:50 PM To: belajar-excel@yahoogroups.com Subject: Re: [belajar-excel] Sum kolom (Per Jan-Mar) hayyah.. dasar wong jowo; suka-nya 'apik-apikan aten' =perlombaan baik hati, dgn cara saling mendahulukan teman OOT dikitt ndak pa pa ya 'mber (members), mumpung lagi holiday... - Original Message - From: Mr. Kid mailto:mr.nm...@gmail.com To: belajar-excel@yahoogroups.com Sent: Wednesday, December 23, 2009 2:39 PM Subject: Re: [belajar-excel] Sum kolom (Per Jan-Mar) gak ding, lha saya cuma memodifikasi idenya mbak siti. ide orisinilnya dari mbak siti kok. makasih ya mbak siti, karena belum bilang memodifikasi dikit dari idenya. Kid. 2009/12/23 siti Vi setiyowati.d...@gmail.com whuaa.. itu bantuan dari mas Mr Kid lhoo..
Re: [belajar-excel] Sum kolom (Per Jan-Mar)
:) terimakasih. Moga-moga manfaat. Kalau boleh buka rahasia dikit, formulanya masih belum universal, karena hanya bisa untuk data setahun yang selalu dari bulan 1 sampai 12 dan tidak bisa dari 7 sampai 6. Apalagi nanti kalau datanya sudah tidak kekanan lagi (misal summary perkembangan biaya proyek yang bertahun-tahun), harus dirombak total. Jadi, saya juga minta maaf kalau gak universal. Semoga ada yang punya formula universalnya. supaya bisa untuk data banyak baik kekanan atau kebawah. Kid. 2009/12/23 Moelyadi, CITRA moely...@citra.co.id Muhun maaf Mr. Kid, bukan hati bermaksud melecehkan atau apalah….baca emailnya ga tuntas…langsung ke lampiran, ternyata yg kirim Mr. Kid….Thanks a lot….Maaf OOT nih Mod….(Takut kena sumpah serapah dari Mr Kid) *From:* belajar-excel@yahoogroups.com [mailto: belajar-ex...@yahoogroups.com] *On Behalf Of *siti Vi *Sent:* Wednesday, December 23, 2009 2:50 PM *To:* belajar-excel@yahoogroups.com *Subject:* Re: [belajar-excel] Sum kolom (Per Jan-Mar) hayyah.. dasar wong jowo; suka-nya 'apik-apikan aten' =perlombaan baik hati, dgn cara saling mendahulukan teman OOT dikitt ndak pa pa ya 'mber (members), mumpung lagi holiday... - Original Message - *From:* Mr. Kid mr.nm...@gmail.com *To:* belajar-excel@yahoogroups.com *Sent:* Wednesday, December 23, 2009 2:39 PM *Subject:* Re: [belajar-excel] Sum kolom (Per Jan-Mar) gak ding, lha saya cuma memodifikasi idenya mbak siti. ide orisinilnya dari mbak siti kok. makasih ya mbak siti, karena belum bilang memodifikasi dikit dari idenya. Kid. 2009/12/23 siti Vi setiyowati.d...@gmail.com whuaa.. itu bantuan dari mas Mr Kid lhoo..
Re: [belajar-excel] VBA evaluate untuk hasil dalam variabel array?
saya coba jawab mas Kid, (semoga juga gak salah maksudnya) maksudnya seperti inikah, Misalkan contohnya =SMALL(IF($A$1:$A$50,2,0),1) mau VBA-kan ada 2 cara di sini, yaitu: Cara 1 === Sub abc() Dim x x = Sheets(Sheet1).Range(A1:A5).Address [C1] = Evaluate(SMALL(IF( x 0 ,2,0),1)) MsgBox SMALL(IF( x 0 ,2,0),1) End Sub === Cara2 (lebih singkat) === Sub def() [D1].FormulaArray = =SMALL(IF($A$1:$A$50,2,0),1) End Sub === semoga bermanfaat From: Mr. Kid mr..nm...@gmail.com To: belajar-excel@yahoogroups.com Sent: Wed, December 23, 2009 2:48:39 PM Subject: [belajar-excel] VBA evaluate untuk hasil dalam variabel array? Dear All, Bagaimanakah cara menggunakan Evaluate() dalam VBA yang bisa hasilnya berupa array disimpan dalam variabel array? Mungkinkah tanpa menggunakan loop? Contohnya untuk formula kondang Small(IF()) atau yang semacamnya. Bisakah langsung : dim vHasil as Variant vHasil=Evaluate(=small(if(bla- bla-bla), urutan) Warm Regards. Kid.
Re: [belajar-excel] VBA evaluate untuk hasil dalam variabel array?
Terima kasih Pak Anton. Boleh dong tanya lagi untuk semua juga ya. Kalau angka 1 dalam SMALL(IF( x 0 ,2,0),1) akan diganti Row($1:$5) dan [C1] diganti dengan vHasil yang ber-type Variant, sebaiknya bagaimana ya? Karena yang digunakan sekarang (dikonversi ke koding Pak Anton) jadi : Range(c1:c5)=evaluate(SMALL(IF( x 0 ,Row($1:$5)),Row($1:$5)) kok hasilnya sama dengan SMALL(IF( x 0 ,2,0),1) Target hasil : seluruh hasil array formula melalui Evaluate() yang berupa array langsung masuk ke variabel vHasil, sehingga vHasil menjadi variant Array juga. Latar belakang : Selama ini digunakan loop jika elemen array hasil pemilahan (small if pada contoh kan juga formula pemilah data ya) tidak lebih dari 400 elemen. (angka 400 adalah hasil hitung kancing satu tim... hahahaha... tapi ini beneran..) Untuk hasil elemen lebih dari itu, digunakan SQL dengan left join-nya (di excel biasa disebut lookup). Masalah : Diminta dengan metode lain yang bisa langsung men-select seluruh areas, hingga bisa ditracking datanya ke datasource (seperti klik kanan show detail pada pivot table, tapi dilakukan terhadap tabel agregat). Ide : - Jika bisa mendapatkan array melalui sebuah formula pemilah, maka hal itu akan membuka jalan untuk proses selanjutnya tanpa membuat sebuah koneksi data lagi. Lalu mencoba memanfaatkan evaluate(). Karena memasang formula pada satu kolom bantu menguras resources berulang-kali ketika calculation dilakukan ( manual dengan Range(helper).calculate ) Kebingungan : Bagaimana caranya ya.. mungkin terlalu naif jika pakai Evaluate kali ya. Versi excel : xl2007 -- suasana akhir tahun bisa diakhiri dengan cerita ruwet -- :( Bantuan ide apa saja sangat berarti. Kid. 2009/12/23 anton suryadi summon...@yahoo.com saya coba jawab mas Kid, (semoga juga gak salah maksudnya) maksudnya seperti inikah, Misalkan contohnya =SMALL(IF($A$1:$A$50,2,0),1) mau VBA-kan ada 2 cara di sini, yaitu: Cara 1 === Sub abc() Dim x x = Sheets(Sheet1).Range(A1:A5).Address [C1] = Evaluate(SMALL(IF( x 0 ,2,0),1)) MsgBox SMALL(IF( x 0 ,2,0),1) End Sub === Cara2 (lebih singkat) === Sub def() [D1].FormulaArray = =SMALL(IF($A$1:$A$50,2,0),1) End Sub === semoga bermanfaat -- *From:* Mr. Kid mr.nm...@gmail.com *To:* belajar-excel@yahoogroups.com *Sent:* Wed, December 23, 2009 2:48:39 PM *Subject:* [belajar-excel] VBA evaluate untuk hasil dalam variabel array? Dear All, Bagaimanakah cara menggunakan Evaluate() dalam VBA yang bisa hasilnya berupa array disimpan dalam variabel array? Mungkinkah tanpa menggunakan loop? Contohnya untuk formula kondang Small(IF()) atau yang semacamnya. Bisakah langsung : dim vHasil as Variant vHasil=Evaluate(=small(if(bla- bla-bla), urutan) Warm Regards. Kid.
Re: [belajar-excel] (WTA) Run Time Errror '1004':, Unable to get Find Property of the WorksheetFunction class
Templatecoba diganti dengan memanfaatkan fungsi yg sudah ada di VBA Private Sub cmd1_Click() If Me.TextBox1.Value = Then MsgBox Model Tidak Boleh Kosong, vbExclamation, Calculated Else If InStr(1, Me.TextBox1.Value, Chr(32)) 0 Then MsgBox Penulisan Model tidak boleh menggunakan SPASI, vbExclamation, Calculated Else Call MasterOK End If End If End Sub bedanya FIND milik workshet dan INSTR milik VBA FIND: jika yg dicari tidak ketemu menghasilkan error_value INSTR: jika yg dicari tidak ketemu menghasilkan 0 Jadi lebih mudah meng IF kannya dlm fungsi IF walaupun sudah ditulis If IsError(WorksheetFunction.Find(Chr(32), (Me.TextBox1.Value), 1)) = False sebelum dievaluasi dengan ISERROR, bagian PINK masih tetap dievaluasi lebih dulu sehingga menimbulkan pesan error oiya cara menuliskan statemant MsgBox jika hanya ingin langsung ditampilkan (1) tidak perlu di assigned ke sebuah variable (2) arguments nya tidak perlu di beri tanda kurung - Original Message - From: hery wahyudi To: belajar-excel@yahoogroups.com Sent: Thursday, December 24, 2009 9:31 AM Subject: [belajar-excel] (WTA) Run Time Errror '1004':, Unable to get Find Property of the WorksheetFunction class Selamat Pagi, aku buat kode pemilahan, untuk Textbox di sebuah form: Private Sub cmd1_Click() If Me.TextBox1.Value = Then h = MsgBox(Model Tidak Boleh Kosong, vbExclamation, Calculated) Else If IsError(WorksheetFunction.Find(Chr(32), (Me.TextBox1.Value), 1)) = False Then h = MsgBox(Penulisan Model tidak boleh menggunakan SPASI, vbExclamation, Calculated) Else Call masterok End If End If End Sub Pada IF yang kedua jika penulisan terdapat SPASI, maka akan muncul Pesan yang jadi pertanyaan : Saat penulisan sudah benar( tanpa spasi), akan muncul error, kenapa ya? Mohon Bantuannya Temans semua Terimakasih -- Hery Wahyudi yangmasihbelajarVB ctv_Fungsi Instr vs Find.xls Description: MS-Excel spreadsheet
Re: [belajar-excel] (WTA) Run Time Errror '1004':, Unable to get Find Property of the WorksheetFunction class
Templatenah... itu idea yg okeh... (karena memang ada aturan ndak boleh ada spasi maka masukan yg berspasi tidak perlu ditegur dengan msgbox segala macam. langsung di-SIKAT saja pakai sustitute..!! tapi... dari pada pinjam substitute milik worksheet lebih cepat pakai fungsi milik VBA sendiri, REPLACE Dim x as String x = Replace(siti mau mandi, Chr(32), ) hasilnya x = akumaumandi jangan percaya sebelum mencoba !! - Original Message - From: hery wahyudi To: belajar-excel@yahoogroups.com Sent: Thursday, December 24, 2009 10:21 AM Subject: Re: [belajar-excel] (WTA) Run Time Errror '1004':, Unable to get Find Property of the WorksheetFunction class Terimakasih Bu Guru Siti, Jadi pake InStr ya, tadi sambil nunggu Jawaban, aku utak atik lagi menjadi seperti ini: Private Sub cmd1_Click() If Me.TextBox1.Value = Then MsgBox Model Tidak Boleh Kosong, vbExclamation, Calculated Else Me.TextBox1.Value = WorksheetFunction.Substitute(Me.TextBox1.Value, Chr(32), ) Call masterok End If End Sub Textbox valuenya langsung dirapetin, tapi kelihatanya lebih bagus pake InStr, membuat User lebih Waspada (waspadalah 2x , kata bang napi) Iya Bu Guru, karena argumentnya memakai kurung, maka VB minta diberi variable sekarang kurungnya sudah dibuwang, variablenya juga ikut minta dibuwang Sekali lagi Terimakasih Miturut siti Vi kados ingkang kaserat ing ngandap meniko: coba diganti dengan memanfaatkan fungsi yg sudah ada di VBA Private Sub cmd1_Click() If Me.TextBox1.Value = Then MsgBox Model Tidak Boleh Kosong, vbExclamation, Calculated Else If InStr(1, Me.TextBox1.Value, Chr(32)) 0 Then MsgBox Penulisan Model tidak boleh menggunakan SPASI, vbExclamation, Calculated Else Call MasterOK End If End If End Sub bedanya FIND milik workshet dan INSTR milik VBA FIND: jika yg dicari tidak ketemu menghasilkan error_value INSTR: jika yg dicari tidak ketemu menghasilkan 0 Jadi lebih mudah meng IF kannya dlm fungsi IF walaupun sudah ditulis If IsError(WorksheetFunction.Find(Chr(32), (Me.TextBox1.Value), 1)) = False sebelum dievaluasi dengan ISERROR, bagian PINK masih tetap dievaluasi lebih dulu sehingga menimbulkan pesan error oiya cara menuliskan statemant MsgBox jika hanya ingin langsung ditampilkan (1) tidak perlu di assigned ke sebuah variable (2) arguments nya tidak perlu di beri tanda kurung
Re: [belajar-excel] VBA evaluate untuk hasil dalam variabel array?
Sejauh yang saya tau dalam penggunaan SMALL melalui Evaluate DAN di-Range-kan array-nya, hal itu bisa dilakukan dengan Loop (mis: For Next), kecuali hal yg lebih simpel seperti IF bisa dilakukan tanpa Loop apabila menggunakan FormulaArray lebih simpel, Range(C1:C5).FormulaArray = =SMALL(IF(A1:A50,ROW(1:5),0),ROW(1:5)) harus menggunakan Evaluate? Sub eVaLup() [C1:C5] = Evaluate(=IF(A1:A52,ROW(1:5),0)) For i = 1 To 5 Range(D i) = Evaluate(=SMALL($C$1:$C$5, i )) Next i End Sub Small, Evaluate, Array to Range, tanpa Loop? [C1:C5] = Evaluate(=IF(A1:A52,ROW(1:5),0)) bisa tp gagal bila diterapkan pada formula SMALL, Small dengan Evaluate, array di-range kan, tanpa Loop, ilmu saya belum nyampe :D Mungkin rekan [b-e] yang yang lain punya pandangan lain semoga bermanfaat From: Mr. Kid mr.nm...@gmail.com To: belajar-excel@yahoogroups.com Sent: Wed, December 23, 2009 11:20:32 PM Subject: Re: [belajar-excel] VBA evaluate untuk hasil dalam variabel array? Terima kasih Pak Anton. Boleh dong tanya lagi untuk semua juga ya. Kalau angka 1 dalam SMALL(IF( x 0 ,2,0),1) akan diganti Row($1:$5) dan [C1] diganti dengan vHasil yang ber-type Variant, sebaiknya bagaimana ya? Karena yang digunakan sekarang (dikonversi ke koding Pak Anton) jadi : Range(c1:c5)=evaluate(SMALL(IF( x 0 ,Row($1:$5)),Row($1:$5) ) kok hasilnya sama dengan SMALL(IF( x 0 ,2,0),1) Target hasil : seluruh hasil array formula melalui Evaluate() yang berupa array langsung masuk ke variabel vHasil, sehingga vHasil menjadi variant Array juga. Latar belakang : Selama ini digunakan loop jika elemen array hasil pemilahan (small if pada contoh kan juga formula pemilah data ya) tidak lebih dari 400 elemen. (angka 400 adalah hasil hitung kancing satu tim... hahahaha... tapi ini beneran..) Untuk hasil elemen lebih dari itu, digunakan SQL dengan left join-nya (di excel biasa disebut lookup). Masalah : Diminta dengan metode lain yang bisa langsung men-select seluruh areas, hingga bisa ditracking datanya ke datasource (seperti klik kanan show detail pada pivot table, tapi dilakukan terhadap tabel agregat). Ide : - Jika bisa mendapatkan array melalui sebuah formula pemilah, maka hal itu akan membuka jalan untuk proses selanjutnya tanpa membuat sebuah koneksi data lagi. Lalu mencoba memanfaatkan evaluate(). Karena memasang formula pada satu kolom bantu menguras resources berulang-kali ketika calculation dilakukan ( manual dengan Range(helper) .calculate ) Kebingungan : Bagaimana caranya ya.. mungkin terlalu naif jika pakai Evaluate kali ya. Versi excel : xl2007 -- suasana akhir tahun bisa diakhiri dengan cerita ruwet -- :( Bantuan ide apa saja sangat berarti. Kid. 2009/12/23 anton suryadi summon...@yahoo. com saya coba jawab mas Kid, (semoga juga gak salah maksudnya) maksudnya seperti inikah, Misalkan contohnya =SMALL(IF($A$ 1:$A$50,2,0),1) mau VBA-kan ada 2 cara di sini, yaitu: Cara 1 === Sub abc() Dim x x = Sheets(Sheet1).Range(A1:A5).Address [C1] = Evaluate(SMALL(IF( x 0 ,2,0),1)) MsgBox SMALL(IF( x 0 ,2,0),1) End Sub === Cara2 (lebih singkat) === Sub def() [D1].FormulaArray = =SMALL(IF($A$ 1:$A$50,2,0),1) End Sub === semoga bermanfaat From: Mr. Kid mr.nm...@gmail. com To: belajar-excel@ yahoogroups. com Sent: Wed, December 23, 2009 2:48:39 PM Subject: [belajar-excel] VBA evaluate untuk hasil dalam variabel array? Dear All, Bagaimanakah cara menggunakan Evaluate() dalam VBA yang bisa hasilnya berupa array disimpan dalam variabel array? Mungkinkah tanpa menggunakan loop? Contohnya untuk formula kondang Small(IF()) atau yang semacamnya. Bisakah langsung : dim vHasil as Variant vHasil=Evaluate(=small(if(bla- bla-bla), urutan) Warm Regards. Kid.