RE: Fwd: [belajar-excel] Hyperlink
Dear Mr Heru, Ternyata jalan formulanya, tapi klo tanpa tekan F2 bisa gak yah...(dengan VBA mungkin) Mungkin ada masukan dari Master yang lain, plis... Salam, DD From: Heru Safrudin superhe...@gmail.com [belajar-excel] [mailto:belajar-excel@yahoogroups.com] Sent: 27 April 2015 14:00 To: belajar-excel@yahoogroups.com Subject: RE: Fwd: [belajar-excel] Hyperlink [1 Attachment] Kalau cuma seperti terlampir yg dimaksud, itu uda jalan Wassalam, Heru Safrudin PT. BISI International, Tbk. Pada 2015 4 27 13:20, Dede pmaho_l...@nabatisnack.co.id [belajar-excel] belajar-excel@yahoogroups.com menulis: Dear Mr Heru, Terima kasih atas masukannya, tapi koq ga bisa yah?. Bisa kirim lampirannya... atau mungkin ada cara lain? Karena report ini mau saya kirimkan ke Bos saya sehingga menghindari hal-hal yang sifatnya ribet. Salam, DD From: Heru Safrudin superhe...@gmail.com [belajar-excel] [mailto:belajar-excel@yahoogroups.com] Sent: 27 April 2015 11:37 To: belajar-excel@yahoogroups.com Subject: Re: Fwd: [belajar-excel] Hyperlink Dear DD, Bagaimana kalau cell D3 di sheets View diisi formula berikut : =cell(contents) Kemudian sebelum klik hyperlink arahkan ke cell yg berisi nomor yg diinginkan kemudian tekan F2{edit} kemudian tekan Enter. Setelah itu baru klik hyperlinknya Wassalam, Heru Safrudin PT. BISI International, Tbk. Dari: Dede pmaho_l...@nabatisnack.co.id [belajar-excel] belajar-excel@yahoogroups.com Tanggal: 2015 4 27 09:54 Subjek: [belajar-excel] Hyperlink [1 Attachment] Kepada: belajar-excel@yahoogroups.com Dear Master Excel, Mohon pencerahannya pada file terlampir. Yang diharapkan adalah, pada saat saya klik cell B2 pada sheet “List Kirim GT”, kode pada cell D3 sheet “View” berubah menjadi kode yang saya klik di sheet “List Kirim GT”. Begitu selanjutnya Saya klik 1000578 di sheet “List Kirim GT”, muncul 1000578 di sheet “View”. Saya klik 1000528 di sheet “List Kirim GT”, muncul 1000528 di sheet “View”. Demikian penjelasannya, semoga ada kemudahan dibalik kesukaran. Salam, DD This e-mail and any files transmitted with it are confidential and intended solely for the use of the individual to whom it is addressed. If you have received this email in error please send it back to the person that sent it to you. Any views or opinions presented are solely those of its author and do not necessarily represent those of NABATI or any of its subsidiary companies. Unauthorized publication, use, dissemination, forwarding, printing or copying of this email and its associated attachments is strictly prohibited.
RE: Fwd: [belajar-excel] Hyperlink
Dear Mr Heru, Terima kasih atas masukannya, tapi koq ga bisa yah?. Bisa kirim lampirannya... atau mungkin ada cara lain? Karena report ini mau saya kirimkan ke Bos saya sehingga menghindari hal-hal yang sifatnya ribet. Salam, DD From: Heru Safrudin superhe...@gmail.com [belajar-excel] [mailto:belajar-excel@yahoogroups.com] Sent: 27 April 2015 11:37 To: belajar-excel@yahoogroups.com Subject: Re: Fwd: [belajar-excel] Hyperlink Dear DD, Bagaimana kalau cell D3 di sheets View diisi formula berikut : =cell(contents) Kemudian sebelum klik hyperlink arahkan ke cell yg berisi nomor yg diinginkan kemudian tekan F2{edit} kemudian tekan Enter. Setelah itu baru klik hyperlinknya Wassalam, Heru Safrudin PT. BISI International, Tbk. Dari: Dede pmaho_l...@nabatisnack.co.id [belajar-excel] belajar-excel@yahoogroups.com Tanggal: 2015 4 27 09:54 Subjek: [belajar-excel] Hyperlink [1 Attachment] Kepada: belajar-excel@yahoogroups.com Dear Master Excel, Mohon pencerahannya pada file terlampir. Yang diharapkan adalah, pada saat saya klik cell B2 pada sheet “List Kirim GT”, kode pada cell D3 sheet “View” berubah menjadi kode yang saya klik di sheet “List Kirim GT”. Begitu selanjutnya Saya klik 1000578 di sheet “List Kirim GT”, muncul 1000578 di sheet “View”. Saya klik 1000528 di sheet “List Kirim GT”, muncul 1000528 di sheet “View”. Demikian penjelasannya, semoga ada kemudahan dibalik kesukaran. Salam, DD This e-mail and any files transmitted with it are confidential and intended solely for the use of the individual to whom it is addressed. If you have received this email in error please send it back to the person that sent it to you. Any views or opinions presented are solely those of its author and do not necessarily represent those of NABATI or any of its subsidiary companies. Unauthorized publication, use, dissemination, forwarding, printing or copying of this email and its associated attachments is strictly prohibited.
RE: [belajar-excel] UDF 4 multiple Cell
Wa’alaikum salam warhmatullaahi wa barakaatuh… aku rubah sedikit fungsi nya menjadi Public Function rumus_abc(a As Long, b As Long) As Double() Dim rumusb As Double Dim rumusc As Double Dim rumusd As Double rumus = a + b rumusb = a - b rumusc = a * b If b = 0 Then rumusd = 0 Else rumusd = a / b End If Dim Hasil(4) As Double Hasil(0) = rumus Hasil(1) = rumusb Hasil(2) = rumusc Hasil(3) = rumusd rumus_abc = Hasil End Function Jika input ada di cell A1 dan B1 di cell C1 =rumus_abc(A1,B1) kemudian block C1:F1, tekan F2 lalu control+shift+enter. semoga membantu #Nang Agus, bulan mei aku mau mudik ke kudus, kopi darat di opor sunggingan yu Wassalam =zainul From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] Sent: Monday, April 27, 2015 12:42 PM To: BExcel Subject: [belajar-excel] UDF 4 multiple Cell Asalamualaikum warahmatullah. Dear member B-Excel. mohon bantuannya. Dapatkah dibuat sebuah UDF yang hasilnya dapat diletakkan pada 4 cell? misalnya saya pasang Rumus UDF di cell C1, nanti hasilnya ada di cell D1, E1, F1. Public Function rumus(a as long, b as long) as long dim rumusb as long dim rumusc as long dim rumusd as long rumus = a + b rumusb = a - b rumusc = a*b rumusd = a/b end function bagaimana caranya agar rumusb diletakkan di D1, rumusc di E1 dan rumusd di F1 terima kasih wasalamualaikum warahmatullah
RE: Fwd: [belajar-excel] Hyperlink [1 Attachment]
Kalau cuma seperti terlampir yg dimaksud, itu uda jalan Wassalam, Heru Safrudin PT. BISI International, Tbk. Pada 2015 4 27 13:20, Dede pmaho_l...@nabatisnack.co.id [belajar-excel] belajar-excel@yahoogroups.com menulis: Dear Mr Heru, Terima kasih atas masukannya, tapi koq ga bisa yah?. Bisa kirim lampirannya... atau mungkin ada cara lain? Karena report ini mau saya kirimkan ke Bos saya sehingga menghindari hal-hal yang sifatnya ribet. Salam, DD *From:* Heru Safrudin superhe...@gmail.com [belajar-excel] [mailto: belajar-excel@yahoogroups.com] *Sent:* 27 April 2015 11:37 *To:* belajar-excel@yahoogroups.com *Subject:* Re: Fwd: [belajar-excel] Hyperlink Dear DD, Bagaimana kalau cell D3 di sheets View diisi formula berikut : =cell(contents) Kemudian sebelum klik hyperlink arahkan ke cell yg berisi nomor yg diinginkan kemudian tekan F2{edit} kemudian tekan Enter. Setelah itu baru klik hyperlinknya Wassalam, Heru Safrudin PT. BISI International, Tbk. Dari: Dede pmaho_l...@nabatisnack.co.id [belajar-excel] belajar-excel@yahoogroups.com Tanggal: 2015 4 27 09:54 Subjek: [belajar-excel] Hyperlink [1 Attachment] Kepada: belajar-excel@yahoogroups.com Dear Master Excel, Mohon pencerahannya pada file terlampir. Yang diharapkan adalah, pada saat saya klik cell B2 pada sheet List Kirim GT, kode pada cell D3 sheet View berubah menjadi kode yang saya klik di sheet List Kirim GT. Begitu selanjutnya Saya klik 1000578 di sheet List Kirim GT, muncul 1000578 di sheet View. Saya klik 1000528 di sheet List Kirim GT, muncul 1000528 di sheet View. Demikian penjelasannya, semoga ada kemudahan dibalik kesukaran. Salam, DD This e-mail and any files transmitted with it are confidential and intended solely for the use of the individual to whom it is addressed. If you have received this email in error please send it back to the person that sent it to you. Any views or opinions presented are solely those of its author and do not necessarily represent those of NABATI or any of its subsidiary companies. Unauthorized publication, use, dissemination, forwarding, printing or copying of this email and its associated attachments is strictly prohibited. Re-Hyperlink.xls Description: MS-Excel spreadsheet
RE: RE: Fwd: [belajar-excel] Hyperlink [1 Attachment]
Dear Mr Toby, Apakah seperti file terlampir ? Tapi koq ga jalan di PC saya yah... Saat saya klik hyperlink-nya sheet view tetap tidak keluar kode distributornya, apakah ada yang salah dengan PC saya-nya? Salam, DD From: Toby kenzo tobyke...@yahoo.co.id [belajar-excel] [mailto:belajar-excel@yahoogroups.com] Sent: 27 April 2015 23:57 To: belajar-excel@yahoogroups.com Subject: Re: RE: Fwd: [belajar-excel] Hyperlink Dear DD, Coba buka vba,kemudian klick 2 kali pada sheet1(List Kirim GT) dan masukan formula: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Sheet2.Range(D3).Value = ActiveCell.Value End Sub It's work in Office 2013 SP1 TerimaKasih. Sent from http://overview.mail.yahoo.com/mobile/?.src=Android Yahoo Mail on Android _ From: Dede pmaho_l...@nabatisnack.co.id [belajar-excel] belajar-excel@yahoogroups.com; To: belajar-excel@yahoogroups.com; Subject: RE: Fwd: [belajar-excel] Hyperlink Sent: Mon, Apr 27, 2015 6:20:17 AM Dear Mr Heru, Terima kasih atas masukannya, tapi koq ga bisa yah?. Bisa kirim lampirannya... atau mungkin ada cara lain? Karena report ini mau saya kirimkan ke Bos saya sehingga menghindari hal-hal yang sifatnya ribet. Salam, DD From: Heru Safrudin superhe...@gmail.com [belajar-excel] [mailto:belajar-excel@yahoogroups.com] Sent: 27 April 2015 11:37 To: belajar-excel@yahoogroups.com Subject: Re: Fwd: [belajar-excel] Hyperlink Dear DD, Bagaimana kalau cell D3 di sheets View diisi formula berikut : =cell(contents) Kemudian sebelum klik hyperlink arahkan ke cell yg berisi nomor yg diinginkan kemudian tekan F2{edit} kemudian tekan Enter. Setelah itu baru klik hyperlinknya Wassalam, Heru Safrudin PT. BISI International, Tbk. Dari: Dede pmaho_l...@nabatisnack.co.id [belajar-excel] belajar-excel@yahoogroups.com Tanggal: 2015 4 27 09:54 Subjek: [belajar-excel] Hyperlink [1 Attachment] Kepada: belajar-excel@yahoogroups.com Dear Master Excel, Mohon pencerahannya pada file terlampir. Yang diharapkan adalah, pada saat saya klik cell B2 pada sheet “List Kirim GT”, kode pada cell D3 sheet “View” berubah menjadi kode yang saya klik di sheet “List Kirim GT”. Begitu selanjutnya Saya klik 1000578 di sheet “List Kirim GT”, muncul 1000578 di sheet “View”. Saya klik 1000528 di sheet “List Kirim GT”, muncul 1000528 di sheet “View”. Demikian penjelasannya, semoga ada kemudahan dibalik kesukaran. Salam, DD This e-mail and any files transmitted with it are confidential and intended solely for the use of the individual to whom it is addressed. If you have received this email in error please send it back to the person that sent it to you. Any views or opinions presented are solely those of its author and do not necessarily represent those of NABATI or any of its subsidiary companies. Unauthorized publication, use, dissemination, forwarding, printing or copying of this email and its associated attachments is strictly prohibited. Hyperlink.xlsb Description: application/vnd.ms-excel.sheet.binary.macroenabled.12
RE: RE: Fwd: [belajar-excel] Hyperlink
Dear Mr Heru, Lagi-lagi Vbnya jalan, Cuma ada yang aneh. Saran untuk double klik malah tidak jalan, memang saya tidak perlu mengaktifkan hyperlinknya. Saya harus klik kanan baru sesuai harapan, saya klik cell mana saja itu yang tampil di sheet View. Jelas ada yang aneh dengan PC saya.. Terlepas dari semua itu sekali lagi saya haturkan terima kasih, ini sangat membantu sekali. Salam, DD From: Heru Safrudin superhe...@gmail.com [belajar-excel] [mailto:belajar-excel@yahoogroups.com] Sent: 28 April 2015 08:39 To: belajar-excel@yahoogroups.com Subject: RE: RE: Fwd: [belajar-excel] Hyperlink Nah kalo pake macro jauh lebih mudah Coba pake macro event sbb : Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Cancel = True If target.row=1 then exit sub Sheets(View).Range(D3).Value = Target.Value Sheets(View).Activate End Sub Catatan : Dijalankan dengan memakai doble klik pada nomor yg diiinginkan Tak perlu hyperlink/dihilangkan aja Wassalam, Heru Safrudin PT. BISI International, Tbk. Pada 2015 4 28 08:07, Dede pmaho_l...@nabatisnack.co.id [belajar-excel] belajar-excel@yahoogroups.com menulis: Dear Mr Toby, Apakah seperti file terlampir ? Tapi koq ga jalan di PC saya yah... Saat saya klik hyperlink-nya sheet view tetap tidak keluar kode distributornya, apakah ada yang salah dengan PC saya-nya? Salam, DD From: Toby kenzo tobyke...@yahoo.co.id [belajar-excel] [mailto:belajar-excel@yahoogroups.com] Sent: 27 April 2015 23:57 To: belajar-excel@yahoogroups.com Subject: Re: RE: Fwd: [belajar-excel] Hyperlink Dear DD, Coba buka vba,kemudian klick 2 kali pada sheet1(List Kirim GT) dan masukan formula: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Sheet2.Range(D3).Value = ActiveCell.Value End Sub It's work in Office 2013 SP1 TerimaKasih. Sent from Yahoo Mail on Android http://overview.mail.yahoo.com/mobile/?.src=Android _ From: Dede pmaho_l...@nabatisnack.co.id [belajar-excel] belajar-excel@yahoogroups.com; To: belajar-excel@yahoogroups.com; Subject: RE: Fwd: [belajar-excel] Hyperlink Sent: Mon, Apr 27, 2015 6:20:17 AM Dear Mr Heru, Terima kasih atas masukannya, tapi koq ga bisa yah?. Bisa kirim lampirannya... atau mungkin ada cara lain? Karena report ini mau saya kirimkan ke Bos saya sehingga menghindari hal-hal yang sifatnya ribet. Salam, DD From: Heru Safrudin superhe...@gmail.com [belajar-excel] [mailto:belajar-excel@yahoogroups.com] Sent: 27 April 2015 11:37 To: belajar-excel@yahoogroups.com Subject: Re: Fwd: [belajar-excel] Hyperlink Dear DD, Bagaimana kalau cell D3 di sheets View diisi formula berikut : =cell(contents) Kemudian sebelum klik hyperlink arahkan ke cell yg berisi nomor yg diinginkan kemudian tekan F2{edit} kemudian tekan Enter. Setelah itu baru klik hyperlinknya Wassalam, Heru Safrudin PT. BISI International, Tbk. Dari: Dede pmaho_l...@nabatisnack.co.id [belajar-excel] belajar-excel@yahoogroups.com Tanggal: 2015 4 27 09:54 Subjek: [belajar-excel] Hyperlink [1 Attachment] Kepada: belajar-excel@yahoogroups.com Dear Master Excel, Mohon pencerahannya pada file terlampir. Yang diharapkan adalah, pada saat saya klik cell B2 pada sheet “List Kirim GT”, kode pada cell D3 sheet “View” berubah menjadi kode yang saya klik di sheet “List Kirim GT”. Begitu selanjutnya Saya klik 1000578 di sheet “List Kirim GT”, muncul 1000578 di sheet “View”. Saya klik 1000528 di sheet “List Kirim GT”, muncul 1000528 di sheet “View”. Demikian penjelasannya, semoga ada kemudahan dibalik kesukaran. Salam, DD This e-mail and any files transmitted with it are confidential and intended solely for the use of the individual to whom it is addressed. If you have received this email in error please send it back to the person that sent it to you. Any views or opinions presented are solely those of its author and do not necessarily represent those of NABATI or any of its subsidiary companies. Unauthorized publication, use, dissemination, forwarding, printing or copying of this email and its associated attachments is strictly prohibited.
[belajar-excel] Pivot table. menghitung jumlah nama tapi tidak menjumlah nama yang sama [1 Attachment]
Dear Bexcel Mohon bantuannya, bagaimana menghitung jumlah nama tapi tidak menjumlah nama yang sama. contoh ada kolom jabatan dan kolom nama dikolom nama terdapat nama yang sama, untuk nama yang sama, tidak dihitung double. file terlampir... mohon bantuannya terima kasih Franriku pivot.xlsx Description: MS-Excel 2007 spreadsheet
[belajar-excel] formula untuk mengetahui bulan sebelumnya
dear para master excel, ingin tanya, adakah cara yang bisa digunakan untuk rumusan berikut : Maret - 2 bulan = Januari (jadi yang diketahui bulan Maret, hasil akhirnya Januari.) Terima kasih sebelumnya. regards, citra
Re: [belajar-excel] formula untuk mengetahui bulan sebelumnya
Pake EOMONTH syntax nya = EOMONTH(start_date, months) Salam, uharyanto On 28/04/2015 10:14 AM, Citra Rismawati Utami citra.r...@gmail.com [belajar-excel] wrote: dear para master excel, ingin tanya, adakah cara yang bisa digunakan untuk rumusan berikut : Maret - 2 bulan = Januari (jadi yang diketahui bulan Maret, hasil akhirnya Januari.) Terima kasih sebelumnya. regards, citra
Bls: [belajar-excel] formula untuk mengetahui bulan sebelumnya
kalo gini gimana misal cell target ada di A1=DATE(YEAR(A1);MONTH(A1)-2;DAY(A1)) __Winarno__ Pada Senin, 27 April 2015 20:30, Citra Rismawati Utami citra.r...@gmail.com [belajar-excel] belajar-excel@yahoogroups.com menulis: dear para master excel, ingin tanya, adakah cara yang bisa digunakan untuk rumusan berikut :Maret - 2 bulan = Januari(jadi yang diketahui bulan Maret, hasil akhirnya Januari.) Terima kasih sebelumnya. regards,citra #yiv9562871299 #yiv9562871299 -- #yiv9562871299ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9562871299 #yiv9562871299ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9562871299 #yiv9562871299ygrp-mkp #yiv9562871299hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv9562871299 #yiv9562871299ygrp-mkp #yiv9562871299ads {margin-bottom:10px;}#yiv9562871299 #yiv9562871299ygrp-mkp .yiv9562871299ad {padding:0 0;}#yiv9562871299 #yiv9562871299ygrp-mkp .yiv9562871299ad p {margin:0;}#yiv9562871299 #yiv9562871299ygrp-mkp .yiv9562871299ad a {color:#ff;text-decoration:none;}#yiv9562871299 #yiv9562871299ygrp-sponsor #yiv9562871299ygrp-lc {font-family:Arial;}#yiv9562871299 #yiv9562871299ygrp-sponsor #yiv9562871299ygrp-lc #yiv9562871299hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9562871299 #yiv9562871299ygrp-sponsor #yiv9562871299ygrp-lc .yiv9562871299ad {margin-bottom:10px;padding:0 0;}#yiv9562871299 #yiv9562871299actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9562871299 #yiv9562871299activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9562871299 #yiv9562871299activity span {font-weight:700;}#yiv9562871299 #yiv9562871299activity span:first-child {text-transform:uppercase;}#yiv9562871299 #yiv9562871299activity span a {color:#5085b6;text-decoration:none;}#yiv9562871299 #yiv9562871299activity span span {color:#ff7900;}#yiv9562871299 #yiv9562871299activity span .yiv9562871299underline {text-decoration:underline;}#yiv9562871299 .yiv9562871299attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv9562871299 .yiv9562871299attach div a {text-decoration:none;}#yiv9562871299 .yiv9562871299attach img {border:none;padding-right:5px;}#yiv9562871299 .yiv9562871299attach label {display:block;margin-bottom:5px;}#yiv9562871299 .yiv9562871299attach label a {text-decoration:none;}#yiv9562871299 blockquote {margin:0 0 0 4px;}#yiv9562871299 .yiv9562871299bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv9562871299 .yiv9562871299bold a {text-decoration:none;}#yiv9562871299 dd.yiv9562871299last p a {font-family:Verdana;font-weight:700;}#yiv9562871299 dd.yiv9562871299last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9562871299 dd.yiv9562871299last p span.yiv9562871299yshortcuts {margin-right:0;}#yiv9562871299 div.yiv9562871299attach-table div div a {text-decoration:none;}#yiv9562871299 div.yiv9562871299attach-table {width:400px;}#yiv9562871299 div.yiv9562871299file-title a, #yiv9562871299 div.yiv9562871299file-title a:active, #yiv9562871299 div.yiv9562871299file-title a:hover, #yiv9562871299 div.yiv9562871299file-title a:visited {text-decoration:none;}#yiv9562871299 div.yiv9562871299photo-title a, #yiv9562871299 div.yiv9562871299photo-title a:active, #yiv9562871299 div.yiv9562871299photo-title a:hover, #yiv9562871299 div.yiv9562871299photo-title a:visited {text-decoration:none;}#yiv9562871299 div#yiv9562871299ygrp-mlmsg #yiv9562871299ygrp-msg p a span.yiv9562871299yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9562871299 .yiv9562871299green {color:#628c2a;}#yiv9562871299 .yiv9562871299MsoNormal {margin:0 0 0 0;}#yiv9562871299 o {font-size:0;}#yiv9562871299 #yiv9562871299photos div {float:left;width:72px;}#yiv9562871299 #yiv9562871299photos div div {border:1px solid #66;height:62px;overflow:hidden;width:62px;}#yiv9562871299 #yiv9562871299photos div label {color:#66;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9562871299 #yiv9562871299reco-category {font-size:77%;}#yiv9562871299 #yiv9562871299reco-desc {font-size:77%;}#yiv9562871299 .yiv9562871299replbq {margin:4px;}#yiv9562871299 #yiv9562871299ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv9562871299 #yiv9562871299ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv9562871299 #yiv9562871299ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv9562871299 #yiv9562871299ygrp-mlmsg select, #yiv9562871299 input, #yiv9562871299 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv9562871299 #yiv9562871299ygrp-mlmsg pre, #yiv9562871299 code {font:115% monospace;}#yiv9562871299 #yiv9562871299ygrp-mlmsg * {line-height:1.22em;}#yiv9562871299 #yiv9562871299ygrp-mlmsg #yiv9562871299logo {padding-bottom:10px;}#yiv9562871299
Bls: [belajar-excel] Pivot table. menghitung jumlah nama tapi tidak menjumlah nama yang sama
Dear Franriku, Coba buat new pivot table dengan Table Range yang sama dan jangan lupa diclick Add this data to The Data ModelKemudian gunakan Formula pada Value Field Setting Distinct Count TerimaKasih. Pada Selasa, 28 April 2015 10:29, franr...@yahoo.com [belajar-excel] belajar-excel@yahoogroups.com menulis: Dear Bexcel Mohon bantuannya, bagaimana menghitung jumlah nama tapi tidak menjumlah nama yang sama. contoh ada kolom jabatan dan kolom nama dikolom nama terdapat nama yang sama, untuk nama yang sama, tidak dihitung double. file terlampir... mohon bantuannya terima kasih Franriku #yiv1583065247 #yiv1583065247 -- #yiv1583065247ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv1583065247 #yiv1583065247ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv1583065247 #yiv1583065247ygrp-mkp #yiv1583065247hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv1583065247 #yiv1583065247ygrp-mkp #yiv1583065247ads {margin-bottom:10px;}#yiv1583065247 #yiv1583065247ygrp-mkp .yiv1583065247ad {padding:0 0;}#yiv1583065247 #yiv1583065247ygrp-mkp .yiv1583065247ad p {margin:0;}#yiv1583065247 #yiv1583065247ygrp-mkp .yiv1583065247ad a {color:#ff;text-decoration:none;}#yiv1583065247 #yiv1583065247ygrp-sponsor #yiv1583065247ygrp-lc {font-family:Arial;}#yiv1583065247 #yiv1583065247ygrp-sponsor #yiv1583065247ygrp-lc #yiv1583065247hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv1583065247 #yiv1583065247ygrp-sponsor #yiv1583065247ygrp-lc .yiv1583065247ad {margin-bottom:10px;padding:0 0;}#yiv1583065247 #yiv1583065247actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv1583065247 #yiv1583065247activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv1583065247 #yiv1583065247activity span {font-weight:700;}#yiv1583065247 #yiv1583065247activity span:first-child {text-transform:uppercase;}#yiv1583065247 #yiv1583065247activity span a {color:#5085b6;text-decoration:none;}#yiv1583065247 #yiv1583065247activity span span {color:#ff7900;}#yiv1583065247 #yiv1583065247activity span .yiv1583065247underline {text-decoration:underline;}#yiv1583065247 .yiv1583065247attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv1583065247 .yiv1583065247attach div a {text-decoration:none;}#yiv1583065247 .yiv1583065247attach img {border:none;padding-right:5px;}#yiv1583065247 .yiv1583065247attach label {display:block;margin-bottom:5px;}#yiv1583065247 .yiv1583065247attach label a {text-decoration:none;}#yiv1583065247 blockquote {margin:0 0 0 4px;}#yiv1583065247 .yiv1583065247bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv1583065247 .yiv1583065247bold a {text-decoration:none;}#yiv1583065247 dd.yiv1583065247last p a {font-family:Verdana;font-weight:700;}#yiv1583065247 dd.yiv1583065247last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv1583065247 dd.yiv1583065247last p span.yiv1583065247yshortcuts {margin-right:0;}#yiv1583065247 div.yiv1583065247attach-table div div a {text-decoration:none;}#yiv1583065247 div.yiv1583065247attach-table {width:400px;}#yiv1583065247 div.yiv1583065247file-title a, #yiv1583065247 div.yiv1583065247file-title a:active, #yiv1583065247 div.yiv1583065247file-title a:hover, #yiv1583065247 div.yiv1583065247file-title a:visited {text-decoration:none;}#yiv1583065247 div.yiv1583065247photo-title a, #yiv1583065247 div.yiv1583065247photo-title a:active, #yiv1583065247 div.yiv1583065247photo-title a:hover, #yiv1583065247 div.yiv1583065247photo-title a:visited {text-decoration:none;}#yiv1583065247 div#yiv1583065247ygrp-mlmsg #yiv1583065247ygrp-msg p a span.yiv1583065247yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv1583065247 .yiv1583065247green {color:#628c2a;}#yiv1583065247 .yiv1583065247MsoNormal {margin:0 0 0 0;}#yiv1583065247 o {font-size:0;}#yiv1583065247 #yiv1583065247photos div {float:left;width:72px;}#yiv1583065247 #yiv1583065247photos div div {border:1px solid #66;height:62px;overflow:hidden;width:62px;}#yiv1583065247 #yiv1583065247photos div label {color:#66;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv1583065247 #yiv1583065247reco-category {font-size:77%;}#yiv1583065247 #yiv1583065247reco-desc {font-size:77%;}#yiv1583065247 .yiv1583065247replbq {margin:4px;}#yiv1583065247 #yiv1583065247ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv1583065247 #yiv1583065247ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv1583065247 #yiv1583065247ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv1583065247 #yiv1583065247ygrp-mlmsg select, #yiv1583065247 input, #yiv1583065247 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv1583065247 #yiv1583065247ygrp-mlmsg pre, #yiv1583065247 code {font:115%
Re: RE: RE: Fwd: [belajar-excel] Hyperlink
Delete hyperlinknya. data yg di click akan di transfer ke sheet2 di range D3,tinggal di modif outputnya mau ke mana. TerimaKasih Sent from Yahoo Mail on Android
Re: [belajar-excel] Pivot table. menghitung jumlah nama tapi tidak menjumlah nama yang sama [1 Attachment]
Untuk yang menggunakan xl2007 ke bawah atau xl2010 yang tidak memasang addin power pivot, file terlampir 2015-04-28 12:46 GMT+10:00 franr...@yahoo.com [belajar-excel] belajar-excel@yahoogroups.com: Dear Bexcel Mohon bantuannya, bagaimana menghitung jumlah nama tapi tidak menjumlah nama yang sama. contoh ada kolom jabatan dan kolom nama dikolom nama terdapat nama yang sama, untuk nama yang sama, tidak dihitung double. file terlampir... mohon bantuannya terima kasih Franriku re-pivot.xlsx Description: MS-Excel 2007 spreadsheet
Re: Bls: [belajar-excel] Pivot table. menghitung jumlah nama tapi tidak menjumlah nama yang sama
Dear Toby Kenzo makasi atas bantuannya sudah bisa pivot tablenya menggunakan Distinct Count, tapi hanya berlaku untuk excel 2013, bagaimana untuk excel 2010., tidak ada Add this data to The Data Model waktu create pivotnya. mohon bantuannya lagi, terima kasih Franriku
RE: RE: Fwd: [belajar-excel] Hyperlink
Nah kalo pake macro jauh lebih mudah Coba pake macro event sbb : Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Cancel = True If target.row=1 then exit sub Sheets(View).Range(D3).Value = Target.Value Sheets(View).Activate End Sub Catatan : Dijalankan dengan memakai doble klik pada nomor yg diiinginkan Tak perlu hyperlink/dihilangkan aja Wassalam, Heru Safrudin PT. BISI International, Tbk. Pada 2015 4 28 08:07, Dede pmaho_l...@nabatisnack.co.id [belajar-excel] belajar-excel@yahoogroups.com menulis: Dear Mr Toby, Apakah seperti file terlampir ? Tapi koq ga jalan di PC saya yah... Saat saya klik hyperlink-nya sheet view tetap tidak keluar kode distributornya, apakah ada yang salah dengan PC saya-nya? Salam, DD *From:* Toby kenzo tobyke...@yahoo.co.id [belajar-excel] [mailto: belajar-excel@yahoogroups.com] *Sent:* 27 April 2015 23:57 *To:* belajar-excel@yahoogroups.com *Subject:* Re: RE: Fwd: [belajar-excel] Hyperlink Dear DD, Coba buka vba,kemudian klick 2 kali pada sheet1(List Kirim GT) dan masukan formula: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Sheet2.Range(D3).Value = ActiveCell.Value End Sub It's work in Office 2013 SP1 TerimaKasih. Sent from Yahoo Mail on Android http://overview.mail.yahoo.com/mobile/?.src=Android -- *From: *Dede pmaho_l...@nabatisnack.co.id [belajar-excel] belajar-excel@yahoogroups.com; *To: *belajar-excel@yahoogroups.com; *Subject: *RE: Fwd: [belajar-excel] Hyperlink *Sent: *Mon, Apr 27, 2015 6:20:17 AM Dear Mr Heru, Terima kasih atas masukannya, tapi koq ga bisa yah?. Bisa kirim lampirannya... atau mungkin ada cara lain? Karena report ini mau saya kirimkan ke Bos saya sehingga menghindari hal-hal yang sifatnya ribet. Salam, DD *From:* Heru Safrudin superhe...@gmail.com [belajar-excel] [mailto: belajar-excel@yahoogroups.com] *Sent:* 27 April 2015 11:37 *To:* belajar-excel@yahoogroups.com *Subject:* Re: Fwd: [belajar-excel] Hyperlink Dear DD, Bagaimana kalau cell D3 di sheets View diisi formula berikut : =cell(contents) Kemudian sebelum klik hyperlink arahkan ke cell yg berisi nomor yg diinginkan kemudian tekan F2{edit} kemudian tekan Enter. Setelah itu baru klik hyperlinknya Wassalam, Heru Safrudin PT. BISI International, Tbk. Dari: Dede pmaho_l...@nabatisnack.co.id [belajar-excel] belajar-excel@yahoogroups.com Tanggal: 2015 4 27 09:54 Subjek: [belajar-excel] Hyperlink [1 Attachment] Kepada: belajar-excel@yahoogroups.com Dear Master Excel, Mohon pencerahannya pada file terlampir. Yang diharapkan adalah, pada saat saya klik cell B2 pada sheet List Kirim GT, kode pada cell D3 sheet View berubah menjadi kode yang saya klik di sheet List Kirim GT. Begitu selanjutnya Saya klik 1000578 di sheet List Kirim GT, muncul 1000578 di sheet View. Saya klik 1000528 di sheet List Kirim GT, muncul 1000528 di sheet View. Demikian penjelasannya, semoga ada kemudahan dibalik kesukaran. Salam, DD This e-mail and any files transmitted with it are confidential and intended solely for the use of the individual to whom it is addressed. If you have received this email in error please send it back to the person that sent it to you. Any views or opinions presented are solely those of its author and do not necessarily represent those of NABATI or any of its subsidiary companies. Unauthorized publication, use, dissemination, forwarding, printing or copying of this email and its associated attachments is strictly prohibited.
RE: RE: Fwd: [belajar-excel] Hyperlink
Dear Mr Toby, Sukses Mr, terima kasih. Hanya saja caranya yang agak unik hehehe, maksudnya saya harus klik dan tahan hyperlinknya sampai muncul tanda + kemudian saya klik deh linknya dan sheet View menampilkan kode yang saya klik tersebut. Tapi koq harus tahan klik yah ?... ya sudah lah yang penting udah bisa jalan. Terima kasih sekali lagi Mr Toby semoga ilmunya bermanfaat. Salam, DD From: Toby kenzo tobyke...@yahoo.co.id [belajar-excel] [mailto:belajar-excel@yahoogroups.com] Sent: 28 April 2015 09:00 To: belajar-excel@yahoogroups.com Subject: Bls: RE: Fwd: [belajar-excel] Hyperlink Remove formula Hyperlinknya Pada Selasa, 28 April 2015 8:07, Dede pmaho_l...@nabatisnack.co.id [belajar-excel] belajar-excel@yahoogroups.com menulis: Dear Mr Toby, Apakah seperti file terlampir ? Tapi koq ga jalan di PC saya yah... Saat saya klik hyperlink-nya sheet view tetap tidak keluar kode distributornya, apakah ada yang salah dengan PC saya-nya? Salam, DD From: Toby kenzo tobyke...@yahoo.co.id [belajar-excel] [mailto:belajar-excel@yahoogroups.com] Sent: 27 April 2015 23:57 To: belajar-excel@yahoogroups.com Subject: Re: RE: Fwd: [belajar-excel] Hyperlink Dear DD, Coba buka vba,kemudian klick 2 kali pada sheet1(List Kirim GT) dan masukan formula: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Sheet2.Range(D3).Value = ActiveCell.Value End Sub It's work in Office 2013 SP1 TerimaKasih. Sent from Yahoo Mail on Android _ From: Dede pmaho_l...@nabatisnack.co.id [belajar-excel] belajar-excel@yahoogroups.com; To: belajar-excel@yahoogroups.com; Subject: RE: Fwd: [belajar-excel] Hyperlink Sent: Mon, Apr 27, 2015 6:20:17 AM Dear Mr Heru, Terima kasih atas masukannya, tapi koq ga bisa yah?. Bisa kirim lampirannya... atau mungkin ada cara lain? Karena report ini mau saya kirimkan ke Bos saya sehingga menghindari hal-hal yang sifatnya ribet. Salam, DD From: Heru Safrudin superhe...@gmail.com [belajar-excel] [mailto:belajar-excel@yahoogroups.com] Sent: 27 April 2015 11:37 To: belajar-excel@yahoogroups.com Subject: Re: Fwd: [belajar-excel] Hyperlink Dear DD, Bagaimana kalau cell D3 di sheets View diisi formula berikut : =cell(contents) Kemudian sebelum klik hyperlink arahkan ke cell yg berisi nomor yg diinginkan kemudian tekan F2{edit} kemudian tekan Enter. Setelah itu baru klik hyperlinknya Wassalam, Heru Safrudin PT. BISI International, Tbk. Dari: Dede pmaho_l...@nabatisnack.co.id [belajar-excel] belajar-excel@yahoogroups.com Tanggal: 2015 4 27 09:54 Subjek: [belajar-excel] Hyperlink [1 Attachment] Kepada: belajar-excel@yahoogroups.com Dear Master Excel, Mohon pencerahannya pada file terlampir. Yang diharapkan adalah, pada saat saya klik cell B2 pada sheet “List Kirim GT”, kode pada cell D3 sheet “View” berubah menjadi kode yang saya klik di sheet “List Kirim GT”. Begitu selanjutnya Saya klik 1000578 di sheet “List Kirim GT”, muncul 1000578 di sheet “View”. Saya klik 1000528 di sheet “List Kirim GT”, muncul 1000528 di sheet “View”. Demikian penjelasannya, semoga ada kemudahan dibalik kesukaran. Salam, DD This e-mail and any files transmitted with it are confidential and intended solely for the use of the individual to whom it is addressed. If you have received this email in error please send it back to the person that sent it to you. Any views or opinions presented are solely those of its author and do not necessarily represent those of NABATI or any of its subsidiary companies. Unauthorized publication, use, dissemination, forwarding, printing or copying of this email and its associated attachments is strictly prohibited.
Bls: RE: Fwd: [belajar-excel] Hyperlink
Remove formula Hyperlinknya Pada Selasa, 28 April 2015 8:07, Dede pmaho_l...@nabatisnack.co.id [belajar-excel] belajar-excel@yahoogroups.com menulis: DearMr Toby, Apakahseperti file terlampir ? Tapikoq ga jalan di PC saya yah... Saatsaya klik hyperlink-nya sheet view tetap tidak keluar kode distributornya,apakah ada yang salah dengan PC saya-nya? Salam, DD From: Toby kenzotobyke...@yahoo.co.id [belajar-excel] [mailto:belajar-excel@yahoogroups.com] Sent: 27 April 2015 23:57 To: belajar-excel@yahoogroups.com Subject: Re: RE: Fwd: [belajar-excel] Hyperlink | Dear DD, Coba buka vba,kemudian klick 2 kali pada sheet1(List Kirim GT) dan masukan formula: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Sheet2.Range(D3).Value = ActiveCell.Value End Sub It's work in Office 2013 SP1 TerimaKasih. Sent from Yahoo Mail on Android | From: Dede pmaho_l...@nabatisnack.co.id [belajar-excel]belajar-excel@yahoogroups.com; To: belajar-excel@yahoogroups.com; Subject: RE: Fwd: [belajar-excel] Hyperlink Sent: Mon, Apr 27, 2015 6:20:17 AM | Dear Mr Heru, Terima kasih atas masukannya, tapi koq ga bisa yah?. Bisa kirim lampirannya... atau mungkin ada cara lain? Karena report ini mau saya kirimkan ke Bos saya sehingga menghindari hal-hal yang sifatnya ribet. Salam, DD From: Heru Safrudin superhe...@gmail.com [belajar-excel] [mailto:belajar-excel@yahoogroups.com] Sent: 27 April 2015 11:37 To: belajar-excel@yahoogroups.com Subject: Re: Fwd: [belajar-excel] Hyperlink Dear DD, Bagaimana kalau cell D3 di sheets View diisi formula berikut : =cell(contents) Kemudian sebelum klik hyperlink arahkan ke cell yg berisi nomor yg diinginkan kemudian tekan F2{edit} kemudian tekan Enter. Setelah itu baru klik hyperlinknya Wassalam, Heru Safrudin PT. BISI International, Tbk. Dari: Dede pmaho_l...@nabatisnack.co.id [belajar-excel] belajar-excel@yahoogroups.com Tanggal: 2015 4 27 09:54 Subjek: [belajar-excel] Hyperlink [1 Attachment] Kepada: belajar-excel@yahoogroups.com Dear Master Excel, Mohon pencerahannya pada file terlampir. Yang diharapkan adalah, pada saat saya klik cell B2 pada sheet “List Kirim GT”, kode pada cell D3 sheet “View” berubah menjadi kode yang saya klik di sheet “List Kirim GT”. Begitu selanjutnya Saya klik 1000578 di sheet “List Kirim GT”, muncul 1000578 di sheet “View”. Saya klik 1000528 di sheet “List Kirim GT”, muncul 1000528 di sheet “View”. Demikian penjelasannya, semoga ada kemudahan dibalik kesukaran. Salam, DD This e-mail and any files transmitted with it are confidential and intended solely for the use of the individual to whom it is addressed. If you have received this email in error please send it back to the person that sent it to you. Any views or opinions presented are solely those of its author and do not necessarily represent those of NABATI or any of its subsidiary companies. Unauthorized publication, use, dissemination, forwarding, printing or copying of this email and its associated attachments is strictly prohibited. | #yiv9390169408 #yiv9390169408 -- #yiv9390169408ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9390169408 #yiv9390169408ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9390169408 #yiv9390169408ygrp-mkp #yiv9390169408hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv9390169408 #yiv9390169408ygrp-mkp #yiv9390169408ads {margin-bottom:10px;}#yiv9390169408 #yiv9390169408ygrp-mkp .yiv9390169408ad {padding:0 0;}#yiv9390169408 #yiv9390169408ygrp-mkp .yiv9390169408ad p {margin:0;}#yiv9390169408 #yiv9390169408ygrp-mkp .yiv9390169408ad a {color:#ff;text-decoration:none;}#yiv9390169408 #yiv9390169408ygrp-sponsor #yiv9390169408ygrp-lc {font-family:Arial;}#yiv9390169408 #yiv9390169408ygrp-sponsor #yiv9390169408ygrp-lc #yiv9390169408hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9390169408 #yiv9390169408ygrp-sponsor #yiv9390169408ygrp-lc .yiv9390169408ad {margin-bottom:10px;padding:0 0;}#yiv9390169408 #yiv9390169408actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9390169408 #yiv9390169408activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9390169408 #yiv9390169408activity span {font-weight:700;}#yiv9390169408 #yiv9390169408activity span:first-child {text-transform:uppercase;}#yiv9390169408 #yiv9390169408activity span a {color:#5085b6;text-decoration:none;}#yiv9390169408 #yiv9390169408activity span span {color:#ff7900;}#yiv9390169408 #yiv9390169408activity span .yiv9390169408underline {text-decoration:underline;}#yiv9390169408 .yiv9390169408attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
Re: RE: Fwd: [belajar-excel] Hyperlink
Dear DD, Coba buka vba,kemudian klick 2 kali pada sheet1(List Kirim GT) dan masukan formula: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Sheet2.Range(D3).Value = ActiveCell.Value End Sub It's work in Office 2013 SP1 TerimaKasih. Sent from Yahoo Mail on Android
Re: [belajar-excel] UDF 4 multiple Cell
Asalamualaikum warahmatullah, Mas Kid dan Mas Zaenul, terima kasih atas penjelasannya. sesuai dengan harapan untuk mempermudah membuat soal. wasalamualaikumwrahmatullah NangAgus 2015-04-28 2:05 GMT+07:00 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] belajar-excel@yahoogroups.com: Wa'alaikumussalam wr wb Secara, bawaan dari sananya, sebuah function yang digunakan dalam suatu cell tidak bisa mengubah nilai di range lain. Bahasa kodenya, bisa dikatakan bahwa kode dalam suatu function yang memasang suatu nilai ke cell lain melalui properti value suatu object range tidak akan bekerja ketika function tersebut digunakan sebagai sebuah formula dalam cells. Jadi, jika ada function dengan udf berbunyi : public function Kid1( nilai as long, rngTarget as range) as string rngtarget.value=nilai end function tidak akan berjalan jika digunakan dalam worksheet seperti di cell K1 diberi formula =Kid1(456,$a$1) Jadi, untuk kasus ini, ide dari mas Zain untuk mengubahnya menjadi UDF yang menghasilkan suatu array adalah salah satu jalan keluarnya. Karena formula menghasilkan array, maka cell yang dipasangi formula adalah seluruh cell hasilnya alias harus membentuk sebuah area range. Demikianlah karakter dasar function dalam VBA yang akan digunakan dalam worksheet sebagai sebuah fungsi untuk menyusun suatu formula. btw, imho, Excel termasuk aplikasi yang para pembuatnya saja tidak bisa menguasai seluruh kemampuan hasil buatannya. Artinya, bisa jadi ada suatu potensi untuk membuat hasil suatu formula ditulis di range lain. Contohnya begini : public function KidIsengCariMasalah( dblNilai as double, rngTarget as range) as string dim rng as range, dblTemp as double dbltemp=dblnilai for each rng in rngtarget dbltemp=dbltemp*10 rng.replace rng.value,kid rng.characters.text= kid dbltemp rng.replace kid,vbnullstring next rng 'misal cell berformula diisi dengan keterangan input KidIsengCariMasalah=dblnilai | rngtarget.address end function lalu di worksheet, misal a1 bernilai 13 dan di c1 diberi formula berbunyi : =KidIsengCariMasalah( a1 , g1:k1 ) maka hasil c1 adalah informasi inputan, dan di g1:k1 adalah hasil pengolahan nilai oleh baris dbltemp=dbltemp*10 so, selamat berkreasi Wassalamu'alaikum wr wb Kid 2015-04-27 15:42 GMT+10:00 Nang Agus nanga...@gmail.com [belajar-excel] belajar-excel@yahoogroups.com: Asalamualaikum warahmatullah. Dear member B-Excel. mohon bantuannya. Dapatkah dibuat sebuah UDF yang hasilnya dapat diletakkan pada 4 cell? misalnya saya pasang Rumus UDF di cell C1, nanti hasilnya ada di cell D1, E1, F1. Public Function rumus(a as long, b as long) as long dim rumusb as long dim rumusc as long dim rumusd as long rumus = a + b rumusb = a - b rumusc = a*b rumusd = a/b end function bagaimana caranya agar rumusb diletakkan di D1, rumusc di E1 dan rumusd di F1 terima kasih wasalamualaikum warahmatullah
Re: [belajar-excel] UDF 4 multiple Cell
Wa'alaikumussalam wr wb Secara, bawaan dari sananya, sebuah function yang digunakan dalam suatu cell tidak bisa mengubah nilai di range lain. Bahasa kodenya, bisa dikatakan bahwa kode dalam suatu function yang memasang suatu nilai ke cell lain melalui properti value suatu object range tidak akan bekerja ketika function tersebut digunakan sebagai sebuah formula dalam cells. Jadi, jika ada function dengan udf berbunyi : public function Kid1( nilai as long, rngTarget as range) as string rngtarget.value=nilai end function tidak akan berjalan jika digunakan dalam worksheet seperti di cell K1 diberi formula =Kid1(456,$a$1) Jadi, untuk kasus ini, ide dari mas Zain untuk mengubahnya menjadi UDF yang menghasilkan suatu array adalah salah satu jalan keluarnya. Karena formula menghasilkan array, maka cell yang dipasangi formula adalah seluruh cell hasilnya alias harus membentuk sebuah area range. Demikianlah karakter dasar function dalam VBA yang akan digunakan dalam worksheet sebagai sebuah fungsi untuk menyusun suatu formula. btw, imho, Excel termasuk aplikasi yang para pembuatnya saja tidak bisa menguasai seluruh kemampuan hasil buatannya. Artinya, bisa jadi ada suatu potensi untuk membuat hasil suatu formula ditulis di range lain. Contohnya begini : public function KidIsengCariMasalah( dblNilai as double, rngTarget as range) as string dim rng as range, dblTemp as double dbltemp=dblnilai for each rng in rngtarget dbltemp=dbltemp*10 rng.replace rng.value,kid rng.characters.text= kid dbltemp rng.replace kid,vbnullstring next rng 'misal cell berformula diisi dengan keterangan input KidIsengCariMasalah=dblnilai | rngtarget.address end function lalu di worksheet, misal a1 bernilai 13 dan di c1 diberi formula berbunyi : =KidIsengCariMasalah( a1 , g1:k1 ) maka hasil c1 adalah informasi inputan, dan di g1:k1 adalah hasil pengolahan nilai oleh baris dbltemp=dbltemp*10 so, selamat berkreasi Wassalamu'alaikum wr wb Kid 2015-04-27 15:42 GMT+10:00 Nang Agus nanga...@gmail.com [belajar-excel] belajar-excel@yahoogroups.com: Asalamualaikum warahmatullah. Dear member B-Excel. mohon bantuannya. Dapatkah dibuat sebuah UDF yang hasilnya dapat diletakkan pada 4 cell? misalnya saya pasang Rumus UDF di cell C1, nanti hasilnya ada di cell D1, E1, F1. Public Function rumus(a as long, b as long) as long dim rumusb as long dim rumusc as long dim rumusd as long rumus = a + b rumusb = a - b rumusc = a*b rumusd = a/b end function bagaimana caranya agar rumusb diletakkan di D1, rumusc di E1 dan rumusd di F1 terima kasih wasalamualaikum warahmatullah
Re: [belajar-excel] Sabtu,Mingg dan Hari Libur
Wa'alaikumussalam wr wb Hai Matzen, Coba berkenalan dengan fungsi WorkDay (Sabtu dan Minggu dihitung hari libur by default). =WorkDay( tgl_awal , jumlah_hari_kerja , daftar_libur_nasional ) Andai data awal di a1 bernilai hari sabtu tanggal 25 april 2015 daftar hari libur di letakkan di range z1:z99 yang baru berisi tanggal 1 januari 2015 (hari libur nasional kan ya) jumlah hari kerja ke depan adalah 1 hari cell hasil di b1 berformula : =workday( a1 , 1 , z1:z99 ) hasilnya di b1 adalah hari senin 27 april 2015 andai mundur, gunakan nilai negatif di b2 diberi formula =workday( a1 , -7 , z1:z99 ) hasilnya di b2 adalah 7 hari kerja sebelum tanggal di a1 alias hari kamis tanggal 16 april hati-hati dengan penggunaan angka 0, karena tidak akan ada dampaknya. jadi pada kasus dari tanggal di a7 yang berisi senin 27 april 2015, ingin 3 hari kerja ke depan *dengan hari senin juga dihitung dan diinginkan jatuh di hari rabu*, lalu di b7 diisi nilai 3, hasil di c7 akan berupa formula yang bisa berbunyi : =workday( a7 , b7 - 1 , z1:z99 ) tapi direkomendasikan agar berbentuk =workday( a7 - 1 , b7 , z1:z99 ) untuk menghindari penggunaan jumlah hari kerja bernilai 0 karena kolom B bernilai 1. sehingga, ketika cell a7 ternyata berupa hari minggu 26 april 2015 dan b7 bernilai 1, hasilnya bisa tetap mendapatkan hari senin dicoba-coba sendiri saja apa bedanya antara mengurangi harinya lebih dullu dengan mengurangi jumlah hari kerja targetnya Wassalamu'alaikum wr wb Kid 2015-04-27 13:44 GMT+10:00 'Subroto, Matzen' matzen.subr...@akzonobel.com [belajar-excel] belajar-excel@yahoogroups.com: Assalamu alaikum, Dear Master Exceller yang semoga Allah melimpahkan Hidayah dan Keberkahan NYA, Beginih ceritanya, saya punya banyak Customer dan masing2 Customer berbeda jumlah hari jatuh temponya, gimana cara agar jatuh temponya tanpa di tambah hari Sabtu,Minggu, dan hari libur Contoh soal, Saya cetak DO, hari rabu 8/4/15, dan baru sampai di tempat hari jumat 17/4/15 Sedangkan jatuh tempo nya adalah 7hari, kalau saya hanya hitung tanggal 18/4/15 di kurang tanggal 8/4/15, adalah 9 hari karena di tambah dengan hari Saatu dan Minggu, serta 1 hari libur Mohon pencerahannya agar saya bisa menghitung hari jumlah jatuh tempo sebenarnya di awali dengan hari tanggal/hari cetak DO tersebut tanpa di tambah hari libur tersebut Terima kasih atas perhatian dan kerjasamanya, dan saya mohon maaf apabila ada kata-kata yang kurang berkenan Wassalamu alaikum *Terima Kasih* *Matzen*