Selasa, 14 Juni 2011

]] XL-mania [[ Digest Number 2181

Messages In This Digest (25 Messages)

1a.
Re: Mencari angka yg hilang dr sederetan angka yg urut. From: STDEV(i)
1b.
Re: Mencari angka yg hilang dr sederetan angka yg urut. From: Franciscus SOG
1c.
Re: Mencari angka yg hilang dr sederetan angka yg urut. From: Mr. Kid
2a.
Re: mereferensi cell tanpa mengubah format text asal. From: STDEV(i)
2b.
Re: mereferensi cell tanpa mengubah format text asal. From: Franciscus SOG
3a.
Re: mencari golongan dan potongan berdasar golongan From: Franciscus SOG
3b.
Re: mencari golongan dan potongan berdasar golongan From: Mr. Kid
4a.
Re: Jika ada kolom warna merah, otomatis ada tambahan nilai From: Franciscus SOG
5a.
Mencari Nilai Tekecil dan Terbesar From: Bhul
5b.
Re: Mencari Nilai Tekecil dan Terbesar From: STDEV(i)
5c.
Re: Mencari Nilai Tekecil dan Terbesar From: Franciscus SOG
5d.
Re: Mencari Nilai Tekecil dan Terbesar From: Bhul
5e.
Re: Mencari Nilai Tekecil dan Terbesar From: STDEV(i)
6a.
Re: menandai record (sel) dengan sekali klik From: Franciscus SOG
6b.
Re: menandai record (sel) dengan sekali klik From: STDEV(i)
7a.
Re: mensortir dan memfilter kondisi From: STDEV(i)
8.
Formula Logic Stock Ratio From: Edis
9a.
Workday From: edu.cxpr@yahoo.com
9b.
Re: Workday From: Hengky Koko
10a.
Re: Menampilkan Pesan Berulang tahun dgn Macro From: STDEV(i)
11.
Penjumlahan dengan Vlookup From: Budiyanto
12.1.
Mentok keJeduk Tembok.. From: LISTIYANI SE
13a.
memotong kata dalam kalimat From: Pietroli Foe
13b.
Re: memotong kata dalam kalimat From: STDEV(i)
14.
Kedatangan Supllier Pada Satu Cell From: Cecep Taufik

Messages

1a.

Re: Mencari angka yg hilang dr sederetan angka yg urut.

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

Mon Jun 13, 2011 6:10 am (PDT)



*bayangkan* data ada di kolom B mulai dari B2 sampai B98
(karena *tidak ada sheetnya *kita cukup bayangkan saja)

tulis di C2, formula biasa
=IF(AND(B3-B2<>1,B3<>""),B2+1,"")
Doubleclick Fill-Handle yg ada di cell C2 tsb

tulis D2 formula tidak biasa
( array formula yg ditulis sekaligus pada beberapa cell sekolom )
=IF(ISERR(SMALL(C2:C98,ROW(1:97))),"",SMALL(C2:C98,ROW(1:97)))

kasus ini pernah muncul dimilis
lihat juga : http://www.box.net/shared/a1yhno3jb2

On Fri, Jun 10, 2011 at 9:02 PM, Syabansyah <syachfamily@yahoo.co.id> wrote:

> Mohon bantuan nya Mas2, gmn caranya kita mencari angka yg tdk ada dari
> sederetan angka yg urut? Misal : Nilai 1 - 100 tetapi berjumlah 99 atau 98.
> Dapatkah ditampilkan dgn bantuan rumus angka apakah yg tdk ada tsb? Trims
> berat nih bagi yg mo bantu....
>
>
1b.

Re: Mencari angka yg hilang dr sederetan angka yg urut.

Posted by: "Franciscus SOG" jclugbu@gmail.com   elijah_spirit

Mon Jun 13, 2011 6:15 am (PDT)



Dear Syabansyah,

Bisa.. dengan bantuan cells helper di A1.

=SMALL(IF($A$2:$A$99-$A$1:$A$98>1;$A$2:$A$99-1);ROW(1:1))

Perhatikan kondisi cell yang menjadi pengurang. Rumus adalah array formula.
Akhiri dengan menekan tombol Ctrl+Shift+Enter bersamaan.

Blessings,

Fran'z

On 6/10/11, Syabansyah <syachfamily@yahoo.co.id> wrote:
> Mohon bantuan nya Mas2, gmn caranya kita mencari angka yg tdk ada dari
> sederetan angka yg urut? Misal : Nilai 1 - 100 tetapi berjumlah 99 atau 98.
> Dapatkah ditampilkan dgn bantuan rumus angka apakah yg tdk ada tsb? Trims
> berat nih bagi yg mo bantu....
>
>
1c.

Re: Mencari angka yg hilang dr sederetan angka yg urut.

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

Mon Jun 13, 2011 6:17 am (PDT)



Pak Syabansyah Yth,

Misalkan saja range data yang berisi 99 atau 98 angka tersebut diberi nama
myData, dan nilai pada interval 1 sampai 100.
Cell pertama hasil yang berupa angka-angka* yang belum ada* pada myData
dapat disusun menggunakan array formula :
=Small( IF( CountIF( myData , Row( $1:$100 ) ) = 0 , Row( $1:$100 ) ) , Row(
1:1 ) )

Usai menuliskan formula diatas, akhiri dengan menekan Ctrl Shift Enter
menggantikan penekanan tombol Enter pada umumnya.
Formula akan menjadi terlingkupi oleh kurung kurawal. Inilah yang disebut
array formula.

Copy cell pertama hasil itu ke cell bawahnya (yang sekolom setelahnya)
sampai bertemu error value. Error value akan muncul ketika sudah tidak
ditemukan lagi nilai yang harus ditampilkan (semua sudah ditampilkan).

Salam.
Kid.

2011/6/10 Syabansyah <syachfamily@yahoo.co.id>

>
>
> Mohon bantuan nya Mas2, gmn caranya kita mencari angka yg tdk ada dari
> sederetan angka yg urut? Misal : Nilai 1 - 100 tetapi berjumlah 99 atau 98.
> Dapatkah ditampilkan dgn bantuan rumus angka apakah yg tdk ada tsb? Trims
> berat nih bagi yg mo bantu....
>
>
>
>
2a.

Re: mereferensi cell tanpa mengubah format text asal.

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

Mon Jun 13, 2011 6:10 am (PDT)



ketika melihat kasus ini ada tangapan, saya sudah* mencicil gembira*
"duluan"..

*(gembira kok dicicil ?, ya soalnya kalau nanti terlalu gembira kan
salah-salah bisa jantungan*
*makanya dicicil dulu agar pada saatnya tidak terlalu heboh.. gitu
lochch...)*
Sangat ingin tahu: benarkah sebuah formula dapat mengimpor Cell Formatting
dari cell yg dirujuk ??

Teoritis ndak bisa, sebab formula hanya bisa mengembalikan 'DATA' bukan
'Efek sebuah Tindakan'.
Cell berisi formula memanng bisa diformat (dengan tindakan bukan dengan
formula), tetapi itupun
format secara keseluruhan cell (semua isi dlm cell diformat dengan format yg
sama),
bukan seperti request dari pak Hidayat: *Format per individual karakter.*

Setelah membuka jawaban dari pak poltak, kecewalah hatiku... soalnya disitu
ternyata berisi
anjuran* mengcopy format cell* dari cell yg dirujuk --ke-- cell perujuk,
secara manyual...
untuk format cell secara keseluruhan (bukan format per individual karakter).

Dan....
shortcut Alt + E, S, H di excel-2003-ku tidak ada, yg ada *ALt *+ *E*(*E*dit)
*S*(Paste*S*pecial) *T*(Forma*t*).

CMIIW..

2011/6/11 poltak marasi <pmloebis@yahoo.com>
>
> Bro,
> coba lakukan step berikut:
*> 1. copy cell a1
> 2. pilih cell a5
> 3. Tekan tombol (berturut-turut) Alt, E, S, H
> 4. Tekan enter atau klik 'OK'*
> smg membantu,
> Rgds, pml
>
> ________________________________
> From: Hidayat <jhidayat@rocketmail.com>
> Sent: Thu, June 9, 2011 2:19:49 PM
>
> Hai teman, lagi bingung nih, gimana cara* mereferensi cell lain tanpa
merubah format text asal.*
> misal, cell a1 tertulis: " Hari Rabu ",
> dimna format tulisan "Rabu" adalah tebal/bold, sedang "Hari" tidak tebal.
> kemudian di cell a5, *kita ketik =a1,
> maka akan tampil Hari Rabu, tapi kata "Rabu" tidak bisa tebal*..
*> supaya bisa tebal gimana teman2 ?*
> trima kasih..
2b.

Re: mereferensi cell tanpa mengubah format text asal.

Posted by: "Franciscus SOG" jclugbu@gmail.com   elijah_spirit

Mon Jun 13, 2011 6:14 am (PDT)



Dear hidayat,

Berikut step-nya :
1. Copy cells A1.
2. Select cells A5.
3. Klik kanan » Paste Special » Formats

Blessings,

Fran'z

On 6/9/11, Hidayat <jhidayat@rocketmail.com> wrote:
> Hai teman, lagi bingung nih, gimana cara mereferensi cell lain tanpa merubah
> format text asal.
> misal, cell a1 tertulis: " Hari Rabu ",
> dimna format tulisan "Rabu" adalah tebal/bold, sedang "Hari" tidak tebal.
> kemudian di cell a5, kita ketik =a1,
> maka akan tampil Hari Rabu, tapi kata "Rabu" tidak bisa tebal..
> supaya bisa tebal gimana teman2 ?
> trima kasih..
>
>

3a.

Re: mencari golongan dan potongan berdasar golongan

Posted by: "Franciscus SOG" jclugbu@gmail.com   elijah_spirit

Mon Jun 13, 2011 6:12 am (PDT)



Dear Gde,

Semoga membantu.

Gol : =VLOOKUP(B9;Sheet1!$E:$H;4;0)
Pajak : =IF(LEFT(D9;FIND("/";D9)-1)="III";H9*5%;H9*15%)

Blessings,

Fran'z

On 6/10/11, De Andi <de.and22@yahoo.co.id> wrote:
>
>
>
>
>
> Kepada
> Yth para master xl-mania
> di
> tempat.
>
> saya mau tanya gimana ya caranya/rumusnya jika mau mengetik nama dosen
> langsung nanti kliatan golongannya/jabatannya.
>
> umpama :
> saya punya daftar dosen langsung dengan golongannya di sheet1, dan di sheet2
> saya mau membuat daftar honor yang berkaitan dengan golongan dosen dan jika
> kita mengetik honor dosen di cell B3 dan di cell D3 langsung golonganya
> mengikuti. dan jika golongannya gol III maka potongannya 5% dan jika
> golongannya gol IV maka potongannya 15%
>
>
>
>
> terima kasih
>
>
> Gde Andi
3b.

Re: mencari golongan dan potongan berdasar golongan

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

Mon Jun 13, 2011 6:17 am (PDT)



Hai Gde Andi,

Untuk mendapatkan Golongan dari tabel referensi Pegawai, gunakan
fungsi-fungsi kategori lookup. Pada file terlampir menggunakan Index( Match
).
Nilai lookup harus sama penulisannya dengan range lookup di tabel referensi
daftar pegawai. Penggunaan NIP lebih baik dibanding Nama, karena NIP
bersifat unique dan struktur data serta cara penulisannya relatif tetap.
Berikut formula Index( Match ) yang digunakan untuk mendapatkan data
Golongan.
=INDEX(Sheet1!$H$4:$H$13,MATCH(B9,Sheet1!$E$4:$E$13,0))

Kalkulasi potongan berdasar golongan, bisa dilihat dari pola 3 karakter
awal. Untuk golongan 3, pasti 3 karakter awal berisi III dan pada golongan 4
pasti berisi IV/

Dengan begitu, formula kalkulasi potongan dapat berupa :
=H9 * ( *(LEFT(D9,3)="III")*5%* + *(LEFT(D9,3)="IV/")*15%*
)
Bagian *hijau *adalah pemilihan persentase potongan untuk golongan III
Bagian *biru *adalah pemilihan persentase potongan untuk golongan IV
Penggunaan + disebabkan karena hanya mungkin golongan III saja atau golongan
IV saja, atau tidak keduanya. Tidak mungkin terjadi keduanya terpenuhi.
Golongan selain III dan IV, akan menghasilkan bagian *hijau *dan *biru *yang
bernilai 0, sehingga hasil perkalian dengan nilai H9 akan 0.

Regard,
Kid.

2011/6/10 De Andi <de.and22@yahoo.co.id>

>
> Kepada
> Yth para master xl-mania
> di
> tempat.
>
> saya mau tanya gimana ya caranya/rumusnya jika mau mengetik nama dosen
> langsung nanti kliatan golongannya/jabatannya.
>
> umpama :
> saya punya daftar dosen langsung dengan golongannya di sheet1, dan di
> sheet2 saya mau membuat daftar honor yang berkaitan dengan golongan dosen
> dan jika kita mengetik honor dosen di cell B3 dan di cell D3 langsung
> golonganya mengikuti. dan jika golongannya gol III maka potongannya 5% dan
> jika golongannya gol IV maka potongannya 15%
>
>
> terima kasih
>
>
> Gde Andi
>
>
>
>
>
4a.

Re: Jika ada kolom warna merah, otomatis ada tambahan nilai

Posted by: "Franciscus SOG" jclugbu@gmail.com   elijah_spirit

Mon Jun 13, 2011 6:14 am (PDT)



Dear Arif,

Jika tanggal diganti menjadi format date, maka diasumsikan Anda
membuat warna merah karena hari Minggu.

Jawab : Bisa.. ganti angka 5 di cells C2 diganti menjadi 05/06/2011

=SUM(C3:I3)*C28+IF(WEEKDAY($C$2:$I$2;2)=7;C3:I3*20000;0)

Jangan lupa menekan tombol Ctrl+Shift+Enter bersamaan. Rumus diatas
adalah Array Formula.

CMIIW

Blessings,

Fran'z

On 6/11/11, Arif Wijaya <arif.route66@yahoo.com> wrote:
> Dear Pakar excel,
>
> Mohon dibantu nubie banget.
> Bagaimana rumus IF jika ada kolom yang warna merah, dan kolom tersebut
> kemudian diisi angka "1", maka secara otomatis nilai sum pada kolom TOTAL
> nilainya bertambah 20.000. Namun jika ada kolom warna merah, diisi angka
> "0, maka tidak akan menambah jumlah total.
>
> Maksud saya apakah bisa fungsi IF dikaitkan dengan warna cell tertentu.
>
> Data ada pada lampiran.
> Atas bantuannya terima kasih banyak.
>
> Rgds,
> Arif
>
>
> Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung
> Teruuusss...!
5a.

Mencari Nilai Tekecil dan Terbesar

Posted by: "Bhul" andry_bul@yahoo.co.id   andry_bul

Mon Jun 13, 2011 6:15 am (PDT)



Kondisinya begini.

+-------+
| 1 |
| 5 |
| -3 |
| 4 |
| -8 |
| -5 |
| 9 |
+-------+

Bagaimana caranya kita menentukan nilai minimal dalam bilangan yang positif dan menentukan nilai maximal dalam bilangan negatif yang terdapat dalam satu kolom.

Saya ingin mencari pendapatan terkecil dan kerugian terkecil. Karena kalau pakai formula min/max, yang di dapatkan hanya nilai terkecil dan terbesar. Tanpa melihat negatif atau tidaknya bilangan itu.

5b.

Re: Mencari Nilai Tekecil dan Terbesar

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

Mon Jun 13, 2011 8:04 pm (PDT)



Kalau saja sempat browsing ke posting-lawas di milis ini, banyak lho tofik:
*Max / MIN BERSYARAT...*
Tapi memang benar..., siapa pulak yg *sempat* ( mau buka buka catatan lama)
lha wong *tinggal tanya saja =* ada yg jawab.. o'.

*ArrayFormula*

** Mencari nilai *terkecil* Tapi yang POSITIP (dlm range tertentu)
=MIN(IF(A1:A7>=0,A1:A7))

** Mencari nilai *terbesar *Tapi yang NEGATIP (dlm range tertentu)
=MAX(IF(A1:A7<0,A1:A7))

[image: ctv_MAX_Bersyarat (ayo Rat).GIF]

-siti-

2011/6/12 Bhul <andry_bul@yahoo.co.id>

> Kondisinya begini.
>
> * +-------+
> | 1 |
> | 5 |
> | -3 |
> | 4 |
> | -8 |
> | -5 |
> | 9 |
> +-------+*
>
> Bagaimana caranya kita menentukan nilai minimal dalam bilangan yang positif
> dan menentukan nilai maximal dalam bilangan negatif yang terdapat dalam satu
> kolom.
>
> Saya ingin mencari pendapatan terkecil dan kerugian terkecil. Karena kalau
> pakai formula min/max, yang di dapatkan hanya nilai terkecil dan terbesar.
> Tanpa melihat negatif atau tidaknya bilangan itu.
>
>
5c.

Re: Mencari Nilai Tekecil dan Terbesar

Posted by: "Franciscus SOG" jclugbu@gmail.com   elijah_spirit

Tue Jun 14, 2011 1:36 am (PDT)



Dear andry,

Asumsi data berada di A1:A7. Maka rumus max
=MAX(IF($A$1:$A$7>0;$A$1:$A$7)) dan rumus min
=MIN(IF($A$1:$A$7>0;$A$1:$A$7)). Akhiri dengan penekanan tombol
Ctrl+Shift+Enter bersamaan. Ini adalah array formula.

Blessings,

Fran'z

On 6/12/11, Bhul <andry_bul@yahoo.co.id> wrote:
> Kondisinya begini.
>
> +-------+
> | 1 |
> | 5 |
> | -3 |
> | 4 |
> | -8 |
> | -5 |
> | 9 |
> +-------+
>
> Bagaimana caranya kita menentukan nilai minimal dalam bilangan yang positif
> dan menentukan nilai maximal dalam bilangan negatif yang terdapat dalam satu
> kolom.
>
> Saya ingin mencari pendapatan terkecil dan kerugian terkecil. Karena kalau
> pakai formula min/max, yang di dapatkan hanya nilai terkecil dan terbesar.
> Tanpa melihat negatif atau tidaknya bilangan itu.
>
>

5d.

Re: Mencari Nilai Tekecil dan Terbesar

Posted by: "Bhul" andry_bul@yahoo.co.id   andry_bul

Tue Jun 14, 2011 1:46 am (PDT)





Terima kasih sarannya. Saya sudah cari di posting2 lama. Dan juga sudah saya coba. Tetapi tidak bisa. Makanya saya tanya lagi.

Formula anda pun sudah saya coba. tetapi hasilnya sama. yang saya dapatkan angka nol. bukan suatu nilai terkecil(+) dan terbesar (-). Yang saya ganti hanya range data dan tanda "," (koma) dengan tanda ";" (semicolon). Karena formulanya bila dgn "," tidak berfungsi. Apakah kalau valuenya berupa desimal, persen, tanggal, atau currency formulanya sama?

Mohon bantuannya dan terima kasih.

--- In XL-mania@yahoogroups.com, "STDEV(i)" <setiyowati.devi@...> wrote:
>
> Kalau saja sempat browsing ke posting-lawas di milis ini, banyak lho tofik:
> *Max / MIN BERSYARAT...*
> Tapi memang benar..., siapa pulak yg *sempat* ( mau buka buka catatan lama)
> lha wong *tinggal tanya saja =* ada yg jawab.. o'.
>
> *ArrayFormula*
>
> ** Mencari nilai *terkecil* Tapi yang POSITIP (dlm range tertentu)
> =MIN(IF(A1:A7>=0,A1:A7))
>
> ** Mencari nilai *terbesar *Tapi yang NEGATIP (dlm range tertentu)
> =MAX(IF(A1:A7<0,A1:A7))
>
> [image: ctv_MAX_Bersyarat (ayo Rat).GIF]
>
> -siti-
>
>
>
> 2011/6/12 Bhul <andry_bul@...>
>
> > Kondisinya begini.
> >
> > * +-------+
> > | 1 |
> > | 5 |
> > | -3 |
> > | 4 |
> > | -8 |
> > | -5 |
> > | 9 |
> > +-------+*
> >
> > Bagaimana caranya kita menentukan nilai minimal dalam bilangan yang positif
> > dan menentukan nilai maximal dalam bilangan negatif yang terdapat dalam satu
> > kolom.
> >
> > Saya ingin mencari pendapatan terkecil dan kerugian terkecil. Karena kalau
> > pakai formula min/max, yang di dapatkan hanya nilai terkecil dan terbesar.
> > Tanpa melihat negatif atau tidaknya bilangan itu.
> >
> >
>

5e.

Re: Mencari Nilai Tekecil dan Terbesar

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

Tue Jun 14, 2011 4:25 am (PDT)



mungkin anda tidak mengakhiri ARRAY FORMULA tsb dengan Ctrl + SHift + Enter
(array foramul aharus di enter dengan Ctrl + Shift + Enter)

2011/6/14 Bhul <andry_bul@yahoo.co.id>

>
>
> Terima kasih sarannya. Saya sudah cari di posting2 lama. Dan juga sudah
> saya coba. Tetapi tidak bisa. Makanya saya tanya lagi.
>
> Formula anda pun sudah saya coba. tetapi hasilnya sama. yang saya dapatkan
> angka nol. bukan suatu nilai terkecil(+) dan terbesar (-). Yang saya ganti
> hanya range data dan tanda "," (koma) dengan tanda ";" (semicolon). Karena
> formulanya bila dgn "," tidak berfungsi. Apakah kalau valuenya berupa
> desimal, persen, tanggal, atau currency formulanya sama?
>
> Mohon bantuannya dan terima kasih.
>
> --- In XL-mania@yahoogroups.com, "STDEV(i)" <setiyowati.devi@...> wrote:
> >
> > Kalau saja sempat browsing ke posting-lawas di milis ini, banyak lho
> tofik:
> > *Max / MIN BERSYARAT...*
> > Tapi memang benar..., siapa pulak yg *sempat* ( mau buka buka catatan
> lama)
> > lha wong *tinggal tanya saja =* ada yg jawab.. o'.
> >
> > *ArrayFormula*
> >
> > ** Mencari nilai *terkecil* Tapi yang POSITIP (dlm range tertentu)
> > =MIN(IF(A1:A7>=0,A1:A7))
> >
> > ** Mencari nilai *terbesar *Tapi yang NEGATIP (dlm range tertentu)
> > =MAX(IF(A1:A7<0,A1:A7))
> >
> > [image: ctv_MAX_Bersyarat (ayo Rat).GIF]
> >
> > -siti-
> >
> >
> >
> > 2011/6/12 Bhul <andry_bul@...>
> >
> > > Kondisinya begini.
> > >
> > > * +-------+
> > > | 1 |
> > > | 5 |
> > > | -3 |
> > > | 4 |
> > > | -8 |
> > > | -5 |
> > > | 9 |
> > > +-------+*
> > >
> > > Bagaimana caranya kita menentukan nilai minimal dalam bilangan yang
> positif
> > > dan menentukan nilai maximal dalam bilangan negatif yang terdapat dalam
> satu
> > > kolom.
> > >
> > > Saya ingin mencari pendapatan terkecil dan kerugian terkecil. Karena
> kalau
> > > pakai formula min/max, yang di dapatkan hanya nilai terkecil dan
> terbesar.
> > > Tanpa melihat negatif atau tidaknya bilangan itu.
>
6a.

Re: menandai record (sel) dengan sekali klik

Posted by: "Franciscus SOG" jclugbu@gmail.com   elijah_spirit

Mon Jun 13, 2011 6:15 am (PDT)



Dear edy,

Berikut cuplikan vba-nya :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Row > 1 Then
If Target.Count = 1 Then
If Target <> vbNullString Then
Target.Interior.Color = vbYellow
Cells(Target.Row, 5) = Cells(1, 5)
Cells(Target.Row, 6) = Format(Now, "dd/mm/yyyy hh:mm:ss")
End If
Else
Exit Sub
End If
Else
Exit Sub
End If
End Sub

Warna dibuat kuning (vbYellow), dapat diganti dengan warna di E1
dengan mengganti coding
Target.Interior.Color = vbYellow menjadi Target.Interior.Color =
Cells(1, 5).Interior.Color

Untuk warna pink, hanya sebagai pembanding saja dengan data lama.

CMIIW

Blessings,

Fran'z

On 6/10/11, edy bin sumar <ibnusumar1@yahoo.co.id> wrote:
> excelwan-excelwati sekalian...
> kerjaan saya sehari-hari selalu menggunakan excel. Diantaranya adalah
> melakukan konfirmasi data/record.
>
> data saya berupa sebuah tabel database, yang masing-masing record memiliki
> unik number sebagai identitas record, yang ada di kolom A.
> Tugas saya adalah melakukan konfirmasi data (hardcopy) yang dibawa oleh
> pelanggan,
> ada/tidak di database, dengan mencocokkan unik number di harcopy dengan yang
> ada di database/tabel, kemudian menandai record yang pernah dikonfirmasi
> sehingga jika di kemudian hari ada record yang mau dikonfirmasi tapi
> ternyata sebelumnya pernah dikonfirmasi maka akan ketahuan.
> selama ini saya lakukan denga cara manual : saya klik sel berisi unik
> number, trus saya kasih warna (fill color) kuning. Tanda kalo record
> tersebut pernah dikonfirmasi, sehingga tidak boleh ada lagi konfirmasi untuk
> record tersebut.
> cara tersebut pasti tidak efisien, harus 2x klik, plus tidak ketahuan kapan
> dan siapa yang minta konfirmasi.
> dalam sehari, bisa puluhan pelanggan yang minta konfirmasi
> 1 pelanggan bisa membawa 100 data unik untuk dikonfirmasi
> setiap hari bertambah lagi data yang baru, dan data-data tersebut saya
> pisahkan menjadi worksheet-worksheet yang berbeda ssesuai tanggal
> -----------------------
> dapatkan dibuat cara yang lebih efisien (dengan macro):
> dengan 1x klik di sebuah cell saya bisa menandai sebuah record/baris data
> misalnya :
> data ada di kolom ABCD.
> saya tulis nama pelanggan di E1
> kalo saya klik sebuah sel di kolom A (yang berisi unik number), maka sebuah
> sel di kolom A tersebut otomatis warnanya jadi kuning, trus di kolom E baris
> yang sama otomatis tercopy value yang saya tulis di E1 (nama pelanggan yg
> saat itu saya layani), trus di kolom F baris yang sama otomatis terisi
> tanggal dan jam ketika saya ngeklik sel di kolom A tadi.
> Kalo ada pelanggan lain yang datang, saya ubah nama di E1, dst
> -...
>
> file ilustrasi terlampir
>
> terima kasih atas jawawbannya....
>
>
6b.

Re: menandai record (sel) dengan sekali klik

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

Mon Jun 13, 2011 6:16 am (PDT)



XL-maniawan / XL-maniawati ytc..

Otomatisnya serangkaian action (menulis nama, tgl_jam, mewarnai cell)
diperoleh
dengan memanfaatkan *Event worksheet_selection_change, *yaitu Event yg
terjadi
manakala kita memindahkan seleksi ke object lain. (termasuk pindah pilihan
ke cell lain).
Kala itu, Cell /Range yg baru diselect itu dapat disebut sebagai Target.

Makro ditulis di module worksheet di mana otomatisasi diinginkan / sheet2
(0609)
(bisa juga di level workbook, EVENT : Workbook_SheetSelectionChange.

Private Sub *Worksheet_SelectionChange*(ByVal Target As Range)
' coded by siti Vi / 12 jun 2011
' group/XL-mania/message/18573
'---------------------------------
If Target.Count = 1 Then
If Target.Column = 1 Then
If Target.Row > 1 then
If Not Target.Value = vbNullString Then
If Not Cells(1, 5).Value = vbNullString Then
Target.Interior.ColorIndex = 6
Target(1, 5) = Cells(1, 5)
Target(1, 6) = Now
Target(1, 6).NumberFormat = "dd-mmm-yyyy hh:mm"
End If
End If
End if
End If
End If
End Sub

2011/6/10 edy bin sumar <ibnusumar1@yahoo.co.id>

>
> excelwan-excelwati sekalian...
> kerjaan saya sehari-hari selalu menggunakan excel. Diantaranya adalah
> melakukan konfirmasi data/record.
>
> data saya berupa sebuah tabel database, yang masing-masing record memiliki
> unik number sebagai identitas record, yang ada di kolom A.
> Tugas saya adalah melakukan konfirmasi data (hardcopy) yang dibawa oleh
> pelanggan,
> ada/tidak di database, dengan mencocokkan unik number di harcopy dengan
> yang ada di database/tabel, kemudian menandai record yang pernah
> dikonfirmasi sehingga jika di kemudian hari ada record yang mau dikonfirmasi
> tapi ternyata sebelumnya pernah dikonfirmasi maka akan ketahuan.
> selama ini saya lakukan denga cara manual : saya klik sel berisi unik
> number, trus saya kasih warna (fill color) kuning. Tanda kalo record
> tersebut pernah dikonfirmasi, sehingga tidak boleh ada lagi konfirmasi untuk
> record tersebut.
> cara tersebut pasti tidak efisien, harus 2x klik, plus tidak ketahuan kapan
> dan siapa yang minta konfirmasi.
> dalam sehari, bisa puluhan pelanggan yang minta konfirmasi
> 1 pelanggan bisa membawa 100 data unik untuk dikonfirmasi
> setiap hari bertambah lagi data yang baru, dan data-data tersebut saya
> pisahkan menjadi worksheet-worksheet yang berbeda ssesuai tanggal
> -----------------------
> dapatkan dibuat cara yang lebih efisien (dengan macro):
> dengan 1x klik di sebuah cell saya bisa menandai sebuah record/baris data
> misalnya :
> data ada di kolom ABCD.
> saya tulis nama pelanggan di E1
> kalo saya klik sebuah sel di kolom A (yang berisi unik number), maka sebuah
> sel di kolom A tersebut otomatis warnanya jadi kuning, trus di kolom E baris
> yang sama otomatis tercopy value yang saya tulis di E1 (nama pelanggan yg
> saat itu saya layani), trus di kolom F baris yang sama otomatis terisi
> tanggal dan jam ketika saya ngeklik sel di kolom A tadi.
> Kalo ada pelanggan lain yang datang, saya ubah nama di E1, dst
> -...
>
> file ilustrasi terlampir
>
> terima kasih atas jawawbannya....
>
7a.

Re: mensortir dan memfilter kondisi

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

Mon Jun 13, 2011 6:17 am (PDT)



Gunakan Fitur : Data Subtotal
Otomatis, tidak ribet

[image: data subtotal.GIF]

2011/6/12 anyestuti anong <anongaci@yahoo.com>

> dear xl mania,
> malu bertanya kerja manual
> sambil menunggu buku mas abimono di release lagi
> saya mohon bntuan untuk kasus saya
> saya ingin memfilter data dan langsung mensortir
>
> detail info in file attach
>
> salam xl mania
> anong
>
>
> ------------------------------------
>
> +-:: XL-mania ::::::::::::::::::::----------------------------------+
> | maaf baru moderate sekarang... momods kurang tidur berhari-hari |
> | jadi budak kantoooOOooorrr... |
> | http://www.facebook.com/group.php?gid=37671048001&ref=mf |
> +----------------------------------------------------------+
> | DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
> | pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
> +----------------------------------------------------------+
> | Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
> | Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
> +----------------------------------------------------------+
> | Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
> | XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
> | http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
> +----------------------------------------------------------+
> | Berikan testimoni di : http://www.friendster.com/xlmania atau... |
> | http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
> +----------------------------------------------------------+
> | Message lama ada di : |
> | http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
> | http://www.mail-archive.com/xl-mania@yahoogroups.com |
> +----------------------------------------------------------+Yahoo!
> Groups Links
>
>
>
>
8.

Formula Logic Stock Ratio

Posted by: "Edis" side_gedol@yahoo.com   side_gedol

Mon Jun 13, 2011 6:18 am (PDT)



Assalamualaikum,
salam sejahtera.

Dear para pakar excel.
Saya mempunyai problem perhitungan stock ratio. Mohon bantuannya untuk memecahkan problem tersebut.
Terlampir sample data yang dimaksud.

Terima kasih.

___________________Edis
9a.

Workday

Posted by: "edu.cxpr@yahoo.com" edu.cxpr@yahoo.com   edu.cxpr

Tue Jun 14, 2011 1:33 am (PDT)



Dear XL mania.

Mohon informasi untuk penggunaan rumus workday dengan memperhitungkan hari Sabtu sebagai hari kerja namun tetap memperhitungan hari minggu dan hari libur sebagai libur.
Contoh :
3 Juni 2011 + 1 hari = 4 Juni 2011
Karena dgn fungsi workday hasil 6 Juni 2011.
3 Juni 2011 + 2 hari = 6 Juni 2011.
Karena dgn fungsi workday hasil 7 Juni 2011.
Terima kasih atas perhatiannya.

Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT
9b.

Re: Workday

Posted by: "Hengky Koko" BlueHG@gmail.com

Tue Jun 14, 2011 4:27 am (PDT)



gunakan workday.intl ( tanggalMulai, penambah, 11 )
11 itu kode untuk define weekend itu Sunday Only

Regards,

[H]en[G]ky
==============================================
Be Cool, Be Calm, Be Confident..
'Coz We Are The Champion..!!
http://hengkykoko.wordpress.com/
http://mallicipicip.blogspot.com/

2011/6/14 <edu.cxpr@yahoo.com>

> Dear XL mania.
>
> Mohon informasi untuk penggunaan rumus workday dengan memperhitungkan hari
> Sabtu sebagai hari kerja namun tetap memperhitungan hari minggu dan hari
> libur sebagai libur.
> Contoh :
> 3 Juni 2011 + 1 hari = 4 Juni 2011
> Karena dgn fungsi workday hasil 6 Juni 2011.
> 3 Juni 2011 + 2 hari = 6 Juni 2011.
> Karena dgn fungsi workday hasil 7 Juni 2011.
> Terima kasih atas perhatiannya.
>
> Sent from my BlackBerry®
> powered by Sinyal Kuat INDOSAT
>
> ------------------------------------
>
> +-:: XL-mania ::::::::::::::::::::----------------------------------+
> | maaf baru moderate sekarang... momods kurang tidur berhari-hari |
> | jadi budak kantoooOOooorrr... |
> | http://www.facebook.com/group.php?gid=37671048001&ref=mf |
> +----------------------------------------------------------+
> | DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
> | pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
> +----------------------------------------------------------+
> | Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
> | Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
> +----------------------------------------------------------+
> | Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
> | XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
> | http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
> +----------------------------------------------------------+
> | Berikan testimoni di : http://www.friendster.com/xlmania atau... |
> | http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
> +----------------------------------------------------------+
> | Message lama ada di : |
> | http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
> | http://www.mail-archive.com/xl-mania@yahoogroups.com |
> +----------------------------------------------------------+Yahoo!
> Groups Links
>
>
>
>
10a.

Re: Menampilkan Pesan Berulang tahun dgn Macro

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

Tue Jun 14, 2011 1:36 am (PDT)



untuk menampilkan pesan dengan kotak pesan (message box)
anda harus menentukan kriteria / syaratnya / atau kata kerennya : Event-nya
** *KAPAN pesan ingin di tampilkan*
(atau: pada saat TERJADI PERISTIWA APA ? pesan harus ditampilkan)
misalnya :
- pada saat Workbook dibuka
- pada saat sebuah tombol khusus di-ceklik,
- ketika cell berisi data (nama orang) di-jadikan cell aktif (alias diceklik
atau di highlighted) , dst, dsb
atau
- pada jam 08:30 pagi dan juga jam 12:30 siang
(syarat ini menghendaki workbook sudah terbuka sebelum jam tsb)

so,..
syaratnya harus ada dulu, nanti baru "kami" bisa bantu-bantu menuliskan VBA
code - nya.
"kalau kagak", biasanya orang sudah bekerja-bakti tapi hanya mendapat
komplain
"bukan seperitu yg aku maui... dst"

Jika anda ingin koktakpesan ditampilkan setiap saat /terus menerus (selama
workbook dibuka)
maka pesan tidak harus di tulis dlm MsgBox, cukup di cell saja, bahkan tidak
perlu makroh
karena cukup dengan rumus ecek-ecek* "IF-IF-an"* saja.

di milis ini pernah ada orang kurang kerjaan kirim workbook berisi daftar
HUT sekelompok manusia,
(daftarnya bisa dibuat acak tidak urut tgl HUT)
workbook diberi *rekayasa rumus *sehingga orang yg ber HUT hari ini &/atau
dlm 10 hari kedepan
selalu ditampilkan di papan atas dlm* sheet output *nya.
di sebelah kanan daftar diberi MESSAGE = misal: ber HUT hari ini; akan HUT
3 hari lagi; dst...
file lampiran <http://www.box.net/shared/iudthfbfe4fm7pmhbnt1> kalo ndak
salah (dan kalau sempat serta berkenan) masih bisa diunduh di sini:
http://www.box.net/shared/iudthfbfe4fm7pmhbnt1

*#urut*

*nama*

*ket*

*Hari Ulang Tahun*

* *

*1*

*Suhaemi Nastiti*

*2 hari lagi ber HUT*

*Juni 16*

* *

*2*

*Harianingdyah*

*3 hari lagi ber HUT*

*Juni 17*

* *

*3*

*Adif Safii*

*3 hari lagi ber HUT*

*Juni 17*

* *

*4*

*Hartini Wahyuroni*

*6 hari lagi ber HUT*

*Juni 20*

* *

*5*

*Meilany Mandraputri*

*7 hari lagi ber HUT*

*Juni 21*

* *

*6*

*Sudarman*

*9 hari lagi ber HUT*

*Juni 23*

* *

*7*

*M. Khalifah Aziz*

*12 hari lagi ber HUT*

*Juni 26*

* *

*8*

*Sugeng Saryadin*

*14 hari lagi ber HUT*

*Juni 28*

* *

*9*

*Nur Rinilda*

*14 hari lagi ber HUT*

*Juni 28*

* *

*10*

*Yunisia Tri Putri Ratri*

*16 hari lagi ber HUT*

*Juni 30*

* *

*11*

*Mashudi*

*18 hari lagi ber HUT*

*Juli 02*

* *

*12*

*Gema Karisma*

*18 hari lagi ber HUT*

*Juli 02*

2011/6/10 arafir syah <arafirsyah@hotmail.com>

>
> dear Master & Pakar Excel,
> Mohon maaf Subjeknya kelupaan kemren
> Langsung saja, Untuk menampilkan pesan peringatan yang berulang tahun
> dengan menggunakan macro
> File terlampir
> thank,
> Arafirsyah
>
11.

Penjumlahan dengan Vlookup

Posted by: "Budiyanto" byt.yanto@yahoo.co.id   byt.yanto

Tue Jun 14, 2011 1:45 am (PDT)




Dear XL Mania,

Mohon bantuanya untuk memecahakan kasus yang saya alami yaitu rumus
penjumlahan dengan vlookup SBB :

Sebelumnya saya ucapkan terima kasih.

Budi

12.1.

Mentok keJeduk Tembok..

Posted by: "LISTIYANI SE" listiyani_se@yahoo.com   listiyani_se

Tue Jun 14, 2011 1:46 am (PDT)



Salam...

buat pakar excell, mohon pencerahannya karena saya sudah mentok kejeduk tembok
lagi.
saya punya 2 sheet :

1. dbase : isinya nama barang, nama customer dan harga masing2 barang untuk
masing2 item
2. transaksi : ini yg bikin mumet, biasanya dikali manual tp karena tambah hari
tambah banyak transaksi jadinya jari2 saya keriting

matur nuhun

bunda listi
13a.

memotong kata dalam kalimat

Posted by: "Pietroli Foe" pietrolifoe@yahoo.com   pietrolifoe

Tue Jun 14, 2011 1:47 am (PDT)



Yth : Para Suhu Excel
 
Mohon pencerahan bagaimana jurusnya jika ingin memotong beberapa kata dalam satu kalimat sekaligus menghilangkan kelebihan spasi yang ada.
Contoh terlampir
 
terima kasih
 
Salam
Piet
13b.

Re: memotong kata dalam kalimat

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

Tue Jun 14, 2011 4:29 am (PDT)



daripada pusing mikirin formula kepanjangan;
alternatif lain: pakai fungsi buatan dalam negeri

=LeftKata(A3,B3)

tinggal menularkan ke cells dibawahnya

' coding UDF nya, kira kira spt ini

Function LeftKata(Kalimat As String, N As Integer)
'siti Vi // Junn 14, 2011 / XL-mania case
Dim ArrK, i As Integer
Kalimat = WorksheetFunction.Trim(Replace(Kalimat, " ", " "))
ArrK = Split(Kalimat, " ")
If N > UBound(ArrK) + 1 Then N = UBound(ArrK) + 1
For i = 1 To N
LeftKata = LeftKata & " " & ArrK(i - 1)
Next
End Function

2011/6/14 Pietroli Foe <pietrolifoe@yahoo.com>

>
> Mohon pencerahan bagaimana jurusnya jika ingin memotong beberapa kata
> dalam satu kalimat
>
sekaligus menghilangkan kelebihan spasi yang ada.
> Contoh terlampir
> terima kasih
> Salam
> Piet
>
14.

Kedatangan Supllier Pada Satu Cell

Posted by: "Cecep Taufik" w_518_er@yahoo.co.id   w_518_er

Tue Jun 14, 2011 4:28 am (PDT)



Dear Para Pakar Excel Sejati,

Saya ada pekerjaan untuk input data kedatangan Supplier dalam sehari.
Bisakah format ini memakai Formula pada Excel.

Malu Bertanya Kerja Manual.
 
Best Regards,

Cecep Taufik A.
Dept. Procurement
PT Indonesia Nippon Seiki
Recent Activity
Visit Your Group
Yahoo! Groups

Do More For Cats Group

Connect and share with

cat owners like you

Yahoo! Groups

Small Business Group

Ask questions,

share experiences

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

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
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| maaf baru moderate sekarang... momods kurang tidur berhari-hari   |
| jadi budak kantoooOOooorrr...                                     |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Tidak ada komentar:

Posting Komentar