Messages In This Digest (7 Messages)

1a.: Bls: [belajar-excel] DTPicker From: Harry

2a.: Re: % DALAM PIVOT TABEL From: Kid Mr.
2b.: Re: % DALAM PIVOT TABEL From: d_c@gmx.com
2c.: Re: % DALAM PIVOT TABEL From: Kid Mr.

3a.: Re: insert message From: d_c@gmx.com

4a.: Re: mengubah character tertentu dlm suatu part number From: Mulki Akbar
4b.: Re: mengubah character tertentu dlm suatu part number From: Kid Mr.

View All Topics | Create New Topic

Messages

1a.: Bls: [belajar-excel] DTPicker

Posted by: "Harry" hariansyahptk@yahoo.com hariansyahptk

Sat Nov 12, 2011 12:21 am (PST)

Dear Mr. Kid,

Terima kasih banyak atas rumusnya.
Hasilnya SANGAT sesuai dengan yang saya inginkan.

Terima kasih banyak.

Regards,

Harry

________________________________
Dari: Kid Mr. <mr.nmkid@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Sabtu, 12 November 2011 14:05
Judul: Re: [belajar-excel] DTPicker

datetime picker yang diberi checkbox, akan punya nilai jika checkbox di centang.
Jika checkbox tidak dicentang, maka dia tidak punya nilai (kosong = NULL).
Karakteristik NULL adalah tidak bisa dikenai fungsi selain sekedar cek null atau tidak, nothing atau tidak.
Oleh sebab itu, kondisinya harus DTP_Kembali.Value
tidak perlu bersibuk dengan tambahkan trim atau ata apapun yang tampak untuk cek valid. Karena validasinya memang hanya sesederhana itu saja.

Silakan di copas.

'check for a part number
If DTP_Kembali.Value Then
'
Else
Me.DTP_Kembali.SetFocus
MsgBox "Check List Tanggal Kembali"
Exit Sub
End If

Kid.

2011/11/12 Harry <hariansyahptk@yahoo.com>

>
>Dear Mr. Kid,
>
>Terima kasih atas pelajarannya.
>Mungkin karena saya yang sangat awam pada pelajaran ini sehingga saya masih sangat bingung.
>
>Supaya apa yang saya maksudkan dapat diterima, dapat saya contohkan dengan rumus sbb:
>'check for a part number (petugas arsip)
>
>If
>Trim(Me.Cbopetugasarsip.Value) = "" Then
> Me.Cbopetugasarsip.SetFocus
> MsgBox "Masukkan nama petugas arsip yang melayani anda"
> Exit Sub
>End If
>
>
Pada rumus
>diatas 'check for a part number (petugas arsip), dapat disimpulkan bahwa kolom PETUGAS ARSIP wajib diisi. Kalau tidak diisi dengan pilihan yang telah disediakan (mis; Petugas 1, Petugas 2, Petugas 3, Petugas 4 atau Petugas 5), maka data pada kolom yang sudah diisi tersebut tidak dapat diproses dan akan muncul MsgBox "Masukkan nama petugas arsip yang melayani anda".
>
>Yang saya
>inginkan pada DPT_Kembali (kolom TANGGAL KEMBALI ) juga demikian. Misalnya
>dengan contoh rumus sbb:
>'check for a part number (DPT_Kembali)
>If Trim(Me.DPT_Kembali.Value) = "" Then
> Me. DPT_Kembali.SetFocus
> MsgBox "Kolom tanggal kembali wajib dicentang""
> Exit Sub
>End If
>
>Saya sudah mencoba menggunakan rumus diatas 'check for a part
>number (DPT_Kembali), tetapi hasilnya jika kolom TANGGAL KEMBALI tidak dicentang, maka data pada kolom lainnya yang sudah diisi tersebut MASIH DAPATdiproses.
>
>Yang saya inginkan adalah:
>1.Bagaimana cara dan rumusnya JIKA kolom TANGGAL KEMBALI tidak dicentang, maka data pada kolom yang sudah diisi tersebut TIDAK DAPAT diproses. Atau;
>2.Data yang telah diisi akan diproses jika semua kolom sudah terisi lengkap dan kolom TANGGAL KEMBALI SUDAH / WAJIB dicentang.
>
>Terima kasih.
>Harry
>
>N/B:
>1. Rumus 'check for a part number (DPT_Kembali) hanya
>merupakan contoh dan bukan rumus sebenarnya.
>2. Studi Kasus (lampiran) yang pernah saya kirimkan mohon dijadikan sebagai bahan / Workbook Kertas Kerja.
>3. Workbook Kertas Kerja (Studi Kasus) yang sudah disesuaikan dengan yang saya maksudkan, mohon berkenan disertakan.
>
>
>________________________________
>Dari: Kid Mr. <mr.nmkid@gmail.com>
>
Dikirim: Sabtu, 12 November 2011 2:38
>
>
>Terimakasih juga telah bersedia mengungkapkan kebingungannya.
>
>Mari kita belajar konsep IF Then Else End IF
>
>IF suatu kondisi tercapai THEN
> seluruh proses diblok ini akan diproses, bisa jadi itu proses simpan, proses hapus, proses simpan diikuti hapus, proses filter atau proses apa saja
>cukup tulis baris prosesnya disini
>ELSE
> seluruh proses disini akan dikerjakan jika suatu kondisi tidak tercapai
>END IF
>
>Tentu sudah familiar dengan fungsi IF di worksheet yang ditulis di formula bar bukan ?
>=IF( nilainya=50, trim(substitute(small)find,dsb disini)))) sebagai proses nilai TRUE, semua proses nilai FALSE disini )
>
>Kira-kira apa bedanya dengan struktur syntax di atas ?
>
>Mari ditelaah baris-baris script :
>IF dtp_kembali.value then 'yang biru itu adalah suatu kondisi
> 'contoh proses ketika kondisi terpenuhi, yaitu dtp_kembali punya nilai
> msgbox "sudah dicentang atau nilai tanggal sudah
>diganti, akan diapakan ?"
> 'lalu sampeyan mau proses apa lagi kalau dtp_punya nilai ?
> 'pada dtp_ dengan checkbox, dtp akan punya nilai kalau sudah dicentang
>
> 'ini sekalian disediakan ruang baris-baris proses sampeyan ya...
> 'sila salin copas atau apa saja mulai baris berikut, sampai sebelum ELSE agar tetap pada blok kondisi TRUE
>
>else
> 'contoh proses ketika kondisi tidak terpenuhi
> msgbox "belum dicentang atau belum diganti nilai
>tanggalnya, jadi masih bernilai NULL, lalu mau diapakan ?"
>
'kalau dtp gak dicentang, walau tampak isinya tanggal seabad kemudian pun, tetap saja dianggap tak bernilai
>
> 'kalau kejadian itu terjadi, sampeyan mau memproses apa selain nampilkan pesan itu ?
>
> 'disini sampeyan tulis proses milik sampeyan sendiri, mau apa kalau dtp gak punya nilai (belum dicentang)
> 'jangan sampai melewati END IF ya...
>
>endif
>
>Kira-kira susunannya demikian.
>
>Kid.
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (16)

2a.: Re: % DALAM PIVOT TABEL

Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com

Sat Nov 12, 2011 1:14 am (PST)

Jika yang dibutuhkan adalah format number terhadap kolom Values nya,
kllik kanan nama kolom values -> field setting -> format number -> pilih
percentage
atau di field list, klik nama field dalam grup values, pilih field setting
-> format number -> percentage

Kid.

2011/11/12 Darto Chandra <d_c@gmx.com>

> **
>
>
> Mohon petunjuk para master xl, bagaimana caraanya memunculkan % dalam
> pivot tabel berdasarkan no laporan. Data kasus terlampir.
> Terima kasih
>
> Darto Chandra
> 085881648818
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
2b.: Re: % DALAM PIVOT TABEL

Posted by: "d_c@gmx.com" d_c@gmx.com

Sat Nov 12, 2011 1:57 am (PST)

maaf pak kid maksud saya dalam pivot tablenya nambah satu kolom %, jadi pcs, m3, %

> ----- Original Message -----
> From: Kid Mr.
> Sent: 11/12/11 04:14 PM
> To: belajar-excel@yahoogroups.com
> Subject: Re: [belajar-excel] % DALAM PIVOT TABEL
>
> Jika yang dibutuhkan adalah format number terhadap kolom Values nya,
> kllik kanan nama kolom values -> field setting -> format number -> pilih
> percentage
> atau di field list, klik nama field dalam grup values, pilih field setting
> -> format number -> percentage
>
>
> Kid.
>
> 2011/11/12 Darto Chandra <d_c@gmx.com>
>
> > **
> >
> >
> > Mohon petunjuk para master xl, bagaimana caraanya memunculkan % dalam
> > pivot tabel berdasarkan no laporan. Data kasus terlampir.
> > Terima kasih
> >
> > Darto Chandra
> > 085881648818
> >
> >
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
2c.: Re: % DALAM PIVOT TABEL

Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com

Sat Nov 12, 2011 2:30 am (PST)

Bisa lebih detil ?

Persentase adalah proporsi dari sesuatu.
Jadi 0.5 bisa jadi adalah memang 50% atau bisa jadi adalah 25% dari 2.

Yang bapak maksud yang seperti apa ?
Jika yang dimaksud adalah nilai dasarnya sebenarnya persentase, maka cukup
dengan format number. Permasalahan akan menampilkan 1 field seperti M3
berulang-ulang didalam kelompok values, bisa-bisa saja. Misal, tarik M3 ke
dalam values, lalu tarik lagi M3 kedalam values, kemudian lagi dan lagi.
M3 yang pertama kali masuk di format number persentase, yang kedua
menggunakan agregat count, yang ketiga menggunakan format number general,
dsb

Coba juga pelajari sebuah tab dalam field setting yang kalau tidak salah
namanya Show Values As
Disana ada banyak opsi selain Normal.

Jika semua cara tersebut belum bisa memenuhi kebutuhan, maka coba buat
sebuah kolom di datasource yang benar-benar mewakili nilai yang dimaksud.
Kemudian perluas datasource pivot agar kolom baru itu masuk sebagai bagian
datasource pivot, lalu masukkan kolom itu ke bagian values.
Kolom baru seperti ini bisa disusun dengan formula.

Fitur seperti formula field cukup membantu, tetapi masih banyak
kekurangannya ketika digunakan dengan lebih intensif pada dunia nyata, jadi
hanya pada kondisi tertentu saja sebaiknya menggunakan formula field.

Regards.
Kid.

2011/11/12 <d_c@gmx.com>

> **
>
>
> maaf pak kid maksud saya dalam pivot tablenya nambah satu kolom %, jadi
> pcs, m3, %
>
>
> > ----- Original Message -----
> > From: Kid Mr.
> > Sent: 11/12/11 04:14 PM
> > To: belajar-excel@yahoogroups.com
> > Subject: Re: [belajar-excel] % DALAM PIVOT TABEL
> >
> > Jika yang dibutuhkan adalah format number terhadap kolom Values nya,
> > kllik kanan nama kolom values -> field setting -> format number -> pilih
> > percentage
> > atau di field list, klik nama field dalam grup values, pilih field
> setting
> > -> format number -> percentage
> >
> >
> > Kid.
> >
> > 2011/11/12 Darto Chandra <d_c@gmx.com>
> >
> > > **
>
> > >
> > >
> > > Mohon petunjuk para master xl, bagaimana caraanya memunculkan % dalam
> > > pivot tabel berdasarkan no laporan. Data kasus terlampir.
> > > Terima kasih
> > >
> > > Darto Chandra
> > > 085881648818
> > >
> > >
> >
>
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

3a.: Re: insert message

Posted by: "d_c@gmx.com" d_c@gmx.com

Sat Nov 12, 2011 1:58 am (PST)

thank you atas petunjuknya, akan segera di coba codingnya.

> ----- Original Message -----
> From: Haps
> Sent: 11/12/11 07:54 AM
> To: belajar-excel@yahoogroups.com
> Subject: Re: [belajar-excel] insert message
>
> Pada saat kita mengklik MENU ataupun ICON untuk mengInsert ROWs / COLUMNs
> menurut yg saya ketahui* tidak terjadi suatu EVENT apapun di worksheet atau
> workbook.*
> Ini mengakibatkan: Peng-OTOMATIS-an untuk menunda insertion = tidak ada.
> (walaupun prosedur telah ditulis, tetapi prosedur tidak akan terlaksana
> (RUN / JALAN)
> dengan sendirinya)
>
> Event Worksheet_Change memang terjadi (occured) ketika KOLOM/BARIS *TELAH
> (baru saja)*
> *di-INSERT-kan*..
>
> Jadi (sementara belum "nemu" trick lain, dan menunggu pendapat &/ solusi
> members lain...)
> mungkin caranya begini
>
> * prosedur ditulis di bawah Event WorkSheet_Change
> * ketika *terjadi insertion Kolom* atau Baris ( = kolom / baris sudah
> TERLANJUR di insertkan)
> ** kita deteks apakah *object range Target* punya ketinggian = jumlah
> baris di sheet
> jika IYA (yg berarti telah terjadi PERUBAHAN yg melibatkan range
> berdimensi KOLOM),
> ** munculkan MsgBox yg memberi pilihan Yes / No
> Yes = keluar dari prosedur
> No = Mendelete KOLOMs / BARISs yg baru saja di-insertkan, baru keluar
> dari prosedur
>
> Contoh event procedure di bawah ini (di tulis di module milik salah satu
> SHEET)
> baru bisa mengenali adanya *perubahan* KOLOM PENUH
> tetapi BELUM bisa membedakan apakah yg terjadi = Peng-INSERT-an ataukah
> Pend-DELETE-an
> ataukah ada operasi copy paste dari ke range yg tingginya SEKOLOM PENUH.
>
> Dengan kata lain, makro ini belum sempurna, & perlu penyempurnan (kalau ada
> caranya)
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> *' coded by hapsari / 10 nov 2011*
> Dim YesCancel As Long
> Const Msg As String = "Mungkin telah terjadi Penyisipan KOLOM" & vbCrLf
> Application.EnableEvents = False
> Application.DisplayAlerts = False
>
> If Target.Rows.Count = Cells.Rows.Count Then
> YesCancel = MsgBox(Msg & "YES = Biarkan saja, CANCEL = Batalkan", 48
> + vbOKCancel)
> If YesCancel = vbCancel Then Target.EntireColumn.Delete
> End If
>
> Application.EnableEvents = True
> Application.DisplayAlerts = True
> End Sub
> '------------------
> contoh workbook tersedia at request
> [image: toolbar tambahan.PNG]
>
>
> 2011/11/11 Darto Chandra <d_c@gmx.com>
> >
> > mohon bimbingannya, bagaimana coding makronya, jika kita pencet insert
> kolom dalam menu excel,
> > akan muncul dialog box konfirmasi. Jika ok maka proses insert kolom di
> lanjukan jika tidak tutup dialog box konfirmasi.
> > Terimaa kasih
> >
> > Darto Chandra
> > 085881648818
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

4a.: Re: mengubah character tertentu dlm suatu part number

Posted by: "Mulki Akbar" mulki@aop.component.astra.co.id mulki_akbar

Sat Nov 12, 2011 4:41 am (PST)

mb hapsari, terimakasih atas jawabannya.

Saya udah copas macro seperti yg mb contohkan, trus di sel C3 berisi part number sbb :
UBSTDC-CO12N244-09P dan saya ketikan =FilChar(C3) di sel D3

Muncul pesan : #NAME?

Mohon pencerahannya apa yg salah ya mb hapsari ?

Thx & Wassalam,

mulki
----- Original Message -----
From: Haps
To: belajar-excel@yahoogroups.com
Sent: Thursday, November 10, 2011 4:43 PM
Subject: Re: [belajar-excel] mengubah character tertentu dlm suatu part number

Kalau diperkenankan pakai UDF (fungsi buatan sendiri); mungkin seperti ini

Function FilChar(S As String) As String
Dim ArFilter, i As Integer
ArFilter = Array("(", ")", "-", " ")
For i = 0 To UBound(ArFilter)
S = Replace(S, ArFilter(i), "")
Next
FilChar = Trim(S)
End Function

Keuntungan UDF: Formula bisa dibuat sangat pendek misal =A(C7)
(nama fungsinya = A, C7 cell yg berisi data input)

Penggunaannya UDF yg codingnya ditulis di atas, seperti layaknya fungsi bawaan Excel
Tuliskan di sheet's cell misal C3; (dimana B3 berisi data input (yg ingin diproses)

=FilChar(B3)

2011/11/7 Mulki Akbar <mulki@aop.component.astra.co.id>

Assalamu'alaikum wr. wb.
Mohon pencerahan dari guru2 B-xl,
saya punya contoh part number seperti berikut :

12N24-4
NS 40
NS 40 L
NS 40 (S)
NS 40 L (S)

Bagaimana caranya dg satu rumus jika saya mau menyeragamkan ke 5 part number tersbt agar character berikut ini di hilangkan : - (minus)
(spasi)
() (tanda buka dan tutup kurung)

jadi nantinya akan seperti ini :

12N244
NS40
NS40L
NS40S
NS40LS

Saya bisanya cuma mengganti 1 tanda dg menggunakan =substitute(B8,"-","")
mohon pencerahannya, dg 1 formula bisa menghilangkan character yg tadi saya ketik di atas.

Mohon pencerahannya.

Thx & Wassalam,
mulki

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
4b.: Re: mengubah character tertentu dlm suatu part number

Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com

Sat Nov 12, 2011 5:13 am (PST)

Tutup semua workbook, kecuali workbook yang berisi error #NAME? tersebut,
Coba tekan ALT+F11 -> untuk ke VBE
Kemudian tekan CTRL+F -> untuk mengaktifkan Find
Find what : isi dengan FilChar( -> yang dicari adalah teks tersebut
Search : pilih Current Project -> lokasi pencarian
lalu tekan Find Next atau Find -> jalankan pencarian

Jika bertemu teks tersebut, lihat lokasinya, apakah ada disebuah ModuleN (N
biasanya berisi angka 1,2, dst)
Jika belum ada, maka :
1. buat sebuah module dengan menu Insert -> Module
2. Copas script UDF FilChar dari mbak Haps ke module baru tersebut tanpa
diubah apa-apanya
3. Save.

Regards.
Kid.

2011/11/12 Mulki Akbar <mulki@aop.component.astra.co.id>

> **
>
>
> **
> mb hapsari, terimakasih atas jawabannya.
>
> Saya udah copas macro seperti yg mb contohkan, trus di sel C3 berisi part
> number sbb :
> UBSTDC-CO12N244-09P dan saya ketikan =FilChar(C3) di sel D3
>
> Muncul pesan : #NAME?
>
> Mohon pencerahannya apa yg salah ya mb hapsari ?
>
>
> Thx & Wassalam,
> mulki
>
> ----- Original Message -----
> *From:* Haps <hapsari.stlizbeth@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Thursday, November 10, 2011 4:43 PM
> *Subject:* Re: [belajar-excel] mengubah character tertentu dlm suatu part
> number
>
>
>
> Kalau diperkenankan pakai UDF (fungsi buatan sendiri); mungkin seperti
> ini
>
> Function *FilChar*(S As String) As String
> Dim ArFilter, i As Integer
> ArFilter = Array("(", ")", "-", " ")
> For i = 0 To UBound(ArFilter)
> S = Replace(S, ArFilter(i), "")
> Next
> FilChar = Trim(S)
> End Function
>
> Keuntungan UDF: Formula bisa dibuat sangat pendek misal =A(C7)
> (nama fungsinya = A, C7 cell yg berisi data input)
>
> Penggunaannya UDF yg codingnya ditulis di atas, seperti layaknya fungsi
> bawaan Excel
> Tuliskan di sheet's cell misal C3; (dimana B3 berisi data input (yg ingin
> diproses)
>
> =FilChar(B3)
>
>
>
>
> 2011/11/7 Mulki Akbar <mulki@aop.component.astra.co.id>
>
>> **
>> Assalamu'alaikum wr. wb.
>> Mohon pencerahan dari guru2 B-xl,
>> saya punya contoh part number seperti berikut :
>>
>> *12N24-4*
>> *NS 40*
>> *NS 40 L*
>> *NS 40 (S)*
>> *NS 40 L (S)*
>> **
>> Bagaimana caranya dg satu rumus jika saya mau menyeragamkan ke 5 part
>> number tersbt agar character berikut ini di hilangkan : - (minus)
>> (spasi)
>> () (tanda buka dan tutup kurung)
>>
>> jadi nantinya akan seperti ini :
>>
>> *12N244*
>> *NS40*
>> *NS40L*
>> *NS40S*
>> *NS40LS*
>>
>> Saya bisanya cuma mengganti 1 tanda dg menggunakan =substitute(B8,"-","")
>> mohon pencerahannya, dg 1 formula bisa menghilangkan character yg tadi
>> saya ketik di atas.
>>
>> Mohon pencerahannya.
>>
>> Thx & Wassalam,
>> mulki
>>
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

Create New Topic | Visit Your Group on the Web

Messages

---------------------------------------------------------------------
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
---------------------------------------------------------------------

MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

EXCEL FEED

Sabtu, 12 November 2011

[belajar-excel] Digest Number 1396

Messages In This Digest (7 Messages)

Messages

Bls: [belajar-excel] DTPicker

Posted by: "Harry" hariansyahptk@yahoo.com hariansyahptk

Sat Nov 12, 2011 12:21 am (PST)

Re: % DALAM PIVOT TABEL

Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com

Sat Nov 12, 2011 1:14 am (PST)

Re: % DALAM PIVOT TABEL

Posted by: "d_c@gmx.com" d_c@gmx.com

Sat Nov 12, 2011 1:57 am (PST)

Re: % DALAM PIVOT TABEL

Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com

Sat Nov 12, 2011 2:30 am (PST)

Re: insert message

Posted by: "d_c@gmx.com" d_c@gmx.com

Sat Nov 12, 2011 1:58 am (PST)

Re: mengubah character tertentu dlm suatu part number

Posted by: "Mulki Akbar" mulki@aop.component.astra.co.id mulki_akbar

Sat Nov 12, 2011 4:41 am (PST)

Re: mengubah character tertentu dlm suatu part number

Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com

Sat Nov 12, 2011 5:13 am (PST)

Tidak ada komentar:

Posting Komentar

Followers

Blog Archive

About Me