Senin, 13 Februari 2012

[belajar-excel] Digest Number 1511

Messages In This Digest (7 Messages)

Messages

1a.

Mendeteksi Data yang Sama

Posted by: "sin.ur4t@yahoo.com" sin.ur4t@yahoo.com   sin.ur4t

Sun Feb 12, 2012 8:21 am (PST)



salam be excel...
Langsung saja, mohon pencerahannya ttg bagaimana cara mendeteksi data yg sama dari sederetan data.
kasus yg sy hadapi sprt ini:
Sel A3 s/d A10 terurut dari atas ke bawah masing-masing berisi data: 2,4,7,5,0,7,1,7.

Pertanyaan 1:
Pd suatu sel akan ditulis rumus: kapan terakhir kali muncul data yg sama dgn isi sel A10?? Jawabannya adalah 2..
Maksudnya, sblm sel A10, angka 7 muncul terakhir kali pada sel A8 yg jaraknya 2 baris sebelum sel A10.

Pertanyaan 2:
Pd suatu sel akan ditulis rumus: pada sel mana saja muncul angka 7?? Jawabannya adlh sel A5,A8,A10.

Maaf pertanyaan ini disampaikan tanpa lampiran.
Mohon dibantu, ini sangat penting bagi kami. Trm ksh sblmnya atas pencerahan rekan2.

Salam hormat,
Imam F. Sinurat - Sumut
Powered by Telkomsel BlackBerry®
1b.

Re: Mendeteksi Data yang Sama

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

Sun Feb 12, 2012 9:19 am (PST)



Pak Imam,

1. Posisi nilai yang sama dengan data terakhir sebelum posisi data terakhir
Untuk mendapatkan nilai terakhir, bisa dicari dengan : (sebaiknya
diletakkan pada sebuah cell khusus berisi nilai terakhir karena akan
digunakan berulang kali)
=*LOOKUP(9^9,A3:A10)*

Posisi baris excel terakhir = Jumlah baris excel di nilai terakhir =
Rows(A1:A10)

Nilai yang sama dengan data terakhir dapat ditemui terakhir pada baris :
(array formula)
=ROWS(A1:A10)-LARGE((A1:A10=*LOOKUP(9^9,A3:A10)*)*ROW(A1:A10),2)

2. Mendaftar alamat cell yang bernilai sama dengan data terakhir
>> Jika hasil boleh dipisah menjadi dalam banyak baris, maka salah satu
caranya adalah dengan array formula berikut :
=IF(ROW(A3:A10)-2<=COUNTIF(A3:A10,*LOOKUP(9^9,A3:A10)*),"A"&SMALL(IF(A3:A10=
*LOOKUP(9^9,A3:A10)*,ROW(A3:A10)),ROW(A3:A10)-2),"")

>> Jika hasil harus sebagai nilai hasil concatenate di sebuah cell saja,
maka salah satu caranya adalah :
A. buat kolom bantu pada data (misal diberi header teks 'hlp' ~ 3 char)
[misal di kolom B]
B. kolom bantu diisi formula :
=IF(A3=$F$2,B2&",A"&ROW(),B2)
C. Formula di copy ke seluruh baris data
D. Buat formula hasil concatenate (disebuah cell hasil)
=MID(LOOKUP("z",B3:B10),5,99)

Wassalamualaikum Wr. Wb.
Kid.

2012/2/12 <sin.ur4t@yahoo.com>

> 2,4,7,5,0,7,1,7
1c.

Re: Mendeteksi Data yang Sama

Posted by: "Ki Semprul" semprul.ki@gmail.com   ki_semprull

Sun Feb 12, 2012 8:02 pm (PST)



Langsung saja menjawab walaupun mungkin salah

Rumus Mr. Kid Oke banget...., Top Markotop, Mantabs Surantabs...
tetapi mari kita coba dgn PDKT lain

( 1 )

*=MAX(IF(A3:A10=C3,ROW(1:8))) - LARGE(IF(A3:A10=C3,ROW(1:8)),2)*

Array Formula ini mengasumsikan data yg ditanyakan (kriteria) ditulis di C3
Misal di C3 di tulis angka 7, dan pada Range A3:A10 data seperti ini
(7) ada lebih dari satu "biji".
Karena data yg sesuai dengan Kriteria lebihdari satu, maka ada
beberapa INDEX BARIS (posisi urutan) nya misalnya (dlm kasus kriteria = 7):
3, 6, 8

Array formula diatas menghasilkan = 2
yaitu selisih dari PosisiUrutan (indexBaris) TERBESAR atas data yg
memenuhi kriteria; dikurangi PosisiUrutan TERBESAR-KEDUA milik data yg
memenuhi kriteria.

*Iseng & berangan-angan mengenai pertanyaan No.1:*
*Ada data (angka 7) sebanyak 3 buah, Bp Sin Urat dlm kasus ini (Pertanyaan
No.1) membuat kriterianya = *
*dengan kata-kata "ISI CELL A10" yg berarti data Angka 7.*
*
*
*Bgmana pak Sin Urat membedakan CARA Membuat /Menuliskan kriterianya jika
Bapak ingin *
*Kriteria = "ISI CELL A8"*
*Jika dengan ISI CELL berarti =7 juga*
*Dengan rumus diatas hasilnya tetap = 2*
*Padahal kalau yg dijadikan kriteria adalah Cell A8 (yg juga berisi data (
7 ), hasil formula harusnya = 3*
*Jarak cell berisi angka 7 sebelum yg ada di A8 (yaitu A5 yg berarti 3
cell sebelum A8)*
*Sekali lagi yg ingin saya tanyakan: bagaimana Kriteria ingin dituliskan ??
"*
*Cell address-nya, misal "C8", ataukah isi (data value) suatu cell misal :
7 ?*

( 2 )

=IFERROR(ADDRESS(SMALL(IF(A3:A10=C3,ROW(A3:A10)),ROW(1:8)),COLUMN(A3:A10),4),"")

Berarti kita KEMBALI LAGI kita ke masalah FILTERING (sudah lupa yaaa.)
Data Referensi (yaitu A3:A10) di-filter (disaring) agar hanya menunjukkan
data yg samadengan Kriteria (C3)
Karena alat filternya formula, maka hanya bisa menghasilkan
** data yg sama_dengan Kriteria >>> ditampilkan NOMOR BARISNYA
** data yg tidak_sama_dengan Kriteria ditampakkan sebagai FALSE
kedua pekerjaan ini diformulasikan dengan:
IF(A3:A10=C3,ROW(A3:A10))
atau lengkapnya IF(A3:A10=C3,ROW(A3:A10), *FALSE*)
(baiknya kita ingat bahwa: Argument3 pada fungsi IF jika dikosongkan sudah
dengan sendirinya menghasilkan FALSE)

Dengan formula itu letak* data terfilter* masih terpecar-pencar, maka kita
harus mengumpulkannya ke atas yaitu dengan men-SORT-nya secara formula
(menggunakan fungsi SMALL atau LARGE)
SMALL(IF(A3:A10=C3,ROW(A3:A10)),ROW(1:8))

Setelah urut, informasi NOMOR BARIS (tidak harus samadengan: IndexBaris) yg
sudah ngumpul ke atas itu akan kita jadikan alamat CELL (menggunakan fungsi
ADDRESS, yg memerlukan angka KOLOM)
*ADDRESS(*SMALL(IF(A3:A10=C3,ROW(A3:A10)),ROW(1:8)),*COLUMN(A3:A10), 4 )*

Argument berupa angka 4 itu menyuruh formula agar hasil address bergaya
FullRelatif ("A1", bukannya $A$1 (full absolute) atau $A1 atau A$1
(absolut/relatif) )

Dlm bentuk ringkas Fungsi Address (menghasilkan text alamat cell) adalah sbb
Address(Nomor_Baris, Nomor_Kolom, Kode_Absolute_Relatif, Kode_A1_R1C1,
NamaSheet)

Seperti biasa ada beberapa argument yg boleh dicuekin karena kita inginkan
defaultnya
[image: argument fungsi address.PNG]

Akhirnya hasil berupa ERROR-values (ex data FALSE) lebih baik dilarang
menampakkan diri
dan ini menjadi tugas fungsi IFERROR
IFERROR( RUMUS, "")

Mudah mudahan cara ngomong saya tidak terlalu menjengkelkan, dan masih bisa
dipahami.

*Semprulll... Ki !!!*
Jateng

2012/2/12 <sin.ur4t@yahoo.com>

> *salam be excel...
> Langsung saja, mohon pencerahannya ttg bagaimana cara mendeteksi data yg
> sama dari sederetan data.
> kasus yg sy hadapi sprt ini:
> Sel A3 s/d A10 terurut dari atas ke bawah masing-masing berisi data:
> 2,4,7,5,0,7,1,7.
>
> Pertanyaan 1:
> Pd suatu sel akan ditulis rumus: kapan terakhir kali muncul data yg sama
> dgn isi sel A10?? Jawabannya adalah 2..
> Maksudnya, sblm sel A10, angka 7 muncul terakhir kali pada sel A8 yg
> jaraknya 2 baris sebelum sel A10.
>
> Pertanyaan 2:
> Pd suatu sel akan ditulis rumus: pada sel mana saja muncul angka 7??
> Jawabannya adlh sel A5,A8,A10.
>
> Maaf pertanyaan ini disampaikan tanpa lampiran.
> Mohon dibantu, ini sangat penting bagi kami. Trm ksh sblmnya atas
> pencerahan rekan2.
>
> Salam hormat,
> Imam F. Sinurat - Sumut*

* *
2a.

Bls: Fwd: [belajar-excel] List File Aray satu folder tanpa menuliska

Posted by: "nor hidayat" dayatshogun46@yahoo.co.id   dayatshogun46

Sun Feb 12, 2012 4:46 pm (PST)



Setelah diotak atik sFilePath = ThisWorkbook.Path & "\"

maka saya ganti sFilePath = ThisWorkbook.Path & "\"

Data ini berguna untuk setiap kita memindahkan folder maka yang yang di listkan isi folder itu saja tanpa menuliskan alamat.

Terimakasih atas saran dan masukannya

Salam
Nor Hidayat

--- Pada Sab, 11/2/12, i Haps <hapsari.stlizbeth@gmail.com> menulis:

Dari: i Haps <hapsari.stlizbeth@gmail.com>
Judul: Fwd: [belajar-excel] List File Aray satu folder tanpa menuliskan alamat
Kepada: "BeExcel" <belajar-excel@yahoogroups.com>
Tanggal: Sabtu, 11 Februari, 2012, 4:36 PM

 

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

3.

Mohon Pencerahannya

Posted by: "Joe Dien" shimano02@ymail.com   shimano02@ymail.com

Sun Feb 12, 2012 10:14 pm (PST)



Dear  Master exceller....

saya ingin mengambil data dari excell ke word.
yang menjadi pertannyaan saya adalah :
- Bisakah kita ambil data dari excell ke word hanya sebagian (di excell tertulis 15 Januari 2012) kami hanya mau ambil bulannya saja/tahunnya saja di word (januari/2012)
- bagaimana merubah data dari date ke Text (di excell 15 januari 2012) jika di pindah ke word hanya muncul angka...

just informasi:
data ini kami ambil dari excell ke word menggunakan"Select data source"

saya harap exceller mengerti bahasa saya..... heeeee

mohon pencerahannya ya......

regards,
Joedien
4a.

Re: bagaimana cara memunculkan pesan peringatan..??

Posted by: "Imma nullah" kinantan_31@yahoo.com   kinantan_31

Sun Feb 12, 2012 10:48 pm (PST)



Dear Kid,

Sebelumnya saya ucapkan terima kasih
banyak atas responnya.
Tapi f4 bukanlah angka yg langsung
diinput, tapi merupakan hasil penjumlahan (sum) dari beberapa kolom
disampingnya (A4,
B4,C4,D4,E4), seperti
contoh telampir.
 
Best regard,
 
Im

________________________________
From: Kid Mr. <mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, February 10, 2012 5:57 PM
Subject: Re: [belajar-excel] bagaimana cara memunculkan pesan peringatan..??


 
Dear Imma,

Coba manfaatkan fitur data validation, pilih allow-nya Custom, dan bagian Formula disi :
=$F4<=$G4

Regards,
Kid.

2012/2/10 Imma nullah <kinantan_31@yahoo.com>

> 
>Dear Para Master dan Teman sekalian
>Kasusnya begini :
saya ingin membatasi jumlah di kolom F4 tidak boleh melebihi angka di kolom G4, sementara nilai yang ada di kolom F4 adalah hasil penjumlahan dari beberapa sel (A4, B4,C4,D4,E4). Nah pada saat kita input nilai di salah satu sel antara A4 s.d. E4 yang menyebabkan nilai dikolom F4 melebihi angka di kolom G4 maka akan muncul pesan peringatan. Contoh file terlmapir.
>Mohon Pecerahannya, sebelumnya saya ucapkan terima kasih banyak.
>
>
>Warm Regards
>Im
>
>

4b.

Re: bagaimana cara memunculkan pesan peringatan..??

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

Mon Feb 13, 2012 12:02 am (PST)



Bisa pakai Macro dengan memanfaatkan Event Worksheet_Change
File jawaban terlampir.

Salam,
Hendrik Karnadi

jangan lupa aktifkan macronya

________________________________
From: Imma nullah <kinantan_31@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Monday, 13 February 2012, 13:48
Subject: Re: [belajar-excel] bagaimana cara memunculkan pesan peringatan..??


 
Dear Kid,

Sebelumnya saya ucapkan terima kasih
banyak atas responnya.
Tapi f4 bukanlah angka yg langsung
diinput, tapi merupakan hasil penjumlahan (sum) dari beberapa kolom
disampingnya (A4,
B4,C4,D4,E4), seperti
contoh telampir.
 
Best regard,
 
Im

________________________________
From: Kid Mr. <mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, February 10, 2012 5:57 PM
Subject: Re: [belajar-excel] bagaimana cara memunculkan pesan peringatan..??


 
Dear Imma,

Coba manfaatkan fitur data validation, pilih allow-nya Custom, dan bagian Formula disi :
=$F4<=$G4

Regards,
Kid.

2012/2/10 Imma nullah <kinantan_31@yahoo.com>

> 
>Dear Para Master dan Teman sekalian
>Kasusnya begini :
saya ingin membatasi jumlah di kolom F4 tidak boleh melebihi angka di kolom G4, sementara nilai yang ada di kolom F4 adalah hasil penjumlahan dari beberapa sel (A4, B4,C4,D4,E4). Nah pada saat kita input nilai di salah satu sel antara A4 s.d. E4 yang menyebabkan nilai dikolom F4 melebihi angka di kolom G4 maka akan muncul pesan peringatan. Contoh file terlmapir.
>Mohon Pecerahannya, sebelumnya saya ucapkan terima kasih banyak.
>
>
>Warm Regards
>Im
>
>

Recent Activity
Visit Your Group
Yahoo! Groups

Parenting Zone

Resources and tips

for parents

Yahoo! Groups

Dog Group

Connect and share with

dog owners like you

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
---------------------------------------------------------------------
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
---------------------------------------------------------------------

Tidak ada komentar:

Posting Komentar