Rabu, 20 Februari 2013

[belajar-excel] Digest Number 2102

15 New Messages

Digest #2102
1a
Bls: [belajar-excel] Open New File by "agung aldhino" d_nozz
4a
Buku Program Laporan Keuangan Terpadu by "hendrik karnadi" hendrikkarnadi
4b
Re: Buku Program Laporan Keuangan Terpadu by "KRasti Pizza" krasti.house
6b
Re: Merubah tanggal menjadi nilai absolut by "hendrik karnadi" hendrikkarnadi
8a
Urut tanggal dari 2 Sheet by "Andi pahrianto Farid" andipahrianto88
9a

Messages

Tue Feb 19, 2013 10:30 pm (PST) . Posted by:

"agung aldhino" d_nozz

thank's Mr Kid.
ilmu saya bisa bertambah dengan bimbingan Mr Kid.
berikut hasil nya dengan sedikit saya utak atik.
mungkin ada yang bisa membuat simpel code VB nya.
semoga bisa jadi inpirasi buat yang lainnya.
jika ada case lainnya yang ingin saya tanyakan semoga Mr Kid dan yang lainnya tidak bosan menjawabnya.
 
best regard
D-Nozz

________________________________
Dari: Mr. Kid mr.nmkid@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Selasa, 19 Februari 2013 18:04
Judul: Re: [belajar-excel] Open New File

 
hehehe ada error ya...

mungkin penyebabnya di baris :
if sheets(sshtname) is nothing then

coba ubah jadi seperti :
dim wbkA as workbook, wbkNew as workbook
dim lSht as long
dim sShtName as string

set wbka=thisworkbook

'simpan nama sheet yang akan diproses
sshtname=sheets("input";).txtsheet.text
on error resume next
if sheets(sshtname) is nothing then
     msgbox "tidak ada sheet bernama " & sshtname
     err.clear
     on error goto 0
     exit sub
endif

'buat workbook baru isi 1 sheet saja
lsht=application.sheetsinnewworkbook
application.sheetsinnewworkbook=1
set wbknew=workbooks.add
application.sheetsinnewworkbook=lsht
wbka.activate

'copas sheet pilihan ke workbook baru sheet pertama di A1, dan beri nama sheet seperti asalnya
sheets(sshtname).cells.copy wbknew.sheets(1).range("a1")
wbknew.sheets(1).name=sshtname

err.clear
on error goto 0

msgbox "Done."

persiapan : (sesuaikan script dengan kebutuhan. jika tidak ingin mengubah script di atas, pastikan hal berikut ini)
1. nama sheet lokasi tombol adalah bernama input
2. dalam sheet input tersebut ada control textbox yang diberi nama txtsheet
     (insert textbox ke worksheet, klik kanan pilih properties, pada properti (Name) ganti nilainya dengan txtsheet)
3. copas script di atas ke event click tombol pengaktif proses salin sheet ke workbook lain

Wassalam,
Kid.

2013/2/19 agung aldhino d_nozz@yahoo.co.id>
 
>thanks Mr Kid.
>tapi masih error.
>jika tidak salah workbook yang baru berisi sheet "txtsheet" ya.
>jadi disini kita ngisinya manual. jika kita kita mau sheet lain. kita harus rubah VB nya.
>jika saya coba baca VB nya seperti itu. maaf kalo salah karena baru belajar.
>untuk nama sheetnya kita menggunakan panduan combo box (seperti dalam contoh fle) bagaimana ya Mr kid bunyi VB nya?
>ohya untuk combo boxnya bagaimana kita membuat pilihannya.
>thank.
> 
>D Nozz

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

"agung aldhino" d_nozz

hai Mr Kid,
Untuk UserForm untuk merubah ukuran font dan besar/kecil font bagaimana bunyi VB nya?
apakah di UserForm bisa kita sisipkan gambar/picture kode VB nya apa Mr Kid.
thanks sebelumnya.
 
D-Nozz

________________________________
Dari: Mr. Kid mr.nmkid@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Selasa, 19 Februari 2013 19:38
Judul: Re: [belajar-excel] Memodif text di message box selain userform

 
Hai Tio,

MsgBox adalah milik Windows (OS).
Jika akan mengubahnya, bisa dengan SubClassing MsgBox. Intinya, msgbox punya window dijadikan sebuah kelas baru yang diatur sendiri wujudnya.
Repot, ribet, dan beresiko reboot.

Lebih mudah, membuat userform baru, diberi tombol sana sini, diatur sendiri, dsb, yang dijadikan sebagai userform untuk menampilkan pesan seperti msgbox.
Setiap kali butuh msgbox custom, aktifkan userform tersebut.

Wassalam,
Kid.

2013/2/19 tio.adjie@ptssb.co.id>
 
>
>Dear Be-Exceller,
>
>Saya mau tanya, bisakah Excel memodif character font di message box ? seperti huruf font tebal, size font besar, dll ?
>
>Terima kasih,
>Wassalam,
>Tio
>
>_
>

Tue Feb 19, 2013 10:56 pm (PST) . Posted by:

"s. munawaroh" munawaroh_ti

mau tanya nih,.
gimana caranya kita membuat login khusus untuk admin dan user tersendiri,
jadi fungsinya berbeda-beda tetapi dalam 1 dokumen,.. mohon bantuanya!
trimakasih

--- Mods ---
Cobo ikuti thread :
http://tech.groups.yahoo.com/group/belajar-excel/message/16097

Bisa juga dilihat di (bisa unduh file lampiran) :
http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-User-Login-ctv-Login-v2-xls-First-In-Last-Row-td5537755.html

------------

Tue Feb 19, 2013 11:34 pm (PST) . Posted by:

"hendrik karnadi" hendrikkarnadi

Rekan2 Be-Excel,
Terlampir adalah sinopsis dari buku tsb di atas yang pernah saya share.

Salam,
Hendrik Karnadi

Wed Feb 20, 2013 12:51 am (PST) . Posted by:

"KRasti Pizza" krasti.house

Masih ada gak paket buku sama CD nya.. mau doong..

Thx. Tiyo-bekasi

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of hendrik karnadi
Sent: Wednesday, February 20, 2013 2:35 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Buku Program Laporan Keuangan Terpadu

Rekan2 Be-Excel,

Terlampir adalah sinopsis dari buku tsb di atas yang pernah saya share.

Salam,

Hendrik Karnadi

Tue Feb 19, 2013 11:36 pm (PST) . Posted by:

Benar Mr.. Terima kasih Mr. Kid. Semoga Allah SWT membalas kebaikan Mr.
Kid.

Wassalam,
Tio

"Mr. Kid" mr.nmkid@gmail.com>
Sent by: belajar-excel@yahoogroups.com
02/20/2013 09:30 AM
Please respond to belajar-excel

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

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>
 

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 11:37 pm (PST) . Posted by:

Dear Be-Exceller,

Saya punya cells yang isinya 1 Feb 2013 dan saya rubah formatnya ke custom
"d". Saya ingin mengisi isi suatu cells dengan W1 . Tapi saya tidak bisa
menangkap value "1", karena selalu

hasilnya W2/1/2013. Saya sudah coba dengan fungsi abs, datevalue, dll
tetap hasilnya tanggal. Bagaimana cara mengconvert dari tanggal ke number
? Saya convert 1 Feb 2013 ke number

malah hasilnya 41306. Apa maksud 41306 ?

Terima kasih,
Wassalam,
tio

Tue Feb 19, 2013 11:50 pm (PST) . Posted by:

"hendrik karnadi" hendrikkarnadi

Hai Tio,
Jika tanggalnya ada di sel A1 maka ketik ="W"&DAY(A1) pada sel kosonguntuk mendapatkan W1.

Salam,
Hendrik

________________________________
From: "tio.adjie@ptssb.co.id" tio.adjie@ptssb.co.id>
To: belajar-excel@yahoogroups.com
Sent: Wednesday, 20 February 2013, 13:50
Subject: [belajar-excel] Merubah tanggal menjadi nilai absolut


 

Dear Be-Exceller,

Saya punya cells yang isinya 1 Feb 2013 dan saya rubah formatnya ke custom "d". Saya ingin mengisi isi suatu cells dengan W1 . Tapi saya tidak bisa menangkap value "1", karena selalu

hasilnya W2/1/2013. Saya sudah coba dengan fungsi abs, datevalue, dll tetap hasilnya tanggal. Bagaimana cara mengconvert dari tanggal ke number ? Saya convert 1 Feb 2013 ke number

malah hasilnya 41306. Apa maksud 41306 ?

Terima kasih,
Wassalam,
tio

Wed Feb 20, 2013 12:29 am (PST) . Posted by:

"hendrik karnadi" hendrikkarnadi

Hai Tio,

Pertanyaan:
"Saya convert 1 Feb 2013 ke number malah hasilnya 41306. Apa maksud 41306 ?"

Jawabnya : 
41306 adalah nilai jika suatu tanggal diformat number. Coba lihat perhitungan terlampir.

Salam,
Hendrik Karnadi

----- Forwarded Message -----
From: hendrik karnadi hendrikkarnadi@yahoo.com>
To: "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com>
Sent: Wednesday, 20 February 2013, 14:50
Subject: Re: [belajar-excel] Merubah tanggal menjadi nilai absolut


 
Hai Tio,
Jika tanggalnya ada di sel A1 maka ketik ="W"&DAY(A1) pada sel kosonguntuk mendapatkan W1.

Salam,
Hendrik

________________________________
From: "tio.adjie@ptssb.co.id" tio.adjie@ptssb.co.id>
To: belajar-excel@yahoogroups.com
Sent: Wednesday, 20 February 2013, 13:50
Subject: [belajar-excel] Merubah tanggal menjadi nilai absolut


 

Dear Be-Exceller,

Saya punya cells yang isinya 1 Feb 2013 dan saya rubah formatnya ke custom "d". Saya ingin mengisi isi suatu cells dengan W1 . Tapi saya tidak bisa menangkap value "1", karena selalu

hasilnya W2/1/2013. Saya sudah coba dengan fungsi abs, datevalue, dll tetap hasilnya tanggal. Bagaimana cara mengconvert dari tanggal ke number ? Saya convert 1 Feb 2013 ke number

malah hasilnya 41306. Apa maksud 41306 ?

Terima kasih,
Wassalam,
tio

Wed Feb 20, 2013 12:51 am (PST) . Posted by:

Terima kasih Pak Hendrik. Untuk Day() memang saya belum coba. Terima kasih
Pak. Semoga Tuhan membalas.

Wassalam,
Tio

hendrik karnadi hendrikkarnadi@yahoo.com>
Sent by: belajar-excel@yahoogroups.com
02/20/2013 02:50 PM
Please respond to belajar-excel

To: "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com>
cc:
Subject: Re: [belajar-excel] Merubah tanggal menjadi nilai absolut

Hai Tio,
Jika tanggalnya ada di sel A1 maka ketik ="W"&DAY(A1) pada sel kosong untuk mendapatkan W1.

Salam,
Hendrik

From: "tio.adjie@ptssb.co.id" tio.adjie@ptssb.co.id>
To: belajar-excel@yahoogroups.com
Sent: Wednesday, 20 February 2013, 13:50
Subject: [belajar-excel] Merubah tanggal menjadi nilai absolut

Dear Be-Exceller,

Saya punya cells yang isinya 1 Feb 2013 dan saya rubah formatnya ke custom
"d". Saya ingin mengisi isi suatu cells dengan W1 . Tapi saya tidak bisa
menangkap value "1", karena selalu

hasilnya W2/1/2013. Saya sudah coba dengan fungsi abs, datevalue, dll
tetap hasilnya tanggal. Bagaimana cara mengconvert dari tanggal ke number
? Saya convert 1 Feb 2013 ke number

malah hasilnya 41306. Apa maksud 41306 ?

Terima kasih,
Wassalam,
tio

Tue Feb 19, 2013 11:38 pm (PST) . Posted by:

Terima kasih Mr. Kid atas jawabannya. Semoga Allah membalas kebaikan Mr.
Kid dengan pahala yang jauh lebih baik. Amiin.,.

Sungguh briliant otak Mr. Kid. Hm..hm..enaknya jadi orang pintar..he..he..

Ada sesuatu yang menggelitik yang ingin saya tanyakan.

1. Bisa tolong kasih penjelasan singkat tentang Resize dan contohnya ?

2. Apakah semua module harus di kasih Option Explicit, dan apa gunanya ?
Karena selama ini semua module saya tidak di kasih Option Explicit, tapi
jalan.

Terima kasih Mr.Kid.
Wassalam,
Tio

"Mr. Kid" mr.nmkid@gmail.com>
Sent by: belajar-excel@yahoogroups.com
02/20/2013 11:36 AM
Please respond to belajar-excel

To: belajar-excel@yahoogroups.com
cc:
Subject: Re: [belajar-excel] Menginput cells di setiap kelipatan 3 sebanyak 4 kali

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

Wed Feb 20, 2013 12:51 am (PST) . Posted by:

"Andi pahrianto Farid" andipahrianto88


Dear : Master Kid & Master Bagus

Terima kasih atas pembelajarannya
Semoga selalu mendapat lindungan dari Allah SWT
Amin YRA

Regard
Andi P

Wed Feb 20, 2013 12:52 am (PST) . Posted by:

"sembaran joko" jokosembaran

Yth. All Master Excel

Selamat sore,
Mohon pencerahannya master untuk formula pada kolom J yang berwarna kuning.
Jika pada kolom A berisi tanggal kemudian pada kolom I nama siswa.
Bagaimanakah kolom J bisa menujukan kelasnya yah ? data terlampir.
Terimakasih all master atas pencerahannya.

Salam,
Sembaran

Wed Feb 20, 2013 1:09 am (PST) . Posted by:

"Jan Raisin"

coba formula berikut di tulis di cell J3:

=If(A3 , Index($N$3:$N$44 , Match(I3 , $O$3:$O$44 ,0)) , "")

jika regional setting adalah Indonesian maka ubah seluruh titik koma dengan
tanda koma

Wassalam,

-Miss Jan Raisin-

Pada 20 Februari 2013 15.25, sembaran joko sembaran@gmail.com> menulis:

> **
>
>
> Yth. All Master Excel
>
> Selamat sore,
> Mohon pencerahannya master untuk formula pada kolom J yang berwarna kuning.
> Jika pada kolom A berisi tanggal kemudian pada kolom I nama siswa.
> Bagaimanakah kolom J bisa menujukan kelasnya yah ? data terlampir.
> Terimakasih all master atas pencerahannya.
>
> Salam,
> Sembaran
>
>

Wed Feb 20, 2013 12:54 am (PST) . Posted by:

"lifta" lifta_quw

Dear Admin,

Saya mau tanya gimana caranya untuk menghitung jumlah data dalam setiap baris yang mempunyai awalan dan akhiran yang berbeda dalam setiap barisnya. Saya ingin menghitung jumlah baris yang kosong dan yang terisi. Awalnya saya membuat filter, dan mengitung satu persatu setiap baris menggunakan fungsi count dan countblank. karena datanya terlalu banyak saya berpikir apakah ada cara yang lebih cepat? mohon bantuannya

Teimkasih ^^

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 01.09

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)