Messages In This Digest (6 Messages)

1a.: Mengambil Data Berurutan From: Zerlinda Seismica
1b.: Re: Mengambil Data Berurutan From: Kid Mr.
1c.: Re: Mengambil Data Berurutan From: HerrSoe
1d.: Bls: [belajar-excel] Mengambil Data Berurutan From: Zerlinda Seismica

2a.: Re: memberikan nilai pada cell berdasarkan kriteria From: hendrik karnadi

3a.: Re: array list file #N/A di kondisikan kosong ( Tidak ada ) From: i Haps

View All Topics | Create New Topic

Messages

1a.: Mengambil Data Berurutan

Posted by: "Zerlinda Seismica" seismica@yahoo.com seismica

Sat Feb 25, 2012 6:29 am (PST)

Salam xls

Maaf nih, minta petunjuk lagi sama para suhu untuk mengambil data dengan berurutan seperti terlampir.

Makasih bangat ya...
Seismica

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)
1b.: Re: Mengambil Data Berurutan

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

Sat Feb 25, 2012 7:06 am (PST)

Hai Saismica,

Dengan asumsi :
1. jumlah baris max 999
2. 0 <= nilai data < 999999

Array formula :
=*
MOD(SMALL(IF(LEN($A$3:$D$11),(COLUMN($A$3:$D$11)*1000+ROW($A$3:$D$11)-2)*10^6+$A$3:$D$11),ROW(1:1)),10^6)
*

Untuk menghilangkan hasil error value :
1. xl2007 ke atas gunakan IFError
=IFError( *
MOD(SMALL(IF(LEN($A$3:$D$11),(COLUMN($A$3:$D$11)*1000+ROW($A$3:$D$11)-2)*10^6+$A$3:$D$11),ROW(1:1)),10^6)
* , "" )

2. semua versi :
=IF(row(1:1)>count(*$A$3:$D$11*),"", *
MOD(SMALL(IF(LEN($A$3:$D$11),(COLUMN($A$3:$D$11)*1000+ROW($A$3:$D$11)-2)*10^6+$A$3:$D$11),ROW(1:1)),10^6)
* )

Wassalamualaikum Wr. Wb.
Kid.

On Sat, Feb 25, 2012 at 21:29, Zerlinda Seismica <seismica@yahoo.com> wrote:

> **
>
>
> Salam xls
>
> Maaf nih, minta petunjuk lagi sama para suhu untuk mengambil data dengan
> berurutan seperti terlampir.
>
> Makasih bangat ya...
> Seismica
>
>
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)
1c.: Re: Mengambil Data Berurutan

Posted by: "HerrSoe" herrsoe@gmail.com herrsoe

Sat Feb 25, 2012 12:45 pm (PST)

Function GabungKol(DatRng As Range, Optional i As Long = 0)
' menggabung data beberapa kolom, menjadi 1 kolom
' EMPTY cells diabaikan
' HerrSoe || Saptapratala, 26 Feb 2012
'-----------------------------------------------
Dim n As Long, r As Long, c As Integer, ArH()

For c = 1 To DatRng.Columns.Count
For r = 1 To DatRng.Rows.Count
If Not DatRng(r, c) = vbNullString Then
n = n + 1: ReDim Preserve ArH(1 To n)
ArH(n) = DatRng(r, c).Value
If i > 0 Then
If i = n Then GoTo akhirot
End If
End If
Next r
Next c
akhirot:
If i > 0 Then
GabungKol = ArH(i)
Else
GabungKol = WorksheetFunction.Transpose(ArH)
End If
End Function
'-------------

Formula dari OomKid = Oke & TopMarkotop....
sayangnya oleh OomKid belum dikondisikan untuk mengolah data TEXT.

Di Sheet 1 (lampiran) kita sekedar menggambarkan bahwa untuk menghandel
data-text,
mula-mula yg dimanipulasi adalah ROW dan COLUMN Index nya dulu;
Setelah urut (terkumpul ke atas) baru dipakai untuk mengundang data
textnya misalnya
dengan Fungsi INDEX
Jadi tentunya MegaFormula nya menjadi semangkin panjaaaaang...

Pemikiran untuk menyusun formula seperti itu (menurut pendapatku) = cukup
berat, tetapi
anehnya jika masalah Bu Seismica ini* dipikir pakai VBA*, kok menjadi
ringan ya...
Lha wong tinggal menggunakan LOOP: mengunjungi semua cell dlm RangeData
satu
per satu..)
Setiap ketemu *cell kosong jangan dilirik*, tetapi jika ketemu *cell berisi
data* (tak peduli
apakah TEXT ataukah NUMBERS maupun type data lain) segera saja tanpa ampun
di"CIDUK" untuk *dimasukkan ke sebuah ARRAY 1 DIMENS*I
Demi PAS-nya jumlah elemen dan jumlah data yg AKAN DICIDUK, tentunya kita
gunakan
Array Dinamis (yg setiap kali akan menCIDUK data, elemen baru ditambahkan,
tanpa
mengusik elemen yg sudah adasebelumnya ):
*n=n+1: Redim Preserve Array(1 to n)*

Begitulah setelah array lengkap menciduk semua data, lantas ditranspose
agar ketika
dituliskan di cell dengan Array Formula dia membujur ke arah vertikal
(Kolom) bukan-nya
melintang (Baris) ke arah horisontal

Coding UDF kelihatan semakin memanjang, karena diberi tambahan kesaktian
untuk
memenuhi keinginan user, barangkali menghendaki 2 pilihan (*Optional i As
Long = 0*)
- apakah array akan di serahkan SEMUA : * Array()* atau
- apakah hanya 1 data (elemen) pada INDEX tertentu : * Array(i)* saja

Kelak, di worksheet Pilihan ini dapat di expresikan pada sintaks formulanya
1.
*NamaFungsi(RangeData)*
menghasilkan Array (semua elemen ex data yg berasil diCIDUK)
2
*NamaFungsi(RangeData, IndexElemenKe)*
menghasilkan 1 data (elemen ke (i) saja)
Contoh pengggunaan, kalau mau, dapat dilihat di Sheet2 / Sheet "VBA - UDF"

Walaupun saya tahu solusi ini (terlepas dari salah/benarnya), seperti
biasanya,
tidak akan ditanggapi oleh penanya, tetapi saya tetap menjawab (terlepas
dari salah
atau benarnya jawaban), karena memang saya sedang "belajar-menjawab"..

wassalam..
HerrSoe (Heru Sucakil)
[image: Inline image 1]

*2012/2/25 Zerlinda Seismica <seismica@yahoo.com>
>
> Salam xls
> Maaf nih, minta petunjuk lagi sama para suhu untuk mengambil data dengan
berurutan seperti terlampir.
> Makasih bangat ya...
> Seismica*

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)
1d.: Bls: [belajar-excel] Mengambil Data Berurutan

Posted by: "Zerlinda Seismica" seismica@yahoo.com seismica

Sat Feb 25, 2012 5:54 pm (PST)

Alhamdulilah
Makasih mas Kid pencerahan yang sangat...sangat membantu..

Thx

Wassalamu'alaikumwrwb

________________________________
Dari: Kid Mr. <mr.nmkid@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Sabtu, 25 Februari 2012 22:06
Judul: Re: [belajar-excel] Mengambil Data Berurutan

Hai Saismica,

Dengan asumsi :
1. jumlah baris max 999
2. 0 <= nilai data < 999999

Array formula :
=MOD(SMALL(IF(LEN($A$3:$D$11),(COLUMN($A$3:$D$11)*1000+ROW($A$3:$D$11)-2)*10^6+$A$3:$D$11),ROW(1:1)),10^6)

Untuk menghilangkan hasil error value :
1. xl2007 ke atas gunakan IFError
=IFError( MOD(SMALL(IF(LEN($A$3:$D$11),(COLUMN($A$3:$D$11)*1000+ROW($A$3:$D$11)-2)*10^6+$A$3:$D$11),ROW(1:1)),10^6) , "" )

2. semua versi :
=IF(row(1:1)>count($A$3:$D$11),"", MOD(SMALL(IF(LEN($A$3:$D$11),(COLUMN($A$3:$D$11)*1000+ROW($A$3:$D$11)-2)*10^6+$A$3:$D$11),ROW(1:1)),10^6) )

Wassalamualaikum Wr. Wb.
Kid.

On Sat, Feb 25, 2012 at 21:29, Zerlinda Seismica <seismica@yahoo.com> wrote:

>
>Salam xls
>
>Maaf nih, minta petunjuk lagi sama para suhu untuk mengambil data dengan berurutan seperti terlampir.
>
>Makasih bangat ya...
>Seismica
>
>
>
>

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

2a.: Re: memberikan nilai pada cell berdasarkan kriteria

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi

Sat Feb 25, 2012 7:19 am (PST)

Jawaban terlampir.

Salam,
Hendrik Karnadi

________________________________
From: Si Baee <si.baee@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Saturday, 25 February 2012, 9:23
Subject: [belajar-excel] memberikan nilai pada cell berdasarkan kriteria

Dear Master

mohon bantuanya bagai mana caranya untuk memberikan nilai pada cell berdasarkan kriteria
contoh terlampir

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

3a.: Re: array list file #N/A di kondisikan kosong ( Tidak ada )

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

Sat Feb 25, 2012 10:24 pm (PST)

1.
Benar kata Ki Ageng Semprul... "dibuat *PROSEDUR SUB*" saja !
Kalau keperluannya HANYA untuk mengisi Combobox, kita tidak perlu makro UDF
(Prosedur Function)
* > and then: UDF ditulis di Sheet sbg array formula (yang kalau cell
terpakai lebih banyak dari array yg didapat mendatangkan err Value #N/A)
* > and then: list yg terjadi di sheet (karena formula berbantuan UDF itu)
dipakai sebagai ROW-SOURCE bagi si Combo
Muter seperti gasingan, salah salah malah bisa 'cenat-cenut' sendiri lho
rèk..

2.
Agak herannya, sudah ditunggu-tunggu, tapi pak nor hidayat, tidak berkenan
untuk menyebutkan sumber makronya dan tidak pula menyertakan lampiran
workbooknya.
Sedangkan kalau bicara soal makro di excel, jika Lahan/"Area bermainnya
makro" (biasanya sheet + cellsnya) tidak di tunjukkan, para calon penanggap
biasanya menurun niat membantu-nya; karena tentu 'ogah' kalau harus
mengarang sendiri segala macam data, form dsb.
(idealnya 'kan sebelum VBA-code dilempar ke JalUm, harus sudah di test di
LAHAN & AREA bermainnya makro yg sesuai) agar tidak terlalu banyak
kesalahan yg menundang pertanyaan baru..

3.
Terlampir file terkompress berisi sebuah folder yg didalamnya berisi file 1
XLSM dan beberapa contoh Image-File
(berhubung filesize nya 538KB (berisi banyak *jpg) file dapat anda unduh
sendiri di sini
http://www.box.com/s/aglpxtqyqyjj3nia1stl

Di sheet 1; jika tombol X di ceklik, akan dimunculkan Userform1
Tetapi sesaat sebelum dimunculkan (yaitu ketika terjadi event ititialize)
sebuah Combobox di dalam userform tsb di isi items yg berupa text nama-nama
file, ASAL BUKAN file excel berisi makro pengendalinya (ThisWorkbook.Name)
Di makro ini diberi BONUS : FileList (yg diumpankan ke Combobox) juga
ditulis di Kolom G, hanya untuk pajangan saja!, agar penonton tidak kecewa..

Setelah Userform Aktif, jika Combobox di pilih salah satu ITEMnya / diganti
VALUE-nya (=terjadi event Change) , maka file gambar yg "KEBETULAN"
namanya terpampang di Combobox di panggil untuk di LOAD ke object Image yg
ada di UserForm itu juga.

Cuma begitu kan ?!

Yg perlu di catat adalah: setiap Userform di LOAD, Items di dalam si Combo
selalu di refresh isinya (dengan TEXT nama semua file yg seFolder dengan
ThisWorkbook, selain nama ThisWorkbook itu sendiri).
Keadaan ini mengakibatkan: jika anda menambah atau mengurangi cacah files
dalam "seFolder" itu ataupun me-RENAME beberapa nama files; maka Combobox
(dan juga daftar di kolom G) akan selalu SESUAI dengan daftar file yg ada
di "SeFolder" tsb.

Mudah-mudahan seperti itu yg diinginkan oleh pak nor hidayat..

[image: Inline image 1]

Private *Sub* GetFileList( _

Optional sPath As String = vbNullString, _

Optional sKriteria As String = vbNullString)

' modifikasi: iHapsari / smg, 25 Feb 2012

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

Dim sFile As String, sCari As String

If LenB(sPath) = 0 Then

sPath = ThisWorkbook.Path & "\"

Else

If Right$(sPath, 1) <> "\" Then sPath = ThisWorkbook.Path & "\"

End If

sCari = IIf(LenB(sKriteria) = 0, "*", sKriteria)

Application.DisplayAlerts = False

Application.EnableEvents = False

' Loop langsung mengisi Combobox

sFile = Dir$(sPath & sCari)

Do While LenB(sFile) <> 0

If Not sFile = ThisWorkbook.Name Then

CboName.AddItem sFile

' 2 baris di bawah ini hanya untuk HIBURAN Anda saja

' (= mengisi nama file ke Sheet1 kolom G) / boleh dihapus.

i = i + 1: Range("G" & i) = sFile

End If

sFile = Dir$

Loop

Application.EnableEvents = True

Application.DisplayAlerts = True

End Sub

'--------

Unduh Lampiran: http://www.box.com/s/aglpxtqyqyjj3nia1stl

maarweg - 5000 koln / 26 feb 2012
- i -

2012/2/25 Ki Semprul <semprul.ki@gmail.com>

> **
> Dibuat sbg prosedur Sub saja, jangan prosedur Fungsi.
> Jadi penulisannya ke range selalu PAS dengan jumlah temuan
>
> On Sat, Feb 25, 2012 at 7:36 AM, nor hidayat <dayatshogun46@yahoo.co.id>
> wrote:
> > Mohon bantuan exceler untuk masalah array
> >
> > Macro List file yang saya gunakan seperti dibawah ini.
> > > Public Function GetFileList( _
> > > Optional sPath As String = vbNullString, _
> > > Optional sKriteria As String = vbNullString, _
> > > Optional lResultAsArray As Long = 0) As Variant
> > > ' ---bla bla bla ----
> > > End Function
> >
> > Namun hasil bila tidak ada file = #N/A, yang saya inginkan bagai mana
> jika array #N/A
>
> dikondisikian kosong seperti data sel yang belum terisi.
>
>
>

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

Create New Topic | Visit Your Group on the Web

Messages

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

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

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

EXCEL FEED

Minggu, 26 Februari 2012

[belajar-excel] Digest Number 1528

Messages In This Digest (6 Messages)

Messages

Mengambil Data Berurutan

Posted by: "Zerlinda Seismica" seismica@yahoo.com seismica

Sat Feb 25, 2012 6:29 am (PST)

Re: Mengambil Data Berurutan

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

Sat Feb 25, 2012 7:06 am (PST)

Re: Mengambil Data Berurutan

Posted by: "HerrSoe" herrsoe@gmail.com herrsoe

Sat Feb 25, 2012 12:45 pm (PST)

Bls: [belajar-excel] Mengambil Data Berurutan

Posted by: "Zerlinda Seismica" seismica@yahoo.com seismica

Sat Feb 25, 2012 5:54 pm (PST)

Re: memberikan nilai pada cell berdasarkan kriteria

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi

Sat Feb 25, 2012 7:19 am (PST)

Re: array list file #N/A di kondisikan kosong ( Tidak ada )

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

Sat Feb 25, 2012 10:24 pm (PST)

Tidak ada komentar:

Posting Komentar

Followers

Blog Archive

About Me