Minggu, 12 Februari 2012

[belajar-excel] Digest Number 1510

Messages In This Digest (15 Messages)

Messages

1.

Aplikasi kecil untuk Inventory

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

Sat Feb 11, 2012 12:32 am (PST)



Assalamualaikum Wr. Wb.

BeExceller sedaya,

Berikut ini tawaran pembuatan aplikasi kecil untuk input dan output dalam
hal inventory.
Contoh bentuk outputnya seperti file terlampir, tetapi sepertinya penanya /
pemohon selama ini melakukan input pun di file tersebut.

Berikut kutipan lengkap dari penanya / pemohon :

Pagi,

Saya minta tolong jika bisa dibuatkan 1 program kecil (yang lebih
sederhana) agar masalah inventory saya bisa lebih mudah dikerjakan dan
dibaca karena sering kali user melakukan kesalahan saat entry dan filenya
juga terlalu besar. Jika berminat atau ada teman yang bisa bantu saya
tolong infonya dan berapa biayanya.

Thank's

Tannu ( tannuwiworno@gmail.com )

Wassalamualaikum Wr. Wb.
Kid.
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)
2a.

Re: List File Aray satu folder tanpa menuliskan alamat

Posted by: "i Haps" hapsari.stlizbeth@gmail.com   liz_indri_haps

Sat Feb 11, 2012 12:45 am (PST)



Mohon tambahan info; bisakah pertanyaan yg sedikit itu diperjelas

saya kutipkan bagian inti pertanyaan anda
>> Sedikit pertanyaan dari saya,
>> jika kita menggunakan file excel dalam satu folder dan hanya ingin
mengetahui
>> list isi dalam folder itu sendiri,
>> kemudian berada di drive C: kita copy ke drive D:
>> dengan apakah bisa formula diatas tanpa menuliskan rumus alamat D:...

"SESUATU" yg berada di Drive C (dan diCOPY ke Drive D) itu apa ?
File - kah ? File yg berisi Makro ini - kah ?, atau APA (kah) ?

*Sedikit tanggapan dari saya, *Saya belum pernah ketemu dengan asli posting
mengenai UDF tsb, (atau lupa).
Mungkin saja di "sono" nya file tsb diantar dengan penjelasan pemakaian UDF
yg disodorkan itu.
Tetapi Sekedar Info dapat kita berikan (maaf, kerena barangkali anda sudah
faham benar ) s.b.b.:

UDF (Fungsi buatan sendiri) yg anda tanyakan itu memerlukan *3
argument, *tetapi
*ketiga nya bersifat opsional *(boleh diisi boleh tidak), cara penulisan 3
argument itu akan sangat memperngaruhi HASIL fungsi tsb.

*Argument 1 = sPath *
data bertype TEXT/String, yang memberi info kepada UDF mengenai Path /
Nama-Folder-lengkap yg ingin di evaluasi
(di buat list of isi folder tsb).
Jika dikosongkan UDF akan menganggap sPath = *Folder tempat beradanya
File (workbook) berisi makro UDF ini*

*Argument 2 = sKriteria *
data bertype TEXT/String, yang memberi info kepada UDF mengenai *filter
nama file yg ingin dibuat listnya*
Jika dikosongkan UDF akan menganggap * "*"*, artinya semua file dlm folder
y gdisebut dlm Argument1 tanpa dibedakan akan di list semuanya.

*Argument 3 = lResultAsArray*
data bertype Bilangan bulat ( jenis Long-Integer) boleh diisi 0, 1, 2 dst,
yang memberi info kepada UDF mengenai *cara List ditampilkan.*
** Jika *Argument3 di kosongkan* (tidak anda isi) UDF akan menganggap diisi
0 (nol), dan kelanjutannya *hasil fungsi akan berupa ARRAY* (tiap nama file
dlm list) ditulis tersendiri ( 1 nama file = 1 data (satu cell)
Oleh sebab itu anda perlu memilih banyak cells sekolom, sbg tempat ARRAY
FORMULA * GetFileList(Arg1,Arg2,0) *
** Tetapi jika *Argument3 ini diisi dengan angka BUKAN NOL*, maka cara
penulisan Listnya bukan sebagai Array, tetapi berupa *text data tunggal (1
data, dlm satu cell)*, walaupun berupa kalimat yg panjang sekali, berupa
rangkaian nama-nama file, tiap nama file dipisah (delimited) dengan
karakter "|"

Jadi ....
** jika folder yg ingin dibuat list-isi-file-nya adalah *D:\DataQu\*
sedangkan file berisi makro UDF ini ada di *
F:\Datanyak\KhususNyak\KoleksiUDF\*
** Filter nama file : anda hanya ingin llist* file MP3*
** Cara penulisan *List Hasil : ingin sebagai Array*
*
*
maka Argument 1 dan Argument 2 harus di tuliskan sbb:
=GetFileList("D:\DataQu","*.MP3",)
atau
=GetFileList("D:\DataQu","*.MP3",*0*)

CMIIWeeeee
~ i ~

member of milis *belajar-excel*
http://tech.groups.yahoo.com/group/belajar-excel/
http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-List-File-Aray-satu-folder-tanpa-menuliskan-alamat-td5474396.html

2012/2/11 nor hidayat <dayatshogun46@yahoo.co.id>

> **
>
> Dear Exceler
> Mohon bantuannya
> Saya pernah buka kiriman group excel mengenai getlist menggunakan array
>
> dengan scrip sebagai berikut :
> Option Explicit
> Public Function GetFileList(*Optional sPath As String = vbNullString, _
> Optional sKriteria As String = vbNullString, _
> Optional lResultAsArray As Long = 0*) As Variant
> Dim sFile As String, sFilePath As String, sCari As String
> Dim sList As String, sResult() As String
> Application.Volatile
> If LenB(sPath) = 0 Then
> sFilePath = ThisWorkbook.Path & "\"
> Else
> sFilePath = sPath
> If Right$(sPath, 1) <> "\" Then
> sFilePath = sFilePath & "\"
> End If
> End If
> If LenB(sKriteria) = 0 Then
> sCari = "*"
> Else
> sCari = sKriteria
> End If
> Application.DisplayAlerts = False
> sFile = Dir$(sFilePath & sCari)
> Do While LenB(sFile) <> 0
> sList = sList & sFile & "|"
> sFile = Dir$
> Loop
> If Right$(sList, 1) = "|" Then
> sList = Left(sList, Len(sList) - 1)
> End If
> If lResultAsArray <> 0 Then
> GetFileList = WorksheetFunction.Transpose(Split(sList, "|"))
> Else
> GetFileList = sList
> End If
> Application.DisplayAlerts = True
> End Function
>
> Untuk srcrip diatas mesti mencantumkan Drive yang dituju ( Alamat yang
> dituju ) seperti =GetfileList("C:\........)
>
> Sedikit pertanyaan dari saya, jika kita menggunakan file excel dalam satu
> folder dan hanya ingin mengetahui list isi dalam folder itu sendiri,
> kemudian berada di drive C: kita copy ke drive D: dengan apakah bisa
> formula diatas tanpa menuliskan rumus alamat D:....
> Mohon bantuannya
>
> Untuk MR.Kid sebelumya saya pernah posting masalah excel full screen
> ternyata saya sudah menemukan pembahasannya di milis tahun lalu. trims to
> all.
>
> Malu bertanya, kerja manual
>
> Salam
> Nor Hidayat
>
> ======================================================
> ModsNote:
> (1) Sesuatu yg anda rujuk & jelas tempat keberadaannya
> selain dikutip bagian yg ditanyakan, lebih baik lagi kalau
> anda tunjukkan saja URL nya atau alamat situsnya;
> agar member yg tertarik masalah anda dapat melihat
> sendiri secara lebih lengkap.
> Dengan anda mengatakan "dari Group Excel", kita belum tahu:
> - grup apa itu, jika yg dimaksud sebuah group/milis di
> Yahoo! Group; apa nama milisnya, dimana alamatnya, dst..
>
> (2) (dilihat dari kutipan "motto" di akhir surat anda);
> sepertinya anda belum sadar bahwa anda sedang berada
> di Milis BELAJAR-EXCEL (BeExcel) bukan milis lain
> ("toko sebelah").
> =======================================================
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
2b.

Fwd: [belajar-excel] List File Aray satu folder tanpa menuliskan ala

Posted by: "i Haps" hapsari.stlizbeth@gmail.com   liz_indri_haps

Sat Feb 11, 2012 1:36 am (PST)



saya kok hampir yakin UDF ini buatan mas Kid..
( ditilik dari:
kerapihan blok, dan konsistensi penamaan Variables / Arguments,
type long didahului dengan l, type string didahulu dengan s dst...)
Benar atau Betul mas Kid..?

Hanya saja, saat ditayangkan mungkin Haps sedang ngantuk.... ( he he)

Bagaimana ya (dlm rangka memenuhi keinginan dayat).. kalau seandainya
If LenB(sPath) = 0 Then
sFilePath = ThisWorkbook.Path & "\"
diganti dengan
If LenB(sPath) = 0 Then
sFilePath = CurDir & "\"

kindest regards,
- i -

---------- Forwarded message ----------
From: i Haps <hapsari.stlizbeth@gmail.com>
Subject: Re: [belajar-excel] List File Aray satu folder tanpa menuliskan
alamat

2012/2/11 nor hidayat <dayatshogun46@yahoo.co.id>
> Dear Exceler
> Mohon bantuannya
> Saya pernah buka kiriman group excel mengenai getlist menggunakan array
> dengan scrip sebagai berikut :
>
> Public Function GetFileList( _
> Optional sPath As String = vbNullString, _
> Optional sKriteria As String = vbNullString, _
> Optional lResultAsArray As Long = 0) As Variant
> Dim sFile As String, sFilePath As String, sCari As String
> Dim sList As String, sResult() As String
> Application.Volatile
> If LenB(sPath) = 0 Then
> sFilePath = ThisWorkbook.Path & "\"
> Else
> sFilePath = sPath
> If Right$(sPath, 1) <> "\" Then
> sFilePath = sFilePath & "\"
> End If
> End If
> If LenB(sKriteria) = 0 Then
> sCari = "*"
> Else
> sCari = sKriteria
> End If
> Application.DisplayAlerts = False
> sFile = Dir$(sFilePath & sCari)
> Do While LenB(sFile) <> 0
> sList = sList & sFile & "|"
> sFile = Dir$
> Loop
> If Right$(sList, 1) = "|" Then
> sList = Left(sList, Len(sList) - 1)
> End If
> If lResultAsArray <> 0 Then
> GetFileList = WorksheetFunction.Transpose(Split(sList, "|"))
> Else
> GetFileList = sList
> End If
> Application.DisplayAlerts = True
> End Function
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
3a.

Re: Menghilangkan huruf jika ditulis bersama angka

Posted by: "i Haps" hapsari.stlizbeth@gmail.com   liz_indri_haps

Sat Feb 11, 2012 1:54 am (PST)



Bisa juga pakai Fungsi GetNumber

*=GetNumber(A1)*
misal A1 berisi 66pcs.
fungsi tsb menghasilkan bilangan (bukan text) : *66*

2012/2/11 <yan.novianto@yahoo.com>

> Dear excel-er
>
> Tolong di bantu, jika ada ada
> 1200gr. Hasil. 1200
> 70ml. 70
> 6pcs. 6
> 35's. 35
>
> Jadi intinya saya hanya butuh data yang berupa angka saja. Untuk yg huruf
> hilang,
> Saya cb pake rumus ctrl+H, berhubung variant cukup banyak data yg tertulis
> diata selain diatas kalo harus replace "gr" menjadi "", dst...
> Bakalan lama.
> Kalo pake rumus, bagaimana ya, supaya yg terambil hanya data angka saja.
>
> Terimakasih buat semua
>
> Salam
> Yan Novianto
> Phone: 085234345667 ®
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (10)
3b.

Re: Menghilangkan huruf jika ditulis bersama angka

Posted by: "yan.novianto@yahoo.com" yan.novianto@yahoo.com   yan.novianto

Sat Feb 11, 2012 2:57 am (PST)



Dear Mr.Kid dan Bu Haps

Pak Kid, walaupun panjang tp jalan mantabs.
Untuk bu haps ( di komputer Q, rumus =getnumber(..), tidak jalan jd hasilnya #name?
Apa karena makro_nya belum ada di komputerQ ya??

Untuk pak Kid thanks udah tambah ilmu.
Untuk bu haps, kalo bisa kasih solusi napa kok ngga bisa jalan fungsi =getnumber(..)

Salam

Yan Novianto
Phone: 085234345667 ®

-----Original Message-----
From: i Haps <hapsari.stlizbeth@gmail.com>
Date: Sat, 11 Feb 2012 16:54:26

Bisa juga pakai Fungsi GetNumber
=GetNumber(A1)
misal A1 berisi 66pcs.
fungsi tsb menghasilkan bilangan (bukan text) : *66*

2012/2/11 <yan.novianto@yahoo.com>
> Dear excel-er
> Tolong di bantu, jika ada ada
> 1200gr. Hasil. 1200
> 70ml. 70
> 6pcs. 6
> 35's. 35
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (10)
3c.

Re: Menghilangkan huruf jika ditulis bersama angka

Posted by: "yan.novianto@yahoo.com" yan.novianto@yahoo.com   yan.novianto

Sat Feb 11, 2012 2:59 am (PST)



Maaf bu haps,

Kalo sesuai dengan lampiran yg bu Haps kirim, memang bisa jalan dan muncul fungsi getNumbernya,
Tp jika masalahanya itu di file lain, maka fungsi get number ngga ada lagi :(

Dengan kata laen, bagaimana caranya fungsi getnumber itu bisa berjalan untuk semua file excel yg di buka??

Salam
Yan Novianto
Phone: 085234345667 ®

-----Original Message-----
From: i Haps <hapsari.stlizbeth@gmail.com>
Date: Sat, 11 Feb 2012 16:54:26
Bisa juga pakai Fungsi GetNumber
*=GetNumber(A1)*
misal A1 berisi 66pcs.
fungsi tsb menghasilkan bilangan (bukan text) : *66*
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (10)
3d.

Re: Menghilangkan huruf jika ditulis bersama angka

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

Sat Feb 11, 2012 9:00 am (PST)



coba juga,
=LOOKUP(9^9,--LEFT(A7,{1,2,3,4,5,6,7,8,9}))

>semoga bermanfaat

--- In belajar-excel@yahoogroups.com, yan.novianto@... wrote:
>
> Dear excel-er
>
> Tolong di bantu, jika ada ada
> 1200gr. Hasil. 1200
> 70ml. 70
> 6pcs. 6
> 35's. 35
>
> Jadi intinya saya hanya butuh data yang berupa angka saja. Untuk yg
huruf hilang,
> Saya cb pake rumus ctrl+H, berhubung variant cukup banyak data yg
tertulis diata selain diatas kalo harus replace "gr" menjadi "", dst...
> Bakalan lama.
> Kalo pake rumus, bagaimana ya, supaya yg terambil hanya data angka
saja.
>
> Terimakasih buat semua
>
> Salam
>
> Yan Novianto
> Phone: 085234345667 ®
>

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

Re: Menghilangkan huruf jika ditulis bersama angka

Posted by: "Fano The Miner" fano.theminer@gmail.com

Sat Feb 11, 2012 9:13 am (PST)



Mungkin dengan cara spt ini :

1. Buat sheet baru, sheet lama (Sheet1) di delete.

2. Save as / tekan F12. (contoh : getNumber). Save as type : Excell Add-Ins (*.xlam) utk excel2007 (*.xla) utk excel97-2000)

3. Pilih Excel Options > Add-ins kemudian kli "Go" di bagian bawah.

4. Centangi tulisan getNumber (atau nama yang di save masing2) kemudian OK.

5. Coba formula getNumber.

CorrectMeIfImWrong…

Salam…

Fano TheMiner

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of yan.novianto@yahoo.com
Sent: Saturday, February 11, 2012 7:59 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Menghilangkan huruf jika ditulis bersama angka

Maaf bu haps,

Kalo sesuai dengan lampiran yg bu Haps kirim, memang bisa jalan dan muncul fungsi getNumbernya,
Tp jika masalahanya itu di file lain, maka fungsi get number ngga ada lagi :(

Dengan kata laen, bagaimana caranya fungsi getnumber itu bisa berjalan untuk semua file excel yg di buka??

Salam
Yan Novianto
Phone: 085234345667 ®

-----Original Message-----
From: i Haps <hapsari.stlizbeth@gmail.com <mailto:hapsari.stlizbeth%40gmail.com> >
Date: Sat, 11 Feb 2012 16:54:26
Bisa juga pakai Fungsi GetNumber
*=GetNumber(A1)*
misal A1 berisi 66pcs.
fungsi tsb menghasilkan bilangan (bukan text) : *66*

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

Re: Menghilangkan huruf jika ditulis bersama angka

Posted by: "i Haps" hapsari.stlizbeth@gmail.com   liz_indri_haps

Sat Feb 11, 2012 6:47 pm (PST)



Dear Pak Anton,
*excilent, pak ! * penemuan formula yg efektif sekali ! awesome
formula !

Kasus seperti ini bisa berkembang dari DATA ANGKA yg sudah NGUMPULdi
sebelak KIRI
bisa berkembang menjadi DATA ANGKA yg sudah NGUMPULdi sebelah KANAN
bisa berkembang menjadi DATA ANGKA yg sudah NGUMPULdi TENGAH
bahkan bisa : data angka tersebar misalnya data: *D**23H876T2B09HIU** *ingin
hasil 23876209

[image: I want Numeric Part Only.PNG]

Tanpa menyebut kelemahan²-nya, 1 UDF dapat menyelesaikan Keempat keperluan
itu sekaligus.
Tetapi kita tetap menyarankan, jika masih ada jalan FORMULA (berdasarkan
Fungsi2 bawaan Excel) kita
menghindari UDF. UDF lebih baik dibuat jika memang pedang formula sudah
terasa terlalu tumpul atau
masalahnya sudah sulit/kompleks, atau bahkan tidka bisa...

Untuk ketiga Keperluan diatas kita berhasil mengumpulkan formula-formula sbb

*Mengambil Rangkaian Angka (yg telah "ngumpul) di KIRI*

1. (mas Kid) / array formula
=1*LEFT(B3,MATCH(99,1*MID(B3,ROW($1:$99),1),1))

2. (pak Anton)
*=LOOKUP(9^9,--LEFT($B3,{1,2,3,4,5,6,7,8,9,10}))*

3. (pak Anton, Modified)
*=LOOKUP(9^9^9,LEFT($B3,COLUMN($1:$9))+0)*

4. ( iHaps, inspired by Kid's Formula ) / array formula
*=LEFT(B3,COUNT(0+MID(B3,ROW($1:$99),1)))+0*

5. ( indri, UDF )
=NumericOnly(B3)

*Mengambil Rangkaian Angka di KANAN*

1. (versi pak Anton untuk "KANAN")
*=LOOKUP(9^9^9,RIGHT($B6,COLUMN($1:$9))-0)*

2. (iHaps, inspiredby Kid's Formula) / array formula
*=--RIGHT(B6,COUNT(MID(B6,ROW($1:$96),1)/1))*

3. (indri, UDF )
=NumericOnly(B6)

*Mengambil Rangkaian Angka di TENGAH*

1. iHaps, Masih Terinspirasi Formula dari Pak Anton:
=LOOKUP(9^9^9,LEFT(MID(B4,MIN(IF(ISNUMBER(0+(MID(B4,ROW($1:$98),1))),
ROW($1:$98))),99),COLUMN($1:$9))+0)

2. iHaps, hanya soal: Urutan ke berapa POSISI AngkaPertama, dan berapa buah
Cacah Angka-nya.
=--MID(B4,MATCH(TRUE,ISNUMBER(--MID(B4,ROW($1:$98),1)),0),
COUNT(--MID(B4,ROW($1:$98),1)))

3. indri, tetap dengan UDFnya
*=NumericOnly(B4)*

Ditunggu idea lains, nantinya kompilasi rumus ini akan di-awetkan dengan
UpLoad ke
OnLlineFolder 'nya' mbak-é
dan/atau diusulkan ikut mengisi Area FILES di YahooGroups BeExcel...

2012/2/12 summonery <summonery@yahoo.com>

> **
> coba juga,
> =LOOKUP(9^9,--LEFT(A7,{1,2,3,4,5,6,7,8,9}))
> >semoga bermanfaat
>
>
> --- In belajar-excel@yahoogroups.com, yan.novianto@... wrote:
> > Tolong di bantu, jika ada ada
> > 1200gr. Hasil. 1200
> > 70ml. 70
> > 6pcs. 6
> > 35's. 35
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (10)
3g.

Re: Menghilangkan huruf jika ditulis bersama angka

Posted by: "Yan Novianto" yan.novianto@yahoo.com   yan.novianto

Sat Feb 11, 2012 7:13 pm (PST)



Dear summonery

Rumus oke.sip !
Mesti ada tapinya lagi .karena saya masih baru bener di milis ini.
Tapi nya di sisni saya mau nanya mengenai
=LOOKUP(9^9,--LEFT(A7,{1,2,3,4,5,6,7,8,9}))

Mengenai tanda "- -" sebalum LEFT itu fungsinya apa? Karena jika tanda itu
saya coba hilangkan maka hasil #N/A

Dan untuk yang tanda kurung kurawal {1,2,3,4,5,6,7,8,9} apa harus di tulis
semua angka??

Karena rumus tersbut hany bisa menghitung max hingga 8 Digit angka
Mohon petunjuknya


@ om Fano TheMiner,
Saya sudah jalankan sesuai petunjuk dan hasil OK !!! (sebelumnya saya sudah
coba cara seperti itu, tapi mungkin karena sheet(1) nya ngga di hapus ya
jadi ngga jalan J)
Terimakasih buat temen-temen di milis ini yang bener bener sangat membantu
untuk meningkatkan kemampuan excel saya.

==============================================================
Mods Note:
Pak Yan dimohon tidak segan melihat-lihat posting lawas
karena pertanyaan pak Yan itu semua sudah pernah dibahas.
Sambbil bertanya, sambil juga melihat² posting lawas...
kayaknya Oke juga cui..

sbg contoh lihat ini
http://tech.groups.yahoo.com/group/belajar-excel/message/12396
http://tech.groups.yahoo.com/group/belajar-excel/message/15422
==============================================================

From: belajar-excel@yahoogroups.com
On Behalf Of summonery
Sent: Sunday, February 12, 2012 12:01 AM

coba juga,
=LOOKUP(9^9,--LEFT(A7,{1,2,3,4,5,6,7,8,9}))
>semoga bermanfaat
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (10)
3h.

Re: Menghilangkan huruf jika ditulis bersama angka

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

Sat Feb 11, 2012 8:16 pm (PST)



Mengenai tanda "--" sebelum LEFT adalah untuk mengkonversi data type
"TEXT" menjadi data type "NUMBER", mengingat 9^9 (lookup_value) bertipe
"NUMBER"
Suster Haps punya penjelasan yang mantabs (silakan menuju link yg
diberikan oleh Mods)
9^9 = 387.420.489ini adalah batas maksimal yang ditentukan dalam formula
tersebut, anda dapat menggantinya dengan perkiraan hasil tertinggi.jadi
jika angka melebihi batas tersebut maka hasil akan salah, yaitu cuma 8
digit angka yang merupakan nilai <= 387.420.489
mengenai {1,2,3,4,5,6,7,8,9} tergantung dari batasan digit dari data
anda, misal angka tidak pernah melebihi 3 digit, maka cukuplah dengan
{1,2,3} dan lookup_value cukup dengan 999 yang merupakan batas
tertinggi dari angka tiga digit.
Baca juga excel help untuk fungsi LOOKUP, luangkan waktu 15 menit untuk
membaca dan mempelajarinya, pelajari dengan cermat dan jangan lewatkan
satu kalimatpun, praktekkan pada worksheet, dan anda akan ingat
selamanya :D

>semoga bermanfaat

--- In belajar-excel@yahoogroups.com, "Yan Novianto" <yan.novianto@...>
wrote:
>
> Dear summonery
>
> Rumus oke.sip !
> Mesti ada tapinya lagi .karena saya masih baru bener di milis ini.
> Tapi nya di sisni saya mau nanya mengenai
> =LOOKUP(9^9,--LEFT(A7,{1,2,3,4,5,6,7,8,9}))
>
> Mengenai tanda "- -" sebalum LEFT itu fungsinya apa? Karena jika
tanda itu
> saya coba hilangkan maka hasil #N/A
>
> Dan untuk yang tanda kurung kurawal {1,2,3,4,5,6,7,8,9} apa harus di
tulis
> semua angka??
>
> Karena rumus tersbut hany bisa menghitung max hingga 8 Digit angka
> Mohon petunjuknya
>
>
> @ om Fano TheMiner,
> Saya sudah jalankan sesuai petunjuk dan hasil OK !!! (sebelumnya saya
sudah
> coba cara seperti itu, tapi mungkin karena sheet(1) nya ngga di hapus
ya
> jadi ngga jalan J)
> Terimakasih buat temen-temen di milis ini yang bener bener sangat
membantu
> untuk meningkatkan kemampuan excel saya.
>
> ==============================================================
> Mods Note:
> Pak Yan dimohon tidak segan melihat-lihat posting lawas
> karena pertanyaan pak Yan itu semua sudah pernah dibahas.
> Sambbil bertanya, sambil juga melihat² posting lawas...
> kayaknya Oke juga cui..
>
> sbg contoh lihat ini
> http://tech.groups.yahoo.com/group/belajar-excel/message/12396
> http://tech.groups.yahoo.com/group/belajar-excel/message/15422
> ==============================================================
>
>
>
>
> From: belajar-excel@yahoogroups.com
> On Behalf Of summonery
> Sent: Sunday, February 12, 2012 12:01 AM
>
> coba juga,
> =LOOKUP(9^9,--LEFT(A7,{1,2,3,4,5,6,7,8,9}))
> >semoga bermanfaat
>

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

Mohon info (Set wbk A & wbkDB aktif)

Posted by: "Harry" hariansyahptk@yahoo.com   hariansyahptk

Sat Feb 11, 2012 9:13 am (PST)



Dear BeExceller,

Mohon info / penjelasan sebagaimana rumus sbb:

Set wbkA = ThisWorkbook
Set wbkDB = Workbooks.Open(wbkA.Path & "\database.xls")
 wbkA.Activate

Rumus tersebut diatas ( Set wbkDB = Workbooks.Open(wbkA.Path & "\database.xls")  ) menggambarkan bahwa File "database.xls" dalam keadaan tertutup (tidak aktif) dan untuk memasukkan data yang ada pada User Form yang telah kita isi, maka rumus tersebut harus dipergunakan.

Pertanyaan saya adalah :
Bagaimana cara dan rumusnya jika kondisi File "database.xls" tersebut sudah memang dalam keadaan terbuka (aktif)...???

karena jika kita tetap menggunakan rumus tersebut, maka akan muncul peringatan sbb:
database.xls is already open. Reopening will cause any changes you made to be discarded. Do you want to reopen database.xls?

Saya telah mencoba rumus sbb:
Set wbkA = ThisWorkbook
Set wbkDB = Workbooks.Activate(wbkA.Path & "\database.xls")
 wbkA.Activate
 wbkDB.Activate

tapi sama sekali tidak berfungsi bahkan Error.

Mohon berkenan infonya.

Terima kasih.

Regards,

Harry

N/B:
wbkA dalam deadaan aktif
wbkDB juga dalam keadaan aktif
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
4b.

Re: Mohon info (Set wbk A & wbkDB aktif)

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

Sat Feb 11, 2012 9:17 am (PST)



Pak Harry,

Coba diberi cek terhadap status terbuka atau tidaknya workbook. Asumsinya,
masih dalam 1 instansi aplikasi Excel.

On error resume next
Set wbkA = ThisWorkbook
if workbooks("database.xls") is nothing then
Set wbkDB = Workbooks.Open(wbkA.Path & "\database.xls")
else
Set wbkDB = Workbooks("database.xls")
endif
wbkA.Activate

Wassalamualaikum Wr. Wb.
Kid.

2012/2/11 Harry <hariansyahptk@yahoo.com>

> **
>
>
> Dear BeExceller,
>
> Mohon info / penjelasan sebagaimana rumus sbb:
>
> Set wbkA = ThisWorkbook
> Set wbkDB = Workbooks.Open(wbkA.Path & "\database.xls")
> wbkA.Activate
>
> Rumus tersebut diatas ( Set wbkDB = Workbooks.Open(wbkA.Path &
> "\database.xls") ) menggambarkan bahwa File "database.xls" dalam keadaan
> tertutup (tidak aktif) dan untuk memasukkan data yang ada pada User Form
> yang telah kita isi, maka rumus tersebut harus dipergunakan.
>
> Pertanyaan saya adalah :
> Bagaimana cara dan rumusnya jika kondisi File "database.xls" tersebut
> sudah memang dalam keadaan terbuka (aktif)...???
>
> karena jika kita tetap menggunakan rumus tersebut, maka akan muncul
> peringatan sbb:
> database.xls is already open. Reopening will cause any changes you made to
> be discarded. Do you want to reopen database.xls?
>
> Saya telah mencoba rumus sbb:
> Set wbkA = ThisWorkbook
> Set wbkDB = Workbooks.Activate(wbkA.Path & "\database.xls")
> wbkA.Activate
> wbkDB.Activate
>
> tapi sama sekali tidak berfungsi bahkan Error.
>
> Mohon berkenan infonya.
>
> Terima kasih.
>
> Regards,
>
>
> Harry
>
> N/B:
> wbkA dalam deadaan aktif
> wbkDB juga dalam keadaan aktif
>
>
>
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
4c.

Bls: [belajar-excel] Mohon info (Set wbk A & wbkDB aktif)

Posted by: "Harry" hariansyahptk@yahoo.com   hariansyahptk

Sat Feb 11, 2012 6:56 pm (PST)



Subhanallah, hasilnya ok Mr. Kid.
Terima kasih atas rumusnya.

Saya telah berulang kali mengkotak-katik rumus tersebut tapi tidak berhasil.
Dengan rumus Bapak, Alhamdulillah sudah ok.

Mohon tanya lagi,
1.
Bagaimana caranya pada wbkA tsb kita buat Tombol User Form yang jika kita click bisa membuka file wbkDb...??? dan sebaliknya;
Jika saya buat tombol User Form pada wbkDB, dan jika tombol tersebut saya click bisa membuka file wbkA...???

2.
Pertama kali saya membuka file wbkA atau file wbkDB, mengapa selalu muncul keterangan sbb:
Security Warning:
Automatic update of licks has been disable
sehingga saya harus meng-click :

Enable this content

Terima kasih atas informasi dan rumusnya.
Insya Allah semoga bermanfaat.

Wassalam,

Harry

________________________________
Dari: Kid Mr. <mr.nmkid@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Minggu, 12 Februari 2012 0:17
Judul: Re: [belajar-excel] Mohon info (Set wbk A & wbkDB aktif)


 
Pak Harry,

Coba diberi cek terhadap status terbuka atau tidaknya workbook. Asumsinya, masih dalam 1 instansi aplikasi Excel.

On error resume next
Set wbkA = ThisWorkbook
if workbooks("database.xls") is nothing then
     Set wbkDB = Workbooks.Open(wbkA.Path & "\database.xls")
else
    Set wbkDB = Workbooks("database.xls")
endif
wbkA.Activate
 

Wassalamualaikum Wr. Wb.
Kid.

2012/2/11 Harry <hariansyahptk@yahoo.com>

> 
>Dear BeExceller,
>
>
>Mohon info / penjelasan sebagaimana rumus sbb:
>
>
>
>Set wbkA = ThisWorkbook
>Set wbkDB = Workbooks.Open(wbkA.Path & "\database.xls")
> wbkA.Activate
>
>
>Rumus tersebut diatas ( Set wbkDB = Workbooks.Open(wbkA.Path & "\database.xls")  ) menggambarkan bahwa File "database.xls" dalam keadaan tertutup (tidak aktif) dan untuk memasukkan data yang ada pada User Form yang telah kita isi, maka rumus tersebut harus dipergunakan.
>
>
>Pertanyaan saya adalah :
>Bagaimana cara dan rumusnya jika kondisi File "database.xls" tersebut sudah memang dalam keadaan terbuka (aktif)...???
>
>
>karena jika kita tetap menggunakan rumus tersebut, maka akan muncul peringatan sbb:
>database.xls is already open. Reopening will cause any changes you made to be discarded. Do you want to reopen database.xls?
>
>
>Saya telah mencoba rumus sbb:
>Set wbkA = ThisWorkbook
>Set wbkDB = Workbooks.Activate(wbkA.Path & "\database.xls")
> wbkA.Activate
> wbkDB.Activate
>
>tapi sama sekali tidak berfungsi bahkan Error.
>
>Mohon berkenan infonya.
>
>Terima kasih.
>
>Regards,
>
>
>Harry
>
>N/B:
>wbkA dalam deadaan aktif
>wbkDB juga dalam keadaan aktif
>
>
>
>
>

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

Re: Bagaimana menjumlah berdasarkan sebagian karakter

Posted by: "guru muda" mudaguru@yahoo.com   mudaguru

Sat Feb 11, 2012 3:16 pm (PST)



Terima kasih buat semuanya yg telah memberikan bantuan rumus dan atau saran yg bervariasi. Itu semua menjadi pelajaran bagi saya sebagai pemula yg sedang 'tergila-gila' sama excel. Akhirnya persoalan saya sudah terpecahkan.

--- On Sat, 2/11/12, anton suryadi <summonery@yahoo.com> wrote:

From: anton suryadi <summonery@yahoo.com>
Subject: Re: [belajar-excel] Bagaimana menjumlah berdasarkan sebagian karakter
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Date: Saturday, February 11, 2012, 8:09 AM

 

Dear pak guru,

Dimana ada jalan maka ada banyak jalan, begitu gosipnya,

anda telah mendapatkan berbagai saran dan solusi formula dari teman yang lain,sekarang mari mengembangkannya dengan sedikit berbeda, 
sederhananya, misal kita ambil contoh array formula untuk menghitung jumlah golongan IV adalah :=SUM(--(LEFT($B$3:$B$10,FIND("/",$B$3:$B$10)-1)="IV"))
Array formula di atas dijalankan dengan menekan tombol Ctl+Shift+Enter

nah, agar kita dapat menjalankannya tanpa menekan tombol CSEsematkanlah suatu argumen yang menjadikannya sebagai CSE formula ke dalam fungsi INDEX,
sehingga formulanya menjadi:=SUM(INDEX(--(LEFT($B$3:$B$10,FIND("/",$B$3:$B$10)-1)="IV"),0)) 

selamat berkreasi,

>semoga bermanfaat

From: guru muda <mudaguru@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Saturday, February 11, 2012 11:13 AM
Subject: [belajar-excel] Bagaimana menjumlah berdasarkan sebagian karakter


 

Kepada segenap anggota milis excel.

Mohon bantuannya.

Saya ingin melakukan penjumlahan berdasarkan nilai sebagian karakter dari suatu cell. Jika saja menjumlah berdasarkan isi seluruh cell, maka bagi saya sudah bisa dilakukan. Lha ini yg bikin bingung pake sebagian isi cell.

Penjelasan selengkapnya dapat dilihat pada lampiran.

Kepada Mbak I-Haps; terima kasih telah mengingatkan saya tempo hari.

Salam

Terima kasih

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (9)
Recent Activity
Visit Your Group
Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Yahoo! Groups

Cat Owners Group

Join a community

for cat lovers

Yahoo! Groups

Parenting Zone

Tips for a happy,

healthy home

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
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 00.24

1 komentar:

Anonim mengatakan...

SAYA INGIN BERBAGI CERITA KEPADA SEMUA ORANG BAHWA MUNKIN AKU ADALAH ORANG YANG PALING MISKIN DIDUNIA DAN SAYA HIDUP BERSAMA ISTRI DAN 3 BUAH HATI SAYA SELAMA 10 TAHUN DAN 10 TAHUN ITU KAMI TIDAK PERNAH MERASAKAN YANG NAMANYA KEMEWAHAN,,SETIAP HARI SAYA SELALU MEMBANTIN TULANG UNTUK KELUARGA SAYA NAMUN ITU SEMUA TIDAK PERNAH CUKUP UNTUK KEBUTUHAN HIDUP KELUARGA SAYA..AKHIRNYA AKU PILIH JALAN TOGEL INI DAN SUDAH BANYAK PARA NORMALYANG SAYA HUBUNGI NAMUN ITU SEMUA TIDAK PERNAH MEMBAWAKAN HASIL DAN DISITULAH AKU SEMPAT PUTUS ASAH AKHIRNYA ADA SEORANG TEMAN YANG MEMBERIKAN NOMOR MBAH SARTO,,SAYA PIKIR TIDAK ADA SALAHNYA JUGA SAYA COBA LAGI UNTUK MENGHUBUNGI MBAH SARTO DAN AKHIRNYA MBAH SARTO MEMBERIKAN ANKA GHOIBNYA DAN ALHAMDULILLAH BERHASIL..KINI SAYA SANGAT BERSYUKUR MELIHAT KEHIDUPAN KELUARGA SAYA SUDAH JAUH LEBIH BAIK DARI SEBELUMNYA,DAN TANDA TERIMAH KASIH SAYA KEPADA MBAH SARTO SETIAP SAYA DAPAT RUANGAN PASTI SAYA BERKOMENTAR TENTAN MBAH SARTO…BAGI ANDA YANG INGIN SEPERTI SAYA SILAHKAN HUBUNGI 082=378=607=111 MBAH SARTO.

8 Maret 2013 pukul 18.35

Posting Komentar

Langganan: Posting Komentar (Atom)