Selasa, 19 Februari 2013

[belajar-excel] Digest Number 2101

3 New Messages

Digest #2101

Messages

Tue Feb 19, 2013 5:05 pm (PST) . Posted by:

Alhamdulillah, Terima kasih Mr. Kid jawabannya. Semoga Tuhan membalas.

Sepertinya berhasil. Tapi saya tidak bisa coba karena fungsi ini
sepertinya harus di install Toolpack Analyser dulu, baru bisa di pakai.
Karena di computer saya tidak bisa memakainya.

Mungkinkah ada fungsi lain sehingga bisa di terapkan di computer yang
tidak terinstall Toolpack ?

Kalau tidak ada lagi, sepertinya computer saya sendiri yang harus di
install Toolpack.

Terima kasih Mr. Kid.
Wassalam,
Tio

"Mr. Kid" mr.nmkid@gmail.com>
Sent by: belajar-excel@yahoogroups.com
02/19/2013 07:16 PM
Please respond to belajar-excel

To: belajar-excel@yahoogroups.com
cc:
Subject: Re: [belajar-excel] Mengetahui minggu ke berapa dari suatu tanggal

Coba :
=WeekNum( tanggal ) - WeekNum( tanggal - Day( tanggal ) + 1 ) + 1

Wassalam,
Kid.

2013/2/19 tio.adjie@ptssb.co.id>
 

Dear Be-Exceller,

Saya mau tanya, apakah Excel bisa mengetahui minggu keberapa dari suatu
tanggal yang ditentukan ?

Seperti 1 Feb 2013 minggu ke-1, 6 Feb 2013 minggu ke-2.

Terima kasih,
Wassalam,
Tio

Tue Feb 19, 2013 6:31 pm (PST) . Posted by:

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

Oh xl2003-nya ndak bisa aktifkan add in Analysis toolpak ya.

Kalau gitu coba yang ini (ndak tahu gimana caranya menyimpelkan) :
=nomor minggu *tanggal *yang relatif terhadap *hari pertama week 1 pada
tahun si tanggal *
- nomor minggu *tanggal 1 bulan si tanggal* yang relatif terhadap *hari
pertama week 1 pada tahun si tanggal
* + 1
=Int( ( *tanggal* - *Floor( Date( Year( tanggal ),1,1 ) , 7 )* *- 2* ) / 7
)
- Int( ( *tanggal - Day( tanggal ) + 1* - *Floor( Date( Year( tanggal
),1,1 ) , 7 )* *- 2* ) / 7 )
+ 1

*- 2* adalah jumlah hari dari hari pertama week ke hari sabtu sebelum hari
pertama week.
Karena ingin hari pertama week dihitung mulai Mon (senin),
maka jumlah hari dari Mon saat ini ke Sat sebelum Mon saat ini adalah
2 hari sebelum (sebelum setara negatif)

Jika *+ 1* dan *- 2* disatukan, maka formula akan menjadi :
=Int( ( *tanggal* - *Floor( Date( Year( tanggal ),1,1 ) , 7 )* *- 2* ) / 7
)
- Int( ( *tanggal - Day( tanggal ) *- *Floor( Date( Year( tanggal ),1,1 )
, 7 )* *- 1* ) / 7 )
+ 1

Kira-kira begitulah alurnya. Kalimat matematika yang simple bisa disusun
berdasar alur logika di atas.

Wassalam,
Kid.

2013/2/20 tio.adjie@ptssb.co.id>

> **
>
>
>
> Alhamdulillah, Terima kasih Mr. Kid jawabannya. Semoga Tuhan membalas.
>
> Sepertinya berhasil. Tapi saya tidak bisa coba karena fungsi ini
> sepertinya harus di install Toolpack Analyser dulu, baru bisa di pakai.
> Karena di computer saya tidak bisa memakainya.
>
> Mungkinkah ada fungsi lain sehingga bisa di terapkan di computer yang
> tidak terinstall Toolpack ?
>
> Kalau tidak ada lagi, sepertinya computer saya sendiri yang harus di
> install Toolpack.
>
>
> Terima kasih Mr. Kid.
> Wassalam,
> Tio
>
>
>
> *"Mr. Kid" mr.nmkid@gmail.com>*
> Sent by: belajar-excel@yahoogroups.com
>
> 02/19/2013 07:16 PM
> Please respond to belajar-excel
>
> To: belajar-excel@yahoogroups.com
> cc:
> Subject: Re: [belajar-excel] Mengetahui minggu ke berapa
> dari suatu tanggal
>
>
>
>
>
> Coba :
> =WeekNum( tanggal ) - WeekNum( tanggal - Day( tanggal ) + 1 ) + 1
>
> Wassalam,
> Kid.
>
> 2013/2/19 *tio.adjie@ptssb.co.id* tio.adjie@ptssb.co.id>>
>
>
>
> Dear Be-Exceller,
>
> Saya mau tanya, apakah Excel bisa mengetahui minggu keberapa dari suatu
> tanggal yang ditentukan ?
>
> Seperti 1 Feb 2013 minggu ke-1, 6 Feb 2013 minggu ke-2.
>
>
> Terima kasih,
> Wassalam,
> Tio
>
>
>
>
>

Tue Feb 19, 2013 8:37 pm (PST) . Posted by:

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

Bagaimana jika mencoba memanfaatkan klausa STEP pada statement FOR..NEXT
Private Sub CommandButton5_Click()
Dim repeatku As Integer
For repeatku = 1 To 12 step 3
Range("W80").Select
ActiveCell.Offset(0, repeatku) = "Non Prod Hrs"
ActiveCell.Offset(0, repeatku + 1) = "Prod Hrs"
ActiveCell.Offset(0, repeatku + 2) = "Std Hrs"
'repeatku = repeatku + 2
Next repeatku
End Sub

Bisa juga mencoba tanpa loop :
Private Sub CommandButton5_Click()
range("w80").offset(0,1).resize(1,3).value = Array( "Non Prod Hrs" ,
"Prod Hrs" , "Std Hrs" )
range("w80").offset(0,1).resize(1,3).copy
range("w80").offset(0,1).resize(1,12)
end sub

Jika akan menggunakan with (agar lebih simple)
Private Sub CommandButton5_Click()
with range("w80").offset(0,1).resize(1,3)
.value = Array( "Non Prod Hrs" , "Prod Hrs" , "Std Hrs" )
.copy .resize(1,12)
end with
end sub

Jika langsung menggunakan alamat cell pertama penulisan item :
Private Sub CommandButton5_Click()
with range("x80").resize(1,3)
.value = Array( "Non Prod Hrs" , "Prod Hrs" , "Std Hrs" )
.copy .resize(1,12)
end with
end sub

Wassalam,
Kid.

2013/2/20 tio.adjie@ptssb.co.id>

> **
>
>
>
> Pak Hendrik. terima kasih jawabannya. Tapi saya sudah dapatkan jawabannya.
> :
>
> Private Sub CommandButton5_Click()
> Dim repeatku As Integer
> For repeatku = 1 To 12
> Range("W80").Select
> ActiveCell.Offset(0, repeatku) = "Non Prod Hrs"
> ActiveCell.Offset(0, repeatku + 1) = "Prod Hrs"
> ActiveCell.Offset(0, repeatku + 2) = "Std Hrs"
> repeatku = repeatku + 2
> Next repeatku
> End Sub
>
>
> Problem solved.
>
> Wassalam
> Tio
>
>
>
> *hendrikkarnadi hendrikkarnadi@yahoo.com>*
> Sent by: belajar-excel@yahoogroups.com
>
> 02/19/2013 09:38 PM
> Please respond to belajar-excel
>
> To: belajar-excel@yahoogroups.com
> cc:
> Subject: RE: [belajar-excel] Menginput cells di setiap
> kelipatan 3 sebanyak 4 kali
>
>
>
>
>
> Coba pakai macro recording.
>
>
> Salam,
> Hendrik
>
>
> Sent from Samsung Mobile
>
> tio.adjie@ptssb.co.id wrote:
>
>
>
> Dear Be-Exceller,
>
> Saya mau tanya. Saya mau input cell di tiap 3 kolom dari kolom pertama
> sebanyak 4x dengan text = "aku". Bagaimana yah caranya ?
>
> Saya sudah coba dengan for next berkali2, tapi gak berhasil2.
>
>
> Terima kasih,
> Wassalam,
> Tio
>
>
>
>
>
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 21.02

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)