Messages In This Digest (12 Messages)

1a.: Re: Menjumlahkan data, yang muncul #VALUE From: heru mulyono

2a.: Rumus Perhitungan -- Hari kerja n hari kedepan -- From: Dwi Hadwan Ridho
2b.: Re: Rumus Perhitungan -- Hari kerja n hari kedepan -- From: Kid Mr.
2c.: Re: Rumus Perhitungan -- Hari kerja n hari kedepan -- From: Dwi Hadwan Ridho

3a.: Mencari Angka Yang Hilang From: him mah
3b.: Re: Mencari Angka Yang Hilang From: Kid Mr.
3c.: Re: Mencari Angka Yang Hilang From: him mah
3d.: Re: Mencari Angka Yang Hilang From: Kid Mr.
3e.: Bls: [belajar-excel] Mencari Angka Yang Hilang From: ghozi alkatiri
3f.: Re: Mencari Angka Yang Hilang From: arthur sandy
3g.: Re: Mencari Angka Yang Hilang From: him mah

4a.: Re: Cara Lookup Foto From: jkssxls

View All Topics | Create New Topic

Messages

1a.: Re: Menjumlahkan data, yang muncul #VALUE

Posted by: "heru mulyono" hmulyono24@gmail.com

Tue Nov 1, 2011 1:10 pm (PDT)

Yth Kid Mr. dan Udin Haerudin

setelah saya terapkan ternyata memang mudah dan simple sekali
trimakasih atas pencerahannya

Pada 1 November 2011 13:33, Udin Haeruddin <herumamuda@gmail.com> menulis:

> **
>
>
> untk format number sebagaimana dimaksud, salah satu format yg bisa
> digunakan: _(* #,##0_);_(* (#,##0);_(* "-"_);_(@_)
>
> [image: ddd.PNG]
>
> mudah-mudahan tdk keliru...
>
> Pada 1 November 2011 13:24, Kid Mr. <mr.nmkid@gmail.com> menulis:
>
> **
>>
>>
>> Pak Heru Yth,
>>
>> Coba bapak pelajari tentang Format Cells -> Number -> Custom.
>> Untuk menampilkan simbol dash pada angka yang nol, tidak perlu membuat
>> formula yang mengkhususkan mengisi dengan dash. Tetapi tetap biarkan angka
>> nol sebagai hasilnya.
>> Dengan format number, maka tampilan nol bisa diubah menjadi dash (hanya
>> penampakannya saja, tetapi nilai asli dalam cell tetap nol), sehingga
>> formula pengolahan lanjutannya bisa lebih mudah disusun.
>>
>> Wassalam,.
>> Kid.
>>
>> 2011/11/1 heru mulyono <hmulyono24@gmail.com>
>>
>>> kanjengsyeh
>>
>>
>>
>
>
> --
> ====== Haeruddin, S.Pd ======
>
>
>

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

2a.: Rumus Perhitungan -- Hari kerja n hari kedepan --

Posted by: "Dwi Hadwan Ridho" pos.syariah@bni-life.co.id

Tue Nov 1, 2011 6:30 pm (PDT)

Assalamu'alaikum warahmatullahi wabarakatuh,

Dear All,

Mohon bantuannya untuk rumus perhitungan data terlampir ya.

Sebelumnya terima kasih banyak.

Wassalamu'alaikum warahmatullahi wabarakatuh.

Rgrds,

Wawan

--- Mods ---
Judul yang mencerminkan kasus, disertai penjelasan kasus pada body email, akan memudahkan BeExceler yang tidak bisa download attachment.

Kasus : Bagaimana mencari hari kerja n hari kedepan yang dipengaruhi hari libur Sabtu-Minggu-Libur Nasional ? Kalkulasi n tergantung jam masuknya data. Jika data masuk sebelum jam 11:00 maka n=1, selainnya maka n=2.
------------

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
2b.: Re: Rumus Perhitungan -- Hari kerja n hari kedepan --

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

Tue Nov 1, 2011 7:42 pm (PDT)

Wa alaikumusalam Wr. Wb.

Coba manfaatkan fungsi Workday.
Susun daftar tanggal hari libur nasional di suatu range.
Contoh cara pakai :
=WorkDay( tgl_masuk , 2 - ( jam_masuk < Time( 11,0,0 ) ) ,
range_hari_libur_nasional )

Misal tgl masuk di B2, jam masuk di C2, dan range hari libur nasional ada
di X2:X57
=WorkDay( b2 , 2 - ( c2 < Time( 11,0,0 ) ) , x$2:x$57 )

lalu copy ke bawah.

Wassalamualaikum Wr. Wb.
Kid.

2011/11/2 Dwi Hadwan Ridho <pos.syariah@bni-life.co.id>

> **
>
>
> Assalamu'alaikum warahmatullahi wabarakatuh,
>
> Dear All,
>
> Mohon bantuannya untuk rumus perhitungan data terlampir ya.
>
> Sebelumnya terima kasih banyak.
>
> Wassalamu'alaikum warahmatullahi wabarakatuh.
>
> Rgrds,
>
> Wawan
>
> --- Mods ---
> Judul yang mencerminkan kasus, disertai penjelasan kasus pada body email,
> akan memudahkan BeExceler yang tidak bisa download attachment.
>
> Kasus : Bagaimana mencari hari kerja n hari kedepan yang dipengaruhi hari
> libur Sabtu-Minggu-Libur Nasional ? Kalkulasi n tergantung jam masuknya
> data. Jika data masuk sebelum jam 11:00 maka n=1, selainnya maka n=2.
> ------------
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
2c.: Re: Rumus Perhitungan -- Hari kerja n hari kedepan --

Posted by: "Dwi Hadwan Ridho" pos.syariah@bni-life.co.id

Tue Nov 1, 2011 7:47 pm (PDT)

Terima kasih atas bantuanya.

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Kid Mr.
Sent: Wednesday, November 02, 2011 9:42 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Rumus Perhitungan -- Hari kerja n hari kedepan
--

Wa alaikumusalam Wr. Wb.

Coba manfaatkan fungsi Workday.
Susun daftar tanggal hari libur nasional di suatu range.
Contoh cara pakai :
=WorkDay( tgl_masuk , 2 - ( jam_masuk < Time( 11,0,0 ) ) ,
range_hari_libur_nasional )

Misal tgl masuk di B2, jam masuk di C2, dan range hari libur nasional ada di
X2:X57
=WorkDay( b2 , 2 - ( c2 < Time( 11,0,0 ) ) , x$2:x$57 )

lalu copy ke bawah.

Wassalamualaikum Wr. Wb.
Kid.

2011/11/2 Dwi Hadwan Ridho <pos.syariah@bni-life.co.id>

Assalamu'alaikum warahmatullahi wabarakatuh,

Dear All,

Mohon bantuannya untuk rumus perhitungan data terlampir ya.

Sebelumnya terima kasih banyak.

Wassalamu'alaikum warahmatullahi wabarakatuh.

Rgrds,

Wawan

--- Mods ---
Judul yang mencerminkan kasus, disertai penjelasan kasus pada body email,
akan memudahkan BeExceler yang tidak bisa download attachment.

Kasus : Bagaimana mencari hari kerja n hari kedepan yang dipengaruhi hari
libur Sabtu-Minggu-Libur Nasional ? Kalkulasi n tergantung jam masuknya
data. Jika data masuk sebelum jam 11:00 maka n=1, selainnya maka n=2.
------------

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

3a.: Mencari Angka Yang Hilang

Posted by: "him mah" himmah.mlg@gmail.com

Wed Nov 2, 2011 1:19 am (PDT)

Assalamu'alaikum Wr. Wb.

maaf sebelumnya belum nyari-nyari dulu di posting sebelumnya kebetulan
koneksi internetnya lambat (karena yang pakai banyak)

kita punya deretan angka yang tidak urut (seharusnya angka tersebut urut)
misal di kolom A saya punya angka 1;2;5;6;9;10;11;12;15 (tanda titik
koma sebagai pemisah baris). dari data tersebut ada beberapa angka
yang hilang yaitu 3,4,7,8,13,14

yang jadi pertanyaan adalah bagaimana memunculkan angka-angka yang
hilang tersebut

kalau datanya sedikit sih bisa manual yang repot kalau datanya banyak

terima kasih

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)
3b.: Re: Mencari Angka Yang Hilang

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

Wed Nov 2, 2011 2:03 am (PDT)

Coba array formula :
=Small( IF( CountIF( range_data, Row( Indirect( "1:" & Max( range_data ) )
) ), "" , Row( Indirect( "1:" & Max( range_data ) ) ) ) , *Row(1:1)* )

Lebih baik tetap ada yang berupa deret per cell seperti di atas, agar bisa
digunakan lebih leluasa.

Untuk menggabungkan kedalam satu cell, bisa buat UDF JoinText
public function JoinText(rngData as range, optional sDelimiter as
string=vbnullstring,optional bNotBlank as boolean = true) as string
dim sRes as string
dim vTmp as variant

for each vtmp in rngdata
if not iserror(vtmp) then
if lenb(vtmp)<>0 or not bnotblank then
sres=sres & sdelimiter & vtmp
endif
endif
next vtmp
jointext=sres
if lenb(sdelimiter)<>0 then
jointext=mid$(sres,2)
endif
end function

Cara pakai di worksheet :
(join semua text di range datanya dengan delimiter titik koma dan yang
blank *gak *boleh ikut)
=jointext( range_datanya , ";" )

(join semua text di range datanya dengan delimiter titik koma dan yang
blank boleh ikut)
=jointext( range_datanya , ";" , false)

Jika ingin membuat fungsi yang bisa menerima array (misal hasil array
formula), sehingga langsung tanpa ada kolom bantu, maka ubah jadi :
public function JoinText(*vData as variant*, optional sDelimiter as
string=vbnullstring,optional bNotBlank as boolean = true) as string
dim sRes as string
dim vTmp as variant

* if isarray(vdata) then
* for each vtmp in *vdata*
if not iserror(vtmp) then
if lenb(vtmp)<>0 or not bnotblank then
sres=sres & sdelimiter & vtmp
endif
endif
next vtmp
* else
sres=vdata
endif
* jointext=sres
if lenb(sdelimiter)<>0 then
jointext=mid$(sres,2)
endif
end function

Jadi bisa dipakai menjadi array formula di satu cell :
(join semua text hasil array formula dengan delimiter titik koma dan yang
blank *gak *boleh ikut)
=JoinText( Small( IF( CountIF( range_data, Row( Indirect( "1:" & Max(
range_data ) ) ) ), "" , Row( Indirect( "1:" & Max( range_data ) ) ) ) ,*
Row(1:99)* , ";" )

(join semua text hasil array formula dengan delimiter titik koma dan yang
blank boleh ikut)
=JoinText( Small( IF( CountIF( range_data, Row( Indirect( "1:" & Max(
range_data ) ) ) ), "" , Row( Indirect( "1:" & Max( range_data ) ) ) ) ,*
Row(1:99)* , ";" , false )

Dicoba dulu, sapa tahu ada errornya.

Kid.

2011/11/2 him mah <himmah.mlg@gmail.com>

> **
>
>
> Assalamu'alaikum Wr. Wb.
>
> maaf sebelumnya belum nyari-nyari dulu di posting sebelumnya kebetulan
> koneksi internetnya lambat (karena yang pakai banyak)
>
> kita punya deretan angka yang tidak urut (seharusnya angka tersebut urut)
> misal di kolom A saya punya angka 1;2;5;6;9;10;11;12;15 (tanda titik
> koma sebagai pemisah baris). dari data tersebut ada beberapa angka
> yang hilang yaitu 3,4,7,8,13,14
>
> yang jadi pertanyaan adalah bagaimana memunculkan angka-angka yang
> hilang tersebut
>
> kalau datanya sedikit sih bisa manual yang repot kalau datanya banyak
>
> terima kasih
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)
3c.: Re: Mencari Angka Yang Hilang

Posted by: "him mah" himmah.mlg@gmail.com

Wed Nov 2, 2011 2:12 am (PDT)

iya sudah berhasil pak Kid, cuma untuk copy paste array formula harus
satu-satu ya

Pada tanggal 02/11/11, Kid Mr. <mr.nmkid@gmail.com> menulis:
> Coba array formula :
> =Small( IF( CountIF( range_data, Row( Indirect( "1:" & Max( range_data ) )
> ) ), "" , Row( Indirect( "1:" & Max( range_data ) ) ) ) , *Row(1:1)* )
>
> Lebih baik tetap ada yang berupa deret per cell seperti di atas, agar bisa
> digunakan lebih leluasa.
>
> Untuk menggabungkan kedalam satu cell, bisa buat UDF JoinText
> public function JoinText(rngData as range, optional sDelimiter as
> string=vbnullstring,optional bNotBlank as boolean = true) as string
> dim sRes as string
> dim vTmp as variant
>
> for each vtmp in rngdata
> if not iserror(vtmp) then
> if lenb(vtmp)<>0 or not bnotblank then
> sres=sres & sdelimiter & vtmp
> endif
> endif
> next vtmp
> jointext=sres
> if lenb(sdelimiter)<>0 then
> jointext=mid$(sres,2)
> endif
> end function
>
> Cara pakai di worksheet :
> (join semua text di range datanya dengan delimiter titik koma dan yang
> blank *gak *boleh ikut)
> =jointext( range_datanya , ";" )
>
> (join semua text di range datanya dengan delimiter titik koma dan yang
> blank boleh ikut)
> =jointext( range_datanya , ";" , false)
>
> Jika ingin membuat fungsi yang bisa menerima array (misal hasil array
> formula), sehingga langsung tanpa ada kolom bantu, maka ubah jadi :
> public function JoinText(*vData as variant*, optional sDelimiter as
> string=vbnullstring,optional bNotBlank as boolean = true) as string
> dim sRes as string
> dim vTmp as variant
>
> * if isarray(vdata) then
> * for each vtmp in *vdata*
> if not iserror(vtmp) then
> if lenb(vtmp)<>0 or not bnotblank then
> sres=sres & sdelimiter & vtmp
> endif
> endif
> next vtmp
> * else
> sres=vdata
> endif
> * jointext=sres
> if lenb(sdelimiter)<>0 then
> jointext=mid$(sres,2)
> endif
> end function
>
> Jadi bisa dipakai menjadi array formula di satu cell :
> (join semua text hasil array formula dengan delimiter titik koma dan yang
> blank *gak *boleh ikut)
> =JoinText( Small( IF( CountIF( range_data, Row( Indirect( "1:" & Max(
> range_data ) ) ) ), "" , Row( Indirect( "1:" & Max( range_data ) ) ) ) ,*
> Row(1:99)* , ";" )
>
> (join semua text hasil array formula dengan delimiter titik koma dan yang
> blank boleh ikut)
> =JoinText( Small( IF( CountIF( range_data, Row( Indirect( "1:" & Max(
> range_data ) ) ) ), "" , Row( Indirect( "1:" & Max( range_data ) ) ) ) ,*
> Row(1:99)* , ";" , false )
>
>
> Dicoba dulu, sapa tahu ada errornya.
>
> Kid.
>
>
> 2011/11/2 him mah <himmah.mlg@gmail.com>
>
>> **
>>
>>
>> Assalamu'alaikum Wr. Wb.
>>
>> maaf sebelumnya belum nyari-nyari dulu di posting sebelumnya kebetulan
>> koneksi internetnya lambat (karena yang pakai banyak)
>>
>> kita punya deretan angka yang tidak urut (seharusnya angka tersebut urut)
>> misal di kolom A saya punya angka 1;2;5;6;9;10;11;12;15 (tanda titik
>> koma sebagai pemisah baris). dari data tersebut ada beberapa angka
>> yang hilang yaitu 3,4,7,8,13,14
>>
>> yang jadi pertanyaan adalah bagaimana memunculkan angka-angka yang
>> hilang tersebut
>>
>> kalau datanya sedikit sih bisa manual yang repot kalau datanya banyak
>>
>> terima kasih
>>
>>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)
3d.: Re: Mencari Angka Yang Hilang

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

Wed Nov 2, 2011 2:16 am (PDT)

Untuk hasil array formula yang diletakkan di kolom bantu, letakkan formula
di sebuah cell saja dan ndak perlu ada cell lain yang diblok.
Lalu array formula di copy paste kebawah biasa saja seperti copy paste
formula lain.

Ketika menggunakan udf jointext, cukup buat 1 cell saja tapi array formula
bagian yang dibiru diemail lalu harus diubah dari row(1:1) jadi row(1:99)

Kid.

2011/11/2 him mah <himmah.mlg@gmail.com>

> **
>
>
> iya sudah berhasil pak Kid, cuma untuk copy paste array formula harus
> satu-satu ya
>
> Pada tanggal 02/11/11, Kid Mr. <mr.nmkid@gmail.com> menulis:
>
> > Coba array formula :
> > =Small( IF( CountIF( range_data, Row( Indirect( "1:" & Max( range_data )
> )
> > ) ), "" , Row( Indirect( "1:" & Max( range_data ) ) ) ) , *Row(1:1)* )
>
> >
> > Lebih baik tetap ada yang berupa deret per cell seperti di atas, agar
> bisa
> > digunakan lebih leluasa.
> >
> > Untuk menggabungkan kedalam satu cell, bisa buat UDF JoinText
> > public function JoinText(rngData as range, optional sDelimiter as
> > string=vbnullstring,optional bNotBlank as boolean = true) as string
> > dim sRes as string
> > dim vTmp as variant
> >
> > for each vtmp in rngdata
> > if not iserror(vtmp) then
> > if lenb(vtmp)<>0 or not bnotblank then
> > sres=sres & sdelimiter & vtmp
> > endif
> > endif
> > next vtmp
> > jointext=sres
> > if lenb(sdelimiter)<>0 then
> > jointext=mid$(sres,2)
> > endif
> > end function
> >
> > Cara pakai di worksheet :
> > (join semua text di range datanya dengan delimiter titik koma dan yang
> > blank *gak *boleh ikut)
>
> > =jointext( range_datanya , ";" )
> >
> > (join semua text di range datanya dengan delimiter titik koma dan yang
> > blank boleh ikut)
> > =jointext( range_datanya , ";" , false)
> >
> > Jika ingin membuat fungsi yang bisa menerima array (misal hasil array
> > formula), sehingga langsung tanpa ada kolom bantu, maka ubah jadi :
> > public function JoinText(*vData as variant*, optional sDelimiter as
>
> > string=vbnullstring,optional bNotBlank as boolean = true) as string
> > dim sRes as string
> > dim vTmp as variant
> >
> > * if isarray(vdata) then
> > * for each vtmp in *vdata*
>
> > if not iserror(vtmp) then
> > if lenb(vtmp)<>0 or not bnotblank then
> > sres=sres & sdelimiter & vtmp
> > endif
> > endif
> > next vtmp
> > * else
> > sres=vdata
> > endif
> > * jointext=sres
>
> > if lenb(sdelimiter)<>0 then
> > jointext=mid$(sres,2)
> > endif
> > end function
> >
> > Jadi bisa dipakai menjadi array formula di satu cell :
> > (join semua text hasil array formula dengan delimiter titik koma dan yang
> > blank *gak *boleh ikut)
>
> > =JoinText( Small( IF( CountIF( range_data, Row( Indirect( "1:" & Max(
> > range_data ) ) ) ), "" , Row( Indirect( "1:" & Max( range_data ) ) ) ) ,*
> > Row(1:99)* , ";" )
>
> >
> > (join semua text hasil array formula dengan delimiter titik koma dan yang
> > blank boleh ikut)
> > =JoinText( Small( IF( CountIF( range_data, Row( Indirect( "1:" & Max(
> > range_data ) ) ) ), "" , Row( Indirect( "1:" & Max( range_data ) ) ) ) ,*
> > Row(1:99)* , ";" , false )
>
> >
> >
> > Dicoba dulu, sapa tahu ada errornya.
> >
> > Kid.
> >
> >
> > 2011/11/2 him mah <himmah.mlg@gmail.com>
> >
> >> **
>
> >>
> >>
> >> Assalamu'alaikum Wr. Wb.
> >>
> >> maaf sebelumnya belum nyari-nyari dulu di posting sebelumnya kebetulan
> >> koneksi internetnya lambat (karena yang pakai banyak)
> >>
> >> kita punya deretan angka yang tidak urut (seharusnya angka tersebut
> urut)
> >> misal di kolom A saya punya angka 1;2;5;6;9;10;11;12;15 (tanda titik
> >> koma sebagai pemisah baris). dari data tersebut ada beberapa angka
> >> yang hilang yaitu 3,4,7,8,13,14
> >>
> >> yang jadi pertanyaan adalah bagaimana memunculkan angka-angka yang
> >> hilang tersebut
> >>
> >> kalau datanya sedikit sih bisa manual yang repot kalau datanya banyak
> >>
> >> terima kasih
> >>
> >>
> >
>
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)
3e.: Bls: [belajar-excel] Mencari Angka Yang Hilang

Posted by: "ghozi alkatiri" ghozialkatiri@yahoo.co.id ghozialkatiri

Wed Nov 2, 2011 2:55 am (PDT)

solusi untuk hasil 1dengan formula array
{=SMALL(IF(COUNTIF($A$2:$A$10;ROW($A$1:$A$15))=0;ROW($A$1:$A$15));ROW(1:1))}
copy ke bawah sampai tuntas

untuk menghilangkan nilai #NUM! setelah hasil terpenuhi

EXCEL 2003
{=IF(ISERROR(SMALL(IF(COUNTIF($A$2:$A$10;ROW($A$1:$A$15))=0;ROW($A$1:$A$15));ROW(1:1)));"";SMALL(IF(COUNTIF($A$2:$A$10;ROW($A$1:$A$15))=0;ROW($A$1:$A$15));ROW(1:1)))}

EXCEL 2007 UP
{=IFERROR(SMALL(IF(COUNTIF($A$2:$A$10;ROW($A$1:$A$15))=0;ROW($A$1:$A$15));ROW(1:1));"")}
wassalam

Ghozi Alkatiri

________________________________
Dari: him mah <himmah.mlg@gmail.com>
Kepada: belajar-excel <belajar-excel@yahoogroups.com>
Dikirim: Rabu, 2 November 2011 15:19
Judul: [belajar-excel] Mencari Angka Yang Hilang

Assalamu'alaikum Wr. Wb.

maaf sebelumnya belum nyari-nyari dulu di posting sebelumnya kebetulan
koneksi internetnya lambat (karena yang pakai banyak)

kita punya deretan angka yang tidak urut (seharusnya angka tersebut urut)
misal di kolom A saya punya angka 1;2;5;6;9;10;11;12;15 (tanda titik
koma sebagai pemisah baris). dari data tersebut ada beberapa angka
yang hilang yaitu 3,4,7,8,13,14

yang jadi pertanyaan adalah bagaimana memunculkan angka-angka yang
hilang tersebut

kalau datanya sedikit sih bisa manual yang repot kalau datanya banyak

terima kasih

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)
3f.: Re: Mencari Angka Yang Hilang

Posted by: "arthur sandy" arthur_freeday@yahoo.com arthur_freeday

Wed Nov 2, 2011 3:20 am (PDT)

Gak 1 Cell sih... dan syaratnya angkanya tidak berulang (tidak muncul lebih dari 2x)

From: him mah <himmah.mlg@gmail.com>
To: belajar-excel <belajar-excel@yahoogroups.com>
Sent: Wednesday, November 2, 2011 3:19 PM
Subject: [belajar-excel] Mencari Angka Yang Hilang

Assalamu'alaikum Wr. Wb.

maaf sebelumnya belum nyari-nyari dulu di posting sebelumnya kebetulan
koneksi internetnya lambat (karena yang pakai banyak)

kita punya deretan angka yang tidak urut (seharusnya angka tersebut urut)
misal di kolom A saya punya angka 1;2;5;6;9;10;11;12;15 (tanda titik
koma sebagai pemisah baris). dari data tersebut ada beberapa angka
yang hilang yaitu 3,4,7,8,13,14

yang jadi pertanyaan adalah bagaimana memunculkan angka-angka yang
hilang tersebut

kalau datanya sedikit sih bisa manual yang repot kalau datanya banyak

terima kasih

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)
3g.: Re: Mencari Angka Yang Hilang

Posted by: "him mah" himmah.mlg@gmail.com

Wed Nov 2, 2011 5:07 am (PDT)

ketika datanya banyak, kalau pakai array formula prosesnya jadi lambat

Pada tanggal 02/11/11, Kid Mr. <mr.nmkid@gmail.com> menulis:
> Untuk hasil array formula yang diletakkan di kolom bantu, letakkan formula
> di sebuah cell saja dan ndak perlu ada cell lain yang diblok.
> Lalu array formula di copy paste kebawah biasa saja seperti copy paste
> formula lain.
>
> Ketika menggunakan udf jointext, cukup buat 1 cell saja tapi array formula
> bagian yang dibiru diemail lalu harus diubah dari row(1:1) jadi row(1:99)
>
> Kid.
>
> 2011/11/2 him mah <himmah.mlg@gmail.com>
>
>> **
>>
>>
>> iya sudah berhasil pak Kid, cuma untuk copy paste array formula harus
>> satu-satu ya
>>
>> Pada tanggal 02/11/11, Kid Mr. <mr.nmkid@gmail.com> menulis:
>>
>> > Coba array formula :
>> > =Small( IF( CountIF( range_data, Row( Indirect( "1:" & Max( range_data )
>> )
>> > ) ), "" , Row( Indirect( "1:" & Max( range_data ) ) ) ) , *Row(1:1)* )
>>
>> >
>> > Lebih baik tetap ada yang berupa deret per cell seperti di atas, agar
>> bisa
>> > digunakan lebih leluasa.
>> >
>> > Untuk menggabungkan kedalam satu cell, bisa buat UDF JoinText
>> > public function JoinText(rngData as range, optional sDelimiter as
>> > string=vbnullstring,optional bNotBlank as boolean = true) as string
>> > dim sRes as string
>> > dim vTmp as variant
>> >
>> > for each vtmp in rngdata
>> > if not iserror(vtmp) then
>> > if lenb(vtmp)<>0 or not bnotblank then
>> > sres=sres & sdelimiter & vtmp
>> > endif
>> > endif
>> > next vtmp
>> > jointext=sres
>> > if lenb(sdelimiter)<>0 then
>> > jointext=mid$(sres,2)
>> > endif
>> > end function
>> >
>> > Cara pakai di worksheet :
>> > (join semua text di range datanya dengan delimiter titik koma dan yang
>> > blank *gak *boleh ikut)
>>
>> > =jointext( range_datanya , ";" )
>> >
>> > (join semua text di range datanya dengan delimiter titik koma dan yang
>> > blank boleh ikut)
>> > =jointext( range_datanya , ";" , false)
>> >
>> > Jika ingin membuat fungsi yang bisa menerima array (misal hasil array
>> > formula), sehingga langsung tanpa ada kolom bantu, maka ubah jadi :
>> > public function JoinText(*vData as variant*, optional sDelimiter as
>>
>> > string=vbnullstring,optional bNotBlank as boolean = true) as string
>> > dim sRes as string
>> > dim vTmp as variant
>> >
>> > * if isarray(vdata) then
>> > * for each vtmp in *vdata*
>>
>> > if not iserror(vtmp) then
>> > if lenb(vtmp)<>0 or not bnotblank then
>> > sres=sres & sdelimiter & vtmp
>> > endif
>> > endif
>> > next vtmp
>> > * else
>> > sres=vdata
>> > endif
>> > * jointext=sres
>>
>> > if lenb(sdelimiter)<>0 then
>> > jointext=mid$(sres,2)
>> > endif
>> > end function
>> >
>> > Jadi bisa dipakai menjadi array formula di satu cell :
>> > (join semua text hasil array formula dengan delimiter titik koma dan
>> > yang
>> > blank *gak *boleh ikut)
>>
>> > =JoinText( Small( IF( CountIF( range_data, Row( Indirect( "1:" & Max(
>> > range_data ) ) ) ), "" , Row( Indirect( "1:" & Max( range_data ) ) ) )
>> > ,*
>> > Row(1:99)* , ";" )
>>
>> >
>> > (join semua text hasil array formula dengan delimiter titik koma dan
>> > yang
>> > blank boleh ikut)
>> > =JoinText( Small( IF( CountIF( range_data, Row( Indirect( "1:" & Max(
>> > range_data ) ) ) ), "" , Row( Indirect( "1:" & Max( range_data ) ) ) )
>> > ,*
>> > Row(1:99)* , ";" , false )
>>
>> >
>> >
>> > Dicoba dulu, sapa tahu ada errornya.
>> >
>> > Kid.
>> >
>> >
>> > 2011/11/2 him mah <himmah.mlg@gmail.com>
>> >
>> >> **
>>
>> >>
>> >>
>> >> Assalamu'alaikum Wr. Wb.
>> >>
>> >> maaf sebelumnya belum nyari-nyari dulu di posting sebelumnya kebetulan
>> >> koneksi internetnya lambat (karena yang pakai banyak)
>> >>
>> >> kita punya deretan angka yang tidak urut (seharusnya angka tersebut
>> urut)
>> >> misal di kolom A saya punya angka 1;2;5;6;9;10;11;12;15 (tanda titik
>> >> koma sebagai pemisah baris). dari data tersebut ada beberapa angka
>> >> yang hilang yaitu 3,4,7,8,13,14
>> >>
>> >> yang jadi pertanyaan adalah bagaimana memunculkan angka-angka yang
>> >> hilang tersebut
>> >>
>> >> kalau datanya sedikit sih bisa manual yang repot kalau datanya banyak
>> >>
>> >> terima kasih
>> >>
>> >>
>> >
>>
>>
>>
>

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

4a.: Re: Cara Lookup Foto

Posted by: "jkssxls" jkssxls@hotmail.com jkssbma

Wed Nov 2, 2011 1:28 am (PDT)

Kolom G dan H di merge supaya ID terlihat lebih rapih ( satu baris ). Begitu
juga kolom M - N , P-Q, dst

ID diisi di baris 11

Maka bila ada perubahan di kolom G,M,P ,S . ( kolom ke 7,10,13,16, . ) dan
baris ke 11 akan isi gambar yg sesuai

Untuk itu gunakan event Change :

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

'kolom G,M,P ,S, kolom ke- "7,10,13,16,19,22"

dibagi3 = (((Target.Column - 7) Mod 3) = 0)

sesuai = (Target.Column >= 7) And dibagi3

If sesuai And Target.Row = 11 Then

BuatKotakImage (Target.Address)

End If

End Sub

Adapun sub rutin :

Sub BuatKotakImage(selID As String)

On Error Resume Next

'Kolom untuk Isian ID adalah kolom :

' 7 8H 9I 10 11K 12L 13

' G J M

' Apa Id sudah di isi , misal di G11

If Range(selID) = "" Then

MsgBox "ksog " & selID

GoTo lab_FileTakAda

End If

' Cek Apa ada file yg dicari

filenya = Range(selID)

' cek apa ada file JPG nya ?

If Dir("E:\Foto\" & filenya & ".jpg") = "" Then

GoTo lab_FileTakAda

End If

' Apa sudah ada

If IsObject(ActiveSheet.OLEObjects.Item(filenya)) Then

ActiveSheet.OLEObjects.Item(filenya).Delete

End If

' ---KOLOM-- --BARIS--

' F8 -> dari G11 berarti ke kiri 1 ke atas 3

' H10 -> dari G11 berarti ke kanan 1 ke atas 1

awal = Cells(Range(selID).Row, Range(selID).Column).Address
'G11

awalimage = Range(awal).Offset(-3, -1).Address
'F8

akhirimage = Cells(Range(awal).Row - 1, Range(awal).Column + 1).Address
'H10

alamat = Range(awalimage, akhirimage).Address

kiri = Range(alamat).Left

atas = Range(alamat).Top

tinggi = Range(alamat).Height

lebar = Range(alamat).Width

ActiveSheet.OLEObjects.Add(ClassType:="Forms.Image.1", Link:=False, _

DisplayAsIcon:=False, Left:=kiri, Top:=atas, Width:= _

lebar, Height:=tinggi).Select

' namai image

Selection.Name = filenya

' gambar yg sesuai

Selection.Object.Picture = LoadPicture("E:\Foto\" & filenya & ".jpg")

Selection.Object.PictureSizeMode = 1 'fmPictureSizeModeStretch

lab_FileTakAda:

End Sub

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Ari A
Sent: Tuesday, November 01, 2011 3:09 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Cara Lookup Foto

Selamat Sore,

Saya sedang membuat suatu sheet informasi karyawan yang bila saya ketik ID
(cell F11) maka akan tampil foto karyawan tersebut di cell diatasnya.

Foto-foto karyawan berada disatu folder dengan nama file sesuai ID misalkan
c:\foto\4231.jpg

Bagaimana cara excel me'lookup' seperti ini. Apakah foto harus berada di
suatu sheet seperti vlookup, hlookup biasa?

Mohon petunjuk caranya, kalau bisa tanpa macro tapi bila memang harus
menggunakan macro juga gapapa.

Silahkan liat templatenya dilampiran.

Terima kasih sekali
Ari A

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

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

Rabu, 02 November 2011

Messages In This Digest (12 Messages)

Messages

Posted by: "heru mulyono" hmulyono24@gmail.com

Tue Nov 1, 2011 1:10 pm (PDT)

Posted by: "Dwi Hadwan Ridho" pos.syariah@bni-life.co.id

Tue Nov 1, 2011 6:30 pm (PDT)

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

Tue Nov 1, 2011 7:42 pm (PDT)

Posted by: "Dwi Hadwan Ridho" pos.syariah@bni-life.co.id

Tue Nov 1, 2011 7:47 pm (PDT)

Posted by: "him mah" himmah.mlg@gmail.com

Wed Nov 2, 2011 1:19 am (PDT)

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

Wed Nov 2, 2011 2:03 am (PDT)

Posted by: "him mah" himmah.mlg@gmail.com

Wed Nov 2, 2011 2:12 am (PDT)

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

Wed Nov 2, 2011 2:16 am (PDT)

Posted by: "ghozi alkatiri" ghozialkatiri@yahoo.co.id ghozialkatiri

Wed Nov 2, 2011 2:55 am (PDT)

Posted by: "arthur sandy" arthur_freeday@yahoo.com arthur_freeday

Wed Nov 2, 2011 3:20 am (PDT)

Posted by: "him mah" himmah.mlg@gmail.com

Wed Nov 2, 2011 5:07 am (PDT)

Posted by: "jkssxls" jkssxls@hotmail.com jkssbma

Wed Nov 2, 2011 1:28 am (PDT)

Tidak ada komentar:

Posting Komentar

Followers

Blog Archive

About Me