Senin, 08 Agustus 2011

[belajar-excel] Digest Number 1282

Messages In This Digest (25 Messages)

1a.
Re: merevisi isi data From: R T Gultom
1b.
Re: merevisi isi data From: Sudarsono Suhenk
1c.
Re: merevisi isi data From: sudarsono
2a.
Bls: [belajar-excel] umur From: Undang Satrianie
2b.
Bls: [belajar-excel] umur From: Agus Waluyo
2c.
Re: Bls: [belajar-excel] umur From: summonery
2d.
Bls: [belajar-excel] umur From: Undang Satrianie
2e.
Re: Bls: [belajar-excel] umur From: summonery
2f.
Bls: Bls: [belajar-excel] umur From: Agus Waluyo
2g.
Bls: Bls: [belajar-excel] umur From: Undang Satrianie
3a.
Re: Mengelompokkan Deret Kode From: Haps
3b.
Re: Mengelompokkan Deret Kode From: ghozi alkatiri
3c.
Re: Mengelompokkan Deret Kode From: Mr. Kid
4a.
FW: [belajar-excel] umur From: Agus Widodo
4b.
FW: [belajar-excel] umur From: Agus Widodo
5a.
Re: Prorate From: Budhi Cahyanto
5b.
Re: Prorate From: STDEV(i)
5c.
Re: Prorate From: Mr. Kid
5d.
Re: Prorate From: tjahyahartono@yahoo.co.id
6a.
Cara membuka file Zip? From: Tjahya Hartono
6b.
Re: Cara membuka file Zip? From: STDEV(i)
7a.
Schedule Harian From: Tjahya Hartono
7b.
Re: Schedule Harian From: STDEV(i)
7c.
Re: Schedule Harian From: Sudarsono Suhenk
8.
Menggabungkan laporan From: rico martin

Messages

1a.

Re: merevisi isi data

Posted by: "R T Gultom" ro_tag@yahoo.com   ro_tag

Mon Aug 8, 2011 12:37 am (PDT)



heh heh pikirin sudah close karena sudah ada masukan sebelumnya
cuman jadi prtanyaan knapa harus ada

"'tetap diperlukan

sheettujuan = Sheets("kerja").Range("c2") 'ubah"

dan aplikasinya belum mengerti walaupun saya sudah rubah "kerja" menjadi "revisid"
dan fill C2 dengan " sumeri"
mohon guidancenya
Regards,
Gultom

--- On Thu, 8/4/11, sudarsono <jkssbma@live.com> wrote:

From: sudarsono <jkssbma@live.com>
Subject: [belajar-excel] Re: merevisi isi data
To: belajar-excel@yahoogroups.com
Date: Thursday, August 4, 2011, 3:51 PM

 

Sub zya()

Dim filerev As String

Dim sel, ketemu As Range

Dim wk, wkrev As Workbook

Set wk = ActiveWorkbook

'tetap diperlukan

sheettujuan = Sheets("kerja").Range("c2") 'ubah

' baru

Dim fd As FileDialog

Set fd = Application.FileDialog(msoFileDialogFilePicker)

Dim vrtSelectedItem As Variant

With fd

.InitialView = msoFileDialogViewDetails

.AllowMultiSelect = False

.Filters.Add "excel", "*.xls;*.xlsx", 1

If .Show = -1 Then

For Each vrtSelectedItem In .SelectedItems

filerev = vrtSelectedItem

Next vrtSelectedItem

Else

GoTo labelexit

End If

End With

Set fd = Nothing

' akhir baru

Set wkrev = Workbooks.Open(Filename:=filerev)

For Each sel In wkrev.Sheets(sheettujuan).Range("Q31:Q34")

nilaicari = sel.Offset(0, 0)

nilaiganti = sel.Offset(0, -1)

Set ketemu = carinilai(wk.Sheets("Sumeri").Range("N8:O29"), nilaicari)

If Not ketemu Is Nothing Then

ketemu.Offset(0, -1) = nilaiganti

End If

Next

Windows(wk.Name).Activate

labelexit:

End Sub

--- In belajar-excel@yahoogroups.com, R T Gultom <ro_tag@...> wrote:

>

> wah segampang itu merubahnya knapa ya?

> kalau ane mentok mulu...u

>

> btw, maunya lebih praktis lagi yaitu dengan cara ada open file dari folder "rev.xls" jadi tidak usah menulis nama file

>

> misalnya open file select folder then select sehingga waktu dibuka itu otomatis menjadi varibale

>

> Regards,

>

>

> --- On Tue, 8/2/11, jkssbma <jkssbma@...> wrote:

>

> From: jkssbma <jkssbma@...>

> Subject: RE: [belajar-excel] Re: merevisi isi data

> To: belajar-excel@yahoogroups.com

> Date: Tuesday, August 2, 2011, 3:14 PM

>

> Adapun nama workbook dan sheet di tentukan oleh sel di B2 dan C2    Sub ya()Dim filerev As StringDim sel, ketemu As RangeDim wk, wkrev As Workbook      Set wk = ActiveWorkbook  filexls = Sheets("kerja").Range("B2")  'rev.xlssheettujuan = Sheets("kerja").Range("c2") 'ubah  filerev = ActiveWorkbook.Path & "\" & filexlsSet wkrev = Workbooks.Open(Filename:=filerev)  For Each sel In wkrev.Sheets(sheettujuan).Range("Q31:Q34")nilaicari = sel.Offset(0, 0)nilaiganti = sel.Offset(0, -1)  Set ketemu = carinilai(wk.Sheets("Sumeri").Range("N8:O29"), nilaicari)If Not ketemu Is Nothing Thenketemu.Offset(0, -1) = nilaigantiEnd IfNext  Windows(wk.Name).ActivateEnd sub      From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of R T Gultom

> Sent: Tuesday, August 02, 2011 7:54 AM

> To: belajar-excel@yahoogroups.com

> Subject: RE: [belajar-excel] Re: merevisi isi data    siap boss, ditunggu karena sudah coba2, masih mentok euh

>

> --- On Mon, 8/1/11, Sudarsono Suhenk <jkssbma@...> wrote:

> From: Sudarsono Suhenk <jkssbma@...>

> Subject: RE: [belajar-excel] Re: merevisi isi data

> To: "belajar excel yahoo.com" <belajar-excel@yahoogroups.com>

> Date: Monday, August 1, 2011, 4:32 PM  Kalau file List.xls sbg file utama , maka nama Rev.xls dan worksheet Revised diambil dari sel di worksheet kerja , misal worksheet "kerja" di List. sel itu dapat diubah sesuai nama file xls dan sel lain untuk mengubah nama worksheetnya

> Besok di sambung karena mau pulang ....

1b.

Re: merevisi isi data

Posted by: "Sudarsono Suhenk" jkssbma@live.com   jkssbma

Mon Aug 8, 2011 3:23 am (PDT)



Saya jelaskan sedikit :1. Di Workbook Aktif :1.1. di Sheet kerja pada sel c2 berisi sheet dimana merupakan data yang akan dikopi ( sheettujuan , sebenarnya lebih tetap sheetAsal atau sheetData) 1.2. sheet sumeri merupakan sheet tujuan dari proses pengkopian/sumeri 2. di workbook yang dibuka ( dengan fungsi FileDialog )2.1 terdapat sheet yang mana data berada ( namanya di simpan di sel C2 di Workbook aktif Sheet kerja )

To: belajar-excel@yahoogroups.com
From: ro_tag@yahoo.com
Date: Mon, 8 Aug 2011 15:37:17 +0800
Subject: Re: [belajar-excel] Re: merevisi isi data

heh heh pikirin sudah close karena sudah ada masukan sebelumnya
cuman jadi prtanyaan knapa harus ada
"'tetap diperlukan
sheettujuan = Sheets("kerja").Range("c2") 'ubah"

dan aplikasinya belum mengerti walaupun saya sudah rubah "kerja" menjadi "revisid" dan fill C2 dengan " sumeri"
mohon guidancenya
Regards,
Gultom

--- On Thu, 8/4/11, sudarsono <jkssbma@live.com> wrote:

Sub zya()
Dim filerev As String
Dim sel, ketemu As Range
Dim wk, wkrev As Workbook
Set wk = ActiveWorkbook

'tetap diperlukan
sheettujuan = Sheets("kerja").Range("c2") 'ubah

' baru
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
With fd
.InitialView = msoFileDialogViewDetails
.AllowMultiSelect = False
.Filters.Add "excel", "*.xls;*.xlsx", 1
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
filerev = vrtSelectedItem
Next vrtSelectedItem
Else
GoTo labelexit
End If
End With

Set fd = Nothing
' akhir baru

Set wkrev = Workbooks.Open(Filename:=filerev)
For Each sel In wkrev.Sheets(sheettujuan).Range("Q31:Q34")
nilaicari = sel.Offset(0, 0)
nilaiganti = sel.Offset(0, -1)
Set ketemu = carinilai(wk.Sheets("Sumeri").Range("N8:O29"), nilaicari)
If Not ketemu Is Nothing Then
ketemu.Offset(0, -1) = nilaiganti
End If
Next

Windows(wk.Name).Activate
labelexit:

End Sub

1c.

Re: merevisi isi data

Posted by: "sudarsono" jkssbma@live.com   jkssbma

Mon Aug 8, 2011 3:25 am (PDT)



Di Workbook Aktif , misal List.xls
1. di Sheet kerja terdapat sel C2 berisi nama sheet tujuan, misal Sumeri
2. Sheet tujuan berada di Workbook yang akan dibuka

di Workbook yang akan dibuka ( dengan FileDialog )
1. File workbook dibuka dengan fungsi FileDialog
2. terdapat sheet tujuan ,dengan nama misalnya sumeri

--- In belajar-excel@yahoogroups.com, R T Gultom <ro_tag@...> wrote:
>
> heh heh pikirin sudah close karena sudah ada masukan sebelumnya
> cuman jadi prtanyaan knapa harus ada
>
> "'tetap diperlukan
>
> sheettujuan = Sheets("kerja").Range("c2") 'ubah"
>
> dan aplikasinya belum mengerti walaupun saya sudah rubah "kerja"
menjadi "revisid"
> dan fill C2 dengan " sumeri"
> mohon guidancenya
> Regards,
> Gultom

2a.

Bls: [belajar-excel] umur

Posted by: "Undang Satrianie" und4nk@rocketmail.com   und4nk@rocketmail.com

Mon Aug 8, 2011 12:47 am (PDT)



Silahkan Pak Semoga Sesuai Harapan..

________________________________
Dari: Agus Waluyo <gusta_w@yahoo.co.id>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Senin, 8 Agustus 2011 14:27
Judul: [belajar-excel] umur

 
Dear Para suhu Excell
mohon maaf seblm emang sudah pernah di bahas di milis tapi saya cari ga ada ketemu
bagaimana untuk mengetahui berapa umurnya

berapa Tahun, berapa bulan , berapa minggu dan berapa hari

file terlampir

 
Regards,
Agus  Waluyo| PT. Selim Elektro |0267-8617844-45
2b.

Bls: [belajar-excel] umur

Posted by: "Agus Waluyo" gusta_w@yahoo.co.id   gusta_w

Mon Aug 8, 2011 1:34 am (PDT)



Dear Pak undang satrianie
mau tanya lagi bagaimana klo yang Mingguan nya tidak ada koma yang saya blok kuning 3.9 jadi agak rancu bisa menghitung detail nya

see attacahment

 
Regards,
Agus  Waluyo| PT. Selim Elektro |0267-8617844-45

________________________________
Dari: Undang Satrianie <und4nk@rocketmail.com>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Senin, 8 Agustus 2011 14:46
Judul: Bls: [belajar-excel] umur

 
Silahkan Pak Semoga Sesuai Harapan..

________________________________
Dari: Agus Waluyo <gusta_w@yahoo.co.id>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Senin, 8 Agustus 2011 14:27
Judul: [belajar-excel] umur

 
Dear Para suhu Excell
mohon maaf seblm emang sudah pernah di bahas di milis tapi saya cari ga ada ketemu
bagaimana untuk mengetahui berapa umurnya

berapa Tahun, berapa bulan , berapa minggu dan berapa hari

file terlampir

 
Regards,
Agus  Waluyo| PT. Selim Elektro |0267-8617844-45

2c.

Re: Bls: [belajar-excel] umur

Posted by: "summonery" summonery@yahoo.com   summonery

Mon Aug 8, 2011 1:53 am (PDT)



gunakan fungsi INT,
=INT(DATEDIF(E12;F12;"md")/7)

>semoga bermanfaat

--- In belajar-excel@yahoogroups.com, Agus Waluyo <gusta_w@...> wrote:
>
> Dear Pak undang satrianie
> mau tanya lagi bagaimana klo yang Mingguan nya tidak ada koma yang
saya blok kuning 3.9 jadi agak rancu bisa menghitung detail nya
>
> see attacahment
>
> Â
> Regards,
> Agus Waluyo| PT. Selim Elektro |0267-8617844-45
>
>
> ________________________________
> Dari: Undang Satrianie und4nk@...
> Kepada: "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com
> Dikirim: Senin, 8 Agustus 2011 14:46
> Judul: Bls: [belajar-excel] umur
>
>
> Â
> Silahkan Pak Semoga Sesuai Harapan..
>
>
> ________________________________
> Dari: Agus Waluyo gusta_w@...
> Kepada: "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com
> Dikirim: Senin, 8 Agustus 2011 14:27
> Judul: [belajar-excel] umur
>
>
> Â
> Dear Para suhu Excell
> mohon maaf seblm emang sudah pernah di bahas di milis tapi saya cari
ga ada ketemu
> bagaimana untuk mengetahui berapa umurnya
>
> berapa Tahun, berapa bulan , berapa minggu dan berapa hari
>
> file terlampir
>
>
> Â
> Regards,
> Agus Waluyo| PT. Selim Elektro |0267-8617844-45
>

2d.

Bls: [belajar-excel] umur

Posted by: "Undang Satrianie" und4nk@rocketmail.com   und4nk@rocketmail.com

Mon Aug 8, 2011 2:06 am (PDT)



Pake Fungsi Pembulatan Saja Pak Misalnya Round di kolom Minggu Formulanya Jadi  
=ROUND(DATEDIF(E12;F12;"md")/7;0)
Itu Selisih Hari..
Sebagai Logika : 1 Minggu 7 hari

Rentang Waktu 29 Maret 2011 Sampai 25 Agustus 2011 Ada adalah 
4 bulan 4 minggu 6 hari
Kenapa 4 minggu tidak 1 bulan? Bapak Boleh Cek Kalender Bulan Agustus 2011 Ada 5 Minggu Pak..
Kenapa Sisanya 6 hari? 2 Hari Bulan Maret (Tanggal 30 dan 31)
4 Hari Bulan Agustus (Tanggal 21 Sampai 24) 

Terima Kasih Koreksinya

________________________________
Dari: Agus Waluyo <gusta_w@yahoo.co.id>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Senin, 8 Agustus 2011 15:34
Judul: Bls: [belajar-excel] umur

 
Dear Pak undang satrianie
mau tanya lagi bagaimana klo yang Mingguan nya tidak ada koma yang saya blok kuning 3.9 jadi agak rancu bisa menghitung detail nya

see attacahment
 
Regards,
Agus  Waluyo| PT. Selim Elektro |0267-8617844-45

________________________________
Dari: Undang Satrianie <und4nk@rocketmail.com>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Senin, 8 Agustus 2011 14:46
Judul: Bls: [belajar-excel] umur

 
Silahkan Pak Semoga Sesuai Harapan..

________________________________
Dari: Agus Waluyo <gusta_w@yahoo.co.id>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Senin, 8 Agustus 2011 14:27
Judul: [belajar-excel] umur

 
Dear Para suhu Excell
mohon maaf seblm emang sudah pernah di bahas di milis tapi saya cari ga ada ketemu
bagaimana untuk mengetahui berapa umurnya

berapa Tahun, berapa bulan , berapa minggu dan berapa hari

file terlampir

 
Regards,
Agus  Waluyo| PT. Selim Elektro |0267-8617844-45

2e.

Re: Bls: [belajar-excel] umur

Posted by: "summonery" summonery@yahoo.com   summonery

Mon Aug 8, 2011 2:36 am (PDT)



29 Mar 2011 s.d. 28 Jul 2011 adalah masih 3 bulan menurut DATEDIF29 Mar
2011 s.d. 29 Jul2011 sudah masuk hitungan 4 bulan menurut DATEDIF,jarak
antara 29 Juli 2011 s.d. 25 Agustus 2011 adalah 27 hari27 hari itu sama
dengan 3 minggu (21 hari) dan 6 hari

>semoga bermanfaat

--- In belajar-excel@yahoogroups.com, Undang Satrianie <und4nk@...>
wrote:
>
> Pake Fungsi Pembulatan Saja Pak Misalnya Round di kolom Minggu
Formulanya Jadi Â
> =ROUND(DATEDIF(E12;F12;"md")/7;0)
> Itu Selisih Hari..
> Sebagai Logika : 1 Minggu 7 hari
>
> Rentang Waktu 29 Maret 2011 Sampai 25 Agustus 2011 Ada adalahÂ
> 4 bulan 4 minggu 6 hari
> Kenapa 4 minggu tidak 1 bulan? Bapak Boleh Cek Kalender Bulan
Agustus 2011 Ada 5 Minggu Pak..
> Kenapa Sisanya 6 hari? 2 Hari Bulan Maret (Tanggal 30 dan 31)
> 4 Hari Bulan Agustus (Tanggal 21 Sampai 24)Â
>
> Terima Kasih Koreksinya
>
>
> ________________________________
> Dari: Agus Waluyo gusta_w@...
> Kepada: "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com
> Dikirim: Senin, 8 Agustus 2011 15:34
> Judul: Bls: [belajar-excel] umur
>
>
> Â
> Dear Pak undang satrianie
> mau tanya lagi bagaimana klo yang Mingguan nya tidak ada koma yang
saya blok kuning 3.9 jadi agak rancu bisa menghitung detail nya
>
> see attacahment
> Â
> Regards,
> Agus Waluyo| PT. Selim Elektro |0267-8617844-45
>
>
> ________________________________
> Dari: Undang Satrianie und4nk@...
> Kepada: "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com
> Dikirim: Senin, 8 Agustus 2011 14:46
> Judul: Bls: [belajar-excel] umur
>
>
> Â
> Silahkan Pak Semoga Sesuai Harapan..
>
>
> ________________________________
> Dari: Agus Waluyo gusta_w@...
> Kepada: "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com
> Dikirim: Senin, 8 Agustus 2011 14:27
> Judul: [belajar-excel] umur
>
>
> Â
> Dear Para suhu Excell
> mohon maaf seblm emang sudah pernah di bahas di milis tapi saya cari
ga ada ketemu
> bagaimana untuk mengetahui berapa umurnya
>
> berapa Tahun, berapa bulan , berapa minggu dan berapa hari
>
> file terlampir
>
>
> Â
> Regards,
> Agus Waluyo| PT. Selim Elektro |0267-8617844-45
>

2f.

Bls: Bls: [belajar-excel] umur

Posted by: "Agus Waluyo" gusta_w@yahoo.co.id   gusta_w

Mon Aug 8, 2011 8:11 pm (PDT)



trimakasih untuk semuanya atas info nya

 
Regards,
Agus  Waluyo

________________________________
Dari: summonery <summonery@yahoo.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Senin, 8 Agustus 2011 16:36
Judul: Re: Bls: [belajar-excel] umur

 
29 Mar 2011 s.d. 28 Jul 2011 adalah masih 3 bulan menurut DATEDIF
29 Mar 2011 s.d. 29 Jul2011 sudah masuk hitungan 4 bulan menurut DATEDIF,
jarak antara 29 Juli 2011 s.d. 25 Agustus 2011 adalah 27 hari
27 hari itu sama dengan 3 minggu (21 hari)  dan 6 hari

>semoga bermanfaat

--- In belajar-excel@yahoogroups.com, Undang Satrianie <und4nk@...> wrote:
>
> Pake Fungsi Pembulatan Saja Pak Misalnya Round di kolom Minggu Formulanya Jadi  
> =ROUND(DATEDIF(E12;F12;"md")/7;0)
> Itu Selisih Hari..
> Sebagai Logika : 1 Minggu 7 hari
>
> Rentang Waktu 29 Maret 2011 Sampai 25 Agustus 2011 Ada adalah 
> 4 bulan 4 minggu 6 hari
> Kenapa 4 minggu tidak 1 bulan? Bapak Boleh Cek Kalender Bulan Agustus 2011 Ada 5 Minggu Pak..
> Kenapa Sisanya 6 hari? 2 Hari Bulan Maret (Tanggal 30 dan 31)
> 4 Hari Bulan Agustus (Tanggal 21 Sampai 24) 
>
> Terima Kasih Koreksinya
>
>
> ________________________________
> Dari: Agus Waluyo gusta_w@...
> Kepada: "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com
> Dikirim: Senin, 8 Agustus 2011 15:34
> Judul: Bls: [belajar-excel] umur
>
>
>  
> Dear Pak undang satrianie
> mau tanya lagi bagaimana klo yang Mingguan nya tidak ada koma yang saya blok kuning 3.9 jadi agak rancu bisa menghitung detail nya
>
> see attacahment
>  
> Regards,
> Agus  Waluyo| PT. Selim Elektro |0267-8617844-45
>
>
> ________________________________
> Dari: Undang Satrianie und4nk@...
> Kepada: "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com
> Dikirim: Senin, 8 Agustus 2011 14:46
> Judul: Bls: [belajar-excel] umur
>
>
>  
> Silahkan Pak Semoga Sesuai Harapan..
>
>
> ________________________________
> Dari: Agus Waluyo gusta_w@...
> Kepada: "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com
> Dikirim: Senin, 8 Agustus 2011 14:27
> Judul: [belajar-excel] umur
>
>
>  
> Dear Para suhu Excell
> mohon maaf seblm emang sudah pernah di bahas di milis tapi saya cari ga ada ketemu
> bagaimana untuk mengetahui berapa umurnya
>
> berapa Tahun, berapa bulan , berapa minggu dan berapa hari
>
> file terlampir
>
>
>  
> Regards,
> Agus  Waluyo| PT. Selim Elektro |0267-8617844-45
>

2g.

Bls: Bls: [belajar-excel] umur

Posted by: "Undang Satrianie" und4nk@rocketmail.com   und4nk@rocketmail.com

Mon Aug 8, 2011 8:27 pm (PDT)



Siiip Koreksinya Pak Summonery....
Maklum dengan koneksi Internet yang lemot Plus Perjalanan Pulang yang Panjang membuat yang ada dipikiran hanya Kolak Untuk Buka Puasa..(^_^)..

Terima Kasih Ya...
Salam

________________________________
Dari: summonery <summonery@yahoo.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Senin, 8 Agustus 2011 16:36
Judul: Re: Bls: [belajar-excel] umur

 
29 Mar 2011 s.d. 28 Jul 2011 adalah masih 3 bulan menurut DATEDIF
29 Mar 2011 s.d. 29 Jul2011 sudah masuk hitungan 4 bulan menurut DATEDIF,
jarak antara 29 Juli 2011 s.d. 25 Agustus 2011 adalah 27 hari
27 hari itu sama dengan 3 minggu (21 hari)  dan 6 hari

>semoga bermanfaat

--- In belajar-excel@yahoogroups.com, Undang Satrianie <und4nk@...> wrote:
>
> Pake Fungsi Pembulatan Saja Pak Misalnya Round di kolom Minggu Formulanya Jadi  
> =ROUND(DATEDIF(E12;F12;"md")/7;0)
> Itu Selisih Hari..
> Sebagai Logika : 1 Minggu 7 hari
>
> Rentang Waktu 29 Maret 2011 Sampai 25 Agustus 2011 Ada adalah 
> 4 bulan 4 minggu 6 hari
> Kenapa 4 minggu tidak 1 bulan? Bapak Boleh Cek Kalender Bulan Agustus 2011 Ada 5 Minggu Pak..
> Kenapa Sisanya 6 hari? 2 Hari Bulan Maret (Tanggal 30 dan 31)
> 4 Hari Bulan Agustus (Tanggal 21 Sampai 24) 
>
> Terima Kasih Koreksinya
>
>
> ________________________________
> Dari: Agus Waluyo gusta_w@...
> Kepada: "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com
> Dikirim: Senin, 8 Agustus 2011 15:34
> Judul: Bls: [belajar-excel] umur
>
>
>  
> Dear Pak undang satrianie
> mau tanya lagi bagaimana klo yang Mingguan nya tidak ada koma yang saya blok kuning 3.9 jadi agak rancu bisa menghitung detail nya
>
> see attacahment
>  
> Regards,
> Agus  Waluyo| PT. Selim Elektro |0267-8617844-45
>
>
> ________________________________
> Dari: Undang Satrianie und4nk@...
> Kepada: "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com
> Dikirim: Senin, 8 Agustus 2011 14:46
> Judul: Bls: [belajar-excel] umur
>
>
>  
> Silahkan Pak Semoga Sesuai Harapan..
>
>
> ________________________________
> Dari: Agus Waluyo gusta_w@...
> Kepada: "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com
> Dikirim: Senin, 8 Agustus 2011 14:27
> Judul: [belajar-excel] umur
>
>
>  
> Dear Para suhu Excell
> mohon maaf seblm emang sudah pernah di bahas di milis tapi saya cari ga ada ketemu
> bagaimana untuk mengetahui berapa umurnya
>
> berapa Tahun, berapa bulan , berapa minggu dan berapa hari
>
> file terlampir
>
>
>  
> Regards,
> Agus  Waluyo| PT. Selim Elektro |0267-8617844-45
>

3a.

Re: Mengelompokkan Deret Kode

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

Mon Aug 8, 2011 12:54 am (PDT)



*Modifikasi coding*
(maaf tadi membaca 'Syaratnya' terlalu cepat...
Pada code baru ini, Nilai SpinButoon dipakai sbg* penentu jumlah Karakter*yang
akan dianggap sebagai *Bagian Pertama* data yg akan menjadi *dasar
pengelompokan*.

Misal Spinbutton di set = 5, maka *5 Digit pertama* akan menjadi dasar
pengelompokan.
Nilai SPinButton dapat diset dari 0 s/d 7

Private Sub CommandButton1_Click()
' Hapsari / Aug 8, 2011 (V2)
'---------------------------
Dim vDat As Range, vOut As Range
Dim i As Long, n As Long, p As Integer
Dim Part1 As String, Part2 As String

Set vDat = Cells(1).CurrentRegion
Set vOut = Cells(1, 3)
p = Me.SpinButton1.Value
vOut.EntireColumn.ClearContents
n = 1

For i = 1 To vDat.Rows.Count
Part1 = Left(vDat(i, 1), p)
Part2 = Left(vDat(i + 1, 1), p)
vOut(n, 1) = vDat(i, 1)
n = n + 1
If Not Part1 = Part2 Then n = n + 1
Next i

End Sub

2011/8/8 Haps <hapsari.stlizbeth@gmail.com>

> Kalau* HARUS dengan formula* kayaknya gak bisa, karena formula* bukan*alat
> untuk melakukan aksi (*menginsert baris*, menulis data di baris lain dst)
> Formula, katanya, hanya mengembalikan data dan itupun hanya ditampilkan
> di cell dimana dia ditulis.
>
> Dengan permainan VBA dan SpinButton mungkin bisa..
> Spinbutton untuk mengatur cell (G1) sbg cell kendali (digit ke berapa yg
> dianggap
> pembedanya).
> Sedangkan VBA nya untuk mengotomatiskan penulisan data terkelompok - nya
>
>
> '----------------
> Private Sub CommandButton1_Click()
> ' Haps ( Aug 08, 2011 )
> Dim vDat As Range, vOut As Range
> Dim i As Long, n As Long, Pos As Integer
>
> Set vDat = Cells(1).CurrentRegion
> Set vOut = Cells(1, 3)
> Pos = Len(vDat(1, 1)) - Me.SpinButton1.Value + 1
> vOut.EntireColumn.ClearContents
> n = 1
>
> For i = 1 To vDat.Rows.Count
> vOut(n, 1) = vDat(i, 1)
> n = n + 1
> If Not Mid(vDat(i + 1, 1), Pos, 1) = Mid(vDat(i, 1), Pos, 1) _
> Then n = n + 1
> Next i
> End Sub
> '----------------
>
> cara memainkannya:
>
> 1. klik Spinbutton untuk mengubah angka di cell G1
> angka ini akan dipakai sebagai penunjuk [POSISI DIGIT KE X] pada data di
> kolom A
> hanya saja dihitungnya dari belakang (dari kanan)
>
> 2. Klik Tombol OK
>
> Sebelum makro menyusun data yg dikelompokkan *berdasarkan perbedaan nilai*
> *pada digit Ke X tadi*, dia akan menghapus dulu data di kolom C
>
> Mohon maaf kalau tidak berkenan dengan adanya pemrograman VBA; dihapus
> saja..
>
>
> 2011/8/8 andri apriyadi <andreemobile@yahoo.co.id>
> >
> > Saya punya deretan Kode yang panjang dalam satu kolom dan berharap ada
> rumus untuk mengotomatisasi
> > agar deret Kode ini dapat berkelompok dengan ada spasi (blank cell) yang
> memisahkan antara kelompok kode
> > yang satu dengan kelompok kode lainnya.
> > (Contoh terlampir).
> >
> > Mohon bantuan para master, bagaimana rumus/formulanya agar kode-kode ini
> berderet sesuai kelompok
> > yang saya inginkan?
> > Thx before
> >
> > Regards
> > Andree
>
3b.

Re: Mengelompokkan Deret Kode

Posted by: "ghozi alkatiri" ghozialkatiri@yahoo.co.id   ghozialkatiri

Mon Aug 8, 2011 3:31 am (PDT)



dengan formula insya Allah bisa

sebelumnya saya mengucapkan terima kasih
kepada bapak summonery, yang secara tidak langsung memberikan
kontribusi dan inspirasi untuk solusi kasus ini dengan jurus ampuhnya  yang  relatif pendek untuk mencari  text
(data) baris  terakhir dari sebuah range
formulanya =LOOKUP(2;1/(RANGE<>"");RANGE)

karena
formula saya sendiri untuk hal ini lebih panjang  walaupun hasilnya sama benarnya tapi kurang praktis. 

dalam
kasus yang sekarang ini formula mencari data baris terakhir sangat dibutuhkan sekali bahkan terulang beberapa kali.
sebagimana dilihat di bawah ini yang berwarna merah.

=IF(E2="";INDEX($A$2:$A$73;MATCH(LOOKUP(2;1/(E$2:E2<>"");E$2:E2);$A$2:$A$73)+1);
IF(AND(LEFT(INDEX($A$2:$A$73;MATCH(LOOKUP(2;1/(E$2:E2<>"");E$2:E2); $A$2:$A$73)+1);4)=LEFT(LOOKUP(2;1/(E$2:E2<>"");E$2:E2);4);MID(INDEX($A$2:$A$73;
MATCH(LOOKUP(2;1/(E$2:E2<>"");E$2:E2);$A$2:$A$73)+1);5;1)=MID(LOOKUP(2;1/(E$2:E2<>"");
E$2:E2);5;1));INDEX($A$2:$A$73;MATCH(LOOKUP(2;1/(E$2:E2<>"");E$2:E2);$A$2:$A$73)+1);""))

data baris pertama  pada solusi diisi manual , formula dimulai dari baris ke dua, dan dicopy ke bawah dst.
wassalam

Ghozi Alkatiri

--- Pada Sen, 8/8/11, Haps <hapsari.stlizbeth@gmail.com> menulis:

Kalau HARUS dengan formula kayaknya gak bisa, karena formula bukan alatuntuk melakukan aksi (menginsert baris, menulis data di baris lain dst)

Formula, katanya, hanya mengembalikan data dan itupun hanya ditampilkandi cell dimana dia ditulis.

Dengan permainan VBA dan SpinButton mungkin bisa..

Spinbutton untuk mengatur cell (G1) sbg cell kendali (digit ke berapa yg dianggap pembedanya).

Sedangkan VBA nya untuk mengotomatiskan penulisan data terkelompok - nya

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

Private Sub CommandButton1_Click()   
' Haps ( Aug 08, 2011 )
   Dim vDat As Range, vOut As Range   
Dim i As Long, n As Long, Pos As Integer
   Set vDat = Cells(1).CurrentRegion
   Set vOut = Cells(1, 3)   
Pos = Len(vDat(1, 1)) - Me.SpinButton1.Value + 1
   vOut.EntireColumn.ClearContents   n = 1

   For i = 1 To vDat.Rows.Count
      vOut(n, 1) = vDat(i, 1)      n = n + 1
      If Not Mid(vDat(i + 1, 1), Pos, 1) = Mid(vDat(i, 1), Pos, 1) _
         Then n = n + 1
   Next iEnd Sub

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

cara memainkannya:
1. klik Spinbutton untuk mengubah angka di cell G1

angka ini akan dipakai sebagai penunjuk [POSISI DIGIT KE X] pada data di kolom A
hanya saja dihitungnya dari belakang (dari kanan)

2. Klik Tombol OK

Sebelum makro menyusun data yg dikelompokkan berdasarkan perbedaan nilaipada
digit Ke X tadi, dia akan menghapus dulu data di kolom C

Mohon maaf kalau tidak berkenan dengan adanya pemrograman VBA; dihapus saja..
3c.

Re: Mengelompokkan Deret Kode

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

Mon Aug 8, 2011 6:20 pm (PDT)



Asumsi, semua kode adalah angka.
Coba juga dengan array formula :
=IF(LEN(D1)>7,--$A$2,IF(LEN(D1)>1,MIN(IF((LEFT($A$2:$A$73,*5*)=LEFT(D1,*5*
))*(--$A$2:$A$73>D1),--$A$2:$A$73)),MIN(IF(--$A$2:$A$73>D1+MAX(D$1:D1),--$A$2:$A$73))))

Misal, grup ingin disusun berdasar jumlah karakter pertama yang dinamis.
Buat sebuah data validation list disuatu cell (misal F1) yang isinya
angka-angka jumlah karakter.
Kemudian ganti yang diwarna biru dengan alamat cell F1 (absolut references).
Menjadi :
=IF(LEN(D1)>7,--$A$2,IF(LEN(D1)>1,MIN(IF((LEFT($A$2:$A$73,*$F$1*)=LEFT(D1,*
$F$1*
))*(--$A$2:$A$73>D1),--$A$2:$A$73)),MIN(IF(--$A$2:$A$73>D1+MAX(D$1:D1),--$A$2:$A$73))))

Karena formula adalah array formula, tulis formula lalu akhiri dengan
menekan Ctrl Shift Enter.
Copy formula ke bawah, sampai bertemu angka 0 berurutan pada dua baris
berimpitan.

Regards.
Kid.

2011/8/8 Mr. Kid <mr.nmkid@gmail.com>

> Hai Andri,
>
> Coba pakai Pivot Table.
> Langkahnya :
> 1. Tambahkan header tabel
> 2. buat 1 kolom yang berisi nilai grup (misal headernya diberi nama 'Grup'
> di cell B1, sedangkan data yang di kolom A diberi nama data), dan B2
> menggunakan formula :
> =int( a2/100 )
> 3. copy formula di B2 ke seluruh baris data.
> 4. blok tabel (dari a1 sampai b baris terkahir data)
> 5. (optional) buat nama range dengan klik kanan pilih name a range, misal
> diberi nama mydata
> 6. insert -> pivot table
> 7. pada data source diisi mydata atau blok range data (termasuk header)
> lalu ok
> 8. letakkan (drag) field grup dibagian row
> 9. letakkan juga field data dibagian row juga, dibawah field grup
> 10. klik panah kecil -> field setting -> layout -> centang insert blank
> line after each item label -> ok
>
> Jika data diubah-ubah, termasuk tambah atau susut recordnya, ubah refers to
> di nama range (mydata) dengan sebuah formula offset
> =Offset( $a$1,0,0,counta( $a:$a ) )
>
> Setelah itu, tambah dan kurangi data sesukanya dilanjutkan dengan tekan
> refresh data atau refresh all.
>
> Kid.
>
>
> 2011/8/8 andri apriyadi <andreemobile@yahoo.co.id>
>
>> **
>>
>>
>> Dear para Pakar Excel,
>>
>> Saya punya deretan Kode yang panjang dalam satu kolom dan berharap ada
>> rumus untuk mengotomatisasi agar deret Kode ini dapat berkelompok dengan ada
>> spasi (blank cell) yang memisahkan antara kelompok kode yang satu dengan
>> kelompok kode lainnya.
>> (Contoh terlampir).
>>
>> Mohon bantuan para master, bagaimana rumus/formulanya agar kode-kode ini
>> berderet sesuai kelompok yang saya inginkan?
>>
>> Thx before
>>
>> Regards
>>
>> Andree
>>
>>
>>
>
>
4a.

FW: [belajar-excel] umur

Posted by: "Agus Widodo" agus_1194@yahoo.co.id   agus_1194

Mon Aug 8, 2011 2:20 am (PDT)



Mumpung belum ada yg ngejawab.

Mungkin maksudnya Pak Agung seperti ini.

Langsung Cek ke TKP....

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Agus Waluyo
Sent: 08 Agustus 2011 14:28
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] umur

Dear Para suhu Excell

mohon maaf seblm emang sudah pernah di bahas di milis tapi saya cari ga ada
ketemu

bagaimana untuk mengetahui berapa umurnya

berapa Tahun, berapa bulan , berapa minggu dan berapa hari

file terlampir

Regards,

Agus Waluyo | PT. Selim Elektro |0267-8617844-45

4b.

FW: [belajar-excel] umur

Posted by: "Agus Widodo" agus_1194@yahoo.co.id   agus_1194

Mon Aug 8, 2011 7:43 pm (PDT)



Mumpung belum ada yg ngejawab.

Mungkin maksudnya Pak Agung seperti ini.

Langsung Cek ke TKP....

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Agus Waluyo
Sent: 08 Agustus 2011 14:28
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] umur

Dear Para suhu Excell

mohon maaf seblm emang sudah pernah di bahas di milis tapi saya cari ga ada
ketemu

bagaimana untuk mengetahui berapa umurnya

berapa Tahun, berapa bulan , berapa minggu dan berapa hari

file terlampir

Regards,

Agus Waluyo | PT. Selim Elektro |0267-8617844-45

5a.

Re: Prorate

Posted by: "Budhi Cahyanto" budhi.cahyanto@id.certissecurity.com

Mon Aug 8, 2011 3:42 am (PDT)



Thanks Mr. Kid.

Ternyata ada 2 formulasi yang dapat digunakan untuk mencari nilai yang sama.

Jika boleh tanya lebih lanjut, fungsi LEN, MID, dan FIND ditujukan untuk apa ya ? maksudnya gimana dalam penjabarannya ?

Rgrds

_____
From: belajar-excel@yahoogroups.com On Behalf Of Mr. Kid
Sent: Monday, August 08, 2011 12:51 PM

Mungkin juga bisa :
=(D2+E2)*IF(-LEFT(C2)<0,1,MID(LEFT(C2,LEN(C2)-6),
FIND(",",C2)+1,99)/12)

Kid.

2011/8/8 Budhi Cahyanto <budhi.cahyanto@id.certissecurity.com>
Pakar XLs,
Mohon bantuannya donk formula mencari nilai prorate seperti contoh
terlampir.

Yang mau dicari nilai kolom "F", dengan acuan kolom "C".

1. Apabila di atas / sama dengan 1 tahun, maka nilai pada kolom "F"
hanya dikalikan 1 (satu) dari penjumlahan kolom "D" dan "E".

2. Apabila di bawah 1 tahun, maka nilai pada kolom "F" diprorate dari penjumlahan kolom "D" dan "E".

Thanks untuk ilmunya.
Rgrds,

Budhi

5b.

Re: Prorate

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

Mon Aug 8, 2011 1:58 pm (PDT)



sementara Mr. Kid belum sempat menuliskan penjelaannya,
saya usahakan dulu sebisa bisanya:

kutipan RUMUS dari Mr Kid:
=*(D2+E2)* * IF(*-LEFT(C2)<0*, *1*,
MID(LEFT(C2,LEN(C2)-6),FIND(",",C2)+1,99)/12)

(D+E) akan dikallikan dengan suatu bilangan, dimana bilangan pengali itu
punya dua kemungkinan

1. Jika *+*YoS (kolom C) = Positip (bisa dibalik JIka *-*YoS Negatip ),
maka faktor pengali nya = 1

2. Jika tidak, ( = jika -Yos Positip )
maka faktor pengali nya = Yeos (dlm satuan bulan) / 12

Terlampir workbook berisi Bedah formula tsb di atas...

PENJELASAN Fungsi

*LEN*
mengukur berapa panjang suatu text/string (banyaknya karakter dlm text)
=LEN("3 WINDU, 1 TAHUN") hasilnya kalo ndak salah 16

Misal di A1 terdapat formula / rumus yg panjangnya 147 karakter
yg hasilnya = "YES"

=LEN(A1) hasilnya = 3

*FIND*
mencari posisi suatu subText dm sebuah Text dihitung dari titik tertentu
Jika titik mulainya tidak ditulis, dianggap dihitung mulai dari karakter
pertama
=FIND(":", "SATU:TIGA") hasilnya 5
yaitu posisi karakter ":" pada text *"SATU:TIGA"*
lengkapnya
=FIND(SubText yg dicari, Text tempat pencarian, [Mulai dari karakater ke])

*MID*
mengambil SubText dari sebuah text, dengan diketahui posisi karakter pertama
dan
banyaknya karakter ya akan diambil

MID(TextYgAkanDirujuk, MulaiDariKarakterKe, SebanyakSekianKarakter)
misal di A1 sudah tertulis: "Komputer Pak Budi ndak ada tombol F1-nya"

=MID(A1, 14, 7)
mengambil karakter dari posisi ke 14 sebanyak 7 karakter, haslinya "Budi nd"

=MID(A1, FIND("Pak Budi",A1), 2) hasilnya "Pa"

'---

2011/8/8 Budhi Cahyanto <budhi.cahyanto@id.certissecurity.com>
>
> Thanks Mr. Kid.
> Ternyata ada 2 formulasi yang dapat digunakan untuk mencari nilai yang
sama.
*> Jika boleh tanya lebih lanjut, fungsi LEN, MID, dan FIND ditujukan untuk
apa ya ?
> maksudnya gimana dalam penjabarannya ?
*> Rgrds

> From: belajar-excel@yahoogroups.com On Behalf Of Mr. Kid
> Sent: Monday, August 08, 2011 12:51 PM
>
> Mungkin juga bisa :
> =(D2+E2)*IF(-LEFT(C2)<0,1,MID(LEFT(C2,LEN(C2)-6),FIND(",",C2)+1,99)/12)
>
> Kid.
5c.

Re: Prorate

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

Mon Aug 8, 2011 3:53 pm (PDT)



Sudah lengkap yang dijelaskan mbak Siti kan ya.

Sekarang sekedar obrolan angkring saja

1. Fungsi Left untuk ambil penggalan teks dari suatu data tulisan mulai dari
karakter pertamanya, sejumlah karakter tertentu.
Syntax di fungsi Excel : Left( teks , [jumlah karakter] )
Jika jumlah karakter diabaikan, maka digunakan nilai default yaitu 1 yang
artinya ambil sebanyak 1 karakter saja.

Pada kasus yang pasti cukup dengan 1 karakter awal sebagai bahan cek, maka
bisa menggunakan =Left( teksnya )
Contoh :
=*LEFT(C2)*
untuk cek apakan C2 itu awalnya 0 (artinya 0 tahun) atau bukan nol (lebih
dari 0 tahun ~ mulai dari 1,2, dst tahun), pada suatu data yang berformat
'y-tahun, m-bulan'

2. Fungsi-fungsi string menghasilkan data bertype text, meskipun isinya
berupa angka-angka.

3. Sebuah data angka bertype text (seperti hasil Left(C2) di atas atau data
'1234567') dapat dikonversi oleh Excel menjadi data bertype numerik, melalui
kegiatan operasi matematik seperti perkalian, pembagian, penjumlahan,
pengurangan, dsb, termasuk menggunakan fungsi konversi dalam Excel seperti
fungsi Value.
Jadi penggunaan karakter - (menegatifkan ~ mengalikan dengan -1) pada
-Left(C2) adalah upaya untuk mengkonversi datatype.
Contoh konversi lainnya dari fomula :
=*(D2+E2)* * IF(*-LEFT(C2)<0*, *1*,
MID(LEFT(C2,LEN(C2)-6),FIND(",",C2)+1,99)/12)

adalah bagian :
MID(LEFT(C2,LEN(C2)-6),FIND(",",C2)+1,99)/12
Hasil dari fungsi MID (fungsi ini masuk golongan fungsi-fungsi string kan
ya) memiliki datatype text.
Dengan adanya pembagian dengan jumlah bulan setahun, yaitu /12, maka
hasilnya akan menjadi data bertype numerik.

Hal yang perlu diperhatikan dalam konversi data adalah kepastian data yang
dikonversi adalah tepat benar bisa berdatatype hasil konversi.
Contoh :
Sebuah data (misal disebuah cell)
=" 12345 "
dengan karakter spasi memilki kode ASCII 32 (breaking able space ~ non
unicode), bisa pasti konversi menjadi bertype numerik. Maka :
= *--* " 12345 "
akan menghasilkan data numerik bernilai -12345

Jika karakter spasi adalah karakter unicode (atau sering disebut non
breaking able space yang biasa di HTML ditulis sebagai &nbsp), maka tidak
dapat dikonversi menjadi data numerik, kecuali setelah spasi unicode (spasi
160) dihilangkan dari data.
Contoh :
= *rept( char( 160 ) , 5 ) & "123" & rept( char( 160 ) , 7 )*
menghasilkan suatu teks 123 yang didahului spasi unicode sebanyak 5
karakter, dan diakhiri spasi unicode sebanyak 7 karakter.

jika dikonversi menjadi bertype numerik dengan fungsi Value atau operasi
matematis, akan menghasilkan error value #Value!
contoh :
= -- ( *rept( char( 160 ) , 5 ) & "123" & rept( char( 160 ) , 7 )*
)
= Value( * rept( char( 160 ) , 5 ) & "123" & rept( char( 160 ) , 7 )* )

Jadi perlu proses penghilangan karakter spasi 160 lebih dulu, misal :
= -- Substitute( * rept( char( 160 ) , 5 ) & "123" & rept( char( 160 ) , 7
) * , char( 160 ) , "" )

Jadi, tidak perlu heran, jika proses konversi ke value data yang isinya
hanya spasi kok menghasilkan error value, maka tersangka pertamanya adalah
karakter-karakter hidden dan spasi unicode ini, yang harus dienyahkan dari
data lebih dulu.

Kid.

2011/8/9 STDEV(i) <setiyowati.devi@gmail.com>

> **
>
>
> sementara Mr. Kid belum sempat menuliskan penjelaannya,
> saya usahakan dulu sebisa bisanya:
>
> kutipan RUMUS dari Mr Kid:
> =*(D2+E2)* * IF(*-LEFT(C2)<0*, *1*,
> MID(LEFT(C2,LEN(C2)-6),FIND(",",C2)+1,99)/12)
>
>
> (D+E) akan dikallikan dengan suatu bilangan, dimana bilangan pengali itu
> punya dua kemungkinan
>
> 1. Jika *+*YoS (kolom C) = Positip (bisa dibalik JIka *-*YoS Negatip
> ),
> maka faktor pengali nya = 1
>
> 2. Jika tidak, ( = jika -Yos Positip )
> maka faktor pengali nya = Yeos (dlm satuan bulan) / 12
>
> Terlampir workbook berisi Bedah formula tsb di atas...
>
>
> PENJELASAN Fungsi
>
> *LEN*
> mengukur berapa panjang suatu text/string (banyaknya karakter dlm text)
> =LEN("3 WINDU, 1 TAHUN") hasilnya kalo ndak salah 16
>
> Misal di A1 terdapat formula / rumus yg panjangnya 147 karakter
> yg hasilnya = "YES"
>
> =LEN(A1) hasilnya = 3
>
>
> *FIND*
> mencari posisi suatu subText dm sebuah Text dihitung dari titik tertentu
> Jika titik mulainya tidak ditulis, dianggap dihitung mulai dari karakter
> pertama
> =FIND(":", "SATU:TIGA") hasilnya 5
> yaitu posisi karakter ":" pada text *"SATU:TIGA"*
> lengkapnya
> =FIND(SubText yg dicari, Text tempat pencarian, [Mulai dari karakater ke])
>
>
> *MID*
> mengambil SubText dari sebuah text, dengan diketahui posisi karakter
> pertama dan
> banyaknya karakter ya akan diambil
>
> MID(TextYgAkanDirujuk, MulaiDariKarakterKe, SebanyakSekianKarakter)
> misal di A1 sudah tertulis: "Komputer Pak Budi ndak ada tombol F1-nya"
>
> =MID(A1, 14, 7)
> mengambil karakter dari posisi ke 14 sebanyak 7 karakter, haslinya "Budi
> nd"
>
> =MID(A1, FIND("Pak Budi",A1), 2) hasilnya "Pa"
>
> '---
>
>
>
> 2011/8/8 Budhi Cahyanto <budhi.cahyanto@id.certissecurity.com>
> >
> > Thanks Mr. Kid.
> > Ternyata ada 2 formulasi yang dapat digunakan untuk mencari nilai yang
> sama.
> *> Jika boleh tanya lebih lanjut, fungsi LEN, MID, dan FIND ditujukan
> untuk apa ya ?
> > maksudnya gimana dalam penjabarannya ?
> *> Rgrds
>
>
>
> > From: belajar-excel@yahoogroups.com On Behalf Of Mr. Kid
> > Sent: Monday, August 08, 2011 12:51 PM
> >
> > Mungkin juga bisa :
> > =(D2+E2)*IF(-LEFT(C2)<0,1,MID(LEFT(C2,LEN(C2)-6),FIND(",",C2)+1,99)/12)
> >
> > Kid.
>
>
>
5d.

Re: Prorate

Posted by: "tjahyahartono@yahoo.co.id" tjahyahartono@yahoo.co.id   tjahyahartono

Mon Aug 8, 2011 4:05 pm (PDT)



Makasih mbak,penjelasan rumus buat pak Budhi,juga penting buat sy yg pingin blajar excel.


Regards


Tjahya
Sent from my BlackBerry®

-----Original Message-----
From: "STDEV(i)" <setiyowati.devi@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Tue, 9 Aug 2011 03:58:25
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Prorate

sementara Mr. Kid belum sempat menuliskan penjelaannya,
saya usahakan dulu sebisa bisanya:

kutipan RUMUS dari Mr Kid:
=*(D2+E2)* * IF(*-LEFT(C2)<0*, *1*,
MID(LEFT(C2,LEN(C2)-6),FIND(",",C2)+1,99)/12)


(D+E) akan dikallikan dengan suatu bilangan, dimana bilangan pengali itu
punya dua kemungkinan

1. Jika *+*YoS (kolom C) = Positip (bisa dibalik JIka *-*YoS Negatip ),
maka faktor pengali nya = 1

2. Jika tidak, ( = jika -Yos Positip )
maka faktor pengali nya = Yeos (dlm satuan bulan) / 12

Terlampir workbook berisi Bedah formula tsb di atas...


PENJELASAN Fungsi

*LEN*
mengukur berapa panjang suatu text/string (banyaknya karakter dlm text)
=LEN("3 WINDU, 1 TAHUN") hasilnya kalo ndak salah 16

Misal di A1 terdapat formula / rumus yg panjangnya 147 karakter
yg hasilnya = "YES"

=LEN(A1) hasilnya = 3


*FIND*
mencari posisi suatu subText dm sebuah Text dihitung dari titik tertentu
Jika titik mulainya tidak ditulis, dianggap dihitung mulai dari karakter
pertama
=FIND(":", "SATU:TIGA") hasilnya 5
yaitu posisi karakter ":" pada text *"SATU:TIGA"*
lengkapnya
=FIND(SubText yg dicari, Text tempat pencarian, [Mulai dari karakater ke])


*MID*
mengambil SubText dari sebuah text, dengan diketahui posisi karakter pertama
dan
banyaknya karakter ya akan diambil

MID(TextYgAkanDirujuk, MulaiDariKarakterKe, SebanyakSekianKarakter)
misal di A1 sudah tertulis: "Komputer Pak Budi ndak ada tombol F1-nya"

=MID(A1, 14, 7)
mengambil karakter dari posisi ke 14 sebanyak 7 karakter, haslinya "Budi nd"

=MID(A1, FIND("Pak Budi",A1), 2) hasilnya "Pa"

'---



2011/8/8 Budhi Cahyanto <budhi.cahyanto@id.certissecurity.com>
>
> Thanks Mr. Kid.
> Ternyata ada 2 formulasi yang dapat digunakan untuk mencari nilai yang
sama.
*> Jika boleh tanya lebih lanjut, fungsi LEN, MID, dan FIND ditujukan untuk
apa ya ?
> maksudnya gimana dalam penjabarannya ?
*> Rgrds



> From: belajar-excel@yahoogroups.com On Behalf Of Mr. Kid
> Sent: Monday, August 08, 2011 12:51 PM
>
> Mungkin juga bisa :
> =(D2+E2)*IF(-LEFT(C2)<0,1,MID(LEFT(C2,LEN(C2)-6),FIND(",",C2)+1,99)/12)
>
> Kid.

6a.

Cara membuka file Zip?

Posted by: "Tjahya Hartono" tjahyahartono@yahoo.co.id   tjahyahartono

Mon Aug 8, 2011 3:54 am (PDT)



Dear master Ex-cel,
 
Saya mau membuka file di milis, berikut salah satu contoh link dibawah ini:
http://www.mail-archive.com/belajar-excel@yahoogroups.com/msg05544.html
 
Tetapi setiap kali saya extract kok hasilnya bukan excel ya, melainkan datanya berformat XML Document?
Kenapa ya? hampir semua yang aq download kayak gitu. Aku pake Office 2010 dikantor.
 
Terima kasih
 
 
Tjahya
6b.

Re: Cara membuka file Zip?

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

Mon Aug 8, 2011 12:09 pm (PDT)



kalau dibuka dari pc saya, file tsb bukan ZIP tetapi file
biasa (xlsx); berupa workbook Excel 12

[image: archive 05544 filetype xlsx.GIF]

mungkin pada saat dibuka, di pc pak tjahya hanya ada Excel 11)

Jika ada kesulitan download file di situs Archive tsb, anda masih punya
pilihan lain. coba lihat/buka di:
http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-Cara-buat-jadwal-proyek-otomatis-td4519858.html#a4519929

selain itu, berikut ini dilampirkan file yg sudah di konversi ke Excel
97-2003

~siti

2011/8/8 Tjahya Hartono <tjahyahartono@yahoo.co.id>

> **
>
> Dear master Ex-cel,
> Saya mau membuka file di milis, berikut salah satu contoh link dibawah ini:
> http://www.mail-archive.com/belajar-excel@yahoogroups.com/msg05544.html
>
> Tetapi setiap kali saya extract kok hasilnya bukan excel ya, melainkan
> datanya berformat XML Document?
> Kenapa ya? hampir semua yang aq download kayak gitu. Aku pake Office 2010
> dikantor.
> Terima kasih
> Tjahya
>
7a.

Schedule Harian

Posted by: "Tjahya Hartono" tjahyahartono@yahoo.co.id   tjahyahartono

Mon Aug 8, 2011 7:15 pm (PDT)



Dear Master Ex-cel,
 
 
Bisakah saya dibantu membuat schedul harian, dari tanggal tersebut bisa diclick dan membuat input terus keluar reminder.
 
 
Terima kasih
 
 
Tjahya
7b.

Re: Schedule Harian

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

Mon Aug 8, 2011 7:47 pm (PDT)



pak tjahya lupa,  (lampiran  3 MEGA !!!)
bahwa menurut peraturan milis lampiran ada quotanya (max 300 KB)
jika ada lebih SEDIKIT harus sambil bilang (=tanda bahwa menyadari
bahwa ada aturannya)

yang membatasi bukan sistem tapi diri kita sendiri.

2011/8/9 Tjahya Hartono <tjahyahartono@yahoo.co.id>
>
> Dear Master Ex-cel,
> Bisakah saya dibantu membuat schedul harian, dari tanggal tersebut bisa diclick dan membuat input terus keluar reminder.
> Terima kasih
> Tjahya

7c.

Re: Schedule Harian

Posted by: "Sudarsono Suhenk" jkssbma@live.com   jkssbma

Mon Aug 8, 2011 7:51 pm (PDT)



Kalau mau praktis gunakan outlook .

From: tjahyahartono@yahoo.co.id
Date: Tue, 9 Aug 2011 10:15:19 +0800

Dear Master Ex-cel,
Bisakah saya dibantu membuat schedul harian, dari tanggal tersebut bisa diclick dan membuat input terus keluar reminder.
Terima kasih
Tjahya

8.

Menggabungkan laporan

Posted by: "rico martin" ajibataku@yahoo.com   ajibataku

Mon Aug 8, 2011 7:36 pm (PDT)



Dear Pakar Excel,
 
Mohon bantuannya,bagaimana cara terbaik menggabungkan laporan dari beberapa sheet menjadi satu sheet ( data terlampir ).
Sheet total adalah hasil yang diinginkan.
 
Demikian dan terimakasih atas bantuannya.
 
Salam
 
Rico
Recent Activity
Visit Your Group
Give Back

Yahoo! for Good

Get inspired

by a good cause.

Y! Toolbar

Get it Free!

easy 1-click access

to your groups.

Yahoo! Groups

Start a group

in 3 easy steps.

Connect with others.

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