Kamis, 03 November 2011

[belajar-excel] Digest Number 1385

Messages In This Digest (22 Messages)

Messages

1a.

Re: Bls: [belajar-excel] FUNGSI LEFT

Posted by: "harry budiman" harbudiman@gmail.com   harbudiman

Wed Nov 2, 2011 8:49 am (PDT)



Makasih pak Gozi dan pak Kid..semua sdh dicoba dan berhasil..makasih banyak

Salam


-----Original Message-----
From: ghozi alkatiri <ghozialkatiri@yahoo.co.id>
Sender: belajar-excel@yahoogroups.com
Date: Sun, 23 Oct 2011 15:03:12
To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] FUNGSI LEFT

atau coba juga
=VALUE(REPLACE(A10;FIND("/";A10);4;""))
wassalam

Ghozi Alkatiri



________________________________
Dari: ghozi alkatiri <ghozialkatiri@yahoo.co.id>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Minggu, 23 Oktober 2011 13:57
Judul: Bls: [belajar-excel] FUNGSI LEFT


 
coba 2 formula di bawah ini
=VALUE(LEFT(A10;FIND("/";A10)-1))
atau
=VALUE(SUBSTITUTE(A10;"/Arr";""))

wassalam

Ghozi Alkatiri


________________________________
Dari: harry budiman <harbudiman@gmail.com>
Kepada: belajar-excel <belajar-excel@yahoogroups.com>
Dikirim: Minggu, 23 Oktober 2011 13:21
Judul: [belajar-excel] FUNGSI LEFT


 
Salam,
mohon bantuan (lagi) Saya memiliki data dimana jumlah tenor adalah
hasil convert dari data,
sehingga akan diperoleh beberapa tenor diantaranya 11/Arr, 17/Arr,
23/Arr dan beberapa diantara ratusan tenor tersebut terdapat tenor
yang hanya 1 digit, contoh: 9/Arr, 8/Arr.
Biasanya saya menggunakan =LEFT(xx,2) untuk mengambil 2 digit dikiri,
namun untuk 1 digit (8/Arr, 9/Arr) dengan manual tanpa rumus adakah
satu formula supaya semua bisa diambil (2 digit dan 1 digit)
sekaligus?
Contoh terlampir

makasih
harry




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

Re: Mencari Angka Yang Hilang

Posted by: "summonery" summonery@yahoo.com   summonery

Wed Nov 2, 2011 10:34 am (PDT)



coba juga,
=SMALL(IF(ISNA(MATCH(ROW(A$1:A$15),A$2:A$10,0)),ROW(A$1:A$15)),ROW()-1)
(Array Formula, Enter dengan menekan Ctrl+Shift+Enter bersamaan)copy
paste ke baris berikutnya...

>semoga bermanfaat

==============================================================
--- In belajar-excel@yahoogroups.com, him mah <himmah.mlg@...> wrote:
>
> 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 (12)
2b.

Re: Mencari Angka Yang Hilang

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

Wed Nov 2, 2011 6:48 pm (PDT)



Betul itu Pak Himmah,

Bagaimana kalau dicoba dengan membuat seed number (daftar nomor ideal --
seluruh nomor --), kemudian disusun list missing number dari daftar
tersebut.
Lebih baik lagi jika daftar tersebut diletakkan pada sheet yang berbeda.
Pada daftar itu diberi kolom bantu untuk mendata nomor yang sudah ada di
sheet data.

Cara penyusunan list missingnya bisa dengan cara :
1. Autofilter sheet seed number nya berdasar kolom bantu yang menyatakan
belum ada nomor di sheet data, lalu cope visible cells only ke sheet hasil.
2. Memanfaatkan pivot table, dengan bagian report field dimasukkan field
kolom bantu yang berisi status ada atau tidaknya si angka seed dalam sheet
data, lalu pilih yang tidak ada di sheet data saja.
3. Koneksi data ke file Excel itu sendiri, dengan query berupa left join
antara sheet seed numbernya dengan sheet datanya, lalu difilter (WHERE)
nilai sheet datanya adalah NULL.

Semoga file terlampir lebih bisa menjelaskannya. (download file attachment
yang sesuai dengan versi MS Excel Anda).
Syaratnya :
1. Letakkan file di drive C: pada root-nya ( C:\ )
2. Jangan ganti nama file atau ekstensinya

Setelah dibuka dan bisa mengganti seluruh properti koneksi, maka bebas akan
meletakkan file dimana saja dengan nama apa saja.

Wassalam.
Kid.

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

> **
>
>
> 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 (12)
2c.

Re: Mencari Angka Yang Hilang

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

Wed Nov 2, 2011 6:59 pm (PDT)



Sorry mods, filenya kegedean (yah kena moderasi dah).
Didalamnya ada 2 file. Pilih yang sesuai versi Excel yang digunakan.

Wassalam.
Kid.

2011/11/3 Kid Mr. <mr.nmkid@gmail.com>

> Betul itu Pak Himmah,
>
> Bagaimana kalau dicoba dengan membuat seed number (daftar nomor ideal --
> seluruh nomor --), kemudian disusun list missing number dari daftar
> tersebut.
> Lebih baik lagi jika daftar tersebut diletakkan pada sheet yang berbeda.
> Pada daftar itu diberi kolom bantu untuk mendata nomor yang sudah ada di
> sheet data.
>
> Cara penyusunan list missingnya bisa dengan cara :
> 1. Autofilter sheet seed number nya berdasar kolom bantu yang menyatakan
> belum ada nomor di sheet data, lalu cope visible cells only ke sheet hasil.
> 2. Memanfaatkan pivot table, dengan bagian report field dimasukkan field
> kolom bantu yang berisi status ada atau tidaknya si angka seed dalam sheet
> data, lalu pilih yang tidak ada di sheet data saja.
> 3. Koneksi data ke file Excel itu sendiri, dengan query berupa left join
> antara sheet seed numbernya dengan sheet datanya, lalu difilter (WHERE)
> nilai sheet datanya adalah NULL.
>
> Semoga file terlampir lebih bisa menjelaskannya. (download file attachment
> yang sesuai dengan versi MS Excel Anda).
> Syaratnya :
> 1. Letakkan file di drive C: pada root-nya ( C:\ )
> 2. Jangan ganti nama file atau ekstensinya
>
> Setelah dibuka dan bisa mengganti seluruh properti koneksi, maka bebas
> akan meletakkan file dimana saja dengan nama apa saja.
>
> Wassalam.
>
> Kid.
>
> 2011/11/2 him mah <himmah.mlg@gmail.com>
>
>> **
>>
>>
>> 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 (12)
2d.

Re: Mencari Angka Yang Hilang

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

Wed Nov 2, 2011 7:00 pm (PDT)



iya terima kasih pak Kid, akhirnya saya juga pakai vlookup dengan data
yang lengkap kemudian difilter

Pada tanggal 03/11/11, Kid Mr. <mr.nmkid@gmail.com> menulis:
> Betul itu Pak Himmah,
>
> Bagaimana kalau dicoba dengan membuat seed number (daftar nomor ideal --
> seluruh nomor --), kemudian disusun list missing number dari daftar
> tersebut.
> Lebih baik lagi jika daftar tersebut diletakkan pada sheet yang berbeda.
> Pada daftar itu diberi kolom bantu untuk mendata nomor yang sudah ada di
> sheet data.
>
> Cara penyusunan list missingnya bisa dengan cara :
> 1. Autofilter sheet seed number nya berdasar kolom bantu yang menyatakan
> belum ada nomor di sheet data, lalu cope visible cells only ke sheet hasil.
> 2. Memanfaatkan pivot table, dengan bagian report field dimasukkan field
> kolom bantu yang berisi status ada atau tidaknya si angka seed dalam sheet
> data, lalu pilih yang tidak ada di sheet data saja.
> 3. Koneksi data ke file Excel itu sendiri, dengan query berupa left join
> antara sheet seed numbernya dengan sheet datanya, lalu difilter (WHERE)
> nilai sheet datanya adalah NULL.
>
> Semoga file terlampir lebih bisa menjelaskannya. (download file attachment
> yang sesuai dengan versi MS Excel Anda).
> Syaratnya :
> 1. Letakkan file di drive C: pada root-nya ( C:\ )
> 2. Jangan ganti nama file atau ekstensinya
>
> Setelah dibuka dan bisa mengganti seluruh properti koneksi, maka bebas akan
> meletakkan file dimana saja dengan nama apa saja.
>
> Wassalam.
> Kid.
>
> 2011/11/2 him mah <himmah.mlg@gmail.com>
>
>> **
>>
>>
>> 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 (12)
2e.

Re: Mencari Angka Yang Hilang

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

Wed Nov 2, 2011 7:03 pm (PDT)



Kalau pakai koneksi data, malah gak perlu ada formulanya bukan.
Tempo hari kan sudah coba koneksi data, siapa tahu mau dipakai juga untuk
satu hal ini.

Kid.

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

> **
>
>
> iya terima kasih pak Kid, akhirnya saya juga pakai vlookup dengan data
> yang lengkap kemudian difilter
>
> Pada tanggal 03/11/11, Kid Mr. <mr.nmkid@gmail.com> menulis:
>
> > Betul itu Pak Himmah,
> >
> > Bagaimana kalau dicoba dengan membuat seed number (daftar nomor ideal --
> > seluruh nomor --), kemudian disusun list missing number dari daftar
> > tersebut.
> > Lebih baik lagi jika daftar tersebut diletakkan pada sheet yang berbeda.
> > Pada daftar itu diberi kolom bantu untuk mendata nomor yang sudah ada di
> > sheet data.
> >
> > Cara penyusunan list missingnya bisa dengan cara :
> > 1. Autofilter sheet seed number nya berdasar kolom bantu yang menyatakan
> > belum ada nomor di sheet data, lalu cope visible cells only ke sheet
> hasil.
> > 2. Memanfaatkan pivot table, dengan bagian report field dimasukkan field
> > kolom bantu yang berisi status ada atau tidaknya si angka seed dalam
> sheet
> > data, lalu pilih yang tidak ada di sheet data saja.
> > 3. Koneksi data ke file Excel itu sendiri, dengan query berupa left join
> > antara sheet seed numbernya dengan sheet datanya, lalu difilter (WHERE)
> > nilai sheet datanya adalah NULL.
> >
> > Semoga file terlampir lebih bisa menjelaskannya. (download file
> attachment
> > yang sesuai dengan versi MS Excel Anda).
> > Syaratnya :
> > 1. Letakkan file di drive C: pada root-nya ( C:\ )
> > 2. Jangan ganti nama file atau ekstensinya
> >
> > Setelah dibuka dan bisa mengganti seluruh properti koneksi, maka bebas
> akan
> > meletakkan file dimana saja dengan nama apa saja.
> >
> > Wassalam.
> > Kid.
> >
> > 2011/11/2 him mah <himmah.mlg@gmail.com>
> >
> >> **
>
> >>
> >>
> >> 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 (12)
3a.

Re: menggabung 2 cell dan ditambahkan tanda "-" sebagai penghubung

Posted by: "Bachelor Ard" bachelor_ard@yahoo.com   bachelor_ard

Wed Nov 2, 2011 12:23 pm (PDT)



Walkumslm wr.Tl.wb.

tambah aja rumusnya sehingga menjdi A1&"-"&A2

________________________________
From: Mulki Akbar <mulki@aop.component.astra.co.id>
To: belajar-excel@yahoogroups.com
Sent: Monday, October 17, 2011 11:02 AM
Subject: [belajar-excel] menggabung 2 cell dan ditambahkan tanda "-" sebagai penghubung

 
Assalamu'alaikum wr. wb.
 
 
Mohon maaf sebelumnya jika pertanyaan ini
sudah sering ditanyakan :)
 
Mohon pencerahan, rumus cara menggabung
2 kolom tp diantara ke-2 kolom tadi diberikan penghubung
(-)
 
Misalnya :
 
kolom A1 ada data : ICA.001
kolom A2 ada data : 12 N 24-3
kolom A3 : rumus yg saya buat
A1&A2
 
hasilnya ICA.00112N24-3
 
bagaimana caranya jika diantara kolom A1
dan A2 diapit (-)
 
jadi hasilnya nanti :
 ICA.001-12N24-3
 
 
mohon pencerahannya.
 
 
thx & wassalam,
mulki
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)
4.

Dua file bisa update tanpa buka salah satu file

Posted by: "Suyatno" ocha.yatno@gmail.com

Wed Nov 2, 2011 1:45 pm (PDT)



Dear Para pakar

Adakah cara agar 2 file yg saling ngelink formula selalu bisa update tanpa
membuka salah satu file

Sebelum dan sesudahnya terimakasih

Salam

Ocha

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

Re: Just info.. Semoga berkenan

Posted by: "STDEV(i)" setiyowati.devi@gmail.com   siti_vi

Wed Nov 2, 2011 5:28 pm (PDT)



[ OOT ]

Terima kasih pak Franz..

Memang benar ada dua member baru yg menggunakan email address yg *dibuat *
*mirip* dengan email siti dan email Mr. Kid.

"mr.nmkid" <mr.nmkid@yahoo.co.id>
"Stdev I" <setiyowati.dev1@yahoo.co.id>

Semula kami anggap biasa seperti members lain karena kalau ternyata email -
address sudah bisa dibuat, berarti sudah lolos peraturan di pihak "Penyedia
Email address"
Kita tidak ada hak untuk melarang email yg mirip dengan email lain.

Sekitar tgl 21 Okt 2011 kedua email itu (kemungkinan besar dibuat oleh
1 orang yg sama) *mulai mengirim posting* tanggapan ke milis tetapi
langsung
dengan dengan "*inappropriate* email" maka tidak diloloskan (moderated)

Mungkin karena merasa dipersulit memposting ke milis, ybs kirim-kirim* via
japri *
*seakan akan **menanggapi suatu topik* tetapi isinya semakin tidak pantas.
beberapa members yg terkait dengan topik tsb diberi CC.

Tgl 22 Oct kedua email address tsb sudah di banned & removed oleh
Moderator.
Yang berarti : untuk selamanya email address tsb tidak akan bisa posting ke
milis ini.
Tetapi tidak ada yg menghalangi ybs untuk mengirim langsung (japri) ke
members
kecuali member yg dengan sengaja mem-block /memfilter alamat tsb (spt
laporan
dari Haps).

Demikian ceritak-nya dan juga sekaligus sebagai klarifikasinya.

Kepada seluruh members dimohon agar setiap menerima email dari manapun
(tidak hanya dari milis ini saja), meluangkan waktu *sejenak untuk
memperhatikan *
*eMail **Address-nya* karena EMAIL ADDRESS dan apalagi NICK NAME bisa
dibuat
mirip (bahkan dengan sedikit oprex, bisa dibuat persis *sama) dengan* email
milik
orang lain.
*
*
*Jangan salah duga dulu hanya karena hal yg MIRIP saja.*

Pendapat selanjutnya (mengenai email yg diterima) terserah kepada setiap
individu
member, karena kami tidak ingin memperngaruhi kebebasan berpendapat setiap
member, termasuk apakah harus 'menyayangi' atau 'membenci' moderator /
members lain.

Sebagai moderators, hal yg dapat kami atur hanya mengarahkan diskusi agar
fokus;
mengatur lalulintas posting dan kepantasannya.
(offensive, tidak patas, tidak sopan, sedapat mungkin kami cegah, setidaknya
kalau sudah terlanjur termuat, kami hapus)

Kepada pak Franz, sekali lagi terima kasih atas masukannya.
Kepada para pinisepuh, owner & moderator, mohon tambahannya bila dirasa
perlu.

kindest regards,
& wassalamu alaikum wr wb,
siti

note:
Khusus dlm kasus ini, sebagai data pembanding barangkali perlu di perhatikan
juga

siti
Yahoo_ID : siti_vi
Nick-Name saat ini : "STDEV(i)"
email address : setiyowati.devi.@gmail.com

Mr. Kid
Yahoo_ID : nmkid.family
Nick-Name saat ini : "Mr. Kid"* *
email address : mr.nmkid@gmail.com

----------------

2011/10/24 Franciscus SOG <jclugbu@gmail.com>

> Dear Mbak Siti,
>
> Sepertinya ada yang mencoba memperkeruh suasana dengan menggunakan
> email yang mirip dengan email mbak "Stdev I <setiyowati.dev1@yahoo.co.id
> >".

Mohon diklarifikasi kepada milist agar
> tidak terjadi pencemaran nama baik moderator. Just it.
>
> Blessings,
> Fran'z
>
> ---------- Forwarded message ----------
> From: Stdev I <setiyowati.dev1@yahoo.co.id>

Date: Sun, 23 Oct 2011 01:10:17 +0800 (SGT)
> Subject: Bls: [belajar-excel] Macro excel copy data ke posisi terakhir
> To: "jclugbu@gmail.com" <jclugbu@gmail.com>, "dwanxls@yahoo.co.id"
> <dwanxls@yahoo.co.id>
>
> kalau mau jawab, jawab saja jangan belagu kali.
> lu juga contek dari milis tetangga kan formulanya.
> jangan sok pintar lahhh...
> dasar berani dikampung.
>
>
> ________________________________
> Dari: Franciscus SOG <jclugbu@gmail.com>
> Kepada: belajar-excel@yahoogroups.com
> Dikirim: Rabu, 19 Oktober 2011 11:13
> Judul: Re: [belajar-excel] Macro excel copy data ke posisi terakhir
>
> Dear Pak Dewan,
> Panggil pak Dewan gpp ya, kan ga mau dipanggil pak Menteri (eh salah orang
> ya)..
>
> Untuk kasus Anda, bedakan antara penulisan Row dengan Rows.
>
> Benar :
> Set CellTujuan1 = Sheet2.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
>
> Salah :
> Set CellTujuan1 = Sheet2.Cells(Row.Count, 2).End(xlUp).Offset(1, 0)
>
> Just it. Semoga membantu.
>
> Blessings,
>
> Fran'z
>
> On 10/19/11, Dewan Deya <dwanxls@yahoo.co.id> wrote:
> > Sudah di coba sesuai listing di bawah. Masih belom bisa jalan.
> > file terlampir.
> > ________________________________
> > Dari: Haps <hapsari.stlizbeth@gmail.com>
> > Kepada: belajar-excel@yahoogroups.com
> > Dikirim: Selasa, 18 Oktober 2011 15:20
> > Judul: Re: [belajar-excel] Macro excel copy data ke posisi terakhir
> >
> > maaf ikutan..
> > Procedure yg ada di module milik Workbook SAMPLE.xls
> > seharusnya seperti ini (bandingkan dengan teliti) vl makro tulisan pak
> > Dewan
> >
> > Sub KopiTranspose()
> > Dim CellTujuan1 As Range, CellTujuan2 As Range
> > Set CellTujuan1 = Sheet2.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
> > Set CellTujuan2 = Sheet2.Cells(Rows.Count, 11).End(xlUp).Offset(1, 0)
> > Sheets("Master").Range("c3:c11").Copy
> > CellTujuan1.PasteSpecial Paste:=xlPasteValues, _
> > Operation:=xlNone, SkipBlanks:=False, Transpose:=True
> > Sheets("Master").Range("D13:D17").Copy
> > CellTujuan2.PasteSpecial Paste:=xlPasteValues, _
> > Operation:=xlNone, SkipBlanks:=False, Transpose:=True
> > End Sub
> >
> > sepertinya bapak harus membaca helpnya, bgmana cara merujuk sheet
> > (ada beberapa cara)
> > - dengan menyebut indexnyaSheets(1) , Sheets(6) dst..
> > - dengan menyebut NAMA nyaSheets("NamaSheet") , Sheets("Sheet10")
> > -dengan menyebut CodeName nya Sheet1 , Sheet32, dst
> > . dengan mengexpresikan object sheet tsb (banyak cara)
> > misalnya CellTujuan1.Parent.Range("A1:A1000")
> > adalah object range yg berada di sheet2 (yaitu sheet yg menjadi induk
> > (parent)
> > bagi range yg bernama CellTujuan1
> > dst...
> >
> > -hapsari-
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)
6a.

Re: Rubah huruf kecil ke huruf besar

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Wed Nov 2, 2011 7:03 pm (PDT)



walaupun problem / pertanyaan sepertinya sudah terjawab
saya ingn menunjukkan posting di milis ini juga sekitar Juli 2011

http://tech.groups.yahoo.com/group/belajar-excel/message/11798

dlm thread itu anda akan mendapatkan 11 email yg membututinya
mediskusikan tentang ' CARA MEMUDAHKAN "MEMFORMAT" TEXT
ke/dari : hufur LowerCase >< UpperCase >< ProperCas
dengan suatu 'alat tambahan' yg tampilannya mirip dengan fitur Change Case
di MS Word

di dalam postingnya anda masih dapat mendownload workbook-file yg
dibicarakan
(yg bisa di ubah menjadi Add In)

selain itu ada dapat mengaksus thread itu di:
http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-Add-In-quot-Baru-quot-dari-Bluewater-td4577753.html

Berikut ini cuplikan gambar 'iklan' nya :

[image: AddIn Baru.GIF]
[image: Change case di XL.GIF]

Add-In yg digambarkan di atas, hanya ingin meniru *ini*
*
*
[image: Words - Change Case.PNG]

2011/10/22 harry budiman <harbudiman@gmail.com>
>
> Makasih kang angga, dan kang raya :) hatur nuhun
>
> ________________________________
> From: "Angga Gurmilang Sedar" <mail@gilangsedar.com>
> Date: Sat, 22 Oct 2011 06:26:33 +0000
> Misal
> Cell A1 berisi "ini kecil"
> Coba tulis rumus d B1
> =UPPER(A1)
> Maka hasilnya "INI KECIL"
>
> ________________________________
> From: "harry budiman" <harbudiman@gmail.com>
> Date: Sat, 22 Oct 2011 06:24:34 +0000
> Salam hormat,
>
> Apakah di excel kt bs merubah tulisan secara langsung dr huruf kecil ke
huruf besar?
> Contoh : kemerdekaan itu adalah hak segala bangsa " menjadi KEMERDEKAAN
ITU ADALAH HAK SEGALA BANGSA..
> Apakah harus dengan formula rumus atau cukup format saja?
>
> Makasih sebelumnya jika pernah ditanyakan dimilis :)
>
> Salam
> Harry
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
7a.

Mohon pencerahan : Menambah spasi setiap input 1 karakter di textbox

Posted by: "Asror Al-Aliif's" asrorcakep@yahoo.com   asrorcakep

Wed Nov 2, 2011 7:13 pm (PDT)



Assalamualaikum,

Rekan milis BeExcel, saya memang pendatang baru di dunia VBA, dan masih tanya sana sini, saya ingin bertanya, saya mempunyai Textbox, biasanya textbox itu ketika ditulis akan seperti nulis biasa di media lain, saya ingin membuat textbox itu ketika ditulis karakter, langsung otomatis membuat spasi, contohnya, saya menulis "asror" tapi di textbox tersebut langsung membuat spasi diantaranya, menjadi "a s r o r".

Terimakasih,

Asror

Safety is my responsibility
Sent from Super Asror's BlackBerry� smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!

--- Mods ---
BeExceler yang baik hati sekalian, dimohon buanget agar judul kasus mencerminkan kasusnya ya, supaya memudahkan search posting lama. Repot kan kalau semua thread posting judulnya Tolong atau Mohon pencerahan, padahal mau cari tentang Index dan Match misalnya.

Jadi tulung ya... diikhlas-ikhlasken untuk membuat judul thread yang mencerminkan kasusnya.
------------
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)
7b.

Re: Mohon pencerahan : Menambah spasi setiap input 1 karakter di tex

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

Wed Nov 2, 2011 7:29 pm (PDT)





Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

TextBox1.Value = TextBox1.Value & " "

End Sub

Textbox atas adalah TextBox1 dan bawah adalah TextBox2

-----Original Message-----
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Asror Al-Aliif's
Sent: Thursday, November 03, 2011 9:09 AM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Mohon pencerahan : Menambah spasi setiap input 1
karakter di textbox

Assalamualaikum,

Rekan milis BeExcel, saya memang pendatang baru di dunia VBA, dan masih
tanya sana sini, saya ingin bertanya, saya mempunyai Textbox, biasanya
textbox itu ketika ditulis akan seperti nulis biasa di media lain, saya
ingin membuat textbox itu ketika ditulis karakter, langsung otomatis membuat
spasi, contohnya, saya menulis "asror" tapi di textbox tersebut langsung
membuat spasi diantaranya, menjadi "a s r o r".

Terimakasih,

Asror

Safety is my responsibility

Sent from Super Asror's BlackBerryR smartphone from Sinyal Bagus XL,
Nyambung Teruuusss...!

--- Mods ---

BeExceler yang baik hati sekalian, dimohon buanget agar judul kasus
mencerminkan kasusnya ya, supaya memudahkan search posting lama. Repot kan
kalau semua thread posting judulnya Tolong atau Mohon pencerahan, padahal
mau cari tentang Index dan Match misalnya.

Jadi tulung ya... diikhlas-ikhlasken untuk membuat judul thread yang
mencerminkan kasusnya.

------------

------------------------------------

----------------------------------------------------------

bergabung ke milis (subscribe), kirim mail kosong ke:

<mailto:belajar-excel-subscribe@yahoogroups.com>
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:

<mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com

berkunjung ke web milis

<http://tech.groups.yahoo.com/group/belajar-excel/messages>
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
<http://www.mail-archive.com/belajar-excel@yahoogroups.com/>
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/>
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners:
<mailto:belajar-excel-owner@yahoogroups.com>
belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):

kirim mail kosong ke <mailto:belajar-excel-unsubscribe@yahoogroups.com>
belajar-excel-unsubscribe@yahoogroups.com

----------------------------------------------------------Yahoo!
Groups Links

<http://groups.yahoo.com/group/belajar-excel/>
http://groups.yahoo.com/group/belajar-excel/

Individual Email | Traditional

<http://groups.yahoo.com/group/belajar-excel/join>
http://groups.yahoo.com/group/belajar-excel/join

(Yahoo! ID required)

<mailto:belajar-excel-digest@yahoogroups.com>
belajar-excel-digest@yahoogroups.com

<mailto:belajar-excel-fullfeatured@yahoogroups.com>
belajar-excel-fullfeatured@yahoogroups.com

<mailto:belajar-excel-unsubscribe@yahoogroups.com>
belajar-excel-unsubscribe@yahoogroups.com

<http://docs.yahoo.com/info/terms/> http://docs.yahoo.com/info/terms/

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

Re: Mohon pencerahan : Menambah spasi setiap input 1 karakter di tex

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

Wed Nov 2, 2011 7:44 pm (PDT)



Kalau gak salah duga (kalau gak salah loh ya -- kalo salah, dicuekin aja
semua tulisan diemail ini--), script :
TextBox1.Value = TextBox1.Value & " "

pada event keypress akan membuat hasil didahului dengan spasi (" ").

Mungkin dengan diberi kondisi cek isi textbox-nya lebih dulu, bisa
dihilangkan spasi paling depannya.
with textbox1
if lenb(.text)<>0 then
.text=.text & " "
endif
end with

Kid.

2011/11/3 jkssxls <jkssxls@hotmail.com>

> **
>
>
> ****
>
> ** **
>
> Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)****
>
> TextBox1.Value = TextBox1.Value & " "****
>
> End Sub****
>
> ** **
>
> Textbox atas adalah TextBox1 dan bawah adalah TextBox2****
>
> ** **
>
> -----Original Message-----
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of Asror Al-Aliif's
> Sent: Thursday, November 03, 2011 9:09 AM
> To: belajar-excel@yahoogroups.com
> Subject: [belajar-excel] Mohon pencerahan : Menambah spasi setiap input 1
> karakter di textbox
>
> ** **
>
> Assalamualaikum,****
>
> ** **
>
> Rekan milis BeExcel, saya memang pendatang baru di dunia VBA, dan masih
> tanya sana sini, saya ingin bertanya, saya mempunyai Textbox, biasanya
> textbox itu ketika ditulis akan seperti nulis biasa di media lain, saya
> ingin membuat textbox itu ketika ditulis karakter, langsung otomatis
> membuat spasi, contohnya, saya menulis "asror" tapi di textbox tersebut
> langsung membuat spasi diantaranya, menjadi "a s r o r".****
>
> ** **
>
> Terimakasih,****
>
> ** **
>
> Asror****
>
> ** **
>
> ** **
>
> Safety is my responsibility****
>
> Sent from Super Asror's BlackBerry� smartphone from Sinyal Bagus XL,
> Nyambung Teruuusss...!****
>
> ** **
>
> ** **
>
> --- Mods ---****
>
> BeExceler yang baik hati sekalian, dimohon buanget agar judul kasus
> mencerminkan kasusnya ya, supaya memudahkan search posting lama. Repot kan
> kalau semua thread posting judulnya Tolong atau Mohon pencerahan, padahal
> mau cari tentang Index dan Match misalnya.****
>
> ** **
>
> Jadi tulung ya... diikhlas-ikhlasken untuk membuat judul thread yang
> mencerminkan kasusnya.****
>
> ------------****
>
> ** **
>
> ------------------------------------****
>
> ** **
>
> ----------------------------------------------------------****
>
> 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****
>
> ----------------------------------------------------------Yahoo!
> Groups Links****
>
> ** **
>
> http://groups.yahoo.com/group/belajar-excel/****
>
> ** **
>
> Individual Email | Traditional****
>
> ** **
>
> http://groups.yahoo.com/group/belajar-excel/join****
>
> (Yahoo! ID required)****
>
> ** **
>
> belajar-excel-digest@yahoogroups.com ****
>
> belajar-excel-fullfeatured@yahoogroups.com****
>
> ** **
>
> belajar-excel-unsubscribe@yahoogroups.com****
>
> ** **
>
> http://docs.yahoo.com/info/terms/****
>
> ** **
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)
7d.

Re: Mohon pencerahan : Menambah spasi setiap input 1 karakter di tex

Posted by: "Asror Al-Aliif's" asrorcakep@yahoo.com   asrorcakep

Wed Nov 2, 2011 7:44 pm (PDT)



Dear jkssxls,
Terimakasih pencerahannya,
Membantu sekali,

Asror


Safety is my responsibility
Sent from Super Asror's BlackBerry� smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!

-----Original Message-----
From: jkssxls <jkssxls@hotmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Thu, 3 Nov 2011 09:29:14
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] Mohon pencerahan : Menambah spasi setiap input 1 karakter di textbox





Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

TextBox1.Value = TextBox1.Value & " "

End Sub



Textbox atas adalah TextBox1 dan bawah adalah TextBox2



-----Original Message-----
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Asror Al-Aliif's
Sent: Thursday, November 03, 2011 9:09 AM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Mohon pencerahan : Menambah spasi setiap input 1
karakter di textbox



Assalamualaikum,



Rekan milis BeExcel, saya memang pendatang baru di dunia VBA, dan masih
tanya sana sini, saya ingin bertanya, saya mempunyai Textbox, biasanya
textbox itu ketika ditulis akan seperti nulis biasa di media lain, saya
ingin membuat textbox itu ketika ditulis karakter, langsung otomatis membuat
spasi, contohnya, saya menulis "asror" tapi di textbox tersebut langsung
membuat spasi diantaranya, menjadi "a s r o r".



Terimakasih,



Asror





Safety is my responsibility

Sent from Super Asror's BlackBerryR smartphone from Sinyal Bagus XL,
Nyambung Teruuusss...!





--- Mods ---

BeExceler yang baik hati sekalian, dimohon buanget agar judul kasus
mencerminkan kasusnya ya, supaya memudahkan search posting lama. Repot kan
kalau semua thread posting judulnya Tolong atau Mohon pencerahan, padahal
mau cari tentang Index dan Match misalnya.



Jadi tulung ya... diikhlas-ikhlasken untuk membuat judul thread yang
mencerminkan kasusnya.

------------



------------------------------------



----------------------------------------------------------

bergabung ke milis (subscribe), kirim mail kosong ke:

<mailto:belajar-excel-subscribe@yahoogroups.com>
belajar-excel-subscribe@yahoogroups.com



posting ke milis, kirimkan ke:

<mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com



berkunjung ke web milis

<http://tech.groups.yahoo.com/group/belajar-excel/messages>
http://tech.groups.yahoo.com/group/belajar-excel/messages



melihat file archive / mendownload lampiran
<http://www.mail-archive.com/belajar-excel@yahoogroups.com/>
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/>
http://milis-belajar-excel.1048464.n5.nabble.com/



menghubungi moderators & owners:
<mailto:belajar-excel-owner@yahoogroups.com>
belajar-excel-owner@yahoogroups.com



keluar dari membership milis (UnSubscribe):

kirim mail kosong ke <mailto:belajar-excel-unsubscribe@yahoogroups.com>
belajar-excel-unsubscribe@yahoogroups.com

----------------------------------------------------------Yahoo!
Groups Links



<http://groups.yahoo.com/group/belajar-excel/>
http://groups.yahoo.com/group/belajar-excel/



Individual Email | Traditional



<http://groups.yahoo.com/group/belajar-excel/join>
http://groups.yahoo.com/group/belajar-excel/join

(Yahoo! ID required)



<mailto:belajar-excel-digest@yahoogroups.com>
belajar-excel-digest@yahoogroups.com

<mailto:belajar-excel-fullfeatured@yahoogroups.com>
belajar-excel-fullfeatured@yahoogroups.com



<mailto:belajar-excel-unsubscribe@yahoogroups.com>
belajar-excel-unsubscribe@yahoogroups.com



<http://docs.yahoo.com/info/terms/> http://docs.yahoo.com/info/terms/




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

Re: Mohon pencerahan : Menambah spasi setiap input 1 karakter di tex

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

Wed Nov 2, 2011 7:57 pm (PDT)




Betul , saya tidak mengamati ada spasi di depan pertama , jadi koreksi :Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
With TextBox1
If Len(.Value) > 0 Then
.Value = .Value & " "
End If
End With
End Sub

catatan : trims atas koreksinyaTo: belajar-excel@yahoogroups.com
From: mr.nmkid@gmail.com
Date: Thu, 3 Nov 2011 09:44:06 +0700
Subject: Re: [belajar-excel] Mohon pencerahan : Menambah spasi setiap input 1 karakter di textbox

Kalau gak salah duga (kalau gak salah loh ya -- kalo salah, dicuekin aja semua tulisan diemail ini--), script :
TextBox1.Value = TextBox1.Value & " "

pada event keypress akan membuat hasil didahului dengan spasi (" ").

Mungkin dengan diberi kondisi cek isi textbox-nya lebih dulu, bisa dihilangkan spasi paling depannya.
with textbox1
if lenb(.text)<>0 then
.text=.text & " "
endif
end with

Kid.

2011/11/3 jkssxls <jkssxls@hotmail.com>

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

TextBox1.Value = TextBox1.Value & " "End Sub Textbox atas adalah TextBox1 dan bawah adalah TextBox2

-----Original Message-----
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of Asror Al-Aliif's

Sent: Thursday, November 03, 2011 9:09 AM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Mohon pencerahan : Menambah spasi setiap input 1 karakter di textbox

Assalamualaikum, Rekan milis BeExcel, saya memang pendatang baru di dunia VBA, dan masih tanya sana sini, saya ingin bertanya, saya mempunyai Textbox, biasanya textbox itu ketika ditulis akan seperti nulis biasa di media lain, saya ingin membuat textbox itu ketika ditulis karakter, langsung otomatis membuat spasi, contohnya, saya menulis "asror" tapi di textbox tersebut langsung membuat spasi diantaranya, menjadi "a s r o r".

Terimakasih, Asror Safety is my responsibilitySent from Super Asror's BlackBerry� smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!

--- Mods ---BeExceler yang baik hati sekalian, dimohon buanget agar judul kasus mencerminkan kasusnya ya, supaya memudahkan search posting lama. Repot kan kalau semua thread posting judulnya Tolong atau Mohon pencerahan, padahal mau cari tentang Index dan Match misalnya.

Jadi tulung ya... diikhlas-ikhlasken untuk membuat judul thread yang mencerminkan kasusnya.------------ ------------------------------------

----------------------------------------------------------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 milishttp://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

belajar-excel-fullfeatured@yahoogroups.com

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

Re: Mohon pencerahan : Menambah spasi setiap input 1 karakter di tex

Posted by: "Asror Al-Aliif's" asrorcakep@yahoo.com   asrorcakep

Wed Nov 2, 2011 7:58 pm (PDT)



Saya mencoba script dari Mr Kid, hasilnya ok juga, pokoe BeExcel super OK,...

Salam,

Asror




Safety is my responsibility
Sent from Super Asror's BlackBerry� smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!

-----Original Message-----
From: "Kid Mr." <mr.nmkid@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Thu, 3 Nov 2011 09:44:06
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mohon pencerahan : Menambah spasi setiap input 1
karakter di textbox

Kalau gak salah duga (kalau gak salah loh ya -- kalo salah, dicuekin aja
semua tulisan diemail ini--), script :
TextBox1.Value = TextBox1.Value & " "

pada event keypress akan membuat hasil didahului dengan spasi (" ").

Mungkin dengan diberi kondisi cek isi textbox-nya lebih dulu, bisa
dihilangkan spasi paling depannya.
with textbox1
if lenb(.text)<>0 then
.text=.text & " "
endif
end with

Kid.

2011/11/3 jkssxls <jkssxls@hotmail.com>

> **
>
>
> ****
>
> ** **
>
> Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)****
>
> TextBox1.Value = TextBox1.Value & " "****
>
> End Sub****
>
> ** **
>
> Textbox atas adalah TextBox1 dan bawah adalah TextBox2****
>
> ** **
>
> -----Original Message-----
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of Asror Al-Aliif's
> Sent: Thursday, November 03, 2011 9:09 AM
> To: belajar-excel@yahoogroups.com
> Subject: [belajar-excel] Mohon pencerahan : Menambah spasi setiap input 1
> karakter di textbox
>
> ** **
>
> Assalamualaikum,****
>
> ** **
>
> Rekan milis BeExcel, saya memang pendatang baru di dunia VBA, dan masih
> tanya sana sini, saya ingin bertanya, saya mempunyai Textbox, biasanya
> textbox itu ketika ditulis akan seperti nulis biasa di media lain, saya
> ingin membuat textbox itu ketika ditulis karakter, langsung otomatis
> membuat spasi, contohnya, saya menulis "asror" tapi di textbox tersebut
> langsung membuat spasi diantaranya, menjadi "a s r o r".****
>
> ** **
>
> Terimakasih,****
>
> ** **
>
> Asror****
>
> ** **
>
> ** **
>
> Safety is my responsibility****
>
> Sent from Super Asror's BlackBerry� smartphone from Sinyal Bagus XL,
> Nyambung Teruuusss...!****
>
> ** **
>
> ** **
>
> --- Mods ---****
>
> BeExceler yang baik hati sekalian, dimohon buanget agar judul kasus
> mencerminkan kasusnya ya, supaya memudahkan search posting lama. Repot kan
> kalau semua thread posting judulnya Tolong atau Mohon pencerahan, padahal
> mau cari tentang Index dan Match misalnya.****
>
> ** **
>
> Jadi tulung ya... diikhlas-ikhlasken untuk membuat judul thread yang
> mencerminkan kasusnya.****
>
> ------------****
>
> ** **
>
> ------------------------------------****
>
> ** **
>
> ----------------------------------------------------------****
>
> 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****
>
> ----------------------------------------------------------Yahoo!
> Groups Links****
>
> ** **
>
> http://groups.yahoo.com/group/belajar-excel/****
>
> ** **
>
> Individual Email | Traditional****
>
> ** **
>
> http://groups.yahoo.com/group/belajar-excel/join****
>
> (Yahoo! ID required)****
>
> ** **
>
> belajar-excel-digest@yahoogroups.com ****
>
> belajar-excel-fullfeatured@yahoogroups.com****
>
> ** **
>
> belajar-excel-unsubscribe@yahoogroups.com****
>
> ** **
>
> http://docs.yahoo.com/info/terms/****
>
> ** **
>
>
>

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

Re: Cara Lookup Foto

Posted by: "Ari A" ari.xsei@gmail.com

Wed Nov 2, 2011 7:45 pm (PDT)



oke pak

saya coba dulu yah

terima kasih sekali

2011/11/2 jkssxls <jkssxls@hotmail.com>

> **
>
>
> ****
>
> ** **
>
> 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 (3)
9a.

Mendaftar file + hyperlink

Posted by: "hasna" hasna26@gmail.com   trie_32000

Wed Nov 2, 2011 9:09 pm (PDT)



Yth Master Excel,

Bisakah selain mendaftar file dalam sub folder seperti contoh dari Ibu Siti ini juga menyertakan hyperlink untuk membuka file tersebut.
Maaf newbie selalu bisanya bertanya terus. Terima kasih.

hasna
-------------------------
hasna26@gmail.com
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
9b.

Re: Mendaftar file + hyperlink

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

Wed Nov 2, 2011 9:34 pm (PDT)



Berhubung mbak ayu Siti sedang menikmati masa indah bersama keluarganya,
sementara ini coba diubah dikit di
module : ctv_20080420
prosedur : ListFilesNameOfSpecifiedFolder
blok comment : BAGIAN II:
bagian blok loop : (mulai Line 42) tambahkan bagian yang di-*bold*
For Each MyFile In FOL
r = r + 1
With Range("B6")
.Cells(r, 1) = r
' - ambil Name-nya !! Tulis di cell
.Cells(r, 2) = MyFile.Name
*.Parent.Hyperlinks.Add .Cells(r, 2), PathDirNm & "\" & MyFile.Name*
End With
Next

Insya Allah begitu mbak ayu Siti udah mau berbagi kesenangan dengan kita
lagi, akan menjelaskan detil tentang hal ini.

Wassalam.
Kid.

2011/11/3 hasna <hasna26@gmail.com>

> **
>
>
> Yth Master Excel,
>
> Bisakah selain mendaftar file dalam sub folder seperti contoh dari Ibu
> Siti ini juga menyertakan hyperlink untuk membuka file tersebut.
> Maaf newbie selalu bisanya bertanya terus. Terima kasih.
>
> hasna
> -------------------------
> hasna26@gmail.com
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
9c.

Re: Mendaftar file + hyperlink

Posted by: "hasna" hasna26@gmail.com   trie_32000

Thu Nov 3, 2011 12:54 am (PDT)



OK terima kasih Mr. Kid.

------------------
hasna
2011-11-03

----------------------------------------------------------
Kid Mr.
2011-11-03 11:34:16
belajar-excel
º
Re: [belajar-excel] Mendaftar file + hyperlink

Berhubung mbak ayu Siti sedang menikmati masa indah bersama keluarganya,
sementara ini coba diubah dikit di
module : ctv_20080420
prosedur : ListFilesNameOfSpecifiedFolder
blok comment : BAGIAN II:
bagian blok loop : (mulai Line 42) tambahkan bagian yang di-*bold*
For Each MyFile In FOL
r = r + 1
With Range("B6")
.Cells(r, 1) = r
' - ambil Name-nya !! Tulis di cell
.Cells(r, 2) = MyFile.Name
*.Parent.Hyperlinks.Add .Cells(r, 2), PathDirNm & "\" & MyFile.Name*
End With
Next

Insya Allah begitu mbak ayu Siti udah mau berbagi kesenangan dengan kita
lagi, akan menjelaskan detil tentang hal ini.

Wassalam.
Kid.

2011/11/3 hasna <hasna26@gmail.com>

> **
>
>
> Yth Master Excel,
>
> Bisakah selain mendaftar file dalam sub folder seperti contoh dari Ibu
> Siti ini juga menyertakan hyperlink untuk membuka file tersebut.
> Maaf newbie selalu bisanya bertanya terus. Terima kasih.
>
> hasna
> -------------------------
> hasna26@gmail.com
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
9d.

Re: Mendaftar file + hyperlink

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

Thu Nov 3, 2011 1:35 am (PDT)



mantap pak Kid

Pada 3 November 2011 14:11, hasna <hasna26@gmail.com> menulis:

> **
>
>
> OK terima kasih Mr. Kid.
>
> ------------------
> hasna
> 2011-11-03
>
> ----------------------------------------------------------
> Kid Mr.
> 2011-11-03 11:34:16
> belajar-excel
> �
> Re: [belajar-excel] Mendaftar file + hyperlink
>
> Berhubung mbak ayu Siti sedang menikmati masa indah bersama keluarganya,
> sementara ini coba diubah dikit di
> module : ctv_20080420
> prosedur : ListFilesNameOfSpecifiedFolder
> blok comment : BAGIAN II:
> bagian blok loop : (mulai Line 42) tambahkan bagian yang di-*bold*
> For Each MyFile In FOL
> r = r + 1
> With Range("B6")
> .Cells(r, 1) = r
> ' - ambil Name-nya !! Tulis di cell
> .Cells(r, 2) = MyFile.Name
> *.Parent.Hyperlinks.Add .Cells(r, 2), PathDirNm & "\" & MyFile.Name*
> End With
> Next
>
> Insya Allah begitu mbak ayu Siti udah mau berbagi kesenangan dengan kita
> lagi, akan menjelaskan detil tentang hal ini.
>
> Wassalam.
> Kid.
>
> 2011/11/3 hasna <hasna26@gmail.com>
>
> > **
> >
> >
> > Yth Master Excel,
> >
> > Bisakah selain mendaftar file dalam sub folder seperti contoh dari Ibu
> > Siti ini juga menyertakan hyperlink untuk membuka file tersebut.
> > Maaf newbie selalu bisanya bertanya terus. Terima kasih.
> >
> > hasna
> > -------------------------
> > hasna26@gmail.com
> >
> >
> >
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
9e.

Re: Mendaftar file + hyperlink

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

Thu Nov 3, 2011 1:41 am (PDT)



Sebaiknya juga dicoba ketika :
Daftar file dibuat di komputer A kemudian di-copy ke komputer B, dan dicoba
hyperlink-nya.

Siapa tahu tidak ter-update link-nya.

Maksud dari uji coba ini adalah untuk mencoba kebutuhan menyiapkan file
report yang berisi link-link untuk mengakses tabel-tabel data pendukungnya.
Jadi, file report yang disebar ke seluruh stack holder bisa berupa data
akhir yang bersifat presentasi, tetapi untuk memenuhi keingintahuan
stackholder akan beberapa hal yang menggelitik analisanya, kadang kala
disediakan link untuk bisa mengakses beberapa tabel output (data akhir
juga) yang tetap tersimpan dikomputer server, yang bersifat read only.

Semoga ada kelanjutan diskusi tentang penggunaan fitur hyperlinks hingga
dapat digunakan lebih luas lagi.

Wassalam.
Kid.

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

> **
>
>
> mantap pak Kid
>
> Pada 3 November 2011 14:11, hasna <hasna26@gmail.com> menulis:
>
> **
>>
>>
>> OK terima kasih Mr. Kid.
>>
>> ------------------
>> hasna
>> 2011-11-03
>>
>> ----------------------------------------------------------
>> Kid Mr.
>> 2011-11-03 11:34:16
>> belajar-excel
>> �
>> Re: [belajar-excel] Mendaftar file + hyperlink
>>
>> Berhubung mbak ayu Siti sedang menikmati masa indah bersama keluarganya,
>> sementara ini coba diubah dikit di
>> module : ctv_20080420
>> prosedur : ListFilesNameOfSpecifiedFolder
>> blok comment : BAGIAN II:
>> bagian blok loop : (mulai Line 42) tambahkan bagian yang di-*bold*
>> For Each MyFile In FOL
>> r = r + 1
>> With Range("B6")
>> .Cells(r, 1) = r
>> ' - ambil Name-nya !! Tulis di cell
>> .Cells(r, 2) = MyFile.Name
>> *.Parent.Hyperlinks.Add .Cells(r, 2), PathDirNm & "\" & MyFile.Name*
>> End With
>> Next
>>
>> Insya Allah begitu mbak ayu Siti udah mau berbagi kesenangan dengan kita
>> lagi, akan menjelaskan detil tentang hal ini.
>>
>> Wassalam.
>> Kid.
>>
>> 2011/11/3 hasna <hasna26@gmail.com>
>>
>> > **
>> >
>> >
>> > Yth Master Excel,
>> >
>> > Bisakah selain mendaftar file dalam sub folder seperti contoh dari Ibu
>> > Siti ini juga menyertakan hyperlink untuk membuka file tersebut.
>> > Maaf newbie selalu bisanya bertanya terus. Terima kasih.
>> >
>> > hasna
>> > -------------------------
>> > hasna26@gmail.com
>> >
>> >
>> >
>>
>>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
Recent Activity
Visit Your Group
Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Yahoo! Groups

Small Business Group

Improve your business

by community exchange

Yahoo! Groups

Parenting Zone

Community resources

for parents

Need to Reply?

Click one of the "Reply" links to respond to a specific message in the Daily Digest.

Create New Topic | Visit Your Group on the Web
---------------------------------------------------------------------
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.

Diposting oleh EXCEL FEED LEARNING di 07.25

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)