Kamis, 20 Oktober 2011

]] XL-mania [[ Digest Number 2277

Messages In This Digest (14 Messages)

Messages

1a.

Re: complicated problem, ada hasil kalau gitu deh :(

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

Wed Oct 19, 2011 9:13 am (PDT)



Coba gunakan array formula Index(Match) :
=*INDEX($M$5:$M$13,MATCH(A5&TRIM(B5),$G$5:$G$13&$H$5:$H$13,0))*

Karena match bisa menghasilkan error value, maka bagian match bisa dijadikan
kondisi cek memanfaatkan fungsi IsError dan array formula menjadi :
=IF( ISNUMBER( *MATCH(A5&TRIM(B5),$G$5:$G$13&$H$5:$H$13,0)* ) ,* INDEX(
$M$5:$M$13 , MATCH(A5&TRIM(B5),$G$5:$G$13&$H$5:$H$13,0) ) *, "" )

Regards,
Kid.

2011/10/16 banar sumboro <banarsumboro07@gmail.com>

> **
>
>
> Halo excel expert!
> saya punya problem nih. kasusnya gini, berdasarkan data yang ada, saya
> ingin mematchkan 2 cell untuk mendapatkan hasil di cell ketiga
>
> seperti lampiran, yang saya ingin dapatkan hasil pada cell C14 adalah,
> hanya bila A5 ada di range G5:G13 dan B5 ada di range F5:F13 TAPI
> tepat di sebelah kanan cell G, maka hasilnya adalah M5
> contoh, hanya bila A5=G7 DAN B5=H7, maka hasilnya M7
> tolong dong masterr..
> -pencari cahaya- jakarta
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
1b.

Re: complicated problem, ada hasil kalau gitu deh :(

Posted by: "..:: priel ::.." XAVREIL@GMAIL.COM   magganjenk

Wed Oct 19, 2011 9:18 am (PDT)



mas Banar alias pencari cahaya,

saya coba urun rembug, dengan cara yang sederhana saja tapi ya
coba dulu menggunakan dummy untuk memudahkan pengerjaannya, nantinya dummy
bisa disamarkan atau disembunyikan
begitu juga dengan error yang terjadi pada hasil kalkulasi formula, bisa
disembunyikan agar lebih rapi

semoga membantu

salam
-priel-

2011/10/16 banar sumboro <banarsumboro07@gmail.com>

> **
>
>
> Halo excel expert!
> saya punya problem nih. kasusnya gini, berdasarkan data yang ada, saya
> ingin mematchkan 2 cell untuk mendapatkan hasil di cell ketiga
>
> seperti lampiran, yang saya ingin dapatkan hasil pada cell C14 adalah,
> hanya bila A5 ada di range G5:G13 dan B5 ada di range F5:F13 TAPI
> tepat di sebelah kanan cell G, maka hasilnya adalah M5
> contoh, hanya bila A5=G7 DAN B5=H7, maka hasilnya M7
> tolong dong masterr..
> -pencari cahaya- jakarta
> __.
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
1c.

Re: complicated problem, ada hasil kalau gitu deh :(

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

Wed Oct 19, 2011 9:18 am (PDT)



mengapa hasilnya kok harus ditulis di C14 yaaa ??
mungkin rumusnya begini..:

[image: mencari cari.PNG]

*ditulis di C14*
=IF(COUNTIF($R$14:$R$22,Q14),OFFSET($M$4,MATCH(Q14,$R$14:$R$22,0),0),"")
di copy ke 11 cells di bawahnya

~siti

2011/10/16 banar sumboro <banarsumboro07@gmail.com>
>
> Halo excel expert!
> saya punya problem nih. kasusnya gini, berdasarkan data yang ada, saya
> ingin mematchkan 2 cell untuk mendapatkan hasil di cell ketiga
>
> seperti lampiran, yang saya ingin dapatkan hasil pada cell C14 adalah,
> hanya bila A5 ada di range G5:G13 dan B5 ada di range F5:F13 TAPI
> tepat di sebelah kanan cell G, maka hasilnya adalah M5
> contoh, hanya bila A5=G7 DAN B5=H7, maka hasilnya M7
> tolong dong masterr..
> -pencari cahaya- jakarta
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
2a.

Re: Penulisan Macro - Copy dan Paste secara perulang

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Wed Oct 19, 2011 9:14 am (PDT)



Sub Proses3StepYgDiUlangUlang_haps()
'--hapsari / smg, 16 Okt 2011
'--milis XL-mania message No 19396
'--versi jiplak makro siti tapi pakai For-Next
'----------------------------------
Dim TopROW As Range, NexROW As Range
Dim n As Long, NumRows As Long

Set TopROW = Application.InputBox( _
"Tentukan Baris Pertama Data Anda", _
"Makro ingin tahu TopRow & Jumlah Kolom", _
Selection.Address, , , , , 8)
NumRows = Cells(Rows.Count, TopROW(1, 1).Column). _
End(xlUp).Row + 3 - TopROW(1).Row

For n = 1 To NumRows
If n Mod 3 = 1 Then
Set NexROW = TopROW.Offset(n - 1, 0)
Else
NexROW.Copy
TopROW(n, 1).PasteSpecial xlPasteValuesAndNumberFormats
End If
Next n
Application.CutCopyMode = False

End Sub

2011/10/14 Supirman <supirman1508@yahoo.co.id>

> **
>
>
> Dear Master
> Saya ingin menanyakan penulisan Macro
> Misalnya saya punya data seperti terlampir
>
> *Masalah*
> Saya harus mengcopy data A2:F2 dan selanjutnya di paste di A3:F4
> Demikian selanjutnya saya harus mencopy data di A5:F5 selanjutnya di copy
> di A6:F7
>
> Pekerjaaan ini harus dilakukan berulang karena data sebayak 11.000 buah
>
> *Pertanyaannya*
> Bagaimana penulisan nya dalam macro sehingga menghasilkan hasil seperti
> tersebut diatas dimana alamat cell sesuai dengan yang saya pilih
>
> Demikian mohon pencerahannya, terimakasih
>
>
>
>
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)
3a.

Re: Logika If , Or data tidak maksimal

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

Wed Oct 19, 2011 9:14 am (PDT)



Array formula filtering untuk mendapatkan nomor index baris data yang sesuai
kriteria.
=SMALL(IF((cust=$C$1)+(cust=$D$1),ROW(cust)-ROW('Customer List
Report'!$B$3)),ROW(1:1))

Ambil data menggunakan index pada baris index yang didapatkan hasil array
formula filtering.

Regards.
Kid.

2011/10/17 Neri <neriyanto@anjrent.com>

> **
>
>
> Dear Para master.****
>
> ** **
>
> Pertanyaan saya Fungsi Logika If dan Or untuk data terlampir tidak berjalan
> maksimal , hanya baca satu data saja. ( data Ribuan )****
>
> Hasil yang diinginkan berbeda hanya membaca baris pertama saja.****
>
> ** **
>
> =IF(OR($B$1="C0003",$B$1="C0004"),VLOOKUP($B$1,'Customer List
> Report'!$B$3:$E$23,3,TRUE))****
>
> ** **
>
> Terima kasih****
>
> ** **
>
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
3b.

Re: Logika If , Or data tidak maksimal

Posted by: "Tommy" tomz.zlow@gmail.com   tomz_aja

Wed Oct 19, 2011 9:14 am (PDT)



Dear Neri,

Kalau seandainya data sudah di-sort terlebih dahulu sehingga berurut berdasarkan customer ID, maka bisa gunakan fungsi ini:

=IF(A10<1+COUNTIF('Customer List Report'!B:B,Jan!$B$1),INDEX('Customer List Report'!D:D,MATCH(Jan!$B$1,'Customer List Report'!B:B,)+Jan!A10-1),"")

untuk hilangkan penampakan nol, bisa gunakan format: general;;
Blessings,
tomz

----- Original Message -----
From: Neri
To: XL-mania@yahoogroups.com
Sent: Monday, October 17, 2011 9:56 AM
Subject: ]] XL-mania [[ Logika If , Or data tidak maksimal

Dear Para master.

Pertanyaan saya Fungsi Logika If dan Or untuk data terlampir tidak berjalan maksimal , hanya baca satu data saja. ( data Ribuan )

Hasil yang diinginkan berbeda hanya membaca baris pertama saja.

=IF(OR($B$1="C0003",$B$1="C0004"),VLOOKUP($B$1,'Customer List Report'!$B$3:$E$23,3,TRUE))

Terima kasih

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

Re: Logika If , Or data tidak maksimal

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

Wed Oct 19, 2011 9:17 am (PDT)



ataukah yg dimaksud sebetulnya adalah FILTER ??
dan cell B1 (Sheet 'Jan') itu sebagai Kriterianya ??

=IF(ISNUMBER($E10),OFFSET('Customer List Report'!D$3,$E10,0),"")

biar gampang dipahami diperlukan kolom helper di kolom E
berisi *Array Formula MultiHasil *
=SMALL(IF(cust=B1,'Customer List Report'!A4:A22),'Customer List
Report'!A4:A22)

2011/10/17 Neri <neriyanto@anjrent.com>
>
> Dear Para master.
>
> Pertanyaan saya Fungsi Logika If dan Or untuk data terlampir tidak
berjalan maksimal ,
> hanya baca satu data saja. ( data Ribuan )
> Hasil yang diinginkan berbeda hanya membaca baris pertama saja.
>
> =IF(OR($B$1="C0003",$B$1="C0004"),VLOOKUP($B$1,'Customer List
Report'!$B$3:$E$23,3,TRUE))
>
> Terima kasih
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
4a.

Bls: ]] XL-mania [[ kode macro untuk batasa panjang karakter

Posted by: "Nana Suwargana" nanacasef@yahoo.co.id   nanasuwargana

Wed Oct 19, 2011 9:17 am (PDT)



terimakasih 'mba Devi

maaf mba... saya kurang paham 
dalam contoh ini di anggap anda mengaplikasikan object TextBox 
yg dibuat dari Active-X Control ditempelkan di sheet (bukan di userForm)

saya buat sendiri form nya namanya form_barang, tar hasil inputannya ketika klick tombol "tambah" akan dimasukan ke  worksheet barang.
Nah saya pengennya ketika tekan "tambah", kalo karakternya >6 karakter akan memberi peringatan 
Kalau untuk yang lebih dari 6 karakter saya dah berhasil dengan mengubah properties txt_kode dengan mengubah MaxLength menjadi 6
untuk yang <6 karakter belum berhasil.
saya dah coba prosedur dari mba Devi
Private Sub txt_kode_LostFocus()
   If Len(txt_kode.Value) < 6 Then
      MsgBox "panjang kode kurang dari 6 karakter", _
             vbExclamation, "Jumlah Karakter kode harus 6 karakter"
   End If
End Sub

Saya coba jalankan formnya dengan menekan tombol "tambah" dan karakter yang saya masukan hanya 4 karakter, datanya tetap masuk 
apakah ada yang salah?

terimakasih

Nana Suwargana

________________________________
Dari: STDEV(i) <setiyowati.devi@gmail.com>
Kepada: XL-mania@yahoogroups.com
Dikirim: Minggu, 16 Oktober 2011 21:40
Judul: Re: ]] XL-mania [[ kode macro untuk batasa panjang karakter

 
Mungkin begini....
dalam contoh ini di anggap anda mengaplikasikan object TextBox 
yg dibuat dari Active-X Control ditempelkan di sheet (bukan di userForm)

Kita buat dua prosedur event (event Change dan event LostFocus)

Private Sub TextBox1_Change()
   If Len(TextBox1.Value) > 6 Then
      TextBox1.Value = Left(TextBox1.Value, 6)
   End If
End Sub

Private Sub TextBox1_LostFocus()
   If Len(TextBox1.Value) < 6 Then
      MsgBox "panjang data kurang dari 6 karakter", _
             vbExclamation, "Tak kasih tauk ya.."
   End If
End Sub

2011/10/11 Nana Suwargana <nanacasef@yahoo.co.id>

>Dear member xl-mania n suhu2 xl
>saat ini saya sedang belajar ngotak-ngatik macro setelah sekian lama berkenalan dengan excel
>saya ingin memberi batasan inputan pada text box di form yang saya buat
>batasannya adalah pada panjang karakter
>misalkan untuk text box kode, panjang karakternya harus sama dengan 6 karakter, kalau kurng atau lebih maka akan keluar msgbox
>atau text box nama panjang karakternya tidak boleh legih dari 20
>kode apa yang harus saya gunakan?
>
>
>terimakasih sebelumnya
>saya benar2 baru berhubungan dengan macro, jadi kalo ada istilah yg salah mohon diluruskan, n mohon maklum kalo nanya mulu
>
>
>wasalam
>
>
>Nana Suwargana
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
5a.

Membuat menu ganti password

Posted by: "iskandar wagimin harjo prawiro" nomor_pribadi@yahoo.co.id   nomor_pribadi

Wed Oct 19, 2011 9:20 am (PDT)



Saya tengah membuat aplikasi yang digunakan oleh beberapa user. Setiap
user diharuskan untuk login dengan memasukan username dan password.
Untuk menunjang aplikasi agar lebih user friendly maka saya ingin
menambahkan menu ganti password, namun saya terkendala dalam membuat
menu tersebut. Saya mencoba dengan menggunakan cara find kemudian di
offset baru diganti passwornnya, namun script saya masih belum benar
maklum masih belajar.

Private Sub gantipass_Click()

    Dim seleksicari As Range

    Dim cari As String

    cari = Sheets("Sheet1").nama.Text

    Set seleksicari = wspass.Range("A2:A65536")

    seleksicari.Find(What:=cari, After:=ActiveCell, LookIn:=xlValues, _

        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _

        MatchCase:=False, SearchFormat:=False).Activate

    'sampai bagian ini belum berhasil, jd penulisan scriptnya belum dilanjutkan...

End Sub

Mohon bantuan para suhu untuk memberikan pencerahan bagaimana membuat menu ganti password tersebut.

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

Re: Membuat menu ganti password

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

Wed Oct 19, 2011 9:46 pm (PDT)



Coba script untuk event click tombol ganti berikut :

Dim rngNama As Range
Dim sTemp As String, sMsg As String

With Sheet1
'cek input nama
sTemp = Trim$(.nama.Text)
If LenB(sTemp) = 0 Then
sMsg = "Nama masih kosong"
GoTo Keluar
End If

Set rngNama = Sheet2.Range("a1").CurrentRegion.Resize(,
1).Find(sTemp, lookat:=xlWhole, MatchCase:=True)
If rngNama Is Nothing Then
sMsg = "Tidak ada nama : " & sTemp
GoTo Keluar
End If

'cek pass lama
sTemp = .passlama.Text
If LenB(sTemp) = 0 Then
sMsg = "Isi password lama lebih dulu."
GoTo Keluar
ElseIf InStr(sTemp, rngNama.Offset(, 1).Value) <> 1 Then
sMsg = "Password lama tidak sesuai."
GoTo Keluar
End If

'cek pass baru dan ulang pass baru
sTemp = .passbaru.Text
'jika minimal karakter password adalah 4, ganti = 0 dengan = 8 atau
'ganti baris If lenb(stemp)=0 then dengan if len(stemp)=4 then
If LenB(sTemp) = 0 Then
sMsg = "Isi passsword baru dan ulangi pengisian di re pass
baru."
GoTo Keluar
ElseIf InStr(sTemp, .ulangpassbaru.Text) <> 1 Then
sMsg = "Password baru berbeda dengan re pass baru."
GoTo Keluar
End If

'setelah semua trap, maka sampai sini pass baru bisa diisikan
rngNama.Offset(, 1).Value = sTemp
'password
rngNama.Offset(, 2).Value = rngNama.Value & " " & sTemp 'nama
password

'set pesan sukses
sMsg = "Password anda telah diganti."

Keluar:
'clean area input
.nama.Text = vbNullString
.passlama.Text = vbNullString
.passbaru.Text = vbNullString
.ulangpassbaru.Text = vbNullString
End With

'pesan akhir
MsgBox sMsg

Wassalam.
Kid.

2011/10/19 iskandar wagimin harjo prawiro <nomor_pribadi@yahoo.co.id>

> **
>
>
> Saya tengah membuat aplikasi yang digunakan oleh beberapa user. Setiap user
> diharuskan untuk login dengan memasukan username dan password. Untuk
> menunjang aplikasi agar lebih user friendly maka saya ingin menambahkan menu
> ganti password, namun saya terkendala dalam membuat menu tersebut. Saya
> mencoba dengan menggunakan cara find kemudian di offset baru diganti
> passwornnya, namun script saya masih belum benar maklum masih belajar.
>
> Private Sub gantipass_Click()
> Dim seleksicari As Range
> Dim cari As String
> cari = Sheets("Sheet1").nama.Text
> Set seleksicari = wspass.Range("A2:A65536")
> seleksicari.Find(What:=cari, After:=ActiveCell, LookIn:=xlValues, _
> LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
> MatchCase:=False, SearchFormat:=False).Activate
> 'sampai bagian ini belum berhasil, jd penulisan scriptnya belum
> dilanjutkan...
> End Sub
>
> Mohon bantuan para suhu untuk memberikan pencerahan bagaimana membuat menu
> ganti password tersebut.
>
> Terima Kasih.
>
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
5c.

Re: Membuat menu ganti password

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

Wed Oct 19, 2011 9:47 pm (PDT)



gini lho ya...

1.
penentuan range sekolom penuh padahal isinya hanya 1000 data misalnya,
walaupun serba sedikit, tentu akan mempengaruhi speed pencarian.
ibaratnya mencari orang tertentu dlm lingkungan RT tentu lebih cepat
daripada
mencari orang dlm lingkungan kabupaten.
maka pemakaian Range("A2:A65536") kita hindari
Dengan makro kita ada kemudahan membuat range dinamis yg lingkup
seleksinya pas dengan data yg ada saja. (lihat: Set Range_Cari)

2
Mencari dengan metoda FIND katanya memang lebih cepat
tetapi kalau pemrogramannya menjadi lebih sulit (dan panjang), padahal
range daerah pencariannya sudah tertentu, maka menurut fendafatku
lebih simpel pencarian dengan looping atau dengan pinjam fungsi MATCH
milik worksheet.
Dengan match (yg menghasilkan index row, maka data sebaris sudah
di tangan kita semua (nama, pass dan data lain dikanannya jika ada)

3.
berikut ini code vba yg kerjaannya mengganti password untuk nama tertentu
tetapi sebelumnya memeriksa kebenarannya (nama ada di tabel, passwor lama
cocok dgn data ditabel, pasword baru 1 dan 2 identik)
dan* bukan membuat menu* seperti permintaan pada email...

Asumsi-asumsi
Tabel dianggap ditulis mulai di A1 di sheet2)
pada saat tombok di klik, semua textbox SUDAH terisi
(dimakronya belum ada validasi mengenai isi/kosong nya para textbod ini)

4.
Versi dan cara lain tentu masih banyak, silakan di eksplore...

Sub GantiPass_Ya_GantiPass_tapi_jangan_tergesa_gesa()
' hapsari & siti Vi / 20 oct 2011
' dituis berdua karena belum selesai sudah kena ganti shift

Dim NamaDicari As String, PassDicari As String
Dim Range_Cari As Range, CellDicari As Range
Dim Fun As Object, r As Long

Set Fun = Application.WorksheetFunction
Set Range_Cari = Sheet2.Cells(1).CurrentRegion.Offset(1, 0)
Set Range_Cari = Range_Cari.Resize(Range_Cari.Rows.Count - 1, 1)

With Sheet1
NamaDicari = Sheet1.txtNama

If Fun.CountIf(Range_Cari, NamaDicari) > 0 Then
r = Fun.Match(NamaDicari, Range_Cari, 0)
Else
MsgBox "Nama jelex spt itu ndak ada..!", _
vbExclamation, "Mo Ganti Pass"
Exit Sub
End If

If Not .txtPassLama = Range_Cari(r, 2) Then
MsgBox "password lama tidak sesuai dengan data yg ada", _
vbExclamation, "Mo Ganti Pass"
Exit Sub
End If

If Not .txtPassBaru = .txtPassBaru2 Then
MsgBox "dua kali password baru identik", _
vbExclamation, "Mo Ganti Pass"
Exit Sub
End If

' Proses penulisan Password baru ke tabel setelah lolos uji
Range_Cari(r, 2) = .txtPassBaru
Range_Cari(r, 4) = Now
Range_Cari(r, 4).NumberFormat = "dd-mmm-yyyy hh:mm:ss"
MsgBox "Makasih anda sudah mengubah password anda", _
vbInformation, "Mo Ganti Pass"
End With

End Sub

mudah-mudahan tidak terlalu banyak yg salah....

'-------
lupa kiboard-short-cut di excel???
daftarnya ada di sini:. http://www.box.net/shared/h0k1ds7gg3frypr67t1h

2011/10/19 iskandar wagimin harjo prawiro <nomor_pribadi@yahoo.co.id>
>
> Saya tengah membuat aplikasi yang digunakan oleh beberapa user. Setiap
user diharuskan untuk login dengan memasukan username dan password. Untuk
menunjang aplikasi agar lebih user friendly maka saya ingin menambahkan menu
ganti password, namun saya terkendala dalam membuat menu tersebut. Saya
mencoba dengan menggunakan cara find kemudian di offset baru diganti
passwornnya, namun script saya masih belum benar maklum masih belajar.
>
> Private Sub gantipass_Click()
> Dim seleksicari As Range
> Dim cari As String
> cari = Sheets("Sheet1").nama.Text
> Set seleksicari = wspass.Range("A2:A65536")
> seleksicari.Find(What:=cari, After:=ActiveCell, LookIn:=xlValues, _
> LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
> MatchCase:=False, SearchFormat:=False).Activate
> 'sampai bagian ini belum berhasil, jd penulisan scriptnya belum
dilanjutkan...
> End Sub
>
> Mohon bantuan para suhu untuk memberikan pencerahan bagaimana membuat menu
ganti password tersebut.
>
> Terima Kasih.
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
6a.

Membuat Range Dinamis

Posted by: "adrian piter" petcures2003@yahoo.com   petcures2003

Wed Oct 19, 2011 9:21 am (PDT)



Selamat sore.
 para pakar/suhu excel, saya mohon bantuaanya untuk masalah excel yang saya alami saat ini.
saya baru tertarik dengan penggunaan excel dan coba2 membuat Range Dinamis untuk mempermudah pekerjaan kantor.
  namun pada saat dicoba hasilnya belum memuaskan.
untuk lebih jelasnya, sudi kiranya para pakar/suhu excel mau melihat permasalahan ini dalam file yang saya lampirkan.
Terima kasih.

Salam XL-Mania!

-Piter-
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
6b.

Re: Membuat Range Dinamis

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

Wed Oct 19, 2011 9:46 pm (PDT)



Selamat malam,

Range dinamis untuk sebuah tabel, membutuhkan kolom yang selalu berisi data
(Not Null), agar bisa tepat dalam menghitung jumlah baris data (record).
Maka dipilihlah kolom Tanggal sebagai rujukan penentuan jumlah baris data.

Untuk mengkalkulasi kolom tertentu dalam tabel, yang bukan merupakan rujukan
nama range, bisa memanfaatkan fungsi offset.

Jumlah varian item (jumlah cacah unique list) dikalkulasi dengan :
Total dari ( (kriteria) / (jumlah cacah masing-masing item data) )
Fungsi pen-total yang dapat digunakan adalah :
1. Sum (formula di enter sebagai array formula)
2. SumProduct

Contoh menggunakan array formula Sum :
>> Untuk hitung tanpa kriteria :
=Sum( 1 / CountIF( nama_range , nama_range ) )

>> untuk hitung dengan kriteria tidak blank
=Sum( ( nama_range_kriteria <> "" ) / CountIF( nama_range ,
nama_range & "" ) )

Wassalam
Kid.

2011/10/19 adrian piter <petcures2003@yahoo.com>

> **
>
>
> Selamat sore.
> para pakar/suhu excel, saya mohon bantuaanya untuk masalah excel yang saya
> alami saat ini.
> saya baru tertarik dengan penggunaan excel dan coba2 membuat Range Dinamis
> untuk mempermudah pekerjaan kantor.
> namun pada saat dicoba hasilnya belum memuaskan.
> untuk lebih jelasnya, sudi kiranya para pakar/suhu excel mau melihat
> permasalahan ini dalam file yang saya lampirkan.
> Terima kasih.
>
> Salam XL-Mania!
>
> -Piter-
>
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
6c.

Re: Membuat Range Dinamis

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Wed Oct 19, 2011 9:46 pm (PDT)



Range dinamis yg dibentuk dengan cara septi itu
(dimana tinggi tabel (banyaknya baris dlm range) di tebak dengan COUNTA)
hanya cocok untuk tabel yg cara pengisiannya urut, tidak
loncat-loncat, misalnya :
D9 tidak akan diisi sebelum adanya data di D8
D10 tidak akan diisi sebelum adanya data di D9, dst..

salah satu caranya
formula part: COUNTA(D:D) harus di ganti dengan array formula yang
mencari ROW-INDEX pada data terakhir
=MAX(IF(D:D<>"",ROW(D:D)))-7

formula semula:
=OFFSET('Cabang 10'!$D$6,2,0,*COUNTA('Cabang 10'!$D:$D)-2*,1)

diganti menjadi menjadi
=OFFSET('Cabang 10'!$D$6,2,0,*MAX(IF(D:D<>"",ROW(D:D)))-7*,1)
jangan lupa, dienter sebagai Array Formula ( ctrl + shift + enter)

persoalannya apakah array formula bisa diberi nama melalui define name ??
cara lain dengan memanfaatkan fungsi Address & INDIRECT mungkin lebih
cocok...
cmiiw

2011/10/19 adrian piter <petcures2003@yahoo.com>
>
> Selamat sore.
> para pakar/suhu excel, saya mohon bantuaanya untuk masalah excel yang
saya alami saat ini.
> saya baru tertarik dengan penggunaan excel dan coba2 membuat Range Dinamis
untuk mempermudah pekerjaan kantor.
> namun pada saat dicoba hasilnya belum memuaskan.
> untuk lebih jelasnya, sudi kiranya para pakar/suhu excel mau melihat
permasalahan ini dalam file yang saya lampirkan.
> Terima kasih.
> Salam XL-Mania!
> -Piter-
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
Recent Activity
Visit Your Group
Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Yahoo! Groups

Mental Health Zone

Find support for

Mental illnesses

Find helpful tips

for Moderators

on the Yahoo!

Groups team blog.

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 ::::::::::::::::::::----------------------------------+
| ayooo... coba cari XL-mania di linkedin.com                       |
| tanggal 3-4 oktober yahoogroup akan mengalami maintenance.        |
+-------------------------------------------------------------------+
| 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

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

Diposting oleh EXCEL FEED LEARNING di 04.12

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)