Minggu, 06 Januari 2013

[belajar-excel] Digest Number 2008

4 New Messages

Digest #2008
1a
Re: menghitung nilai yg ada dikolom yg diberi warna by "Titis Ardiyana Wulandari" tiez_2289
2a
3a
Re: Koleksi hasil query by "Slamet" slametharto

Messages

Sat Jan 5, 2013 3:30 pm (PST) . Posted by:

"Titis Ardiyana Wulandari" tiez_2289

Assalamu'alaikum
Mr Kid,

contoh kasusnya saya lampirkan, mohon pencerahaannya terkait rumus yg Bapak berikan lampau.
saya ingin bisa biarpun itu susah Pak..

alamat web yg bapak berikan itu menggunakan condisional formating, mohon penjelasanya juga bagaimana penerapan tsb bisa seperti itu..

terimakasih banyak atas bantuannya
Wassalamu'alaikum
Tiez

________________________________
From: Mr. Kid mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, January 4, 2013 10:25 PM
Subject: Re: [belajar-excel] menghitung nilai yg ada dikolom yg diberi warna


 
Hai Tiez,

Mengkomputasi sesuatu berdasar warna itu relatif unik.
Pertanyaan pertama, kenapa kok data yang akan dihitung itu diberi warna ?
Ada kriterianya ataukah sekedar suka-suka asal beri warna ?
Jika memang ada kriteria pewarnaan, sebaiknya hitung berdasar kriteria pewarnaan itu dan bukan berdasar warna apa yang disematkan
alias lebih cenderung mengambil sebab dari sekedar akibat.

tapi biasanya konsep seperti di atas ndak disukai karena lebih menuntut kerja ekstra...
(katanya, kadang yang disukai belum tentu baik dan yang tidak disukai sering lebih baik)
atas dasar itu, coba pelajari thread lawas milis yang bisa dilihat di :
http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-Trs-Belajar-Menghitung-Warna-lagi-td5711887.html (bisa unduh attachment disana)

Selamat mencoba.

Wassalam,
Kid.

2013/1/4 Titis Ardiyana Wulandari tiez_2289@yahoo.com>

> 
>
>
>Dear All teman2,
>
>
>saya punya kesulitan saat mempunyai sederetan huruf2 dibanyak cell, adakah rumus yg bisa memudahkan saya menghitung nilai suatu cell yg diblok warna kuning misalnya?
>
>
>Terimakasih banyak

Sat Jan 5, 2013 7:46 pm (PST) . Posted by:

"Slamet" slametharto

Wa alaikum salam Wr Wb

Pak Wasis,

Coba pada formpelanggan scrip advance filter dirubah ke autofilter

Private Sub cmdCariKode_Click()

Set wsDtbsPlgn = Sheets("DatabasePelanggan")
Set rgDtbsPlgn = wsDtbsPlgn.Range("DatabasePelanggan")
Set rgAdvFilter = wsDtbsPlgn.Range("J2:L3")

If wsDtbsPlgn.Range("A3").Value = "" Then
Call DatabaseKosong
Exit Sub
End If

If wsDtbsPlgn.FilterMode Then
wsDtbsPlgn.ShowAllData
End If

If txtKode.Value = "" Then
MsgBox "Ketikkan PO yang akan dicari", _
vbOKOnly + vbInformation, "Kode Kosong"
txtKode.SetFocus
End If

With wsDtbsPlgn.Range("KodePelanggan")
Set c = .Find(txtKode.Value, LookIn:=xlValues)
If c Is Nothing Then
MsgBox "Kode PO " & txtKode.Value & " tidak ada", _
vbOKOnly + vbInformation, "PO QTY 1"
Call cmdAkhir_Click
Exit Sub
Else
wsDtbsPlgn.Range("J3").Value = "*" & txtKode.Value & "*"
wsDtbsPlgn.Range("K3:L3").ClearContents
formPelanggan.Height = 384
*'rgDtbsPlgn.AdvancedFilter Action:=xlFilterInPlace, _**
** ' CriteriaRange:=rgAdvFilter*
* rgDtbsPlgn.AutoFilter Field:=1, Criteria1:=txtKode*
Call TampilkanSemua
End If
End With

If wsDtbsPlgn.FilterMode Then
wsDtbsPlgn.ShowAllData
End If

End Sub
>
> *From:*belajar-excel@yahoogroups.com
> [mailto:belajar-excel@yahoogroups.com] *On Behalf Of *Wasis Zain
> *Sent:* 05 Januari 2013 11:40
> *To:* belajar-excel@yahoogroups.com
> *Subject:* [belajar-excel] ERROR MENU SEARCHING PADA MACRO
>
> Assalamualaikum warohmatullahi wabarokatuh
> salam kenal para master
> saya hanya peminat baru dalam belajar excel ini
> saya ada permasalhan besar pada userform searching sekaligus userform
> input
> karena saya kurang bisa berucap maka sudi kiranya para master membuka
> worksheet saya ini
> kurang lebih pertanyaannya ini
> "kenapa di macro ada tulisan RUN TIME ERROR NO CELLS WERE FOUND"
>
> TERIMAKASIH BANYAK BANGET ATAS BANTUANNYA
>
>

Sat Jan 5, 2013 8:01 pm (PST) . Posted by:

"Slamet" slametharto

Ikutan urun rembug,

db access nya di letakkan di sharing folder yang dapat di akses oleh
seluruh user,
Sedangkan excel nya di taruh di masing-masing PC user (ini akan
merepotkan jika ada enhanchement terhadap aplikasi yang dibuat, karena
harus mencopy file aplikasi master di PC setiap user) atau bisa juga
tetap di sharing folder dengan satu aplikasi excel dengan access read only)

Semangat.....

On 1/5/2013 10:31 AM, Heru Safrudin wrote:
>
> Dear Mr.Kid,
> Wah ada harapan nih, tapi gimana cara share db-nya ms. access ? kalo
> excel bisa pake share workbook
> Regards,
> Heru Safrudin
>
> ----- Original Message -----
> *From:* Mr. Kid mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> belajar-excel@yahoogroups.com>
> *Sent:* Friday, January 04, 2013 3:42 PM
> *Subject:* Re: [belajar-excel] Koleksi hasil query
>
> Bisa dengan kondisi :
> 1. db di share
> 2. excel yang digunakan adalah copy-an (bukan 1 file di share)
>
> Wassalam,
> Kid.
>
> 2013/1/4 Heru Safrudin superheruu@gmail.com
> superheruu@gmail.com>>
>
> Waw cantik sekali... Thanks
>
> Oh ya misalkan saya bikin aplikasi di excel yg dipakai
> beberapa user,
> bisakah beberapa user mengupdate data yg saya simpan di file
> access
> (mdb) sekaligus secara bersamaan ? Kalau nggak bisa adakah
> trik untuk
> mengakali ?
>
> Pada tanggal 04/01/13, Mr. Kid mr.nmkid@gmail.com
> > menulis:
>
>
> > Hai Heru,
> >
> > 1. Jika ingin copy ke range tertentu seluruh hasil open
> recordset, gunakan
> > method CopyFromRecordset
> >>> misal akan di salin mulai baris 7 kolom A
> > sheets("nama sheet tujuan").range("a7").copyfromrecordset rs 'rs
> > adalah variabel record set yang sudah berisi dataset hasil query
> >
> > 2. Jika ingin loop setiap data
> >>> usai open recordset
> >
> > rs.movefirst
> > do while not rs.eof
> > 'proses disini
> > rs.movenext
> > loop
> >
> > Wassalam,
> > Kid.
> >
> > 2013/1/4 Heru Safrudin superheruu@gmail.com
> >
> >
> >> **
>
> >>
> >>
> >> Dear Mr Kid
> >>
> >> Menampilkan data di Tabel1 yang tidak ada di Tabel2 atas
> petunjuk Mr.
> >> Kid Alhamdulillah udah berhasil. Nah sekarang bagaimana
> menampilkan
> >> koleksi hasil query berikut ini menggunakan For each ....
> >>
> >> ConnectDB
> >> RS.Open "SELECT P2.JOB FROM P2 P2 LEFT OUTER JOIN P3 P3 ON
> P2.JOB =
> >> P3.JOB WHERE (P3.JOB Is Null)", CON, adOpenKeyset,
> adLockOptimistic
> >> For each data ................
> >> MsgBox data
> >> Next
> >> RS.Close
> >> DisconnectDB
> >>
> >> --
> >> Regards,
> >>
> >> Heru Safrudin
> >>
> >> Pak Heru,
> >>
> >> Kedua tabel terpisah loh ya, bukan jadi 2 kolom berjejer
> demikian,
> >> kecuali jika definisi tabel dalam query didefinisikan
> dengan detil
> >> mengikuti kolomnya.
> >> Coba pelajari SQL tentang LEFT OUTER JOIN clause dan WHERE
> clause.
> >> Kira-kira bunyinya :
> >> SELECT dt1.kolom1
> >> FROM Table1 AS dt1
> >> LEFT OUTER JOIN Table2 AS dt2
> >> ON dt1.kolom1=dt2.kolom1
> >> WHERE dt2.kolom1 IS NULL
> >>
> >> Wassalam,
> >> Kid.
> >>
> >>
> >
>
> --
> Regards,
>
> Heru Safrudin
>
>
>

Sat Jan 5, 2013 11:42 pm (PST) . Posted by:

"Alfan Yahoo" al_mito

Terima kasih Mr kid, atas penjelasannya...sungguh sangat bermanfaat..

Regard

Alfan

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Mr. Kid
Sent: Wednesday, January 02, 2013 4:17 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] mohon pencerahan rumus sama tapi hasil beda.

Hai Alfan,

Jika Tagihan di kolom H harus sama dengan Tagihan di kolom Q, maka jumlah
digit dibelakang koma persentase yang digunakan harus sama.
Misal di tagihan kolom H diberi formula :
=Round( e47 , 4 ) * i47
dan di tagihan kolom Q juga ada pembulatan 4 digit belakang koma menjadi :
=Round( s44 , 4 ) * q45

Jika Tagihan kolom Q harus sama dengan Tagihan kolom H, maka persentase di
baris 45 harus merujuk ke area data di range C45:F47 yabg menyimpan banyak
digit dibelakang koma. Untuk nilai pengali sampai jutaan (10^6), maka
setidaknya 6 digit dibelakang koma akan memberi selisih yang cukup banyak.

Wassalam,
Kid.

2013/1/2 Alfan Atas Pujianto

Dear exceler...

Mohon bantuan nich... saya punya data (terlampir), di angka tagihan itu
(H48) kenapa kok hasilnya berbeda dg kalo dihitung manual maupun dg rumus
yang sama di tempat lain. saya sudah coba ganti format cell tapi masih belum
ketemu. mohon pencerahannya ya...salahnya dimana....

Regard

Alfan

GROUP FOOTER MESSAGE
---------------------------------------------------------------------
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 10.22

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)