Re: [belajar-excel] Fungsi IF dan FIND
Walah kebalik, gini nih kalo gak lihat masalahnya langsung. Nanti deh dilihat. Kalo salah dikoreksi lagi. hehehe. =IF(CountIF(a5,*AJU*),Mid(a5,15,6),Left(a5,9)) On Fri, Feb 19, 2010 at 4:32 PM, Mr. Kid mr.nm...@gmail.com wrote: Maaf kalau keliru, karena hanya lihat solusi mas Zainul (belum lihat filenya) =IF(CountIF(a5,*AJU*),Left(a5,9),Mid(a5,15,6)) tapi kalau ternyata yang diambil (pasti 6 karakter) ada di paling kanan, Mid() diganti jadi Right(a5,6) Kid. On Fri, Feb 19, 2010 at 1:37 PM, zainul ulum zainul_u...@yahoo.comwrote: Pakai jebakan error mas, rumusnya dirubah menjadi =IF(ISERROR(FIND(AJU,A5,1)),LEFT(A5,9),MID(A5,15,6)) From: belajar-excel@yahoogroups.com belajar-excel%40yahoogroups.com[mailto: belajar-excel@yahoogroups.com belajar-excel%40yahoogroups.com] On Behalf Of Aghoest Iwan Sent: Friday, February 19, 2010 1:11 PM To: belajar-excel@yahoogroups.com belajar-excel%40yahoogroups.com Subject: [belajar-excel] Fungsi IF dan FIND Dear all masters.. Please help me.. fungsinya sepertinya simple, tapi kok tidak sesuai harapan ya..? Malah jadi bingung.. (see file attached). Jika ada logika yg kurang sempurna, mohon petunjuk para master excel.. Trims n regards, Iwan. __ Information from ESET NOD32 Antivirus, version of virus signature database 4878 (20100218) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com
Re: [belajar-excel] Placed Result
pak Kozhot, kalo gini gimana, Sub Updating_Click() LR = Cells(Rows.Count, 1).End(xlUp).Row LC = Cells(4, Columns.Count).End(xlToLeft).Column Range(Cells(5, 2), Cells(LR, LC)).ClearContents 'tambahan For i = 2 To LC If Cells(4, i) = Range(B2) Then For n = 1 To LR - 4 Cells(4 + n, i) = =VLOOKUP(A (4 + n) ,Source!$A$2:$B$9,2,0) Next n End If Next i End Sub semoga bermanfaat From: Khozhot khozhot2...@telkom.net To: belajar-excel@yahoogroups.com Sent: Fri, February 19, 2010 4:10:25 PM Subject: Re: [belajar-excel] Placed Result Dear Pak Anton, bagus nech rumusnya lebih simple dan cukup mudah untuk dimengeti. Sayangnya, karena hasil di cell tujuan berupa Formula, jadi ketika diisi 1/1 (red: satu per satu) tiap kolom. Hasilnya jadi sama cmua dach xi..xi...xi. Tapi gapapa sech, satu lagi ilmu kudapat hari ini. Kalo isi langsung value dengan kode simple en dapet dimengerti ada lagi gak. Kayaknya sech mang gw yg belajar dari dasar jadi bukan g bisa dimengerti melainkan gw nya az yg perlu banyak bimbingan atawa descripsi langkah kerjanya kalleee heu.heu.heu Hatur nuhun. -- Wassalam. ...zhot thea Using Opera's revolutionary e-mail client: http://www.opera.com/mail/ On Fri, 19 Feb 2010 15:14:22 +0700, anton suryadi summon...@yahoo.com wrote: coba, Sub Updating_Click() LR = Cells(Rows.Count, 1).End(xlUp).Row LC = Cells(4, Columns.Count).End(xlToLeft).Column For i = 2 To LC If Cells(4, i) = Range(B2) Then For n = 1 To LR - 4 Cells(4 + n, i) = =VLOOKUP(A (4 + n) ,Source!$A$2:$B$9,2,0) Next n End If Next i End Sub semoga bermanfaat From: hery wahyudi h...@cresyn.com To: belajar-excel@yahoogroups.com Sent: Fri, February 19, 2010 2:43:09 PM Subject: Re: [belajar-excel] Placed Result mungkin seperti data terlampir kodenya agak berantakan, saya juga masih belajar mungkin Bu Guru Siti ada Solusi yang lebih tepat cmiiw tq Miturut Khozhot kados ingkang kaserat ing ngandap meniko: Dear Suhu, Ada lagee yg mo ditanyain nech. Kucoba coba merangkai kode Kode kurangkai... error ku dapat Kucoba-coba menganti kode. Kode ku tetap error ku dapat xi...xi...xi. .. Bukan syair lagu tapi mirip.nyanyiin az heu...heu... .heu... Intinya masih terus pengen belajar dengan kinds of cases by Macro. Soal Weukbuk terdiri dari dua weuksit, yauti : satu.weuksit Source, en dua. weuksit Result. Data result terus berubah (dalam hal ini ngoacak-ngacak) , sedang data yang ada di weuksit te-es-be pengen masuk ke weuksit Result dimana kolomnya disesuaikan dengan data yang ada di sel B2 yang seperti biasanya dengan warna kesukaan q yauti Kuning ketika di pencet tombol Update. Por ditail, si fail enklosed. -- Wassalam, ヂヂン コマルヂン ...zhot thea Using Opera's revolutionary e-mail client: http://www.opera. com/mail/ -- Template Hery Wahyudi -- Wassalam. ...zhot thea Using Opera's revolutionary e-mail client: http://www.opera.com/mail/
Re: [belajar-excel] Fungsi IF dan FIND
jadi, kesimpulannya, teman-teman COUNTIF tidak harus mencari kriteria di Range yg dimensinya lebih dari satu cell, bisa di satu cell. COUNTIF dapat menggantikan fungsi FIND selama hanya mengharapkan jawaban ADA (1) atau TIDAK(0); dan bukan mengharapkan AngkaPosisi karakter seperti pada FIND/SEARCH Untuk dijadikan LogikalTest, COUNTIF lebih pendek karena tidak perlu digabung dengan ISERR Dok Dok Dok ! (ketuk palu) - Original Message - From: Mr. Kid To: belajar-excel@yahoogroups.com Sent: Friday, February 19, 2010 4:35 PM Subject: Re: [belajar-excel] Fungsi IF dan FIND Walah kebalik, gini nih kalo gak lihat masalahnya langsung. Nanti deh dilihat. Kalo salah dikoreksi lagi. hehehe. =IF(CountIF(a5,*AJU*),Mid(a5,15,6),Left(a5,9)) On Fri, Feb 19, 2010 at 4:32 PM, Mr. Kid mr.nm...@gmail.com wrote: Maaf kalau keliru, karena hanya lihat solusi mas Zainul (belum lihat filenya) =IF(CountIF(a5,*AJU*),Left(a5,9),Mid(a5,15,6)) tapi kalau ternyata yang diambil (pasti 6 karakter) ada di paling kanan, Mid() diganti jadi Right(a5,6) Kid. ctv_fungsi IF dan FIND dan COUNTIF.xls Description: MS-Excel spreadsheet
Re: [belajar-excel] Placed Result
Kalo isi langsung value dengan kode simple en dapet dimengerti ada lagi gak. kalo ingin hasil proses sebelumnya tidak dihapus, n hasilnya berupa value,, coba, Sub Updating_Click() LR = Cells(Rows.Count, 1).End(xlUp).Row LC = Cells(4, Columns.Count).End(xlToLeft).Column For i = 2 To LC If Cells(4, i) = Range(B2) Then For n = 1 To LR - 4 v = =VLOOKUP(A (4 + n) ,Source!$A$2:$B$9,2,0) Cells(4 + n, i) = Evaluate(v) Next n End If Next i End Sub semoga bermanfaat From: anton suryadi summon...@yahoo.com To: belajar-excel@yahoogroups.com Sent: Fri, February 19, 2010 4:43:37 PM Subject: Re: [belajar-excel] Placed Result pak Kozhot, kalo gini gimana, Sub Updating_Click( ) LR = Cells(Rows.Count, 1).End(xlUp) .Row LC = Cells(4, Columns.Count) .End(xlToLeft) .Column Range(Cells( 5, 2), Cells(LR, LC)).ClearContents 'tambahan For i = 2 To LC If Cells(4, i) = Range(B2) Then For n = 1 To LR - 4 Cells(4 + n, i) = =VLOOKUP(A (4 + n) ,Source!$A$ 2:$B$9,2, 0) Next n End If Next i End Sub semoga bermanfaat From: Khozhot Khozhot2009@ telkom.net To: belajar-excel@ yahoogroups. com Sent: Fri, February 19, 2010 4:10:25 PM Subject: Re: [belajar-excel] Placed Result Dear Pak Anton, bagus nech rumusnya lebih simple dan cukup mudah untuk dimengeti. Sayangnya, karena hasil di cell tujuan berupa Formula, jadi ketika diisi 1/1 (red: satu per satu) tiap kolom. Hasilnya jadi sama cmua dach xi..xi...xi. Tapi gapapa sech, satu lagi ilmu kudapat hari ini. Kalo isi langsung value dengan kode simple en dapet dimengerti ada lagi gak. Kayaknya sech mang gw yg belajar dari dasar jadi bukan g bisa dimengerti melainkan gw nya az yg perlu banyak bimbingan atawa descripsi langkah kerjanya kalleee heu.heu.heu. ... Hatur nuhun. -- Wassalam. ...zhot thea Using Opera's revolutionary e-mail client: http://www.opera. com/mail/ On Fri, 19 Feb 2010 15:14:22 +0700, anton suryadi summon...@yahoo. com wrote: coba, Sub Updating_Click( ) LR = Cells(Rows.Count, 1).End(xlUp) .Row LC = Cells(4, Columns.Count) .End(xlToLeft) .Column For i = 2 To LC If Cells(4, i) = Range(B2) Then For n = 1 To LR - 4 Cells(4 + n, i) = =VLOOKUP(A (4 + n) ,Source!$A$ 2:$B$9,2, 0) Next n End If Next i End Sub semoga bermanfaat From: hery wahyudi h...@cresyn. com To: belajar-excel@ yahoogroups. com Sent: Fri, February 19, 2010 2:43:09 PM Subject: Re: [belajar-excel] Placed Result mungkin seperti data terlampir kodenya agak berantakan, saya juga masih belajar mungkin Bu Guru Siti ada Solusi yang lebih tepat cmiiw tq Miturut Khozhot kados ingkang kaserat ing ngandap meniko: Dear Suhu, Ada lagee yg mo ditanyain nech. Kucoba coba merangkai kode Kode kurangkai... error ku dapat Kucoba-coba menganti kode. Kode ku tetap error ku dapat xi...xi...xi. .. Bukan syair lagu tapi mirip.nyanyiin az heu...heu... .heu... Intinya masih terus pengen belajar dengan kinds of cases by Macro. Soal Weukbuk terdiri dari dua weuksit, yauti : satu.weuksit Source, en dua. weuksit Result. Data result terus berubah (dalam hal ini ngoacak-ngacak) , sedang data yang ada di weuksit te-es-be pengen masuk ke weuksit Result dimana kolomnya disesuaikan dengan data yang ada di sel B2 yang seperti biasanya dengan warna kesukaan q yauti Kuning ketika di pencet tombol Update. Por ditail, si fail enklosed. -- Wassalam, ヂヂン コマルヂン ...zhot thea Using Opera's revolutionary e-mail client: http://www.opera. com/mail/ -- Template Hery Wahyudi -- Wassalam. ...zhot thea Using Opera's revolutionary e-mail client: http://www.opera. com/mail/
RE: [belajar-excel] VBA explorer
Bisa juga pakai: Sub Simpan() fileSaveName = Application.GetSaveAsFilename( _ fileFilter:=Text Files (*.txt), *.txt) If fileSaveName False Then MsgBox Save as fileSaveName End If End Sub _ From: belajar-excel@yahoogroups.com [mailto:belajar-ex...@yahoogroups.com] On Behalf Of siti Vi Sent: Friday, February 19, 2010 10:05 PM To: belajar-excel@yahoogroups.com Subject: Re: [belajar-excel] VBA explorer CommonDialog1.ShowSave Sebelumnya,... object control dari class bernama CommonDialog harus sudah di tanamkan di sheet (cari di ToolBar ControlToolBox More Controls) _ - Original Message - From: Dwi Wuryantadi To: belajar-excel@yahoogroups.com Sent: Friday, February 19, 2010 9:06 PM Subject: [belajar-excel] VBA explorer Tolong dong gimana syntax vba untuk menampilkan kotak dialog folder untuk menyimpan file tq b 4 __ Information from ESET NOD32 Antivirus, version of virus signature database 4880 (20100219) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com image001.gif
[belajar-excel] Ketemu ERROR di coding ku
Men2temen Baru tadi malam aku menemukan error saat menulis coding berikut Sub Aneh() Pi = 4 * Atn(1) rho = (360 * 3600) / (2 * Pi) End Sub Jika saya jalankan di excel 2003 kalo di 2007 belum aku coba wong nggak punya, muncul pesan error overflow... Tetapi jika saya ganti menjadi Sub GakAneh() Pi = 4 * Atn(1) rho = (360# * 3600#) / (2 * Pi) End Sub Tidak error Minta tolong dijelasin dong kenapa? tengkyu __ Information from ESET NOD32 Antivirus, version of virus signature database 4881 (20100219) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com
[belajar-excel] tEXT fORMAT
Suhu/Pakar Excel J, mohon bantuannya untuk menjadikan masukan di textbox dg format yg kita inginkan Private Sub TextBox1_Change() TextBox1.Text = UCase(TextBox1.Text) End Sub Missal di masukkan menjadi X..XXX Salam Ridwan Contoh.xls Description: MS-Excel spreadsheet
Re: [belajar-excel] Ketemu ERROR di coding ku
You attempt to use a number in a calculation, and that number is coerced into an integer, but the result is larger than an integer. For example: x = 2000 * 365 ' Error: Overflow To work around this situation, type the number, like this: Dim x As Long x = CLng(2000) * 365 Ketika mas zain menambahkan # pada angka 360 maupun 3600 itu sama dengan mendeklarasikan bilangan tsb sebagai TYPE DOUBLE The type-declaration character for Double (Double-Precision Floating-Point) is the number sign (#). makanya ... kalau (360 * 3600) overflow tetapi kalau (360# * 3600#) tidak overflow karena hasilnya masih dalam rentangan nilai bilangan type Double kalimat tsb dapat diganti dengan (CDbl(360) * CDbl(3600)) CMIIW - Original Message - From: zainul ulum To: belajar-excel@yahoogroups.com Sent: Saturday, February 20, 2010 11:42 AM Subject: [belajar-excel] Ketemu ERROR di coding ku Men2temen Baru tadi malam aku menemukan error saat menulis coding berikut Sub Aneh() Pi = 4 * Atn(1) rho = (360 * 3600) / (2 * Pi) End Sub Jika saya jalankan di excel 2003 kalo di 2007 belum aku coba wong nggak punya, muncul pesan error overflow... Tetapi jika saya ganti menjadi Sub GakAneh() Pi = 4 * Atn(1) rho = (360# * 3600#) / (2 * Pi) End Sub Tidak error Minta tolong dijelasin dong kenapa? tengkyu