Messages In This Digest (15 Messages)
- 1.
- Me - link kan Power point dengan Excel From: Doli Azhari
- 2a.
- Re: BBM group : Nulis 1000 jadi 1, From: Aliif Akbar
- 2b.
- Re: BBM group : Nulis 1000 jadi 1, From: hendrik karnadi
- 2c.
- Re: BBM group : Nulis 1000 jadi 1, From: Aliif Akbar
- 3.
- Need brainstorming about excel.. From: lidia_serenity
- 4a.
- Re: Menampilkan paste Spesial From: Rara Wilis
- 4b.
- Re: Menampilkan paste Spesial From: Iwan کuryawan
- 5a.
- Re: Message box Ok Cancel From: hendrik karnadi
- 5b.
- Re: Message box Ok Cancel From: Rara Wilis
- 5c.
- Re: Message box Ok Cancel From: hendrik karnadi
- 6a.
- Re: Formula format nomor NPWP From: raya hidayat
- 6b.
- Re: Formula format nomor NPWP From: Bagyo L
- 6c.
- Re: Formula format nomor NPWP From: Bagyo L
- 7.
- Fw: [belajar-excel] Buat Laporan Dengan Macro From: Abu Halimah
- 8a.
- Re: Select Case menggantikan IF dengan banyak parameter From: cuma.milis@gmail.com
Messages
- 1.
-
Me - link kan Power point dengan Excel
Posted by: "Doli Azhari" internazionale_madrid@yahoo.com internazionale_madrid
Tue Mar 20, 2012 9:19 pm (PDT)
Mohon pencerahannya Mas/Mbak,
saya ada permasalahan seputar excel dan powerpoint.
bagaimana cara me - link kan power point dengan excel.
Detail pertannyaan saya ada di dalam lampiran Mas/Mbak.
Regards,
DAZ
- 2a.
-
Re: BBM group : Nulis 1000 jadi 1,
Posted by: "Aliif Akbar" aliif.akbar@yahoo.co.id aliif.akbar
Tue Mar 20, 2012 9:20 pm (PDT)
Selamat siang,
Dear BeExcel,
Berikut contoh file yang saya tidak bisa menulis angka seribu (1000),
Mohon pencerahannya,
Terimakasih,
Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!
-----Original Message-----
From: "o' Seno" <ontoseno84@gmail.com >
Sender: belajar-excel@yahoogroups. com
Date: Tue, 20 Mar 2012 12:06:55
To: <belajar-excel@yahoogroups. >com
Reply-To: belajar-excel@yahoogroups. com
Subject: Re: [belajar-excel] BBM group : Nulis 1000 jadi 1,
apa yg saya ajukan adalah *salah satu kemungkinan *karena apa yg asror
beritakanpan
kan juga tidak lengkap 100 persen dan tanpa lampiran (ada apanya workbook
tsb)
kemungkinan lain : workbook tsb ada makronya
(asror sendiri tidak bilang ada/ tidak ada makronya)
makro yg memanfaatkan EVENT worksheet change bisa dissisipkan perintah
untuk membagi
value yg masuk dengan 1000 (semua yg diketikkan dibagi 1000)
sub blablabla <<-- worksheet change event)
if blekblekblek then
Target.Value = Target/1000
end if
end sub
khusus untuk saya, kasus ditutup kecuali pertanyaan lanjutan disertai
lampiran workbook
yg dipertanyakan..
*o'Seno*
*
*
*2012/3/20 Aliif Akbar <aliif.akbar@yahoo.co. >id
*
>
> * *
>
> *Dear pak o'Seno,
> Kalau yang seperti itu saya pernah membaca lampiran dimilis, tapi,
> sekarang itu, saya tidak bisa menulis angka 1000 di excel saya, ketika saya
> menulis 1000 setelah di enter angkanya berubah menjadi 1 baik di cellnya
> ataupun di formula bar-nya,...
> Ketika saya menulis angka 1000 pada lampiran excel yang pak o'Seno kirim
> sama saja, hasilnya 1000 menjadi 1, ini berlaku pada new workbook ataupun
> file excel yang lain,
> Demikian dari saya, mohon pencerahannya,
>
> Regards,
> *
>
>
- 2b.
-
Re: BBM group : Nulis 1000 jadi 1,
Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi
Tue Mar 20, 2012 9:48 pm (PDT)
Masalahnya ada di format. Kalau tanda "." mau diketik harus ganti formatnya menjadi "Text" (tidak bisa dijumlah).
Kalau mau rata kanan tinggal klik icon rata kanan.
Salam,
Hendrik Karnadi
_____________________ _________ __
From: Aliif Akbar <aliif.akbar@yahoo.co. >id
To: belajar-excel@yahoogroups. com
Sent: Wednesday, 21 March 2012, 11:13
Subject: Re: [belajar-excel] BBM group : Nulis 1000 jadi 1,
Selamat siang,
Dear BeExcel,
Berikut contoh file yang saya tidak bisa menulis angka seribu (1000),
Mohon pencerahannya,
Terimakasih,
Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!
_____________________ _________ __
From: "o' Seno" <ontoseno84@gmail.com >
Sender: belajar-excel@yahoogroups. com
Date: Tue, 20 Mar 2012 12:06:55 +0700
To: <belajar-excel@yahoogroups. >com
ReplyTo: belajar-excel@yahoogroups. com
Subject: Re: [belajar-excel] BBM group : Nulis 1000 jadi 1,
apa yg saya ajukan adalah salah satu kemungkinan karena apa yg asror beritakanpan
kan juga tidak lengkap 100 persen dan tanpa lampiran (ada apanya workbook tsb)
kemungkinan lain : workbook tsb ada makronya
(asror sendiri tidak bilang ada/ tidak ada makronya)
makro yg memanfaatkan EVENT worksheet change bisa dissisipkan perintah untuk membagi
value yg masuk dengan 1000 (semua yg diketikkan dibagi 1000)
sub blablabla <<-- worksheet change event)
if blekblekblek then
Target.Value = Target/1000
end if
end sub
khusus untuk saya, kasus ditutup kecuali pertanyaan lanjutan disertai lampiran workbook
yg dipertanyakan..
o'Seno
2012/3/20 Aliif Akbar <aliif.akbar@yahoo.co. >id
>Dear pak o'Seno,
>Kalau yang seperti itu saya pernah membaca lampiran dimilis, tapi, sekarang itu, saya tidak bisa menulis angka 1000 di excel saya, ketika saya menulis 1000 setelah di enter angkanya berubah menjadi 1 baik di cellnya ataupun di formula bar-nya,...
>Ketika saya menulis angka 1000 pada lampiran excel yang pak o'Seno kirim sama saja, hasilnya 1000 menjadi 1, ini berlaku pada new workbook ataupun file excel yang lain,
>Demikian dari saya, mohon pencerahannya,
>
>Regards,
>
>
>
- 2c.
-
Re: BBM group : Nulis 1000 jadi 1,
Posted by: "Aliif Akbar" aliif.akbar@yahoo.co.id aliif.akbar
Tue Mar 20, 2012 10:02 pm (PDT)
Dear pak hendrik,
Terimakasih responsenya, saya ketika mengetik angka 1000 itu ketika di enter jadinya angkanya 1, bukan 1000, ataupun 1.000,
Saya sudah coba untuk merubah menjadi currency, ketika saya ngetik 1000, harusnya keluar Rp. 1.000,-, tapi yang saya dapatkan Rp. 1,-
Mungkin temen2 beexcel ada yang pernah mengalami hal ini?
Mohon pencerahannya.
Terimakasih,
-----Original Message-----
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
Date: Tue, 20 Mar 2012 21:48:53
Masalahnya ada di format. Kalau tanda "." mau diketik harus ganti formatnya menjadi "Text" (tidak bisa dijumlah).
Kalau mau rata kanan tinggal klik icon rata kanan.
Salam,
Hendrik Karnadi
_____________________ _________ __
From: Aliif Akbar <aliif.akbar@yahoo.co. >id
To: belajar-excel@yahoogroups. com
Sent: Wednesday, 21 March 2012, 11:13
Subject: Re: [belajar-excel] BBM group : Nulis 1000 jadi 1,
Selamat siang,
Dear BeExcel,
Berikut contoh file yang saya tidak bisa menulis angka seribu (1000),
Mohon pencerahannya,
Terimakasih,
- 3.
-
Need brainstorming about excel..
Posted by: "lidia_serenity" lidia_serenity@yahoo.co.id lidia_serenity
Tue Mar 20, 2012 9:24 pm (PDT)
Dear all,
Tolong bantu dong saya ada case nih bingung gimana bikinnya,
Saya mau bikin di excel suatu database dimana didalam database tersebut disimpan link untuk hyperlink data ke tempat lain giman acaranya ya?
Dan bisa tlong ajarin buat data pivot table tdak?
Terimakasih
- 4a.
-
Re: Menampilkan paste Spesial
Posted by: "Rara Wilis" ra2wilis@gmail.com rr_wilis
Tue Mar 20, 2012 9:37 pm (PDT)
Saya bukan pemakai dan oleh karena itu buta mengenai Ecxel 2010.
Seandainya Metoda PasteSpecial itu masih sama dengan yg ada di Excel 2003
/ Excel 2007 maka
DialogBox Paste Special hanya akan muncul jika kita sudah punya
object (range)
yg sudah dicopy (sudah masuk ke ClipBoard)
Jika anda belum mengkopy suatu object (misalnya Range) PasteSpecial tidak
akan bersedia tampil
MUNGKIN seperti itu keadaan yg DIHADAPI oleh "den baguse"
(di kampung saya "den baguse" itu panggilan untuk tikus yg menjengkelkan
karena sering masuk rumah...)
On Wed, Mar 21, 2012 at 10:12 AM, dhen.baguse <bagusejogja@yahoo.com > wrote:
> **
> Dear master excel, bagaimana untuk menampilkan paste spesial, file
> terlampir ...
> matur nuwun master master excel..
>
- 4b.
-
Re: Menampilkan paste Spesial
Posted by: "Iwan کuryawan" iwan@asco.co.id suryawan.arief
Tue Mar 20, 2012 10:14 pm (PDT)
dhen.baguse,
dimbikin shortcut di Quick Access Toolbar ae, bisa dipilih2 dari
menu File > Option > QAT seperti ini:
Favorit saya adalah Paste Values :D
Salam
On Wed, 21 Mar 2012 10:12:48 +0700 (SE Asia Standard Time)
"dhen.baguse" <bagusejogja@yahoo.com >
<mailto:bagusejogja@yahoo.com > menulis begini:
Dear master excel, bagaimana untuk menampilkan paste spesial,
file terlampir ... matur nuwun master master excel..
- 5a.
-
Re: Message box Ok Cancel
Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi
Tue Mar 20, 2012 9:37 pm (PDT)
Coba yang ini, apakah sudah sesuai harapan.
Salam,
Hendrik Karnadi
_____________________ _________ __
From: Kurei recca <yusajing_ehm@yahoo.com >
To: Belajar Excel Grups <belajar-excel@yahoogroups. >com
Sent: Wednesday, 21 March 2012, 10:51
Subject: [belajar-excel] Message box Ok Cancel
Salam Para Master excel,
Saya sedang membuat suatu coding dengan vba macro, tetapi saya kesulitan dalam membuat messagebox yang menggunakan Ok cancel,,
Kondisi yang saya inginkan adalah ketika muncul message box dan keluar pilihan "OK" atau "Cancel" akan keluar suatu process jika memilih salah satu.
Misal dalam kasus ini adalah :
Jika saya memilih "Ok" maka akan keluar kalimat "Good Job" di B1,
Untuk lebih jelasnya saya lampirkan filenya,,
terimakasih
Ridwan
- 5b.
-
Re: Message box Ok Cancel
Posted by: "Rara Wilis" ra2wilis@gmail.com rr_wilis
Tue Mar 20, 2012 10:00 pm (PDT)
Mohon maaf, hanya ingin menambah setitik dari makro pak Karnadi yg sudah
oke..
Kita akan lebih baik membiasakan hal-hal kecil sejak menghadapi kasus-kasus
kecil
misalnya menuliskan DEKLARASI Variable, sebelum variable digunakan.
Hal ini sangat berpengaruh terhadap kecepatan program, terutama akan sangat
terasa
kelak jika kita membuat proyek2 besar
Variable Jawab, sebelum digunakan dapat dideklarasikan sbb
Private Sub Worksheet_Change(ByVal Target As Range)
*Dim Jawab As Long * ' atau jika tak tahu type nya
'Dim Jawab ' ( as Variant)
If Target = Cells(1) Then
If Target <> vbNullString Then
Jawab = MsgBox("Pilih Ok atau Cancel ??", *vbOKCancel*, "Pilih
Salah satu !!")
If Jawab = vbOK Then
Target(1, 2).Value = "Good Job"
Else
Target(1, 2).Value = vbNullString
End If
End If
End If
End Sub
'---------
MsgBox Return Values
Constant Value Description *vbOK* 1 *OK* button pressed *vbCancel* 2 *
Cancel* button pressed *vbAbort* 3 *Abort* button pressed *vbRetry* 4 *Retry
* button pressed *vbIgnore* 5 *Ignore* button pressed *vbYes* 6
*Yes*button pressed
*vbNo* 7 *No* button pressed
CMIIW
On Wed, Mar 21, 2012 at 11:37 AM, hendrik karnadi
<hendrikkarnadi@yahoo.com >wrote:
> **
> Coba yang ini, apakah sudah sesuai harapan.
> Salam,
> Hendrik Karnadi
>
>
*____________________ _________ ___
From: Kurei recca <yusajing_ehm@yahoo.com >
Sent: Wednesday, 21 March 2012, 10:51
Salam Para Master excel,
Saya sedang membuat suatu coding dengan vba macro, tetapi saya kesulitan
dalam membuat messagebox yang menggunakan Ok cancel,,
Kondisi yang saya inginkan adalah ketika muncul message box dan keluar
pilihan "OK" atau "Cancel" akan keluar suatu process jika memilih salah
satu.
Misal dalam kasus ini adalah :
Jika saya memilih "Ok" maka akan keluar kalimat "Good Job" di B1,
Untuk lebih jelasnya saya lampirkan filenya,,
terimakasih
Ridwan*
- 5c.
-
Re: Message box Ok Cancel
Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi
Tue Mar 20, 2012 10:49 pm (PDT)
Terima kasih atas koreksinya.
Bahkan kalau mau lebih disiplin lagi (sesuai petunjuk Bu Siti Vi) pakai Option Explicit di atas Private Sub ...,
sehingga jika ada Variable yang belum dideklarasikan akan tampak pesan "Compile Error, Variable Not Defined"
Salam,
Hendrik Karnadi
_____________________ _________ __
From: Rara Wilis <ra2wilis@gmail.com >
To: belajar-excel@yahoogroups. com
Sent: Wednesday, 21 March 2012, 12:00
Subject: Re: [belajar-excel] Message box Ok Cancel
Mohon maaf, hanya ingin menambah setitik dari makro pak Karnadi yg sudah oke..
Kita akan lebih baik membiasakan hal-hal kecil sejak menghadapi kasus-kasus kecil
misalnya menuliskan DEKLARASI Variable, sebelum variable digunakan.
Hal ini sangat berpengaruh terhadap kecepatan program, terutama akan sangat terasa
kelak jika kita membuat proyek2 besar
Variable Jawab, sebelum digunakan dapat dideklarasikan sbb
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Jawab As Long ' atau jika tak tahu type nya
'Dim Jawab ' ( as Variant)
If Target = Cells(1) Then
If Target <> vbNullString Then
Jawab = MsgBox("Pilih Ok atau Cancel ??", vbOKCancel, "Pilih Salah satu !!")
If Jawab = vbOK Then
Target(1, 2).Value = "Good Job"
Else
Target(1, 2).Value = vbNullString
End If
End If
End If
End Sub
'---------
MsgBox Return Values
Constant
Value
Description
vbOK 1 OK button pressed
vbCancel 2 Cancel button pressed
vbAbort 3 Abort button pressed
vbRetry 4 Retry button pressed
vbIgnore 5 Ignore button pressed
vbYes 6 Yes button pressed
vbNo 7 No button pressed
CMIIW
On Wed, Mar 21, 2012 at 11:37 AM, hendrik karnadi <hendrikkarnadi@yahoo.com > wrote:
>Coba yang ini, apakah sudah sesuai harapan.
>Salam,
>Hendrik Karnadi
>
>
_____________________ _________ __
From: Kurei recca <yusajing_ehm@yahoo.com >
Sent: Wednesday, 21 March 2012, 10:51
Salam Para Master excel,
Saya sedang membuat suatu coding dengan vba macro, tetapi saya kesulitan dalam membuat messagebox yang menggunakan Ok cancel,,
Kondisi yang saya inginkan adalah ketika muncul message box dan keluar pilihan "OK" atau "Cancel" akan keluar suatu process jika memilih salah satu.
Misal dalam kasus ini adalah :
Jika saya memilih "Ok" maka akan keluar kalimat "Good Job" di B1,
Untuk lebih jelasnya saya lampirkan filenya,,
terimakasih
Ridwan
- 6a.
-
Re: Formula format nomor NPWP
Posted by: "raya hidayat" raya.hidayat@gmail.com raya.hidayat
Tue Mar 20, 2012 9:54 pm (PDT)
sama-sama. koreksi dikit saya bukan ibu / mbak.
terima kasih
raya
2012/3/21 Bagyo L <bagyol@nojima.co.id >
> **
>
>
> Dear Raya (ibu/mbak), seperti itu yang saya maksudkan, terima kasih banyak
> atas bantuannya.****
>
> ** **
>
> Salam,****
>
> Bagyo L****
>
> ** **
>
> ** **
>
> *From:* belajar-excel@yahoogroups. [mailto:com
> belajar-excel@yahoogroups. ] *On Behalf Of *raya hidayatcom
> *Sent:* 21 Maret 2012 10:22
> *To:* belajar-excel@yahoogroups. com
> *Subject:* Re: [belajar-excel] Formula format nomor NPWP****
>
> ** **
>
> ****
>
> ** **
>
> silahkan dilihat. mudah2an sesuai dengan yang diinginkan.
>
> terima kasih****
>
> ** **
>
> ** **
>
> Raya****
>
> 2012/3/21 Bagyo L <bagyol@nojima.co.id >****
>
> ****
>
> Dear Master Belajar Excell yang budiman,****
>
> ****
>
> Mohon bantuannya bagaimana formula untuk dapat membentuk nomor NPWP, ****
>
> misal dari angka 479948953413000 menjadi 47.994.895.3-413.000** **
>
> ****
>
> Mohon maaf apabila sebelumnya sudah pernah dibahas di milis ini.****
>
> Sebelumnya terima kasih.****
>
> ****
>
> Bagyo L****
>
> ****
>
>
>
> ****
>
> ** **
>
> --
> Terima kasih
>
>
> Raya****
>
> ****
>
>
>
--
Terima kasih
Raya
- 6b.
-
Re: Formula format nomor NPWP
Posted by: "Bagyo L" bagyol@nojima.co.id bagyolumaksono
Tue Mar 20, 2012 10:00 pm (PDT)
Dear pak Zainul, terima kasih atas masukannya, dan sudah bisa saya
pergunakan formulanya.
Salam,
Bagyo L
From: belajar-excel@yahoogroups. [mailto:belajar-excel@com yahoogroups. ]com
On Behalf Of zainul_ulum[at]yahoo[ dot]com
Sent: 21 Maret 2012 10:46
To: belajar-excel@yahoogroups. com
Subject: RE: [belajar-excel] Formula format nomor NPWP
Masukkan dalam format angka, kemudian atur format number menjadi : 00 000
000 0 000 000
Silahkan lihat di lampiran
2012/3/21 Bagyo L <bagyol@nojima.co.id <mailto:bagyol%40nojima. co.id> >
Dear Master Belajar Excell yang budiman,
Mohon bantuannya bagaimana formula untuk dapat membentuk nomor NPWP,
misal dari angka 479948953413000 menjadi 47.994.895.3-413.000
Mohon maaf apabila sebelumnya sudah pernah dibahas di milis ini.
Sebelumnya terima kasih.
Bagyo L
--
Terima kasih
Raya
- 6c.
-
Re: Formula format nomor NPWP
Posted by: "Bagyo L" bagyol@nojima.co.id bagyolumaksono
Tue Mar 20, 2012 11:31 pm (PDT)
Dear pak Raya Hidayat,
Mohon dimaafkan ya pak, salah menyebut .
Terima kasih.
Bagyo L
From: belajar-excel@yahoogroups. [mailto:belajar-excel@com yahoogroups. ]com
On Behalf Of raya hidayat
Sent: 21 Maret 2012 11:55
To: belajar-excel@yahoogroups. com
Subject: Re: [belajar-excel] Formula format nomor NPWP
sama-sama. koreksi dikit saya bukan ibu / mbak.
terima kasih
raya
2012/3/21 Bagyo L <bagyol@nojima.co.id >
Dear Raya (ibu/mbak), seperti itu yang saya maksudkan, terima kasih banyak
atas bantuannya.
Salam,
Bagyo L
From: belajar-excel@yahoogroups. [mailto:belajar-excel@com yahoogroups. ]com
On Behalf Of raya hidayat
Sent: 21 Maret 2012 10:22
To: belajar-excel@yahoogroups. com
Subject: Re: [belajar-excel] Formula format nomor NPWP
silahkan dilihat. mudah2an sesuai dengan yang diinginkan.
terima kasih
Raya
2012/3/21 Bagyo L <bagyol@nojima.co.id >
Dear Master Belajar Excell yang budiman,
Mohon bantuannya bagaimana formula untuk dapat membentuk nomor NPWP,
misal dari angka 479948953413000 menjadi 47.994.895.3-413.000
Mohon maaf apabila sebelumnya sudah pernah dibahas di milis ini.
Sebelumnya terima kasih.
Bagyo L
--
Terima kasih
Raya
--
Terima kasih
Raya
- 7.
-
Fw: [belajar-excel] Buat Laporan Dengan Macro
Posted by: "Abu Halimah" adarickya@yahoo.com adarickya
Tue Mar 20, 2012 10:03 pm (PDT)
resend.
--- On Mon, 3/19/12, Abu Halimah <adarickya@yahoo.com > wrote:
From: Abu Halimah <adarickya@yahoo.com >
Subject: [belajar-excel] Buat Laporan Dengan Macro
To: belajar-excel@yahoogroups. com
Date: Monday, March 19, 2012, 6:24 AM
Kepada agan master excel,
Minta tolong membuat suatu macro file dari suatu sumber data (Master.xlsb) untuk menghasilkan Laporan yang diinginkan (output.xlsb). Perlu diketahui bahwa
1. File sumber data adalah Master dengan beserta kodenya pada sheet 'Kode' dan Laporan pada file output.
2. Adanya kode untuk suatu bagian yaitu terletak pada column "invnarrh" (file Master) untuk menentukan departemen/ bagian.
3. Invoice adalah pada Column "invcntrl" (file Master) untuk menentukan Total Invoice.
4. Ageing adalah umur invoice "duedate" (column M, file Master) dikurangi Run Date (cell O2, file output).
5. Ageing terbagi antara lain : -45< hari, <-45-0 hari, >0 hari
Bagi yang sudah jago disharing ilmunya, bagi yg masih dangkal seperti saya mudah2an jadi ajang pembelajaran.
Terima kasih banyak
Terima kasih
- 8a.
-
Re: Select Case menggantikan IF dengan banyak parameter
Posted by: "cuma.milis@gmail.com" cuma.milis@gmail.com
Tue Mar 20, 2012 11:21 pm (PDT)
maaf ki bila contoh kasusnya kurang OKE...hehehe....
niatnya sih biar nanti saya yang mengembangkan ke dlm coding saya.
contoh yang ki kasih...OKE Bgt.
akan saya pelajari dulu...nanti kalau menthok....sudi kiranya aki kasih jurus-jurus yang lain....
btw...benar asumsi aki...maksud saya dengan 3 parameter adalah 3 variabel. saya nya yg ga tau bahasa preman nya.
------- Original message -------
> From: Ki Semprul <semprul.ki@gmail.com >
> To: belajar-excel@yahoogroups. com
> Sent: 21.3., 10:59
>
>
>
> Sub Klothakk()
> Dim Kond As Boolean
>
> Kond = (Range("A1").Value = "01" And _
> Range("B1").Value = "0" And _
> Left(Range("C1").Value, 2) = "AS")
>
> Select Case Kond
> Case True
> Range("D1").Value = "belajar macro"
> Case Else
> Range("D1").Value = "belajar select case"
> End Select
>
> End Sub
>
> CATATAN:
> Mungkin yg dimaksud dengan "banyak parameter" itu adalah 3 syarat seperti
> digambarkan dalm variable Kond di atas.
>
> Sebetulnya kasus pencabangan hanya menganadung 2 cabang kemungkinan spt itu
> belum perlu Select Case
> Biasanya Select Case dipakai untuk menghadapi branching denan 3 kondisi aatu lebih
>
> Harap dicatat juga, untuk kasus tsb Kond akan bernilai True hanya jika cell A1 dan B1
> berisi data type TEXT/String, bukan Numbers (bilangan)
> Contoh kasusnya kurang Oke...
>
> Struktur / Statement Select Case adalah sbb:
>
> Select Case <Expression to test>
> Case <Test1>
> ' Do something 1
> Case <Test2>
> ' Do something 2
>
> ' case-case lain...
>
> Case Else
> ' Do something else
> End Select
>
>
> Contoh soal yg lebih nyata
>
> Di cell A1 akan dituliskan Bilagan Utuh (bilangan bulat / integer) dgn nilai berapa saja
> Kategori Bilangan menurut nilainya dengan aturan pengelompokan sbb
>
> Katg Nilai Bilangan
> A: 0 sd 20
> B: >20 sd 50
> C: >50 sd 125
> D: >125 sd 1000
> E: >1000
>
> Kita diberi tugas menebak Kategori (A,B,C,D,E ) bilangan itu, tebakan di tulis di cell B1
> Selain itu harus ditebak pula apakah bilangan itu ganjil atau genap; juga harus ditebak
> apakah bilangan positif ataukah negatif.
>
> CONTOH Penyelesaian VBA, dengan memanfaatkan struktur Select Case
>
> Sub TebakBilangan_diA1()
> ' Ki Semprul mainan SelectCase
> Dim GanGen As String
> Dim PosNeg As String
> Dim Katego As String
>
> GanGen = IIf(Cells(1).Value Mod 2 = 0, " Genap ", " Ganjil ")
> PosNeg = IIf(Cells(1).Value < 0, " Negatip", " Positip")
>
> Select Case Cells(1).Value
> Case Is <= 20
> Katego = "A"
> Case Is <= 50
> Katego = "B"
> Case Is <= 125
> Katego = "C"
> Case Is <= 1000
> Katego = "D"
> Case Is > 1000
> Katego = "E"
> End Select
>
> Cells(2).Value = "Kategori :" & Katego & GanGen & PosNeg
> End Sub
>
> workbook terkait sengaja tidak dilampiran..
> Sekiyan dan tarema kasih...
>
> Semprul..Ki!
>
>
>
>
> 2012/3/21 <cuma.milis@gmail.com >
>
>> dear be-exceler,
>> saya sedang belajar menggantikan fungsi IF di macro digantikan dengan Select Case,
>> sudah googling tp masih belum ketemu yang dengan bnyk parameternya.
>>
>> mohon berkenan mengajari saya lg atau mungkin ada link yang bisa saya pelajari.
>>
>> misal :
>> KolA = Range("A1").Value
>> kolB = Range("B1").Value
>> kolC = left(Range("C1").Value, 2)
>> If kolA = "01" And kolB = "0" And kolC = "AS" Then
>> Range("D1").Value = "belajar macro"
>> Else
>> Range("D1").Value = "belajar select case"
>> End If
>>
>> bagaimana men-transformnya menjadi Select Case ?
>>
>> terima kasih sebelumnya.
>>
>
Need to Reply?
Click one of the "Reply" links to respond to a specific message in the Daily Digest.
---------------------------------------------------------------------
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
---------------------------------------------------------------------
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
---------------------------------------------------------------------
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
Tidak ada komentar:
Posting Komentar