Messages In This Digest (25 Messages)
- 1a.
- Re: isi sheet lain dalam 1 workbook otomatis From: deni ramdhani
- 2a.
- Menghitung data dengan kondisi tertentu From: Zerlinda Seismica
- 2b.
- Re: Menghitung data dengan kondisi tertentu From: jkssxls Sudarsono
- 2c.
- Re: Menghitung data dengan kondisi tertentu From: Rara Wilis
- 2d.
- Re: Menghitung data dengan kondisi tertentu From: Rara Wilis
- 3a.
- memanggil data disheet sebelah From: MIKE
- 4a.
- Re: Mengurutkan Data From: Rara Wilis
- 4b.
- Re: Mengurutkan Data From: hendrik karnadi
- 4c.
- Re: Mengurutkan Data From: Doli Azhari
- 4d.
- Re: Mengurutkan Data From: Doli Azhari
- 5a.
- Open File excel sangat lama From: MoMo
- 5b.
- Re: Open File excel sangat lama From: Ki Semprul
- 6a.
- Kalkulasi 2 angka yang berbeda format From: Mansor
- 6b.
- Re: Kalkulasi 2 angka yang berbeda format From: Rara Wilis
- 6c.
- Re: Kalkulasi 2 angka yang berbeda format From: hendrik karnadi
- 7a.
- Fwd: Kolom input-dan rekap From: utthank abe
- 7b.
- Re: Fwd: Kolom input-dan rekap From: dwint ruswanto
- 8a.
- Select Case menggantikan IF dengan banyak parameter From: cuma.milis@gmail.com
- 8b.
- Re: Select Case menggantikan IF dengan banyak parameter From: Ki Semprul
- 9a.
- Formula format nomor NPWP From: Bagyo L
- 9b.
- Re: Formula format nomor NPWP From: raya hidayat
- 9c.
- Re: Formula format nomor NPWP From: Bagyo L
- 9d.
- Re: Formula format nomor NPWP From: zainul_ulum[at]yahoo[dot]com
- 10.
- Menampilkan paste Spesial From: dhen.baguse
- 11.
- Message box Ok Cancel From: Kurei recca
Messages
- 1a.
-
Re: isi sheet lain dalam 1 workbook otomatis
Posted by: "deni ramdhani" alkuninjaniy@yahoo.com alkuninjaniy
Tue Mar 20, 2012 1:07 am (PDT)
ok pak hendrik thanks atas bantuannya...
>____________________ _________ ___
> From: hendrik karnadi <hendrikkarnadi@yahoo.com >
>Sent: Monday, March 19, 2012 9:20 PM
>Ada.
>Formulanya pakai fungsi If:
>=IF(VLOOKUP($F$5,datalist, 25,FALSE) =0,"",VLOOKUP( $F$5,datalist, 25,FALSE) )
>
>Salam,
>Hendrik Karnadi
>
>____________________ _________ ___
>From: deni ramdhani <alkuninjaniy@yahoo.com >
>Sent: Monday, 19 March 2012, 16:24
>
>terima kasih pak O' seno atas jawabannya d' problem solved, oh iya apa ada cara lain dengna tujuan yang sama ?
- 2a.
-
Menghitung data dengan kondisi tertentu
Posted by: "Zerlinda Seismica" seismica@yahoo.com seismica
Tue Mar 20, 2012 1:39 am (PDT)
Salam
Sebelumnya mau ucapin makasih atas bantuan temen..mau nambah lagi nih nanya nya.
Adakah formula untuk menghitung jumlah data dengan kondisi yang agak lain..
Saya lampirkan kasusnya..maksih banet sebelumnya..
Salam
Seismica
- 2b.
-
Re: Menghitung data dengan kondisi tertentu
Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma
Tue Mar 20, 2012 2:56 am (PDT)
Seperti ini
DATA OUTPUT
DATA INPUT
AWAL
AKHIR
3001
4001
30011001
1001
1011
7
0
30011002
1
1002
1022
13
4
30011004
2
1
1004
1014
7
9
30011005
3
2
30011007
4
3
30011009
5
4
30011011
6
5
30011012
7
6
30011014
8
7
30011015
9
40011017
1
40011019
2
AWAL
AKHIR
3001
4001
40011020
3
1001
1011
7
0
40011022
4
1002
1022
9
4
40011023
1004
1014
7
0
40011025
40011027
40011028
40011030
Maka gunakan : =SUMPRODUCT((($A$3:$A$ 21)>=VALUE( G$14&$E15) )*(($A$3: $A$21)<=VALUE( G$14&$F15) )) di G15. G16, G17, H15, H16 dan H17 , tinggal kopi rumus ke sel tsb. To: belajar-excel@ yahoogroups. com
From: seismica@yahoo.com
Date: Tue, 20 Mar 2012 01:39:10 -0700
Subject: [belajar-excel] Menghitung data dengan kondisi tertentu
Salam
Sebelumnya mau ucapin makasih atas bantuan temen..mau nambah lagi nih nanya nya.Adakah formula untuk menghitung jumlah data dengan kondisi yang agak lain..
Saya lampirkan kasusnya..maksih banet sebelumnya..
Salam
Seismica
- 2c.
-
Re: Menghitung data dengan kondisi tertentu
Posted by: "Rara Wilis" ra2wilis@gmail.com rr_wilis
Tue Mar 20, 2012 6:43 am (PDT)
=SUM(IF((INT($A$3:$A$21) >=
1*(INDIRECT(ADDRESS(2, MAX(IF($E$ 3:$F$5=E17, COLUMN($E$ 3:$F$5))) ))&
INDIRECT(ADDRESS(MAX(IF($E$ 3:$F$5=E17, ROW($E$3: $F$5))),3) )))*(INT( $A$3:$A$21) <=
1*(INDIRECT(ADDRESS(2, MAX(IF($E$ 3:$F$5=E17, COLUMN($E$ 3:$F$5))) ))&
INDIRECT(ADDRESS(MAX(IF($E$ 3:$F$5=E17, ROW($E$3: $F$5))),4) ))),1,0))
kind regards,
-Rara
On Tue, Mar 20, 2012 at 3:39 PM, Zerlinda Seismica <seismica@yahoo.com >wrote:
> **
> Salam
> Sebelumnya mau ucapin makasih atas bantuan temen..mau nambah lagi nih
> nanya nya.
> Adakah formula untuk menghitung jumlah data dengan kondisi yang agak lain..
> Saya lampirkan kasusnya..maksih banet sebelumnya..
> Salam
> Seismica
>
>
>
- 2d.
-
Re: Menghitung data dengan kondisi tertentu
Posted by: "Rara Wilis" ra2wilis@gmail.com rr_wilis
Tue Mar 20, 2012 6:44 am (PDT)
oops yg tadi saya salah tafsir
data OUTPUT dikira KRITERIA, maaf
(pengertian* output* dlm pengolahan data menurut pendapatku adalah
hasil INPUT yg diproses (dengan formula, makro atau metoda lain),
sedangkan yg ada di kolom C dan D itu adalah data yg diketikkan
(Given Value / sebagai syarat)
Rumus berikut ini untuk mengisi cells E3 sampai F5, tanpa kolom bantu
Kolom C dan D dianggap sbg Kriteria , bukan OUTPUT
=SUMPRODUCT(
(LEFT($A$3:$A$21,4)=TEXT( E$2,"0000" ))*
(RIGHT(INT($A$3:$A$21) ,4)>=TEXT( $C3,"0000" ))*
(RIGHT(INT($A$3:$A$21) ,4)<=TEXT( $D3,"0000" )))
Data INPUT ternyata ada yang mengandung pecahan, hal ini perlu
diperhitungkan
~ Rara
*On Tue, Mar 20, 2012 at 3:39 PM, Zerlinda Seismica <seismica@yahoo.com >wrote:
*
>
> * *
> *Salam*
> *Sebelumnya mau ucapin makasih atas bantuan temen..mau nambah lagi nih
> nanya nya.*
> *Adakah formula untuk menghitung jumlah data dengan kondisi yang agak
> lain..*
> *Saya lampirkan kasusnya..maksih banet sebelumnya..*
> *Salam*
> *Seismica*
>
- 3a.
-
memanggil data disheet sebelah
Posted by: "MIKE" personalia_manado@ag.co.id
Tue Mar 20, 2012 2:30 am (PDT)
Apakah ada jawaban lain selain jawaban pak O'seno..
----- Original Message -----
From: MIKE
Sent: Saturday, March 17, 2012 1:04 PM
Mohon bantuannya,
aku kesulitan rumus nih....lihat lampiran yah....
tq
mike
===================== ========= ========= ========= =========
Mods Note:
Kami prihatin, semakin hari semakin banyak posting yg
melupakan UU Milis
Berikut ini kami kutipkan bagian dari UU Milis BeExcel
Bab:
LAIN LAIN
Sub Bab:
Saran & Tips menulis mail / posting ke milis:
pasal:
(c)
" Terutama pada posting pertanyaan/request, tuliskan masalah
dengan jelas di badan email. Penjelasan lebih rinci dapat
ditulis pada lampiran.
Lampiran sedapat mungkin berupa workbook (file *.xls),
dengan nama-file yang spesifik. "
===================== ========= ========= ========= =========
- 4a.
-
Re: Mengurutkan Data
Posted by: "Rara Wilis" ra2wilis@gmail.com rr_wilis
Tue Mar 20, 2012 2:30 am (PDT)
Tenang saja pak; OomHerr_Cakil itu memang kalau siang malah ngantuk,
kurang awas,
tidak melihat KOLOM KUNCI yg diminta yaitu kolom AREA.
Mungkin Kata "Area" ditangkap sebagai bagian dari Sheet / Range tabel)
bukan nama Kolom
yg tulisan kecil-kecil...
Mulai :
Select dulu Range A4:S18
Klik Menu : Data > Sort
[image: Inline image 1]
pilih Nama Heading dimana kolom akan dijadikan Kunci pertama (AREA)
pilih Ascending atau Descending terserah anda
[image: Inline image 2]
Klik tombol OK
Selesai
catatan: tabel data yg masih akan diolah lebih lanjut, jangan ada cells yg
dimerged
seperti yg terjadi pada Kolom Heading (sekarang sudah di Unmerged)
-Rara
On Tue, Mar 20, 2012 at 1:25 PM, Doli Azhari <
internazionale_madrid@yahoo. > wrote:com
>
> Dear Prof. Exceler
> saya butuh saran nih Prof buat .gimana caranya menyortir data???.
> saya punya data yang mw saya sortir per area.tapi saya bingung cara
cepatnya mas.
> Saya mohon bantuannya ya Prof??
>
> Regards,
> DAZ
- 4b.
-
Re: Mengurutkan Data
Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi
Tue Mar 20, 2012 6:41 am (PDT)
Pertama-tama saya ingin sedikit memberi tips:
- Belum perlu menggunakan jabatan "Prof" karena area bermain Prof(esor) adalah di kampus bukan di milis ini
- Hindari penggunaan warna merah karena untuk orang yang sangat menjunjung tata krama merah berarti marah
Walaupun masih ada data angka yang ditulis berupa text, namun saya mencoba memenuhi keinginan anda untuk menyortir per area (sekalian sub totalnya) beserta tombol untuk menghapus sub totalnya.
Namun data yang sudah disortir per area hanya dapat dikembalikan ke data aslinya apabila ada kriteria yang jelas.
Ada sedikit saran tambahan, jika ingin menghitung hari pelunasan tentunya harus ada tanggal faktur dan tanggal pelunasan itu sendiri.
Salam,
Hendrik Karnadi
_____________________ _________ __
From: Doli Azhari <internazionale_madrid@yahoo. >com
To: "belajar-excel-subscribe@ " <belajar-excel-yahoogroups. com subscribe@ >; "belajar-excel@yahoogroups. com yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Tuesday, 20 March 2012, 13:25
Subject: [belajar-excel] Mengurutkan Data
Dear Prof. Exceler
saya butuh saran nih Prof buat .gimana
caranya menyortir data???.saya punya data yang mw saya sortir per area.tapi saya bingung cara cepatnya mas.Saya mohon bantuannya ya Prof??
Regards,
DAZ
- 4c.
-
Re: Mengurutkan Data
Posted by: "Doli Azhari" internazionale_madrid@yahoo.com internazionale_madrid
Tue Mar 20, 2012 6:27 pm (PDT)
makasih buat tips dan sarannya Mr. Hendrik. Maafkanlah salah dan khilaf juniormu ini....
_____________________ _________ __
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
Sent: Tuesday, March 20, 2012 4:45 PM
Pertama-tama saya ingin sedikit memberi tips:
- Belum perlu menggunakan jabatan "Prof" karena area bermain Prof(esor) adalah di kampus bukan di milis ini
- Hindari penggunaan warna merah karena untuk orang yang sangat menjunjung tata krama merah berarti marah
Walaupun masih ada data angka yang ditulis berupa text, namun saya mencoba memenuhi keinginan anda untuk menyortir per area (sekalian sub totalnya) beserta tombol untuk menghapus sub totalnya.
Namun data yang sudah disortir per area hanya dapat dikembalikan ke data aslinya apabila ada kriteria yang jelas.
Ada sedikit saran tambahan, jika ingin menghitung hari pelunasan tentunya harus ada tanggal faktur dan tanggal pelunasan itu sendiri.
Salam,
Hendrik Karnadi
_____________________ ________
From: Doli Azhari <internazionale_madrid@yahoo. >com
Sent: Tuesday, 20 March 2012, 13:25
Dear Prof. Exceler
saya butuh saran nih Prof buat .gimana
caranya menyortir data???.saya punya data yang mw saya sortir per area.tapi saya bingung cara cepatnya mas.Saya mohon bantuannya ya Prof??
Regards,
DAZ
- 4d.
-
Re: Mengurutkan Data
Posted by: "Doli Azhari" internazionale_madrid@yahoo.com internazionale_madrid
Tue Mar 20, 2012 6:30 pm (PDT)
Berhasil Mbak...Mbak makasih bgt ya buat solusinya ....Saatnya saya untuk bilang, "Sempurna"....
_____________________ _________ __
From: Rara Wilis <ra2wilis@gmail.com >
Sent: Tuesday, March 20, 2012 3:43 PM
Tenang saja pak; OomHerr_Cakil itu memang kalau siang malah ngantuk, kurang awas, tidak melihat KOLOM KUNCI yg diminta yaitu kolom AREA.
Mungkin Kata "Area" ditangkap sebagai bagian dari Sheet / Range tabel) bukan nama Kolom (yg tulisan kecil-kecil...)
Mulai :
Select dulu Range A4:S18
Klik Menu : Data > Sort
pilih Nama Heading dimana kolom akan dijadikan Kunci pertama (AREA)
pilih Ascending atau Descending terserah anda
Klik tombol OK
Selesai
catatan: tabel data yg masih akan diolah lebih lanjut, jangan ada cells yg dimerged seperti yg terjadi pada Kolom Heading (sekarang sudah di Unmerged)
-Rara
- 5a.
-
Open File excel sangat lama
Posted by: "MoMo" akuinimomo@aim.com
Tue Mar 20, 2012 3:25 am (PDT)
Dear Pakar XL,
Saya mempunyai salah satu file excel yang klo di buka lama sekali loading, sekitar 15-20 menit padahal sebelumnya normal2 saja,
kemungkinan jadi lama buka filenya karena pada saat itu komputer mati (mati lampu) setelah komputer dinyalakan kembali file tersebut jadi lama
Minta bantuannya, gimana cara mengembalikan ke keadaan semula ? dan mengapa bisa terjadi seperti itu
Thanks.
Momo
- 5b.
-
Re: Open File excel sangat lama
Posted by: "Ki Semprul" semprul.ki@gmail.com ki_semprull
Tue Mar 20, 2012 4:33 pm (PDT)
Mbok dicoba dulu Dik Momo... (salam buat Geisha ya?) ... dengan cara sbb:
*Excel 2007*
Klik OFFICE-BUTTON; *itu lho "jendholan" bulat di pojok kiri atas bergambar
lambang MS Office*
Klik Ikon OPEN (memunculkan 'DialoqOpen)
*Excel 2003*
Klik Menu File > Open (memunculkan 'DialoqOpen)
[image: Inline image 2]
*Pilih nama file* yg AKAN di-oVen atau di Open (terserah lah) poloknya
pilih nama file yg bermasalah
Jangan langsung Klik TOMBOL OPEN ya Pak.., tetapi klik :
* Gambar Kepala-Panah di sebelah kanan pada Tombol OPEN*
Di bawahnya akan muncul daftar task,
Baca manteranya dulu : "*..brrrghgh.. jopa-japu nambani anak asu.. well
geduwell beh !!"*, baru kemudian
*Pilih / Klik* *"Open And Repair..."*
Akan ada 2 pilihan "Repair" atau "Extract Data", pertama kali pilih
REPAIR (&baca penjelasanya)
*[image: Inline image 3]
*
Nantinya apakah Reparingnya Sukses atau Gagal, adalah sangat tergantung:....
.... *sesuai dengan amal dan perbuatan kita masing-masing... he he.. *
(hayyah!!)
*
*
*Semprul..Ki!*
*
2012/3/20 MoMo <akuinimomo@aim.com >
> Dear Pakar XL,
>
> Saya mempunyai salah satu file excel yang klo di buka lama sekali
loading, sekitar 15-20 menit padahal sebelumnya normal2 saja,
> kemungkinan jadi lama buka filenya karena pada saat itu komputer mati
(mati lampu) setelah komputer dinyalakan kembali file tersebut jadi lama
>
> Minta bantuannya, gimana cara mengembalikan ke keadaan semula ? dan
mengapa bisa terjadi seperti itu
>
> Thanks.
> Momo*
- 6a.
-
Kalkulasi 2 angka yang berbeda format
Posted by: "Mansor" dbpermatasari@gmail.com nbmy1980
Tue Mar 20, 2012 6:43 am (PDT)
Para teman BeExcel,
Gimana caranya melakukan kalkulasi ke atas
angka di kolum A yg formatnya Number dengan
angka di kolum B yang formatnya TEXT, tanpa perlu
pake dummy.
Terima kasih
-Mansor
ISNUMBER ISNUMBER FORMAT NUMBER FORMAT TEXT Dummy Hasil yang
diingikan jika Kolum A - Kolum B tanpa dummy TRUE FALSE 139,143.71
132,349.21 132,349.21 6,794.50
469,676.58 443,396.19 443,396.19
26,280.39 829,722.61 793,598.64 793,598.64
36,123.97 422,774.05 404,869.97
404,869.97
17,904.08 134,003.46 125,230.43
125,230.43 8,773.03 277,595.84
263,221.59
263,221.59 14,374.25 389,018.28
364,653.41
364,653.41 24,364.87 249,650.93
234,358.41
234,358.41 15,292.52 260,122.33
244,670.00
244,670.00 15,452.33 149,923.46
141,486.23
141,486.23 8,437.23 52,302.72
49,841.61
49,841.61 2,461.11
- 6b.
-
Re: Kalkulasi 2 angka yang berbeda format
Posted by: "Rara Wilis" ra2wilis@gmail.com rr_wilis
Tue Mar 20, 2012 7:11 am (PDT)
=A6-SUBSTITUTE(SUBSTITUTE( B6,",","" ),CHAR(160) ,"")
atau lebih fleksibel
*=A6-TRIM(SUBSTITUTE(SUBSTITUTE( B6,",","" ),CHAR(160) ,""))*
*
*
*On Tue, Mar 20, 2012 at 4:48 PM, Mansor <dbpermatasari@gmail.com > wrote:
> Para teman BeExcel,
> Gimana caranya melakukan kalkulasi ke atas
> angka di kolum A yg formatnya Number dengan
> angka di kolum B yang formatnya TEXT, tanpa perlu
> pake dummy.
> Terima kasih
> -Mansor*
* *
> * * ISNUMBER ISNUMBER FORMAT NUMBER FORMAT TEXT Dummy Hasil
> yang diingikan jika Kolum A - Kolum B tanpa dummy TRUE FALSE
> 139,143.71 132,349.21 132,349.21
> 6,794.50
>
- 6c.
-
Re: Kalkulasi 2 angka yang berbeda format
Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi
Tue Mar 20, 2012 12:22 pm (PDT)
Coba dengan menggabungkan formulanya seperti ini :
=SUM(A6-IF(B6<>"",VALUE( SUBSTITUTE( SUBSTITUTE( B6,",","" ),CHAR(160) ,"")),"") )
(Huruf tebal diambil dari formula di sel C6).
Copy ke bawah.
Salam,
Hendrik Karnadi
_____________________ _________ __
From: Mansor <dbpermatasari@gmail.com >
To: belajar-excel <belajar-excel@yahoogroups. >com
Sent: Tuesday, 20 March 2012, 16:48
Subject: [belajar-excel] Kalkulasi 2 angka yang berbeda format
Para teman BeExcel,
Gimana caranyamelakukan kalkulasi ke atas
angka di kolum A yg formatnya Number dengan
angka di kolum B yang formatnya TEXT, tanpa perlu
pake dummy.
Terima kasih
-Mansor
ISNUMBER ISNUMBER
FORMAT NUMBER FORMAT TEXT Dummy Hasil yang diingikan jika Kolum A - Kolum B tanpa dummy
TRUE FALSE
139,143.71 132,349.21 132,349.21 6,794.50
469,676.58 443,396.19 443,396.19 26,280.39
829,722.61 793,598.64 793,598.64 36,123.97
422,774.05 404,869.97 404,869.97 17,904.08
134,003.46 125,230.43 125,230.43 8,773.03
277,595.84 263,221.59 263,221.59 14,374.25
389,018.28 364,653.41 364,653.41 24,364.87
249,650.93 234,358.41 234,358.41 15,292.52
260,122.33 244,670.00 244,670.00 15,452.33
149,923.46 141,486.23 141,486.23 8,437.23
52,302.72 49,841.61 49,841.61 2,461.11
- 7a.
-
Fwd: Kolom input-dan rekap
Posted by: "utthank abe" abeutthank@gmail.com abe_utthank
Tue Mar 20, 2012 6:33 pm (PDT)
---------- Forwarded message ----------
From: utthank abe <abeutthank@gmail.com >
Date: Mon, 19 Mar 2012 13:42:42 +0700
Subject: Kolom input-dan rekap
To: Belajar excell <belajar-excel@yahoogroups. >com
bagaimana rumus agar jika menuliz di input akan terekam di kolom rekap
dengan berbagai kondizi
berikut zaya lampirkan filenya
xie xie
--
R125
===================== ========= ========= ===
ModsNote:
mengulang posting kemarin & tanpa ada penambahan
INFO/ PENJELASAN baru
http://tech.groups.yahoo. com/group/ belajar-excel/ message/16402
===================== ========= ========= === - 7b.
-
Re: Fwd: Kolom input-dan rekap
Posted by: "dwint ruswanto" dwint.ruswanto@gmail.com
Tue Mar 20, 2012 9:05 pm (PDT)
coba lihat di lampiran,
saya menggunakan formula dengan 2 kolom bantu
semoga sesuai dengan yang digarapkan
-dwint-
Pada 20 Maret 2012 13:13, utthank abe <abeutthank@gmail.com > menulis:
>
> ---------- Forwarded message ----------
> From: utthank abe <abeutthank@gmail.com >
> Date: Mon, 19 Mar 2012 13:42:42 +0700
>
> bagaimana rumus agar jika menuliz di input akan terekam di kolom rekap dengan berbagai kondizi
>
> berikut zaya lampirkan filenya
>
> xie xie
> --
> R125
>
> ===================== ========= ========= ===
> ModsNote:
> mengulang posting kemarin & tanpa ada penambahan
> INFO/ PENJELASAN baru
> http://tech.groups.yahoo. com/group/ belajar-excel/ message/16402
> ===================== ========= ========= ===
- 8a.
-
Select Case menggantikan IF dengan banyak parameter
Posted by: "cuma.milis@gmail.com" cuma.milis@gmail.com
Tue Mar 20, 2012 8:04 pm (PDT)
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.
- 8b.
-
Re: Select Case menggantikan IF dengan banyak parameter
Posted by: "Ki Semprul" semprul.ki@gmail.com ki_semprull
Tue Mar 20, 2012 8:59 pm (PDT)
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.
>
>
- 9a.
-
Formula format nomor NPWP
Posted by: "Bagyo L" bagyol@nojima.co.id bagyolumaksono
Tue Mar 20, 2012 8:12 pm (PDT)
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
- 9b.
-
Re: Formula format nomor NPWP
Posted by: "raya hidayat" raya.hidayat@gmail.com raya.hidayat
Tue Mar 20, 2012 8:22 pm (PDT)
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
- 9c.
-
Re: Formula format nomor NPWP
Posted by: "Bagyo L" bagyol@nojima.co.id bagyolumaksono
Tue Mar 20, 2012 8:42 pm (PDT)
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
- 9d.
-
Re: Formula format nomor NPWP
Posted by: "zainul_ulum[at]yahoo[dot]com" zainul_ulum@yahoo.com zainul_ulum
Tue Mar 20, 2012 8:45 pm (PDT)
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 >
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
- 10.
-
Menampilkan paste Spesial
Posted by: "dhen.baguse" bagusejogja@yahoo.com bagusejogja
Tue Mar 20, 2012 9:00 pm (PDT)
Dear master excel, bagaimana untuk menampilkan paste spesial, file terlampir ...
matur nuwun master master excel..
- 11.
-
Message box Ok Cancel
Posted by: "Kurei recca" yusajing_ehm@yahoo.com yusajing_ehm
Tue Mar 20, 2012 9:04 pm (PDT)
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
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