Re: [belajar-excel] Membuang Jam dari Tanggal

[Mr. Kid]

Wa'alaikumussalam Wr. Wb.

Asumsi :
> data bertipe datetime (berisi tanggal dan jam) di kolom A mulai cell A2.

Pada sebuah cell hasil di beris 2 (selain cell A2) diberi formula :
=Int( A2 )

Jika ingin dibuat tanggalnya menjadi sama semua : (misal akan dijadikan
rujukan rekap bulanan)
=Int( A2 ) - Day( A2 ) + 1

Andai report disusun dengan pivot table, bisa jadi ndak perlu dihilangkan
data jamnya dan ndak perlu membuat kolom berisi tanggal saja karena bisa
menggunakan fasilitas Group dalam pivot table.

Wassalamu'alaikum Wr. Wb.
Kid.

2013/3/16 aidil alif 

> **
>
>
> Assalamualaikum
>
> Dear Para Spesialis Excel
>
> Saya mohon bantuannya
>
> di excel di formula tertera seperti di bawah ini :
>
> 01/02/2013 9:56:11 (dalam satu cell)
>
> apa ya formula untuk membuang jam-nya?
>
> saya udah coba pake Format/Cell berupa tanggal aja. Secara tampilan
> jam-nya memang sudah tidak ada, tapi di formula masih ada.
>
> Yang saya inginkan jam-nya dihilangkan, dan benar-benar hilang.
>
> Terima kasih
>
>  
>

Re: [belajar-excel] mohon bantuan untuk soal ini

[Mr. Kid]

Coba buat sebuah tabel di sebuah sheet (header di baris 1 mulai cell A1)
dengan header kolom :
Tanggal, NIP, Nama, Tipe_Shift, Total_Jam_Kerja, Total_Jam_Lembur

Isi record tanpa ada cell kosong (apalagi baris kosong).
Tanggal diisi dengan cara menulis dalam cell mengikuti format -MM-DD,
contoh 2013-03-10
NIP diisi dengan nomor indup pegawai. Create yang unik jika tidak ada. NIP
lebih pokok dibanding Nama, karena setiap NIP pasti hanya dimiliki
seseorang. Sebuah Nama bisa dimiliki oleh beberapa orang.
Tipe_Shift bisa diisi teks berbunyi Shift atau Non Shift. Semua bunyi Shift
pas ti sama di semua record, begitu juga dengan Non Shift. Bisa juga
diwakili angka, misal 1 untuk Shift dan 2 untuk Non Shift. Sekali pilih
diwakili angka, maka isinya pasti harus angka dan bertipe numerik.
Total_Jam_Kerja dan Total_Jam_Lembur diisi angka seperti 8 untuk 8 Jam
(ndak usah disertai satuan waktunya)

Simpan workbook dan lampirkan ke milis sebagai contoh data. Dengan begitu,
BeExceller punya media untuk mencoba mencari solusi.

Grafik. Coba jabarkan grafiknya akan memiliki sumbu apa vs sumbu apa.

Man hour.
Man hour setiap pegawai = total hari kerja * total jam kerja per hari
Man hour total = jumlahkan seluruh nilai man hour setiap pegawai

Wassalam,
Kid.


2013/3/16 Hendri 

> **
>
>
> Dear Kakak pakar excell Semuanya,
>
> Mohon bantuannya, saya ada tugas tapi tidak bisa mengerjakannya.
> Soalnya begini;
> Ada 10 karyawan (namanya si roni, andi, wahyu, davit, yudi, erik, toni,
> nando, riko, hadi).
> 5 orang bekerja non shift (roni, andi, wahyu, davit, yudi) jam kerja nya
> dari jam 07.00 s / d 11.00, istirahat 2 jam terus masuk lagi jam 13.00 s /
> d 17.00 bekerja selama 10 hari dari tanggal 1 maret 2013 s / d 10 maret
> 2013 (mereka yang non shift ini tidak ada lembur karena jam kerjanya
> standar yaitu tidak melebihi 8 jam).
> 5 orang lagi bekerja shift (erik, toni, nando, riko, hadi) jam kerjanya
> dari jam 19.00 s / d 07.00 pagi, bekerja selama 10 hari dari tanggal 1
> maret 2013 s / d 10 maret 2013 sama dengan yang non shift tadi, mereka yang
> shift ini terhitung lembur 4 jam setiap harinya karena jam kerjanya 12 jam
> setiap hari selama 10 hari tersebut.
>
> Saya mengaharapkan bantuan kakak2 semuanya bagaimana membuatnya dalam
> tabel excell, grafik lemburnya, presentase lembur selama 10 hari dan
> perharinya dan bagaimana menampilkan manhournya.
>
> Terimakaasih telah ada forum ini, semoga kita semua mendapat ilmu yang
> lebih dalam lagi di forum ini.
>
> Regards
> Hendri
>
>  
>

[belajar-excel] select bulan cel lainpun berubah dalam setahun

[wahyu sampurna]

Dear All Master Excel

Assalamu'alaikum.
Master yang budiman mohon bantuan formulanya pada tabel yang saya buat ini
pada cell A2 jika saya select untuk dipilihnya kemudian pada cell C2,
E2...W2
maka akan menghasilkan bulan dan Tahun sesuai dengan yang seleknya.
contoh tabel terlampir.
Terimakasih sebelumnya master.

Wassalam,
Wahyu


Daftar Kemitraan.xlsx
Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet

Re: [belajar-excel] select bulan cel lainpun berubah dalam setahun

[Mr. Kid]

Wa'alaikumussalam Wr. Wb.

Mohon tidak cc atau bcc bahkan to ke akun selain
belajar-excel@yahoogroups.com
Coba formula :
=EDATE($A2,COLUMN()/2)

Wassalamu'alaikum Wr. Wb.
Kid.


2013/3/16 wahyu sampurna 

> **
>
>
> Dear All Master Excel
>
> Assalamu'alaikum.
> Master yang budiman mohon bantuan formulanya pada tabel yang saya buat ini
> pada cell A2 jika saya select untuk dipilihnya kemudian pada cell C2,
> E2...W2
> maka akan menghasilkan bulan dan Tahun sesuai dengan yang seleknya.
> contoh tabel terlampir.
> Terimakasih sebelumnya master.
>
> Wassalam,
> Wahyu
>  
>

[belajar-excel] Modul VBA Pembukuan

[dhen.baguse]

Salam master excel,
 
Akhir tahun 2012 saya pernah menanyakan masalah ini ke milis
dan sudah ditanggapai temen-temen milis sangat memuaskan, setelah saya mendapat
jawaban dari temen-temen milis saya mencoba untuk mengembangkan sesuai apa yang
saya butuhkan dengan menggunakan pemahaman saya sendiri. 
Setelah saya membuat modul VBA dengan pemahaman bahasa saya sendiri,
saya mohon masukan para master excel poin-point mana yang bisa 
diringkas/diefisienkan. Modul saya pindah ke
notepad, tadi saya mau kirimkan dengan excelnya ukurannya hampir 700kb jadi
saya hanya copykan modulnya saja. Gambarannya  setiap sub prosedur saya bikin 
satu tombol,
dan bagaimana jika satu modul yang terdiri dari beberapa sub dibuat 1 tombol.
 
Semoga bahsa saya tidak membingungkan temen
temen

Terimaskih 
Option Explicit
'  '
'  Code by Jan Raisin  '
'  untuk millis Belajar Excel  '
'  12  November 2012   '
'  '
' nama prosedur
Sub DistKeSheet()
' deklarasi header Tanggal, range Tanggal, & cell Tanggal
' tipe data adalah range karena yang akan diambil adalah object-nya
Dim hdTgl, rgTgl, cTgl As Range

' deklarasi varabel untuk menyimpan nomor baris data
' tipe data adalah long integer (Long) agar dapat memuat nilai yang sangat 
besar
Dim rData, c As Long

' deklarasi variabel untuk menyimpan nama sheet
' tipe data adalah string karena akan digunakan menyimpan data berupa text 
/ string
Dim NamaSheet As String

' deklarasi variabel untuk menyimpan saldo akhir
' tipe data adalah dobel untuk mengantisipasi nilai dalam bentuk desimal
Dim Saldo As Double

 Dim rng As Range, lRec As Long '< Baru untuk bpp
Set rng = Sheet2.Range("c10").CurrentRegion '<<< baru
With rng
   lRec = .Rows.Count - 1
   If lRec > 0 Then
  With .Resize(lRec, 1).Offset(9, 2)
.Formula = "=if(d10=,,row()-9)"
.Parent.Calculate
.Value = .Value
   End With
   With .Resize(lRec, 1).Offset(9, 5)
.Formula = "=if(d10=,,Index(Master!$B$4:$B$46, Match(D10, 
Master!$C$4:$C$46, 0)))"
.Parent.Calculate
.Value = .Value
  End With
 With .Resize(lRec, 1).Offset(9, 20)
.Formula = "=IF(F10=,0,INDEX(Master!$E$4:$M$46, 
MATCH(F10,Master!$B$4:$B$46,0), MATCH(u$7,Master!$E$2:$M$2,0)))"
.Parent.Calculate
.Value = .Value
  End With
 With .Resize(lRec, 1).Offset(9, 21)
.Formula = "=IF(F10=,0,INDEX(Master!$E$4:$M$46, 
MATCH(F10,Master!$B$4:$B$46,0), MATCH(v$7,Master!$E$2:$M$2,0)))"
.Parent.Calculate
.Value = .Value
  End With
 With .Resize(lRec, 1).Offset(9, 22)
.Formula = "=IF(F10=,0,INDEX(Master!$E$4:$M$46, 
MATCH(F10,Master!$B$4:$B$46,0), MATCH(w$7,Master!$E$2:$M$2,0)))"
.Parent.Calculate
.Value = .Value
  End With
 With .Resize(lRec, 1).Offset(9, 23)
.Formula = "=IF(F10=,0,INDEX(Master!$E$4:$M$46, 
MATCH(F10,Master!$B$4:$B$46,0), MATCH(x$7,Master!$E$2:$M$2,0)))"
.Parent.Calculate
.Value = .Value
  End With
 With .Resize(lRec, 1).Offset(9, 24)
.Formula = "=IF(F10=,0,INDEX(Master!$E$4:$M$46, 
MATCH(F10,Master!$B$4:$B$46,0), MATCH(y$7,Master!$E$2:$M$2,0)))"
.Parent.Calculate
.Value = .Value
  End With
 With .Resize(lRec, 1).Offset(9, 25)
.Formula = "=IF(F10=,0,INDEX(Master!$E$4:$M$46, 
MATCH(F10,Master!$B$4:$B$46,0), MATCH(z$7,Master!$E$2:$M$2,0)))"
.Parent.Calculate
.Value = .Value
  End With
 With .Resize(lRec, 1).Offset(9, 26)
.Formula = "=IF(F10=,0,INDEX(Master!$E$4:$M$46, 
MATCH(F10,Master!$B$4:$B$46,0), MATCH(aa$7,Master!$E$2:$M$2,0)))"
.Parent.Calculate
.Value = .Value
  End With
 With .Resize(lRec, 1).Offset(9, 27)
.Formula = "=IF(F10=,0,INDEX(Master!$E$4:$M$46, 
MATCH(F10,Master!$B$4:$B$46,0), MATCH(ab$7,Master!$E$2:$M$2,0)))"
.Parent.Calculate
.Value = .Value
  End With
 With .Resize(lRec, 1).Offset(9, 28)
.Formula = "=IF(F10=,0,INDEX(Master!$E$4:$M$46, 
MATCH(F10,Master!$B$4:$B$46,0), MATCH(ac$7,Master!$E$2:$M$2,0)))"
.Parent.Calculate
.Value = .Value
  End With
End If
End With
  
'untuk membersihkan sheet
Sheets("bku").Select
Range(Range("b11"), Range("b11").End(xlDown).End(xlToRight)).ClearContents
Range(Range("g8"), Range("g8")).ClearContents
Sheets("Tunai").Select
Range(Range("b11"), Range("b11").End(xlDown).End(xlToRight)).ClearContents
Range(Range("g8"), Range("g8")).ClearContents
Sheets("bank").Select
Range(Range("b11"), Range("b11").End(xlDown).End(xlToRight)).ClearConten

[belajar-excel] Re: Beri Nama Unik tapi cell di bawahnya hilang

[tioali2011]

Menarik yang dinyatakan Mr. Kid, yaitu :

Bagian Cells(2, 4)
merujuk ke sejumlah baris yang kurang dari jumlah baris Range(Cells(16, 3), 
Cells(16, 3).End(xlDown))
Dengan begitu, maka proses akan melakukan clearcontents pada kolom Cells(2, 4) 
mulai range pojok kiri atasnya sampai kolom terkanan dari Cells(2, 4) pada 
baris last cell

Pada kasus ini, Cells(2, 4) hanya merujuk pada sebuah cell yaitu D2 (1 baris). 
Andai worksheet tersebut memiliki last cell di AX123, maka akan ada proses 
clear contents pada area range D2:D123

Pertanyaan saya,
Saya membuat simulasi dengan mengisi angka di atas cell yang saya tuju yaitu di 
atas Cell (5,4). Cells(5,4) ini adalah cell hasil range nama yang unik. Dan 
juga mengisi data di kiri pojok (di cell(1,1)) dan di kanan dari Cells(5,4). 
Tapi ketika saya bikin range nama yang unik dan ditempatkan ke cells (5,4). Kok 
cells di atas nya dan di kiri kanan tidak clearcontents ? Yang clear contents 
hanya di bawahnya saja (dibawah cells(5,4)). Lalu apa maksud pernyataan di atas 
bahwa akan clear contents di pojok kiri atas dan area range D2:D123 ? Ma'af 
saya belum mudeng..

Terima kasih jawabannya.
Wassalam,
Tio

[belajar-excel] Re: Mencari jumlah hasil dengan 2 kriteria dengan selain Subtotal

[tioali2011]

Ma'af saya memakai Excel 2003. Mungkin diExcel 2003 tidak ada Sumifs.

regards,
Tio

--- In belajar-excel@yahoogroups.com, Tio Ali  wrote:
>
> Dear Be-Exceller,
> 
> Saya punya tabel nama dan tanggal dan hasil. Saya ingin mencari jumlah total 
> hasil dengan kriteria nama dan rentang waktu tanggal. Misal nama Marhadi 
> dengan rentang waktu antara tanggal 1-4 January 2013. Saya sudah berhasil 
> dengan Subtotal. Tapi karena alasan tertentu, saya tidak tertarik dengan 
> Subtotal. Saya mau dengan Sumif, atau Sumifs. Berikut saya lampirkan filenya.
> 
> Terima kasih jawabannya.
> Wassalam,
> Tio
>

Re: Bls: Bls: [belajar-excel] Kopi darat

[Mr. Kid]

Jadinya siapa saja yang mau sukarela membentuk panitia ?

http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=2




2013/3/15 Mr. Kid 

> wakakaka...
> loh, malah kopi untuk acaranya lagi didesain supaya bisa dibikin pake
> macro..  :P
>
>
>
>
> 2013/3/15 jonson dahrino 
>
>> **
>>
>>
>> wah..
>> hebat juga tuh Mr. Kid,
>> kalau desain system monitoring data bisa menghasilkan input design kaos..
>> hahahaha
>>
>>
>>
>> sincerelly yours
>>*Dari:* Mr. Kid 
>> *Kepada:* belajar-excel@yahoogroups.com
>> *Dikirim:* Jumat, 15 Maret 2013 14:42
>> *Judul:* Re: Bls: Bls: [belajar-excel] Kopi darat
>>  **
>>
>> wakakaka...
>> kalau desain system monitoring data malah punya, tapi kalau desain
>> kaos... :(   dikasih waktu 2 tahun juga kagak selesai.
>>
>> kayanya dulu ada BeExceller yang suka bikin desain deh.
>>
>> Ayo ini siapa ketua panitianya...
>> sampai dimana perkembangan persiapannya.
>>
>>
>>
>> 2013/3/15 Aliif Akbar **
>>
>> **
>>
>>   ** Pak jonson,
>>
>> Mr.Kid bisa tuh bikin desain, kita tunggu ajja, Mr.Kid lgi bikin desain,
>> makanya g bales ini berita, :D
>> Temen2 be Excel yg laen silahkan berkreasi,
>> Aliif
>> Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung
>> Teruuusss...!
>> *From: * jonson dahrino 
>> *Sender: * belajar-excel@yahoogroups.com
>> *Date: *Fri, 15 Mar 2013 14:37:32 +0800 (SGT)
>> *To: *belajar-excel@yahoogroups.com
>> *ReplyTo: * belajar-excel@yahoogroups.com
>> *Subject: *Bls: Bls: [belajar-excel] Kopi darat
>>
>>
>> saya mau nih,
>> kebetulan ada supplier yang bisa buatin baju di tempat kerja,
>> cma masalah designnya gimana?
>>
>> hehehehhehe
>>
>> sincerelly yours**
>>*Dari:* Aliif Akbar 
>> *Kepada:* belajar-excel@yahoogroups.com
>> *Dikirim:* Jumat, 15 Maret 2013 13:24
>> *Judul:* Re: Bls: [belajar-excel] Kopi darat
>>  **
>>
>> Alla, ** Langsung ajja, disini ada yang mau jadi koordinator g? Buat
>> baju Be-Excel? ** Nha kalo ada yang mau, nanti langsung di koordinir
>> ajja via email, siapa yang mau join, abis itu dikirim ke alamat masing2,
>> beres bukan? :) ** ** Rgds, ** Aliif ** ** ** Sent from my BlackBerry®
>> smartphone from Sinyal Bagus XL, Nyambung Teruuusss...! ** **-Original 
>> Message-
>> ** From: Eka Subyantara 
>> 
>> ** Sender: 
>> mailto:belajar-excel%40yahoogroups.com
>> ** Date: Fri, 15 Mar 2013 11:53:30 ** To: <
>> mailto:belajar-excel%40yahoogroups.com >
>> ** Reply-To: 
>> mailto:belajar-excel%40yahoogroups.com
>> ** Subject: Re: Bls: [belajar-excel] Kopi darat ** ** Amat sangat setuju
>> ** dan semoga waktunya cocok ** daku bisa bertemu semua rekan ... ** **Klo 
>> boleh usul, jangan kaos tapi baju kemeja semacam untuk teknisi
>> ** AHASS atau Teknisi service HP (apapun istilahnya .. he .. he ..he ..)
>> ** ** Langsung aza ... ** ** Eka Subyantara ** Alamat: Bandung dan
>> Sumedang ** ** Kebanggaan bisa punya dan pake kaos B-Exceller :D ** ** =
>> eka = ** Berbagi selalu Menyenangkan ** ** On 3/15/13, Masbooqien Al
>> qodiriyah  wrote: ** >
>> semoga bisa terlaksana ** > Amiin... ** > ** > ** > ** > ** >
>>  ** > Dari: jeprey waluyo <
>> mailto:greencap4914%40yahoo.com > ** > Kepada:
>> "mailto:belajar-excel%40yahoogroups.com 
>> mailto:belajar-excel%40yahoogroups.com >
>> ** > Dikirim: Kamis, 14 Maret 2013 21:33 ** > Judul: Re: Bls:
>> [belajar-excel] Kopi darat ** > ** > ** > ** > komporin...komporin.. **>
>> ** > Sekarang hari kamis tgl.14 Maret, ** > Nama Acara: MARIORI ** >
>> Usul waktu acara: ** > hari sabtu, 30 Maret 2013 ** > Karena hari
>> jumatnya libur dan masih ada hari ahad buat santai2. ** > Acara jam 3
>> s/d 5 sore. ** > ** > Masih ada waktu +/- 14 hari buat persiapan. ** >
>> Tempat monggo diputuskan, ** > saya kurang tau tempat2 yg cozy. ** >
>> Biaya: 100rb/orang (dapet seragam) ** > Harga seragam +/- 50-60rb,
>> lebihnya buat biaya makan + EO ** > Design seragam saya nrimo ae ** >
>> Bayar 100rb = konfirmasi kehadiran. ** > Yg sudah bayar,tp ga bisa
>> hadir, seragamnya dikirim ** > Bayar ke Mas Heru ** > Safrudin ** >
>> (sebagai pencetus ide kopi darat sampeyan musti tanggung jawab), ** >
>> No.rekening: xxx.xxx.xxx ** > Bank XYZ ** > ** > Acara: ** > Makan2 ** >
>> Doa pembuka ** > Perkenalan singkat profile masing2 Exceller ** >
>> Harapan arah forum ke depan ** > Pembagian seragam ** > Pengumpulan dana
>> sosial (di sumbangkan ke rumah yatim dsb) ** > Doa penutup+salam2an trus
>> pulang deh. ** > ** > Soal tempat kumpul di eksekusi saja. ** > karena
>> saya yakin exceller domisilinya menyebar, ** > jadi,jika maunya bisa
>> datang semua ya susah. ** > yang bisa datang diharapkan datang. ** >
>> karena forum ini (esp. the masters) sudah banyak membantu kita semua. **> 
>> untuk bisa memuaskan semua orang mungkin sulit,
>> ** > tapi at least diusahakan meminimalisir kekecewaan. ** > ** > Forum
>> ini bisa berkembang lho. ** > Tidak sekedar memecahkan masalah2 e

Re: [belajar-excel] Re: Beri Nama Unik tapi cell di bawahnya hilang

[Mr. Kid]

1. Bagian Cells(2, 4)
-> cell D2
2. merujuk ke sejumlah baris yang kurang dari jumlah baris Range(Cells(16,
3), Cells(16, 3).End(xlDown))
 -> Range(Cells(16, 3), Cells(16, 3).End(xlDown)) ada 100 baris
(misalnya)

3. Dengan begitu, maka proses akan melakukan clearcontents pada kolom
Cells(2, 4)
-> clear contents pada kolom D karena alasan nomor 1 ada di kolom D

4. mulai range pojok kiri atasnya
-> nomor 1 (D2) memiliki range pojok kiri atasnya ada di range D2

5. sampai kolom terkanan dari Cells(2, 4) pada baris last cell
-> misal worksheet berisi data sampai AX123, maka last cell adalah AX
123
-> cell AX123 ada di baris last cell 123
-> kolom terkanan dari Cells(2, 4) adalah kolom terkanan dari range D2,
yaitu kolom D
-> pada baris last cell adalah 123
-> jadi clear contents sampai D123

6. Area range yang di clear contents adalah
-> mulai D2 [lihat no 4]
-> sampai D123 [lihat no 5]
-> yang membentuk area range D2:D123

Wassalam,
Kid.

2013/3/16 tioali2011 

> **
>
>
> Menarik yang dinyatakan Mr. Kid, yaitu :
>
>
> Bagian Cells(2, 4)
> merujuk ke sejumlah baris yang kurang dari jumlah baris Range(Cells(16,
> 3), Cells(16, 3).End(xlDown))
> Dengan begitu, maka proses akan melakukan clearcontents pada kolom
> Cells(2, 4) mulai range pojok kiri atasnya sampai kolom terkanan dari
> Cells(2, 4) pada baris last cell
>
> Pada kasus ini, Cells(2, 4) hanya merujuk pada sebuah cell yaitu D2 (1
> baris). Andai worksheet tersebut memiliki last cell di AX123, maka akan ada
> proses clear contents pada area range D2:D123
>
> Pertanyaan saya,
> Saya membuat simulasi dengan mengisi angka di atas cell yang saya tuju
> yaitu di atas Cell (5,4). Cells(5,4) ini adalah cell hasil range nama yang
> unik. Dan juga mengisi data di kiri pojok (di cell(1,1)) dan di kanan dari
> Cells(5,4). Tapi ketika saya bikin range nama yang unik dan ditempatkan ke
> cells (5,4). Kok cells di atas nya dan di kiri kanan tidak clearcontents ?
> Yang clear contents hanya di bawahnya saja (dibawah cells(5,4)). Lalu apa
> maksud pernyataan di atas bahwa akan clear contents di pojok kiri atas dan
> area range D2:D123 ? Ma'af saya belum mudeng..
>
>
> Terima kasih jawabannya.
> Wassalam,
> Tio
>
>  
>

Re: [belajar-excel] Re: Mencari jumlah hasil dengan 2 kriteria dengan selain Subtotal

[Mr. Kid]

Coba formula :
=SumProduct( *
 ( data_nama = kriteria_nama )
  * ( data_tanggal >= kriteria_batas_bawah_tanggal )
 * ( data_tanggal <= kriteria_batas_atas_tanggal )*
 *** data_nilai
   )

Yang *bold *adalah definisi kriteria
Jika data_nilai ada yang bertipe text, maka ganti ** *dengan koma (regional
setting EN) atau titik koma (regional setting ID)

Formula bisa diubah menjadi array formula Sum. Caranya, ganti SumProduct
dengan Sum lalu tekan CTRL  SHIFT  ENTER agar ter-enter sebagai array
formula.
Jika data_nilai diganti menjadi angka 1, maka hasil formula adalah jumlah
cacah yang sesuai kriteri (setara dengan CountIF [1 kriteria] atau CountIFs
[banyak kriteria])

Wassalam,
Kid.


2013/3/17 tioali2011 

> **
>
>
> Ma'af saya memakai Excel 2003. Mungkin diExcel 2003 tidak ada Sumifs.
>
> regards,
> Tio
>
>
> --- In belajar-excel@yahoogroups.com, Tio Ali  wrote:
> >
> > Dear Be-Exceller,
> >
> > Saya punya tabel nama dan tanggal dan hasil. Saya ingin mencari jumlah
> total hasil dengan kriteria nama dan rentang waktu tanggal. Misal nama
> Marhadi dengan rentang waktu antara tanggal 1-4 January 2013. Saya sudah
> berhasil dengan Subtotal. Tapi karena alasan tertentu, saya tidak tertarik
> dengan Subtotal. Saya mau dengan Sumif, atau Sumifs. Berikut saya lampirkan
> filenya.
> >
> > Terima kasih jawabannya.
> > Wassalam,
> > Tio
> >
>
>  
>

Re: Bls: Bls: [belajar-excel] Kopi darat

[asrorcakep]

Mr. Kid, saya bersedia jadi panitia, rekan2 yang laen gmn? ada yang bisa 
support saya jadi panitia?

--- In belajar-excel@yahoogroups.com, "Mr. Kid"  wrote:
>
> Jadinya siapa saja yang mau sukarela membentuk panitia ?
> 
> http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=2
> 
> 
> 
> 
> 2013/3/15 Mr. Kid 
> 
> > wakakaka...
> > loh, malah kopi untuk acaranya lagi didesain supaya bisa dibikin pake
> > macro..  :P
> >
> >
> >
> >
> > 2013/3/15 jonson dahrino 
> >
> >> **
> >>
> >>
> >> wah..
> >> hebat juga tuh Mr. Kid,
> >> kalau desain system monitoring data bisa menghasilkan input design kaos..
> >> hahahaha
> >>
> >>
> >>
> >> sincerelly yours
> >>*Dari:* Mr. Kid 
> >> *Kepada:* belajar-excel@yahoogroups.com
> >> *Dikirim:* Jumat, 15 Maret 2013 14:42
> >> *Judul:* Re: Bls: Bls: [belajar-excel] Kopi darat
> >>  **
> >>
> >> wakakaka...
> >> kalau desain system monitoring data malah punya, tapi kalau desain
> >> kaos... :(   dikasih waktu 2 tahun juga kagak selesai.
> >>
> >> kayanya dulu ada BeExceller yang suka bikin desain deh.
> >>
> >> Ayo ini siapa ketua panitianya...
> >> sampai dimana perkembangan persiapannya.
> >>
> >>
> >>
> >> 2013/3/15 Aliif Akbar **
> >>
> >> **
> >>
> >>   ** Pak jonson,
> >>
> >> Mr.Kid bisa tuh bikin desain, kita tunggu ajja, Mr.Kid lgi bikin desain,
> >> makanya g bales ini berita, :D
> >> Temen2 be Excel yg laen silahkan berkreasi,
> >> Aliif
> >> Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung
> >> Teruuusss...!
> >> *From: * jonson dahrino 
> >> *Sender: * belajar-excel@yahoogroups.com
> >> *Date: *Fri, 15 Mar 2013 14:37:32 +0800 (SGT)
> >> *To: *belajar-excel@yahoogroups.com
> >> *ReplyTo: * belajar-excel@yahoogroups.com
> >> *Subject: *Bls: Bls: [belajar-excel] Kopi darat
> >>
> >>
> >> saya mau nih,
> >> kebetulan ada supplier yang bisa buatin baju di tempat kerja,
> >> cma masalah designnya gimana?
> >>
> >> hehehehhehe
> >>
> >> sincerelly yours**
> >>*Dari:* Aliif Akbar 
> >> *Kepada:* belajar-excel@yahoogroups.com
> >> *Dikirim:* Jumat, 15 Maret 2013 13:24
> >> *Judul:* Re: Bls: [belajar-excel] Kopi darat
> >>  **
> >>
> >> Alla, ** Langsung ajja, disini ada yang mau jadi koordinator g? Buat
> >> baju Be-Excel? ** Nha kalo ada yang mau, nanti langsung di koordinir
> >> ajja via email, siapa yang mau join, abis itu dikirim ke alamat masing2,
> >> beres bukan? :) ** ** Rgds, ** Aliif ** ** ** Sent from my BlackBerry®
> >> smartphone from Sinyal Bagus XL, Nyambung Teruuusss...! ** **-Original 
> >> Message-
> >> ** From: Eka Subyantara 
> >> 
> >> ** Sender: 
> >> mailto:belajar-excel%40yahoogroups.com
> >> ** Date: Fri, 15 Mar 2013 11:53:30 ** To: <
> >> mailto:belajar-excel%40yahoogroups.com >
> >> ** Reply-To: 
> >> mailto:belajar-excel%40yahoogroups.com
> >> ** Subject: Re: Bls: [belajar-excel] Kopi darat ** ** Amat sangat setuju
> >> ** dan semoga waktunya cocok ** daku bisa bertemu semua rekan ... ** **Klo 
> >> boleh usul, jangan kaos tapi baju kemeja semacam untuk teknisi
> >> ** AHASS atau Teknisi service HP (apapun istilahnya .. he .. he ..he ..)
> >> ** ** Langsung aza ... ** ** Eka Subyantara ** Alamat: Bandung dan
> >> Sumedang ** ** Kebanggaan bisa punya dan pake kaos B-Exceller :D ** ** =
> >> eka = ** Berbagi selalu Menyenangkan ** ** On 3/15/13, Masbooqien Al
> >> qodiriyah  wrote: ** >
> >> semoga bisa terlaksana ** > Amiin... ** > ** > ** > ** > ** >
> >>  ** > Dari: jeprey waluyo <
> >> mailto:greencap4914%40yahoo.com > ** > Kepada:
> >> "mailto:belajar-excel%40yahoogroups.com 
> >> mailto:belajar-excel%40yahoogroups.com >
> >> ** > Dikirim: Kamis, 14 Maret 2013 21:33 ** > Judul: Re: Bls:
> >> [belajar-excel] Kopi darat ** > ** > ** > ** > komporin...komporin.. **>
> >> ** > Sekarang hari kamis tgl.14 Maret, ** > Nama Acara: MARIORI ** >
> >> Usul waktu acara: ** > hari sabtu, 30 Maret 2013 ** > Karena hari
> >> jumatnya libur dan masih ada hari ahad buat santai2. ** > Acara jam 3
> >> s/d 5 sore. ** > ** > Masih ada waktu +/- 14 hari buat persiapan. ** >
> >> Tempat monggo diputuskan, ** > saya kurang tau tempat2 yg cozy. ** >
> >> Biaya: 100rb/orang (dapet seragam) ** > Harga seragam +/- 50-60rb,
> >> lebihnya buat biaya makan + EO ** > Design seragam saya nrimo ae ** >
> >> Bayar 100rb = konfirmasi kehadiran. ** > Yg sudah bayar,tp ga bisa
> >> hadir, seragamnya dikirim ** > Bayar ke Mas Heru ** > Safrudin ** >
> >> (sebagai pencetus ide kopi darat sampeyan musti tanggung jawab), ** >
> >> No.rekening: xxx.xxx.xxx ** > Bank XYZ ** > ** > Acara: ** > Makan2 ** >
> >> Doa pembuka ** > Perkenalan singkat profile masing2 Exceller ** >
> >> Harapan arah forum ke depan ** > Pembagian seragam ** > Pengumpulan dana
> >> sosial (di sumbangkan ke rumah yatim dsb) ** > Doa penutup+salam2an trus
> >> pulang deh. ** > ** > Soal tempat kumpul di eksekusi saja. ** > karena
> >> say

Re: Bls: Bls: [belajar-excel] Kopi darat

[Mr. Kid]

Pak Asror dan Pak Aliif silakan berkoordinasi untuk merekrut BeExceller
lain yang bersedia meluangkan waktu untuk mewujudkan acara.
Acara bisa diatur tidak harus bulan Maret kan ya... Lagi pula ini adalah
acara pertama.
Persiapan yang matang untuk awal kegiatan baru sepertinya akan lebih baik.

Moga-moga bang Opi, mas Aksan, dan mas Haer bisa memberi arahan untuk akses
sponsor atau berbagi pengalaman penyelenggaraan acara kopi darat di milis
Belajar-Access yang sudah rutin.

BeExceller yang punya ide, pengalaman, akses yang bermanfaat untuk
memudahkan terlaksananya acara diharapkan bersedia berbagi untuk kita semua.

BeExceller yang kira-kira bersedia maupun yang akan berusaha meluangkan
waktu untuk silaturahmi datang ke acara, bisa mengisi tabel data di website
milis di alamat berikut (butuh login YahooID) :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=2




2013/3/17 asrorcakep 

> **
>
>
> Mr. Kid, saya bersedia jadi panitia, rekan2 yang laen gmn? ada yang bisa
> support saya jadi panitia?
>
>
> --- In belajar-excel@yahoogroups.com, "Mr. Kid"  wrote:
> >
> > Jadinya siapa saja yang mau sukarela membentuk panitia ?
> >
> >
> http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=2
> >
> >
> >
> >
> > 2013/3/15 Mr. Kid 
>
> >
> > > wakakaka...
> > > loh, malah kopi untuk acaranya lagi didesain supaya bisa dibikin pake
> > > macro.. :P
> > >
> > >
> > >
> > >
> > > 2013/3/15 jonson dahrino 
> > >
> > >> **
>
> > >>
> > >>
> > >> wah..
> > >> hebat juga tuh Mr. Kid,
> > >> kalau desain system monitoring data bisa menghasilkan input design
> kaos..
> > >> hahahaha
> > >>
> > >>
> > >>
> > >> sincerelly yours
> > >> *Dari:* Mr. Kid 
> > >> *Kepada:* belajar-excel@yahoogroups.com
> > >> *Dikirim:* Jumat, 15 Maret 2013 14:42
> > >> *Judul:* Re: Bls: Bls: [belajar-excel] Kopi darat
> > >> **
>
> > >>
> > >> wakakaka...
> > >> kalau desain system monitoring data malah punya, tapi kalau desain
> > >> kaos... :( dikasih waktu 2 tahun juga kagak selesai.
> > >>
> > >> kayanya dulu ada BeExceller yang suka bikin desain deh.
> > >>
> > >> Ayo ini siapa ketua panitianya...
> > >> sampai dimana perkembangan persiapannya.
> > >>
> > >>
> > >>
> > >> 2013/3/15 Aliif Akbar **
> > >>
> > >> **
> > >>
> > >> ** Pak jonson,
>
> > >>
> > >> Mr.Kid bisa tuh bikin desain, kita tunggu ajja, Mr.Kid lgi bikin
> desain,
> > >> makanya g bales ini berita, :D
> > >> Temen2 be Excel yg laen silahkan berkreasi,
> > >> Aliif
> > >> Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung
> > >> Teruuusss...!
> > >> *From: * jonson dahrino 
> > >> *Sender: * belajar-excel@yahoogroups.com
> > >> *Date: *Fri, 15 Mar 2013 14:37:32 +0800 (SGT)
> > >> *To: *belajar-excel@yahoogroups.combelajar-ex...@yahoogroups.com>
> > >> *ReplyTo: * belajar-excel@yahoogroups.com
> > >> *Subject: *Bls: Bls: [belajar-excel] Kopi darat
>
> > >>
> > >>
> > >> saya mau nih,
> > >> kebetulan ada supplier yang bisa buatin baju di tempat kerja,
> > >> cma masalah designnya gimana?
> > >>
> > >> hehehehhehe
> > >>
> > >> sincerelly yours**
> > >> *Dari:* Aliif Akbar 
> > >> *Kepada:* belajar-excel@yahoogroups.com
> > >> *Dikirim:* Jumat, 15 Maret 2013 13:24
> > >> *Judul:* Re: Bls: [belajar-excel] Kopi darat
> > >> **
> > >>
> > >> Alla, ** Langsung ajja, disini ada yang mau jadi koordinator g? Buat
> > >> baju Be-Excel? ** Nha kalo ada yang mau, nanti langsung di koordinir
>
> > >> ajja via email, siapa yang mau join, abis itu dikirim ke alamat
> masing2,
> > >> beres bukan? :) ** ** Rgds, ** Aliif ** ** ** Sent from my
> BlackBerry®
> > >> smartphone from Sinyal Bagus XL, Nyambung Teruuusss...! **
> **-Original Message-
> > >> ** From: Eka Subyantara  >
> > >> ** Sender: mailto:belajar-excel%40yahoogroups.com 40yahoogroups.com>
> > >> ** Date: Fri, 15 Mar 2013 11:53:30 ** To: <
> > >> mailto:belajar-excel%40yahoogroups.com  40yahoogroups.com>>
> > >> ** Reply-To: mailto:belajar-excel%40yahoogroups.com 40yahoogroups.com>
> > >> ** Subject: Re: Bls: [belajar-excel] Kopi darat ** ** Amat sangat
> setuju
> > >> ** dan semoga waktunya cocok ** daku bisa bertemu semua rekan ... **
> **Klo boleh usul, jangan kaos tapi baju kemeja semacam untuk teknisi
> > >> ** AHASS atau Teknisi service HP (apapun istilahnya .. he .. he ..he
> ..)
> > >> ** ** Langsung aza ... ** ** Eka Subyantara ** Alamat: Bandung dan
> > >> Sumedang ** ** Kebanggaan bisa punya dan pake kaos B-Exceller :D **
> ** =
> > >> eka = ** Berbagi selalu Menyenangkan ** ** On 3/15/13, Masbooqien Al
> > >> qodiriyah  wrote:
> ** >
> > >> semoga bisa terlaksana ** > Amiin... ** > ** > ** > ** > ** >
> > >>  ** > Dari: jeprey waluyo <
> > >> mailto:greencap4914%40yahoo.com > ** >
> Kepada:
> > >> "mailto:belajar-excel%40yahoogroups.com  40yahoogroups.com>
> > >> mailto:belajar-excel%40yahoogroups.com  40yahoogroups.com>>
> > >>

Re: [belajar-excel] Modul VBA Pembukuan

[Mr. Kid]

Hai Bagus,

File terlampir baru berisi prosedur DistKeSheet.
Dalam prosedur tersebut sudah ada berbagai bentuk rujukan tanpa harus
mengaktifkan (select atau activate) si object.
Pemasangan formula bisa langsung ke banyak range (beda kolom dan baris)
dengan tetap memegang kaidah absolute reference (pengaturan karakter $
dalam formual)

Harapannya, contoh satu prosedur tersebut diimplementasikan ke prosedur
lainnya.

Wassalam,
Kid.

2013/3/16 dhen.baguse 

> **
>
>
> Salam master excel,
> ** **
> Akhir tahun 2012 saya pernah menanyakan masalah ini ke milis dan sudah
> ditanggapai temen-temen milis sangat memuaskan, setelah saya mendapat
> jawaban dari temen-temen milis saya mencoba untuk mengembangkan sesuai apa
> yang saya butuhkan dengan menggunakan pemahaman saya sendiri. 
> Setelah saya membuat modul VBA dengan pemahaman bahasa saya sendiri, saya
> mohon masukan para master excel poin-point mana yang bisa
> diringkas/diefisienkan. Modul saya pindah ke notepad, tadi saya mau
> kirimkan dengan excelnya ukurannya hampir 700kb jadi saya hanya copykan
> modulnya saja. Gambarannya  setiap sub prosedur saya bikin satu tombol, dan
> bagaimana jika satu modul yang terdiri dari beberapa sub dibuat 1 tombol.*
> ***
> ** **
> Semoga bahsa saya tidak membingungkan temen temen
>
> Terimaskih
>
>  
>
Option Explicit
'  '
'  Code by Jan Raisin  '
'  untuk millis Belajar Excel  '
'  12  November 2012   '
'  '
' diubah Kid, 2013-03-17
' nama prosedur
public Sub DistKeSheet()
' deklarasi header Tanggal, range Tanggal, & cell Tanggal
' tipe data adalah range karena yang akan diambil adalah object-nya
Dim hdTgl as range, rgTgl as range, cTgl As Range

' deklarasi varabel untuk menyimpan nomor baris data
' tipe data adalah long integer (Long) agar dapat memuat nilai yang sangat 
besar
Dim rData as long, c As Long

' deklarasi variabel untuk menyimpan nama sheet
' tipe data adalah string karena akan digunakan menyimpan data berupa text 
/ string
Dim NamaSheet As String

' deklarasi variabel untuk menyimpan saldo akhir
' tipe data adalah dobel untuk mengantisipasi nilai dalam bentuk desimal
Dim Saldo As Double

Dim rng As Range, lRec As Long '< Baru untuk bpp
Set rng = Sheet2.Range("c10").CurrentRegion '<<< baru
With rng
   lRec = .Rows.Count - 1
   If lRec > 0 Then
  With .Resize(lRec, 1).Offset(9, 2)
.Formula = "=if(d10=,,row()-9)"
.Parent.Calculate
.Value = .Value
   End With
   With .Resize(lRec, 1).Offset(9, 5)
.Formula = 
"=if(d10=,,Index(Master!$B$4:$B$46, Match(D10, Master!$C$4:$C$46, 0)))"
.Parent.Calculate
.Value = .Value
  End With
  'langsung pasang formula untuk 9 kolom dengan referensi yang 
diatur dengan $
  'jika proses kalkulasi berat, maka sebelum proses ini, 
  'buat sebuah kolom bantu (satu blok formula seperti di atas) 
berisi formula match bagian :
  'MATCH($F10,Master!$B$4:$B$46,0)
  'kemudian blok formula ini diganti dengan formula Index yang 
bagian Match-nya merujuk
  'ke kolom bantu tadi
  '*** saat ini, dicoba langsung ke 9 kolom dulu saja ***
  With .Resize(lRec, 9).Offset(9, 20)
.Formula = 
"=IF($F10=,0,INDEX(Master!$E$4:$M$46, MATCH($F10,Master!$B$4:$B$46,0), 
MATCH(u$7,Master!$E$2:$M$2,0)))"
.Parent.Calculate
.Value = .Value
  End With
endif
end with

'untuk membersihkan sheet
'nama sheet yang akan dibersihkan : bku,Tunai,bank,perjadin,lain,kas
'range yang akan dibersihkan di setiap sheet : range("g8") dan range 
data mulai b11 kebawah dan kekanan
'variabel sheet yang akan diproses dan teks berupa daftar nama sheet 
(beserta pemisahnya)
dim sht as worksheet
dim sShtName as string
'susun daftar nama sheet sebagai sebuah text disertai pemisah nama
sshtname=",bku,tunai,bank,perjadin,lain,kas,"'jadi setiap sheet 
pasti diapit karakter koma dan semua huruf kecil
'loop setiap sheet dalam workbook
for each sht in thisworkbook.worksheets
if instr( sshtname, "," & lcase$(sht.name) & "," ) <> 0 then
'sht yang diproses dalam loop punya nama dalam daftar
sht.Range(Range("b11"), 
Range("b11").End(xlDown).End(xlToRight)).ClearContents
sht.Range("g8").clearcontents
endif
next sht