Rabu, 11 Juli 2012

[belajar-excel] Digest Number 1685

15 New Messages

Digest #1685
1b
2a
Edit dari Mods: Rumus Absensi by "Putri Intecs" putri.intecs
2b
2c
Re: Edit dari Mods: Rumus Absensi by "Kid Mr." nmkid.family@ymail.com
2e
Re: Edit dari Mods: Rumus Absensi by "Kid Mr." nmkid.family@ymail.com
4a
count sel kosong yang tidak berwarna (no fill) by "yahoo@udinabsolute.com" omnivora

Messages

Wed Jul 11, 2012 3:10 am (PDT) . Posted by:

"Mansur Widayat"

Dear Pak Hendrik Karnadi

Terima kasih banyak Pak atas ilmunya. Ok!
matur nuwun.

----- Original Message -----
From: "hendrik karnadi" <hendrikkarnadi@yahoo.com>
Sent: Tuesday, July 10, 2012 21:44

Memang semuanya tergantung dari kebiasaan kita.

Tombol di belakang Ctrl + dapat anda ganti sesuka hati dengan cara2 berikut
ini :
- Tekan tombolAlt F11 untuk menampilkan halaman VBA
- Klik 2xpadaVBA Project di sisi kiri, kemudian ketik password hklalu klik tombol ok
- Kembalike Worksheet
-TekantombolAlt F8 bersamaan untuk menampilkan daftar Macro yang ada
- Klik tombol Option pada sisi kanan

- Ganti "huruf" dibelakang tombol Ctrl+, lalu klik OK

Lakukan kedua langkah terakhir untuk Macro berikutnya yang ada dalam Daftar Macro (pada saat kita menekan tombol Alt F8).

Selamat mencoba.
Salam,
Hendrik Karnadi

Wed Jul 11, 2012 7:40 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Sama2. Kita sama2 belajar, karena dalam menjawab pertanyaan2 dalam milis inipun kadang2 saya harus belajar lagi.

Salam,
Hendrik Karnadi

________________________________
From: Mansur Widayat <w-mansur@notes.npr.co.jp>
To: belajar-excel@yahoogroups.com
Sent: Wednesday, 11 July 2012, 9:05
Subject: Re: [belajar-excel] Protect Setiap sheet dengan password pada satu file


 
Dear Pak Hendrik Karnadi

Terima kasih banyak Pak atas ilmunya. Ok!
matur nuwun.

----- Original Message -----
From: "hendrik karnadi" <hendrikkarnadi@yahoo.com>
Sent: Tuesday, July 10, 2012 21:44

Memang semuanya tergantung dari kebiasaan kita.

Tombol di belakang Ctrl + dapat anda ganti sesuka hati dengan cara2 berikut
ini :
- Tekan tombolAlt F11 untuk menampilkan halaman VBA
- Klik 2xpadaVBA Project di sisi kiri, kemudian ketik password hklalu klik tombol ok
- Kembalike Worksheet
-TekantombolAlt F8 bersamaan untuk menampilkan daftar Macro yang ada
- Klik tombol Option pada sisi kanan

- Ganti "huruf" dibelakang tombol Ctrl+, lalu klik OK

Lakukan kedua langkah terakhir untuk Macro berikutnya yang ada dalam Daftar Macro (pada saat kita menekan tombol Alt F8).

Selamat mencoba.
Salam,
Hendrik Karnadi

Wed Jul 11, 2012 3:20 am (PDT) . Posted by:

"Putri Intecs" putri.intecs

Tolong bantu untuk excel terlampir...
rumus untuk menjadikan ATT 100% apabila dalam kehadiran dalam satu bulan kerja tidak ada alpa, sakit, izin..

===============================================
Mods'Note:
Terima kasih telah ikut berpartisipasi di milis ini...

Mohon untuk posting y.a.d.
Bila mengajukan Kasus Baru: kolom SUBJECT HARUS DIISI.
BilaMenanggapi Kasus yg sudah ada: Jangan mengubah subject (tinggal Reply saja)
Kalimat "Minta Bantuan" dan "Kalimat Memberi Perintah" juga perlu
diperhatikan.. karena akan memperngaruhi 'niat' calon penanggap.

Mohon Baca "Peraturan Milis" sebelum iku aktif di komunitas.
===============================================

Wed Jul 11, 2012 6:11 am (PDT) . Posted by:

"ghozi alkatiri" ghozialkatiri

tulis di cell AS9

=SUM(AK9:AN9)/SUM(AK9:AQ9)

copy ke cell di bawahnya yang perlu diisi

wassalam

Ghozi Alkatiri

________________________________
Dari: Putri Intecs <putri.intecs@yahoo.co.id>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Rabu, 11 Juli 2012 10:29
Judul: [belajar-excel] Edit dari Mods: Rumus Absensi


 
Tolong bantu untuk excel terlampir...
rumus untuk menjadikan ATT 100% apabila dalam kehadiran dalam satu bulan kerja tidak ada alpa, sakit, izin..

===============================================
Mods'Note:
Terima kasih telah ikut berpartisipasi di milis ini...

Mohon untuk posting y.a.d.
Bila mengajukan Kasus Baru: kolom SUBJECT HARUS DIISI.
BilaMenanggapi Kasus yg sudah ada: Jangan mengubah subject (tinggal Reply saja)
Kalimat "Minta Bantuan" dan "Kalimat Memberi Perintah" juga perlu
diperhatikan.. karena akan memperngaruhi 'niat' calon penanggap.

Mohon Baca "Peraturan Milis" sebelum iku aktif di komunitas.
===============================================

Wed Jul 11, 2012 6:14 am (PDT) . Posted by:

"Kid Mr." nmkid.family@ymail.com

Coba :
=1-SUM(AO9:AQ9)/AR9

Kid.

2012/7/11 Putri Intecs <putri.intecs@yahoo.co.id>

> **
>
>
> Tolong bantu untuk excel terlampir...
> rumus untuk menjadikan ATT 100% apabila dalam kehadiran dalam satu bulan
> kerja tidak ada alpa, sakit, izin..
>
> ===============================================
> Mods'Note:
> Terima kasih telah ikut berpartisipasi di milis ini...
>
> Mohon untuk posting y.a.d.
> Bila mengajukan Kasus Baru: kolom SUBJECT HARUS DIISI.
> BilaMenanggapi Kasus yg sudah ada: Jangan mengubah subject (tinggal Reply
> saja)
> Kalimat "Minta Bantuan" dan "Kalimat Memberi Perintah" juga perlu
> diperhatikan.. karena akan memperngaruhi 'niat' calon penanggap.
>
> Mohon Baca "Peraturan Milis" sebelum iku aktif di komunitas.
> ===============================================
>
>

Wed Jul 11, 2012 7:09 pm (PDT) . Posted by:

"dwint ruswanto"

Solusi yang ditawarkan oleh mas Ghozi dan Mr Kid menghasilkan hasil yang
berbeda, hal ini terjadi karena formula yang digunakan oleh mbak Putri
selaku pembuat thread tidak konsisten antara baris pertama dan kedua dengan
baris ketiga dan selanjutnya

[image: Gambar sisip 1]

[image: Gambar sisip 2]

jadi jika terdapat kesalahan dalam hasil itu bukan berasal dari si pemberi
solusi,

salam,

-dwint-

Pada 11 Juli 2012 20:14, Kid Mr. <mr.nmkid@gmail.com> menulis:

> **
>
>
> Coba :
> =1-SUM(AO9:AQ9)/AR9
>
> Kid.
>
>
> 2012/7/11 Putri Intecs <putri.intecs@yahoo.co.id>
>
>> **
>>
>>
>> Tolong bantu untuk excel terlampir...
>> rumus untuk menjadikan ATT 100% apabila dalam kehadiran dalam satu bulan
>> kerja tidak ada alpa, sakit, izin..
>>
>> ===============================================
>> Mods'Note:
>> Terima kasih telah ikut berpartisipasi di milis ini...
>>
>> Mohon untuk posting y.a.d.
>> Bila mengajukan Kasus Baru: kolom SUBJECT HARUS DIISI.
>> BilaMenanggapi Kasus yg sudah ada: Jangan mengubah subject (tinggal Reply
>> saja)
>> Kalimat "Minta Bantuan" dan "Kalimat Memberi Perintah" juga perlu
>> diperhatikan.. karena akan memperngaruhi 'niat' calon penanggap.
>>
>> Mohon Baca "Peraturan Milis" sebelum iku aktif di komunitas.
>> ===============================================
>>
>
>
>

Wed Jul 11, 2012 7:21 pm (PDT) . Posted by:

"Kid Mr." nmkid.family@ymail.com

hahaha...
betul Pak Dwint..

Alhamdulillah ada yang bersedia menelaahnya.
Jadi, dalam sebuah kolom di sebuah tabel, sebaiknya berlaku formula untuk
seluruh record, sesuai makna teks header-nya.
Mungkin formula Total adalah Sum dari masuknya AK:AM ditambah ijin. Jadi
ijin termasuk hari kerja (menurut dugaan berdasar datanya loh ya bukan
realnya)
Artinya, kolom Total adalah kolom pokok penentu jumlah hari yang menjadi
acuan dasar kalkulasi persentase.

total :
=Sum( ak9:am9,ap9 )

Kid.

2012/7/12 dwint ruswanto <dwint.ruswanto@gmail.com>

> **
>
>
> Solusi yang ditawarkan oleh mas Ghozi dan Mr Kid menghasilkan hasil yang
> berbeda, hal ini terjadi karena formula yang digunakan oleh mbak Putri
> selaku pembuat thread tidak konsisten antara baris pertama dan kedua dengan
> baris ketiga dan selanjutnya
>
>
>
>
>
>
> jadi jika terdapat kesalahan dalam hasil itu bukan berasal dari si pemberi
> solusi,
>
> salam,
>
> -dwint-
>
> Pada 11 Juli 2012 20:14, Kid Mr. <mr.nmkid@gmail.com> menulis:
>
> **
>>
>>
>> Coba :
>> =1-SUM(AO9:AQ9)/AR9
>>
>> Kid.
>>
>>
>> 2012/7/11 Putri Intecs <putri.intecs@yahoo.co.id>
>>
>>> **
>>>
>>>
>>> Tolong bantu untuk excel terlampir...
>>> rumus untuk menjadikan ATT 100% apabila dalam kehadiran dalam satu bulan
>>> kerja tidak ada alpa, sakit, izin..
>>>
>>> ===============================================
>>> Mods'Note:
>>> Terima kasih telah ikut berpartisipasi di milis ini...
>>>
>>> Mohon untuk posting y.a.d.
>>> Bila mengajukan Kasus Baru: kolom SUBJECT HARUS DIISI.
>>> BilaMenanggapi Kasus yg sudah ada: Jangan mengubah subject (tinggal
>>> Reply saja)
>>> Kalimat "Minta Bantuan" dan "Kalimat Memberi Perintah" juga perlu
>>> diperhatikan.. karena akan memperngaruhi 'niat' calon penanggap.
>>>
>>> Mohon Baca "Peraturan Milis" sebelum iku aktif di komunitas.
>>> ===============================================
>>>
>>
>>
>
>

Wed Jul 11, 2012 3:32 am (PDT) . Posted by:

"Boypeace BeComp" trouble_nih

Yang Saya Buka dari lampiran File Mbak Rara
ini Screenshot bugnya

Pada 11 Juli 2012 07:55, Rara Wilis <ra2wilis@gmail.com> menulis:
>
> Mungkin di WorkBook pak Boy: Object Sheet1 - nya TIDAK ADA
>
> CODING ITU LENGKAPNYA
>
> *With Sheet1*
> .Columns("A:B").Locked = False
> ' -DST MASIH DLM BLOK With Sheet1...
> *End With*
>
>
> 2012/7/11 Boypeace BeComp <boypeace.81@gmail.com>
>>
>> mbak Rara
>> file attactment saya buka di Excel 2010, kock ada bug di bagian ini???
>> *.Columns("A:B").Locked = False*
>>
>> --- Mods ---
>> Menyertakan deskripsi error yang ditampilkan oleh VBA akan lebih banyak
>> membantu proses debugging.
>> ------------

Wed Jul 11, 2012 3:40 am (PDT) . Posted by:

"siti Vi" siti_vi

gambar-gambar dari pak Boy (setealah di KECILkan /
dicropped bagian2 yg tidak ferlu)

2012/7/11 Boypeace BeComp <boypeace.81@gmail.com>
>
> Yang Saya Buka dari lampiran File Mbak Rara
> ini Screenshot bugnya
>
> Pada 11 Juli 2012 07:55, Rara Wilis <ra2wilis@gmail.com> menulis:
> > Mungkin di WorkBook pak Boy: Object Sheet1 - nya TIDAK ADA
> > CODING ITU LENGKAPNYA
> > *With Sheet1*
> > .Columns("A:B").Locked = False
> > ' -DST MASIH DLM BLOK With Sheet1...
> > *End With*

Wed Jul 11, 2012 6:09 am (PDT) . Posted by:

"Kid Mr." nmkid.family@ymail.com

Coba berikan baris script :
.unprotect "BeExcel"

setelah baris With Sheet1

Kid.

2012/7/11 Boypeace BeComp <boypeace.81@gmail.com>

> Yang Saya Buka dari lampiran File Mbak Rara
> ini Screenshot bugnya
>
> Pada 11 Juli 2012 07:55, Rara Wilis <ra2wilis@gmail.com> menulis:
> >
> > Mungkin di WorkBook pak Boy: Object Sheet1 - nya TIDAK ADA
> >
> > CODING ITU LENGKAPNYA
> >
> > *With Sheet1*
> > .Columns("A:B").Locked = False
> > ' -DST MASIH DLM BLOK With Sheet1...
> > *End With*
> >
> >
> > 2012/7/11 Boypeace BeComp <boypeace.81@gmail.com>
> >>
> >> mbak Rara
> >> file attactment saya buka di Excel 2010, kock ada bug di bagian ini???
> >> *.Columns("A:B").Locked = False*
> >>
> >> --- Mods ---
> >> Menyertakan deskripsi error yang ditampilkan oleh VBA akan lebih banyak
> >> membantu proses debugging.
> >> ------------
>
>
> ------------------------------------
>
> ----------------------------------------------------------
> 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
> ----------------------------------------------------------Yahoo!
> Groups Links
>
>
>
>

Wed Jul 11, 2012 5:32 pm (PDT) . Posted by:

"Boypeace BeComp" trouble_nih

Mr Kid. Thanks, Ternyata cuma tambah seperti itu

Pada 11 Juli 2012 20:08, Kid Mr. <mr.nmkid@gmail.com> menulis:
> **
> Coba berikan baris script :
> .unprotect "BeExcel"
>
> setelah baris With Sheet1
> Kid.

Wed Jul 11, 2012 7:07 pm (PDT) . Posted by:

"Markonah" m_tulqiyem

untuk *CUMA menambah seperti itu,* bukan hanya diperlukan menuliskan
coding tanpa mengetahui
maksudnya;
tetapi juga diperlukan pemahaman bahwa Range pada PROTECTED SHEET tidak
dapat diubah status visibilitasnya
(oleh karena itu harus di-UnProtected lebih dulu)

CMIIW..

*2012/7/12 Boypeace BeComp <boypeace.81@gmail.com>:
> Mr Kid. Thanks, Ternyata cuma tambah seperti itu
*>
>
> Pada 11 Juli 2012 20:08, Kid Mr. <mr.nmkid@gmail.com> menulis:
>> Coba berikan baris script :
>> .unprotect "BeExcel"
>> setelah baris With Sheet1
>> Kid.

Wed Jul 11, 2012 7:12 pm (PDT) . Posted by:

"Kid Mr." nmkid.family@ymail.com

That's it...

Tidak ada sekedar CUMA dalam segala hal.

Dalam hal VBA misalnya, *minimal* harus memaksakan diri untuk memahami
keadaan lingkungan di sheet, prosedur, dsb lebih dulu (jika belum menjadi
instinct untuk bersukarela memahami).
Dengan begitu, maka akhirnya bukan CUMA yang terungkap, tetapi OH TERNYATA.

Wassalam,
Kid.

2012/7/12 Markonah <markonatul@gmail.com>

> **
>
>
> untuk *CUMA menambah seperti itu,* bukan hanya diperlukan menuliskan
> coding tanpa mengetahui maksudnya;
> tetapi juga diperlukan pemahaman bahwa Range pada PROTECTED SHEET tidak
> dapat diubah status visibilitasnya
> (oleh karena itu harus di-UnProtected lebih dulu)
>
> CMIIW..
>
>
>
> *2012/7/12 Boypeace BeComp <boypeace.81@gmail.com>:
>
> > Mr Kid. Thanks, Ternyata cuma tambah seperti itu
> *>
> >
> > Pada 11 Juli 2012 20:08, Kid Mr. <mr.nmkid@gmail.com> menulis:
> >> Coba berikan baris script :
> >> .unprotect "BeExcel"
>
> >> setelah baris With Sheet1
> >> Kid.
>
>
>

Wed Jul 11, 2012 8:41 am (PDT) . Posted by:

"yahoo@udinabsolute.com" omnivora

1. bagaimana ya codenya count sel kosong yang tidak berwarna untuk bisa disisipkan di kode dibawah
2. maaf oot dari judulnya, bisa tidak code case Case 12611584 dan Case 5287936 digabungkan (sum biru dan     sum hijau)?

tuwerima kasih banyak

For Each sel In Selrow.Cells
        Nilai = sel.value
       if isnumeric( nilai ) then
          nilai = cdbl( nilai )
            Select Case sel.Interior.Color
            Case 65535 ' Kuning
                'SumKuning = SumKuning + sel.Value
                SumKuning = SumKuning + nilai
            Case 12611584 ' Biru
                'Nilai = sel.Value
                If Nilai > 7 Then
                    SumKuning = SumKuning + Nilai - 7
                    Nilai = 7
                End If
                SumBiru = SumBiru + Nilai
            Case 5287936  'Hijau
                'Nilai = sel.Value
                If Nilai > 7 Then
                    SumKuning = SumKuning + Nilai - 7
                    Nilai = 7
                End If
                SumHijau = SumHijau + Nilai
            End Select
' untuk menyimpan posisi sel terakhir  tiap baris
End If
            Set SelAkhir = sel
    Next
' isi julah warna
        SelAkhir.Offset(0, 1) = SumBiru
        SelAkhir.Offset(0, 2) = SumKuning
        SelAkhir.Offset(0, 3) = SumHijau
    Next
    End Sub

Wed Jul 11, 2012 10:39 am (PDT) . Posted by:

"Markonah" m_tulqiyem

Dear Absolute Udin, KSM,

Kok *gak mau *menghormati &*/ menyebut* penulis makronya sih ?
( Bp jkssxls Sudarsono - 7 Mar2012 )
posting link: http://tech.groups.yahoo.com/group/belajar-excel/message/16104

Dan...
Membicarakan makro akan lebih gampang bila kita diberi tahu "LAHAN" di
mana makro
itu bermain (sheet & data yg di-makro-in)

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

Jika Warna (interior Color) cell No-Fill / putih = 16777215
Case 16777215
' bla bla bla

Menyamakan warna cell Hijau dan Biru sbg 1 kondisi
Harap diingat nilai property Color' bisa mencapai 16.581.375 warna
Buka Help Fungsi RGB(a,b,c)

Case 12611584, 5287936
' Jika Hijau dan Biru (versi pak KSM Absolute)
' bla bla bla

Untuk warna lain (sebelum Bapak tanya) dapat Bapak cek dengan membuat UDF
spt ini
Function CelKolor(Sel As Range) As Variant
CelKolor = Cel.Interior.Color
End Function

Penggunaannya di sheet
rumus di B1 ingin menampilkan nilai Interior Color milik Cell A1
Rumus di B1: =CelKolor(A1)

CMIIW..
-markonah-

2012/7/11 yahoo@udinabsolute.com <omnivora@yahoo.com>

> **
> 1. bagaimana ya codenya count sel kosong yang tidak berwarna untuk bisa
> disisipkan di kode dibawah
> 2. maaf oot dari judulnya, bisa tidak code case Case 12611584 dan Case
> 5287936 digabungkan (sum biru dan sum hijau)?
> tuwerima kasih banyak
>
> For Each sel In Selrow.Cells
> Nilai = sel.value
> if isnumeric( nilai ) then
> nilai = cdbl( nilai )
> Select Case sel.Interior.Color
> Case 65535 ' Kuning
> 'SumKuning = SumKuning + sel.Value
> SumKuning = SumKuning + nilai
> Case 12611584 ' Biru
> 'Nilai = sel.Value
> If Nilai > 7 Then
> SumKuning = SumKuning + Nilai - 7
> Nilai = 7
> End If
> SumBiru = SumBiru + Nilai
> Case 5287936 'Hijau
> 'Nilai = sel.Value
> If Nilai > 7 Then
> SumKuning = SumKuning + Nilai - 7
> Nilai = 7
> End If
> SumHijau = SumHijau + Nilai
> End Select
> ' untuk menyimpan posisi sel terakhir tiap baris
> End If
> Set SelAkhir = sel
> Next
> ' isi julah warna
> SelAkhir.Offset(0, 1) = SumBiru
> SelAkhir.Offset(0, 2) = SumKuning
> SelAkhir.Offset(0, 3) = SumHijau
> Next
> End Sub
>
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 19.21

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)