Hot Fox: 2009

quinta-feira, 31 de dezembro de 2009

Re: ]] XL-mania [[ Bagaimana mengotomatisasi input data Produksi & Defect

Di sheet 'input' digambarkan ada 4 bijik tombol.

tombol 1 dan 2 saya belum tahu maksudnya, harus mengotomatiskan apa;

values dari cell MANA mau di-input ke cell MANA.. ? Penjelasaannya

kurang jelas dikitt.. / terlalu global..

Kalau Tombol 3, saya tahu, sepertinya harus mengisikan B19:J19 ke tabel

pada sheet defect.

Jika pengisiannya hanya SEKALI saja, tidak ada masalah, karena kita dapat

menuliskan di cell A2 (pada sheet defect) rumus sederhana =input!B19

lalu menyalinnya ke C19:J19

Tetapi dituliskan DI MANA ? itulah yg menjadi masalah; karena walaupun

tabelnya sudah tertentu tetapi cell /baris tujuan tidak berupa cell tetap.

Cell /Baris Tujuan selalu baris kosong baru, maksodnya: setiap tabel diisi, pengisian

berikutnya harus di baris di bawahnya.

Memang FORMULA, katanya, dapat dibuat untuk bisa MENGHADIRKAN value dari

cell yg tidak tetap tempatnya; tetapi FORMULA tidak dapat mencari sendiri

tempat di mana dia harus dituliskan.

Pekerjaan mencari tempat untuk menuliskan rumus /data, hanya dapat dilakukan

oleh orang / TINDAKAN DARI USER. Sedangkan Tindakan tidak dapat dibuat

RUMUS atau FORMUA nya.

Agar tindakan itu 'kelihatannya' otomatis, maka tindakan itu dapat di-codekan.

Di lain waktu code itu dapat di-SURUH jalan / RUN, menjalankan tindakan yg

tertulis dalam code-code tsb.

Cara menuliskan code-cede ada 'aturannya'. Aturan itu, untuk excel modern,

katanya, disebut bahasa VBA (visual basic for apa... 'gitu..)

Sekelompok tindakan yg permulaan dan berakhirnya telah jelas, ditulis dalam

sekelompok code. Ada yg bilang, ini disebut prosedur.

Di excel, prosedur ini sering disebut 'makro'.

Mungkin, mungkin lho ya... kalau di aplikasi lain bisa disebut 'carefour', atau

mungkin pula : 'giant'

Di bawah ini ada text salinan dua buah prosedur.

Sub Enter3 akan JALAN kalau tombol 3 di-ceklik, sedangkan sub Reset3 akan

jalan kalau tombol 4 di-ceklik.

(wah.. sulit ya.. menceritakan tombol; kalau dlm satu area ada BANYAK tombol diberi nama sama )

'--------------

Sub Enter3()
   ' meng-entry data defect ke tabel defect
   Dim newRow As Range
   Set newRow = Sheets("defect").Cells(1).CurrentRegion
   Set newRow = newRow(newRow.Rows.Count + 1, 1)
   Range("DefectDetails").Copy
   newRow.PasteSpecial xlPasteValuesAndNumberFormats
   Application.CutCopyMode = False
End Sub

Sub Reset3()
' menghapus data di box defects
Range("DefectDetails").Offset(0, 1).ClearContents
End Sub
'-------------

Selamat tahun baru, semoga segalanya menjadi lebih baek...

bluewater, 31dec2009 /01jan2010

~ctv~

----- Original Message -----
From: Myeko
To: xl-mania@yahoogroups.com
Sent: Thursday, December 31, 2009 1:56 PM
Subject: ]] XL-mania [[ Bagaimana mengotomatisasi input data Produksi & Defect

Selamat siang menjelang Tahun Baru 2010
saya sedang coba untuk mengotomatisasikan proses pengisian input data produksi dan jumlah defect.
yang saya harapkan adalah untuk Proses pengisian hanya dilakukan di 1 sheet input

dan hasilnya secara otomatis update ke sheet yang lain.

Kepada semua pakar excel mohon pencerahanya dan mohon bantuannya?
demikian saya sampaikan terimakasih atas perhatiannya.
eko bp

__._,_.___

Reply to sender | Reply to group

Messages in this topic (2)

Recent Activity:

New Members 75

Visit Your Group Start a New Topic

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Hoo... Hoo... Hoo... Merry Christmas! Happy Holiday!              |
| 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              |
+-------------------------------------------------------------------+

MARKETPLACE

Going Green: Your Yahoo! Groups resource for green living

Mom Power: Discover the community of moms doing more for their families, for the world and for each other

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

__,_._,___

Re: ]] XL-mania [[ fungsi LEN, SUBSTITUTE, SUMPRODUCT, SUM,...

1> =SUBSTITUTE( L14,{0,1, 2,3,4,5,6, 7,8,9},"") rumus ini menghasilkan sd34
maksudnya gmn... minta fenjelasan

sebenarnya menghasilkan ={"sd34","sd34","sd34","sd4","sd3","sd34","sd34","sd34","sd34","sd34"}
data dengan warna kuninglah yang tertampil.

2> =LEN(SUBSTITUTE( L14,{0,1, 2,3, 4,5,6,7,8,9} ,"")) rumus ini menghasilkan 4 karena memang jumlah huruf 4
sebenarnya menghasilkan =LEN({"sd34","sd34","sd34","sd4","sd3","sd34","sd34","sd34","sd34","sd34"})
sehingga menjadi:
={4,4,4,3,3,4,4,4,4,4}
angka 4 dengan warna kuninglah yang tertampil.

3> =LEN(L14) menghasilkan 4
sudah jelas =LEN("sd34") menghasilkan 4

4> = SUMPRODUCT(LEN( L14)-LEN( SUBSTITUTE( L14,{0,1,2,3, 4,5,6,7,8, 9},"")) ) menghasilkan 2???
menghasilkan 2 adalah hasil dari:
LEN( L14) menghasilkan 4
LEN( SUBSTITUTE( L14,{0,1,2,3, 4,5,6,7,8, 9},"")) menghasilkan array {4,4,4,3,3,4,4,4,4,4}
sehingga:
=SUMPRODUCT(4-{4,4,4,3,3,4,4,4,4,4}) menghasilkan = SUMPRODUCT({0,0,0,1,1,0,0,0,0,0})
dan..... SUMPRODUCT({0,0,0,1,1,0,0,0,0,0}) hasilnya sama dengan SUM({0,0,0,1,1,0,0,0,0,0})

5> Apakah fungsi SUM = SUMPRODUCT
tergantung dari sudut mana anda memandangnya,,,
=SUM(LEN( A1)-LEN( SUBSTITUTE( A1,{0,1,2,3,4,5,6,7,8,9},"")))
Vs
=SUMPRODUCT(LEN( A1)-LEN( SUBSTITUTE( A1,{0,1,2,3,4,5,6,7,8,9},"")))
Hasilnya adalah sama, buktikan ajah

>semoga bermanfaat

"we don't see with our eyes, we see with our brains"

From: siti Vi <setiyowati.devi@gmail.com>
To: XL-mania@yahoogroups.com
Sent: Thu, December 31, 2009 12:42:27 PM
Subject: Re: ]] XL-mania [[ fungsi LEN, SUBSTITUTE, SUMPRODUCT, SUM,...

dear pak gus dur,

mbok dikirim saja: sheetnya (berikut contoh data yg ada d L14 dst itu...)

members yg mau menanggap kan jadi lebih gampang..

(yaitu:) tidak perlu kerja-bakti dulu "mbikin" model permasalahnnya. ..

sumproduct =

bukankan : memperkalikan (PRODUCT) element antar array,

lalu hasil kalinya di jumlah (SUM)

kalau arraynya cuma SATU atau data didalamnya bukan array,

maka proses PRODUCTnya ya ndak ada (dong)

tinggal proses men-SUMnya

----- Original Message -----

From: Abdurachman Wahid

To: XL-mania@yahoogroup s.com

Sent: Thursday, December 31, 2009 10:02 AM

Subject: ]] XL-mania [[ fungsi LEN, SUBSTITUTE, SUMPRODUCT, SUM,...

Dear Master-Master Excel...
Saya ada sdikit problem nih .....
data misalkan data di L14 ...> sd34
1> =SUBSTITUTE( L14,{0,1, 2,3,4,5,6, 7,8,9},"" )                                        rumus ini menghasilkan              sd34                                           maksudnya gmn... minta fenjelasan

2> =LEN(SUBSTITUTE( L14,{0,1, 2,3, 4,5,6,7,8,9} ,""))                             rumus ini menghasilkan                 4                                                karena memang jumlah huruf 4
3> =LEN(L14)                                                                                    ............ ......... ......... .....               4                                                karena memang jumlah huruf 4

ketika hasil di atas dimasukkan ke rumus di bawah ini
= SUMPRODUCT(LEN( L14)-LEN( SUBSTITUTE( L14,{0,1,2,3, 4,5,6,7,8, 9},"")) )
= SUMPRODUCT(4- 4)    => 0

tapi kalau langsung
=SUMPRODUCT( LEN(L14)- LEN(SUBSTITUTE( L14,{0,1, 2,3,4,5,6, 7,8,9},"" ))) => 2

Minta penjelasan kenapa bisa terjadi perbedaan hasil....?
sebenarnya fungsi LEN, SUBSTITUTE, SUMPRODUCT, SUM,... ada yang beda dari help excel nggak ya,...?

=SUM(LEN(L14) -LEN(SUBSTITUTE( L14,{0,1, 2,3,4,5,6, 7,8,9},"" ))) => 2
Apakah fungsi SUM = SUMPRODUCT ?

__._,_.___

Reply to sender | Reply to group

Messages in this topic (3)

Recent Activity:

New Members 77

Visit Your Group Start a New Topic

MARKETPLACE

Going Green: Your Yahoo! Groups resource for green living

Mom Power: Discover the community of moms doing more for their families, for the world and for each other

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

__,_._,___

Re: ]] XL-mania [[ Menentukan Juara pada sistem setengah kompetisi

rec no	nama	Main	Menang	Seri	Kalah	Memasukan Bola	Kemasukan Bola	Point	nilai pengurut	urutan	hasil
1	Amir	3	2	0	1	4	3	6	6004097.01	04	Didit
2	Budi	3	2	0	1	4	2	6	6004098.02	02	Budi
3	Cepot	3	0	1	2	3	5	1	1003095.03	01	Amir
4	Didit	3	2	0	1	5	4	6	6005096.04	03	Cepot

formula untuk NILAI PENGURUT

=VALUE(TEXT(I2,"000")&TEXT(G2,"000")&TEXT(100-H2,"000"))+A2/100

formula untuk URUTAN

=RIGHT(LARGE(K2:K5,A2:A5),2)

array formula ditulis sekaligus pada 4 cells sekolom

formula untuk HASIL

=INDEX($B$2:$B$5,L2)

----- Original Message -----

From: Sutan Ian

To: XL-mania@yahoogroups.com

Sent: Thursday, December 31, 2009 12:34 PM

Subject: ]] XL-mania [[ Menentukan Juara pada sistem setengah kompetisi

Kepada yth para suhu excel.
Mohon pencerahannya nih.....

Saya mempunyai permasalahan dalam menentukan Juara pada sistem setengah kompetisi seperti pada
tabel di bawah ini :

Main Menang Seri Kalah Memasukan Bola Kemasukan Bola Point

Amir 3 2 0 1 4 3 6

Budi 3 2 0 1 4 2 6

Cepot 3 0 1 2 3 5 1

Didit 3 2 0 1 5 4 6

Penentuan Juara yang diharapkan :
1. Yang mempunyai point tertinggi adalah juara 1 (Amir, Budi dan Didit)
2. Jika point sama, lihat jumlah terbanyak memasukkan bola (Didit Juara 1)
3. Jika jumlah memasukkan bola sama, lihat jumlah terkecil kemasukkan bola (Budi Juara 2)
4. Jika jumlah kemasukkan bola juga sama, maka "di undi"

Urutan Juara yang diharapkan :
Juara 1 adalah Didit
Juara 2 adalah Budi
Juara 3 adalah Amir
Juara 4 adalah Cepot

mohon bantuannya ( tanpa menggunakan rumus makro, maklum masih awam)
terima kasih.

Sutan Ian
Jakarta Utara

__._,_.___

Reply to sender | Reply to group

Messages in this topic (2)

Recent Activity:

New Members 77

Visit Your Group Start a New Topic

MARKETPLACE

Going Green: Your Yahoo! Groups resource for green living

Mom Power: Discover the community of moms doing more for their families, for the world and for each other

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

__,_._,___

Re: ]] XL-mania [[ bagaiman cara mengedit kumpulan2 jurnal untuk bahan pembuatan cashflow

begini boleh ndak ??

pencet tombol "memilah dan menyalin"

nah, tinggal tunggu saja... asal sabar..

Sub KAS_DOANG()
   '------------------------------
   ' siti Vi / 31 Dec 2009
   ' memfilter dan mengcopy data
   '------------------------------

   '-- declaring...
   Dim NewSheet As Worksheet
   Dim dTabel   As Range
   Dim dHasil   As Range
   Dim CoLabel As Range
   Dim Rh As Long, Rt As Long, nCol As Byte

   '-- assignments...
   Set dTabel = Sheets("Data").Range("A4").CurrentRegion
   nCol = dTabel.Columns.Count
   Set CoLabel = dTabel.Resize(1, nCol)
   Set dTabel = dTabel.Offset(2, 0).Resize( _

                dTabel.Rows.Count - 2, nCol)
   Set NewSheet = Worksheets.Add
   NewSheet.Move after:=Sheets(Sheets.Count)
   NewSheet.Name = "New" & NewSheet.Name
   Set dHasil = NewSheet.Range("A4")

   '-- columns labelling..
   CoLabel.Copy dHasil.Cells(-1, 1)

   '-- filtering & copying --
   For Rt = 1 To dTabel.Rows.Count
      If InStr(1, LCase(dTabel(Rt, 2)), "kas") > 0 Then
         Rh = Rh + 1
         dTabel(Rt, 1).Resize(1, nCol).Copy
         dHasil(Rh, 1).PasteSpecial xlPasteValuesAndNumberFormats
      ElseIf InStr(1, LCase(dTabel(Rt, 3)), "kas") > 0 Then
         Rh = Rh + 1
         dTabel(Rt, 1).Resize(1, nCol).Copy
         dHasil(Rh, 1).PasteSpecial xlPasteValuesAndNumberFormats
      End If
      Application.CutCopyMode = False
   Next

   ' cipika-cipiki (rapih-rapih gitu loch..)
   Columns("A:G").EntireColumn.AutoFit
   Cells(1, 1).Select

End Sub

----- Original Message -----
From: Iqbal Haykal
To: XL-mania@yahoogroups.com
Sent: Thursday, December 31, 2009 10:06 AM
Subject: ]] XL-mania [[ bagaiman cara mengedit kumpulan2 jurnal untuk bahan pembuatan cashflow

alo teman-teman XL-mania, kira-kira ada yang bisa bantu ga..... sy bekerja di bagian keuangan di sebuah perusahaan swasta nah kadang-kadang harus buat laporan keuangan dari data-data jurnal yang dari januari ampe desember...nah setiap bulan biasanya ada lebih dari puluhan ribu jurnal

yang saya mau tanyakan adalah kira-kira ada ngga yah cara untuk memilah jurnal2 tersebut untuk berbagai keperluan, misal hari ini sy mau membuat laporan arus kas sehingga jurnal-jurnal yang ada berpasangan dengan KAS,KAS KECIL, KAS TELLER dan BANK bisa langsung diambil tanpa dicari satu-satu dulu...(contoh data terlampir saya cuman berikan 7000 jurnal saja...yang aslinya lebih dari ini...)

yang biasanya saya lakukan (dengan manual) memakai filter di uraian jurnal untuk kolom debitnya dan uraian jurnal untuk kolom kreditnya masing-masing di filter satu-satu dan sy hanya memilih filterkan data yang di centang saja yaitu jenis-jenis kas dan bank saja... lalu data dari hasil filter saya warnai ( sewaktu diwarnaipun mengalami kesulitan, ga tau kenapa kadang2 excelnya ga mau memunculkan warna ketika saya blok semua data filter jadinya harus diwarnaiin satu-satu) setelah diwarnai untuk jurnal debit dan kreditnya baru deh data semuanya saya munculkan lagi dan yg tidak berpasangan dengan yang sudah saya warnai saya hapus (benar-benar di hapus dari tabel), biasanya pekerjaan ini memakan waktu hampir 3-5 jam...

nah untuk memberi kemudahan saya udah lampirkan datanya sheet pertama itu data jurnal2nya, sheet yang kedua adalah data yang diinginkan.... buat yang mau ngebantuin, saya harapkan langsung saja ke email saya haykal.cui@yahoo.co.id karena entah kenapa komputer kantor ga bisa buka milis, forum, dan situs jejaring sosial lainnya....

terima kasih buat yang sudah membaca email ini

__._,_.___

Reply to sender | Reply to group

Messages in this topic (2)

Recent Activity:

New Members 73

Visit Your Group Start a New Topic

MARKETPLACE

Going Green: Your Yahoo! Groups resource for green living

Parenting Zone: Your community resource for family and home

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

__,_._,___

]] XL-mania [[ Rumus menghitung pengulangan dengan format terlampir

Dear Master,

Selamat Tahun Baru..!!!

Saya ada problem untuk menghitung total outlet by area pada tiap kota. Karena data yang saya punya adalah berdasarkan schedule salesman.

Berikut saya lampirkan format schedule tersebut. Adakah dari para master memberikan solusi harus bagaimana untuk mendapatkan jumlah outlet atau toko dari format tersebut karena ada toko yang dobel.

Terimakasih…… selamat berlibur…

Aris Nurcahyo

Important:  The information contained in this email is confidential and may be legally privileged. It is also subject to copyright. If you have received it in error, confidentiality and privilege are not waived and you must not disclose or use the information in it. Please notify the sender by return email and delete it from your system. Any unauthorised use is expressly prohibited.  Please consider the environment before printing this e-mail.

__._,_.___

Reply to sender | Reply to group

Messages in this topic (1)

Recent Activity: