Jumat, 09 Desember 2011

[belajar-excel] Digest Number 1430

Messages In This Digest (25 Messages)

Messages

1a.

Nama workbook dalam 1 folder list ke range

Posted by: "Irwan" irwan_didi@yahoo.com   irwan_didi

Thu Dec 8, 2011 8:35 am (PST)



dear pakar-pakar.

mohon bantuannya, misal saya punya workbook banyak dalam 1 folder, saya ingin list nama masing-masing workbook tsb dalam 1 worksheet bagaimana ya caranya...??

misal :

Folder Belajar
- workbook a
-workbook b

bisa di list dan hiperlink di range A1,A2 dst

terima kasih n mohon ma'af mungkin bahasa saya kurang bisa dipahami mohon maklum soale pemula heheheh

terima kasih
wan

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
1b.

Re: Nama workbook dalam 1 folder list ke range

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

Thu Dec 8, 2011 1:31 pm (PST)



Dear Irwan,

Coba langkah berikut :
1. Buat workbook baru, lalu save as .xlsm (macro enable) jika di xl2007 ke
atas, atau .xls untuk xl2003 ke bawah
2. tekan Alt F11 (menuju ke VBE)
3. menu Insert -> Module
4. Pada lembar kosong, tulis nama prosedur (tanpa spasi) contohnya, tulis :
Public Sub DaftarFileExcelku()

5. akan muncul baris bertuliskan End Sub maka pindahkan cursor ke baris di
antara tulisan Public Sub (awal blok prosedur) dengan baris End Sub (akhir
blok)

6. Copy paste baris-baris script berikut :

Dim sFile As String
Dim lPos As Long

Application.DisplayAlerts = False
sFile = Dir$(ThisWorkbook.Path "\*.xls*" )
Do While LenB(sFile) <> 0
Range("a1").Offset(lPos).Value = sFile
sFile = Dir$
lPos = lPos + 1
Loop
Application.DisplayAlerts = True

7. tekan Alt F11 (supaya kembali ke worksheet)
8. insert sebuah shape rectangle
9. klik kanan shape tersebut -> pilih assign macro
10. pilih nama prosedur tadi (contoh ini tadi namanya :
DaftarFileExcelku ) lalu tekan OK
11. Save workbook
12. klik shape

Kalau mau ubah kriteria file, ubah bagian :
"\*.xls*" dengan kriteria file yang dibutuhkan.

Kalau mau ubah lokasi foldernya, ubah bagian :
ThisWorkbook.Path dengan nama folder yang dimaksud tanpa diakhiri karakter
'\'
contoh diubah jadi :
"C:\MyData\Kerjaan Tiada Akhir\Pulang saja ah\Udah pagi"

Regards,
Kid.

2011/12/8 Irwan <irwan_didi@yahoo.com>

> **
>
>
> dear pakar-pakar.
>
> mohon bantuannya, misal saya punya workbook banyak dalam 1 folder, saya
> ingin list nama masing-masing workbook tsb dalam 1 worksheet bagaimana ya
> caranya...??
>
> misal :
>
> Folder Belajar
> - workbook a
> -workbook b
>
> bisa di list dan hiperlink di range A1,A2 dst
>
> terima kasih n mohon ma'af mungkin bahasa saya kurang bisa dipahami mohon
> maklum soale pemula heheheh
>
> terima kasih
> wan
>
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
1c.

Re: Nama workbook dalam 1 folder list ke range

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

Thu Dec 8, 2011 3:40 pm (PST)



Ada file *xls bermakro yg sudah siap memenuhi keinginan pak irwan;
File tsb oleh [orang kurang kerjaan] ditaruh di suatu OnLineFolder (OnLine
Storage)
sehingga semua orang yg sedang terkoneksi dgn internet; yg tahu linknya (dan
yang
berminat serta bekenan) dapat mengUnduhnya
Dulu, file itu juga sudah pernah dikirimkan ke milis ini sbg lampiran
posting..
(konon, [kata si orang kurang kerjaan] saat ini file tsb sudah mengalami
beberakali
perbaikan kecil2an)

Di kotak statistiknya, fle ini, sejak dipajang si ditu, baru didonlot
sebanyak 247 kali;
(terlalu kecil jika dibandingkan member milis 16ratusan + milis tetangga
19ribuan)

"Kerjaan" si makro dlm workbook tsb selain sama seperti yg sudah di
'jlèntrèh'kan
oleh Mr Kid dengan versi "mini & praktis"nya..., juga :
© menyediakan DialogBox "*BrowseFolders*" (mempermudah anda memilih folder)
© ada *Filter untuk File Extension*, misal satu folder berisi berbagai type
file, padahal
anda hanya ingin xls* saja, atu mp3 saja, atau bisa SEMUA.
© setiap file yg berhasil diciduk dan ditayangkan di sheets'cell, diberi *
Hyperlink*
(untuk membuka dirinya sendiri jika di ceklik)

File tsb bernama List_NamaFiles_DlmSubFolder Plus
Hyperlink<http://www.box.com/s/1b5rv8i1zs694vvo2exp>
silakan diunduh jika berminat & berkenan (saya 'dah mintak-kan-ijin dari
pabriknya)

2011/12/8 Irwan <irwan_didi@yahoo.com>
>
> dear pakar-pakar.
> mohon bantuannya, misal saya punya workbook banyak dalam 1 folder, saya
ingin
> list nama masing-masing workbook tsb dalam 1 worksheet bagaimana ya
caranya...??
>
> misal :
> Folder Belajar
> - workbook a
> - workbook b
>
> bisa di list dan hiperlink di range A1,A2 dst
> terima kasih n mohon ma'af mungkin bahasa saya kurang bisa dipahami mohon
maklum soale pemula heheheh
>
> terima kasih
> wan
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
1d.

Re: Nama workbook dalam 1 folder list ke range

Posted by: "Irwan didi" irwan_didi@yahoo.com   irwan_didi

Thu Dec 8, 2011 7:07 pm (PST)



Dear Mr. Kid

kok ketika saya jalannkan error ya, sintax error dan yg di highlight kode ini sFile = Dir$(ThisWorkbook.Path "\*.xls*" )

 

________________________________
From: Kid Mr. <mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, December 9, 2011 4:31 AM
Subject: Re: [belajar-excel] Nama workbook dalam 1 folder list ke range


 
Dear Irwan,

Coba langkah berikut :
1. Buat workbook baru, lalu save as .xlsm (macro enable) jika di xl2007 ke atas, atau .xls untuk xl2003 ke bawah
2. tekan Alt F11 (menuju ke VBE)
3. menu Insert -> Module
4. Pada lembar kosong, tulis nama prosedur (tanpa spasi) contohnya, tulis :
Public Sub DaftarFileExcelku()

5. akan muncul baris bertuliskan End Sub maka pindahkan cursor ke baris di antara tulisan Public Sub (awal blok prosedur) dengan baris End Sub (akhir blok)

6. Copy paste baris-baris script berikut :

    Dim sFile As String
    Dim lPos As Long
 
    Application.DisplayAlerts = False
    sFile = Dir$(ThisWorkbook.Path "\*.xls*" )
    Do While LenB(sFile) <> 0
        Range("a1").Offset(lPos).Value = sFile
        sFile = Dir$
        lPos = lPos + 1
    Loop
    Application.DisplayAlerts = True

7. tekan Alt F11 (supaya kembali ke worksheet)
8. insert sebuah shape rectangle
9. klik kanan shape tersebut -> pilih assign macro
10. pilih nama prosedur tadi (contoh ini tadi namanya :  DaftarFileExcelku   )  lalu tekan OK
11. Save workbook
12. klik shape

Kalau mau ubah kriteria file, ubah bagian :
"\*.xls*" dengan kriteria file yang dibutuhkan.

Kalau mau ubah lokasi foldernya, ubah bagian :
ThisWorkbook.Path dengan nama folder yang dimaksud tanpa diakhiri karakter '\'
contoh diubah jadi :
"C:\MyData\Kerjaan Tiada Akhir\Pulang saja ah\Udah pagi"

Regards,
Kid.

2011/12/8 Irwan <irwan_didi@yahoo.com>

> 
>dear pakar-pakar.
>
>mohon bantuannya, misal saya punya workbook banyak dalam 1 folder, saya ingin list nama masing-masing workbook tsb dalam 1 worksheet bagaimana ya caranya...??
>
>misal :
>
>Folder Belajar
>- workbook a
>-workbook b
>
>bisa di list dan hiperlink di range A1,A2 dst
>
>terima kasih n mohon ma'af mungkin bahasa saya kurang bisa dipahami mohon maklum soale pemula heheheh
>
>terima kasih
>wan
>
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
2a.

Re: Formula Total Diff + and -

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

Thu Dec 8, 2011 1:02 pm (PST)



Dear Yudi,

Coba pelajari fungsi SumIF dan Sum.
Diff minus :
=SumIF( datanya , "<0" )

Diff plus :
=SumIF( datanya , ">0" )

kalau Diff mulai 300 ke atas gimana formulanya ya...
atau Diff mulai 200 sampai 600 gimana formulanya ya...
nah yang Diff mulai -350 sampai 350 akan seperti apa hayo

hehehe... sapa tahu Pak Yudi pengen iseng

Regards,
Kid.
2011/12/8 Yudi Dwiyono <yudi_dwiyono@yahoo.com>

> **
>
>
> Dear Master Excel,
>
> Mohon bantu untuk formula total diff plus dan minus pada data terlampir.
> Atas bantuannya saya ucapkan terima kasih.
>
> Regards,
> Yudi
>
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
2b.

Re: Formula Total Diff + and -

Posted by: "Yudi Dwiyono" yudi_dwiyono@yahoo.com   yudi_dwiyono

Thu Dec 8, 2011 7:57 pm (PST)



Thanks Mr kid.
Regards,
Yudi

________________________________
From: Kid Mr. <mr.nmkid@gmail.com>
Sent: Friday, December 9, 2011 4:02 AM
 
Dear Yudi,
Coba pelajari fungsi SumIF dan Sum.
Diff minus: =SumIF( datanya , "<0" )
Diff plus: =SumIF( datanya , ">0" )

kalau Diff mulai 300 ke atas gimana formulanya ya...
atau Diff mulai 200 sampai 600 gimana formulanya ya...
nah yang Diff mulai -350 sampai 350 akan seperti apa hayo

hehehe... sapa tahu Pak Yudi pengen iseng

Regards,
Kid.

2011/12/8 Yudi Dwiyono <yudi_dwiyono@yahoo.com>
>Dear Master Excel,
>Mohon bantu untuk formula total diff plus dan minus pada data terlampir. Atas bantuannya saya ucapkan terima kasih.
>Regards,
>Yudi

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
3a.

Re: Tanya rumus:ranking

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

Thu Dec 8, 2011 2:50 pm (PST)



Mungkin seperti file terlampir.
Kid.

2011/12/8 heru mulyono <hmulyono24@gmail.com>

> **
>
>
> Yth, master ecxel
>
> mohon bantuan untuk rumus menghitung data, seperti terlampir
> terimakasih
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
3b.

Re: Tanya rumus:ranking

Posted by: "Udin Haeruddin" herumamuda@gmail.com   ruddin1795

Thu Dec 8, 2011 3:45 pm (PST)



Coba:
=COUNTA('legger SEM 1 '!C9:C44)-COUNTBLANK('legger SEM 1 '!C9:C44)

Pada 8 Desember 2011 10:59, heru mulyono <hmulyono24@gmail.com> menulis:
>
> Yth, master ecxel
>
> mohon bantuan untuk rumus menghitung data, seperti terlampir
> terimakasih

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
3c.

Re: Tanya rumus:ranking

Posted by: "Udin Haeruddin" herumamuda@gmail.com   ruddin1795

Thu Dec 8, 2011 7:48 pm (PST)



bisa juga di M64 diisi rumus:
=SUM(('legger SEM 1 '!C9:C44<>"")*1)
Rumus ini adalah Array Formula yang setelah ditulis dikuti dengan upacar menekan 3 tombol sekali-Gus, Ctrl+Shift+Enter

Pada 9 Desember 2011 05:50, Kid Mr. <mr.nmkid@gmail.com> menulis:

> Mungkin seperti file terlampir.
> Kid.
>
>
> 2011/12/8 heru mulyono <hmulyono24@gmail.com>
>> Yth, master ecxel
>> mohon bantuan untuk rumus menghitung data, seperti terlampir
>> terimakasih

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
3d.

Re: Tanya rumus:ranking

Posted by: "heru mulyono" hmulyono24@gmail.com

Fri Dec 9, 2011 1:06 am (PST)



trimakasih....atas pencerahannya....

Pada 9 Desember 2011 08:07, Udin Haeruddin <herumamuda@gmail.com> menulis:

> bisa juga di M64 diisi rumus:
> =SUM(('legger SEM 1 '!C9:C44<>"")*1)
> Rumus ini adalah Array Formula yang setelah ditulis dikuti dengan upacar
> menekan 3 tombol sekali-Gus, Ctrl+Shift+Enter
>
> Pada 9 Desember 2011 05:50, Kid Mr. <mr.nmkid@gmail.com> menulis:
>
> > Mungkin seperti file terlampir.
> > Kid.
> >
> >
> > 2011/12/8 heru mulyono <hmulyono24@gmail.com>
> >> Yth, master ecxel
> >> mohon bantuan untuk rumus menghitung data, seperti terlampir
> >> terimakasih
>
>
> ------------------------------------
>
> ----------------------------------------------------------
> 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
>
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
4a.

Bls: Bls: [belajar-excel] Sort By Name (FILTER)

Posted by: "Harry" hariansyahptk@yahoo.com   hariansyahptk

Thu Dec 8, 2011 3:49 pm (PST)



Terima kasih atas masukannya ya Pak Hendrik.
Penjelasan Bapak akan saya jadikan referensi untuk membeli buku tsb.

Regards,
Harry

=============================================================
mods'note:
Footer & quoted mail kami kurangi diambil yg perlu saja
tidak semua mails sebelumnya harus dikirim kembali sbg footer
karena sdapat dilihat di post sebelumnya
=============================================================

________________________________
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com>
Dikirim: Rabu, 7 Desember 2011 22:17

Kalau boleh ikut nimbrung sedikit menjawab pertanyaan Pak Harry:
"buku apa mengenai Excel yang harus saya miliki"

Buku yang ada saling melengkapi satu sama lainnya, jadi mengenai buku apa yang cocok tergantung dari kebutuhan kita.

Dari pengalaman keliling toko buku Gramedia (Utara, Selatan, Timur, Barat) termasuk di negara tetangga, ada dua jenis buku Excel yang saya amati, yaitu:
- Membahas banyak hal mengenai Excel tapi dengan contoh2 yang sedikit (GENERAL)

- Membahas topik - topik khusus, a.l. Formula, PivotTable, Aplikasi tertentu (biasanya disertai Macro) atau mengenai Grafik seperti yang baru saja dirilis oleh Moderator dari milis tetangga (SPESIFIK).

Untuk kaum PEMULA, jenis yang pertama tentu lebih PAS. Untuk memahami topik tertentu secara lebih detail tentu jenis yang kedua lebih cocok.
Namun ada satu hal yang masih mengganjal, yaitu TIDAK ADA BUKU YANG 100% PAS sesuai kebutuhan kita. Jadi masih perlu dilengkapi dengan latihan seperti layaknya belajar ilmu bela diri.

Salam,
Hendrik Karnadi

NB: Jangan langsung terpengaruh oleh judul apalagi cover

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)
5a.

Re: SISTEM INFORMASI SURAT

Posted by: "Sony Ario" sony.ario1@gmail.com

Thu Dec 8, 2011 4:54 pm (PST)



Pagi mbak Haps.

Di pc saya waktu file ini mau di buka, ada pesan "Could not load an
object..." kenapa ya ? saya pakai Windows7 dan Excel 2010. Sama satu
lagi, di event UserForm_Initialize() ada code Refresh_NamesArea itu buat
apa ya ?

Terima kasih sebelumnya.

salam
Sony

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

> ysh Pak Danan...
>
> Terlampir kita coba membuat workbook, untuk membuat "sistem" seperti yg
> diceritakan oleh pak Danan.
> Tetapi hanya sampai kepada tahap *Entri Data* saja (menghasilkan tabel
> data dokumen / data surat)
> Itupun masih sangat sederhana, misalnya proses entri, belum didahului oleh
> validasi data yg
> di enterikan, (textbox kosong tetap diproses entrinya)
> [image: contoh form Data-Entri.PNG]
>
>
> Tahap berikutnya (mungkin* Reporting) *belum sempat dibuat,
> Sebenarnya Reportingnya hanyalah menampilkan Tabel ex hasil Entri Data tsb tetapi
> di FILTER dengan
> berbagai kriteria.
>
> Untuk sementara Haps menyarankan Pak Danan memanfaatkan *AUTO FILTER *lebih
> dulu
> Jika nantinya dengan auto filter ternyata masih kurang nyaman (masih harus
> banyak tindakan yg manual)
> Pak Danan masih bisa mencoba fitur lain misalnya* PIVOT TABLE*
>
> Jika keduanya masih kurang memuaskan, kita masih dapat menggunakan makro,
>
> Mohon dicoba-coba dulu, dan kekurangannya (hal yg tidak cocok) mohon kami
> diberi tahu.
>
> best regards,
> iHaps
>
>
>
> ---note---
> antisipasi jika* seandainya *threads ini akan panjang, kita sepakati sbb
>
> ** setiap haps membuat perubahan di dalam file workbook tsb, maka NAMA
> FILE akan diubah
> misal saat ini = Sistem Informasi Surat (V1). xls akan diubah
> menjadi Sistem Informasi Surat (V2). xls
> perubahan berikutnya bila ada akan menjadi V3, V4 V5 dst..
>
> ** setiap pak danan membuat perubahan / penambahan atas file yg bapak
> terima (dan akan
> dikirimkan lagi ke Milis) , hendaknya Bapap mengubah nama filenya dengan
> menambahkan huruf
> di belakang V1, V2, V3 tsb
> Misal V1 yg Bapak ubah/tambah datanya, akan menjadi V1a kemudian V1b dst
> V3 yg bapak koreksi / edit, akan menjadi V3a, V3b dst...
>
> Ini diperlukan untuk mencegah file berbeda isi tetapi sama namanya
> dan mempercepat proses (tidak perlu membuka dan meneliti workbook; kita
> sudah bisa
> tahu apakah workbook tsb ada perubahan dari release terakhir)
>
>
>
>
> 2011/12/8 Rahagung Dananjoyo <danank_01@yahoo.com>
>
>> **
>> Kepada Yth : Para pakar excel
>> Sebelumnya saya sudah mendapat banyak bantuan dari pakar excel, untuk
>> program produksi yang pernah didiskusikan di milis ini. program itu
>> berjalan sangat lancar dan yang penting bisa membantu pekerjaan.
>> Untuk kali ini saya ingin memperbaiki administrasi informasi surat masuk
>> dan surat keluar yang ada di kantor, karena kalo dibandingkan company lain,
>> masih sangat tradisional nih.
>> Satu
>> Ide nya adalah saya ingin ada sebuah file excel yang pada sheet pertama
>> berisi semacam form untuk input data dari sebuah surat masuk atau keluar.
>> Data yang akan diinput adalah :
>> - Tanggal : berisi tanggal pada hari tersebut
>> - Surat masuk atau Surat keluar ( operator dapat memilih opsi salah satu)
>> - No surat (input manual)
>> - Tanggal surat (input manual-pakai kalender)
>> - Asal surat
>> (berisi opsi : Dari KD, Ke KD, Dari PG lain, Ke PG lain, Pihak ke III,
>> Intern, SDM, SPK/HPS/Penawaran, Berita Acara, P3GI, Sertifikat, STO, DO,
>> PB24, Limbah, Laporan Kemajuan Pekerjaan, Timbangan)
>> - Perihal (input manual)
>> - No Map (input manual)
>> (Untuk yang berisi opsi mohon bisa dibantu cara untuk menambah opsi nya)
>>
>> Dua
>> Setelah dari form input tersebut, maka akan ada button untuk save data
>> yang sudah diinput ke sheet lain. dan untuk nomor urut akan selalu
>> bertambah.
>> Data hasil input ini akan menjadi sebuah tabel yang terdiri dari beberapa
>> kolom
>>
>> Tiga
>> Untuk berikutnya, saya ingin menambahkan form untuk melakukan pencarian
>> surat yang berdasarkan :
>> - tanggal surat
>> - nomer surat
>> - asal surat
>> - perihal
>> - surat masuk
>> - surat keluar
>> - No Map
>>
>> Mohon bantuan dari pakar excel untuk file ini,
>> Atas bantuan yang telah diberikan, saya ucapkan terima kasih
>>
>>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (9)
5b.

Re: SISTEM INFORMASI SURAT

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

Thu Dec 8, 2011 5:17 pm (PST)



di pc pak sony tidak terdapat file pendukung Object CalendarControl
(MSCAL.ocx)
atau sudah ada tetapi tidak pada folder yg tepat, atau belum diregister.

File MSCAL.ocx untuk berbagai versi excel, dapat anda unduh di
folder yu siti, sini
http://www.box.com/s/zd02z36h7h2pvli9mdrm

-iHaps-

2011/12/9 Sony Ario <sony.ario1@gmail.com>

> **
> Pagi mbak Haps.
> Di pc saya waktu file ini mau di buka, ada pesan "Could not load an
> object..." kenapa ya ? saya pakai Windows7 dan Excel 2010. Sama satu
> lagi, di event UserForm_Initialize() ada code Refresh_NamesArea itu buat
> apa ya ?
> Terima kasih sebelumnya.
>
> salam
> Sony
>
> 2011/12/8 Haps <hapsari.stlizbeth@gmail.com>
>
>> ysh Pak Danan...
>> Terlampir kita coba membuat workbook, untuk membuat "sistem" seperti yg
>> diceritakan oleh pak Danan.
>> Tetapi hanya sampai kepada tahap *Entri Data* saja (menghasilkan tabel
>> data dokumen / data surat)
>> Itupun masih sangat sederhana, misalnya proses entri, belum didahului
>> oleh validasi data yg
>> di enterikan, (textbox kosong tetap diproses entrinya)
>>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (9)
5c.

Re: SISTEM INFORMASI SURAT

Posted by: "Rahagung Dananjoyo" danank_01@yahoo.com   danank_01

Fri Dec 9, 2011 12:08 am (PST)



Mbak Haps, file nya udah sy download.
Tadi saya coba input pake data2 dikantor
Dan sampau skrg saya masih coba input, sementara ini blm ada masalah. Namun ada bbrp hal yang mungkin mbak haps bisa kasih saran
1. di input tanggal itu harus double click utk munculkan kalendernya
kalo misal dibuat pakai satu klik saja bisa tidak ya, mungkin macro nya jadi beda ya,
2. kalo nama sheet diganti berarti harus ganti coding macro nya jg ya? krn hanya utk memudahkan operator
Kalo dari tampilan udah ok banget

terima kasih

Sent from my iPhone 3G with Telkomsel Flash

On Dec 9, 2011, at 8:16 AM, Haps <hapsari.stlizbeth@gmail.com> wrote:

> di pc pak sony tidak terdapat file pendukung Object CalendarControl (MSCAL.ocx)
> atau sudah ada tetapi tidak pada folder yg tepat, atau belum diregister.
>
> File MSCAL.ocx untuk berbagai versi excel, dapat anda unduh di
> folder yu siti, sini
> http://www.box.com/s/zd02z36h7h2pvli9mdrm
>
> -iHaps-
>
>
>
> 2011/12/9 Sony Ario <sony.ario1@gmail.com>
> Pagi mbak Haps.
> Di pc saya waktu file ini mau di buka, ada pesan "Could not load an object..." kenapa ya ? saya pakai Windows7 dan Excel 2010. Sama satu lagi, di event UserForm_Initialize() ada code Refresh_NamesArea itu buat apa ya ?
> Terima kasih sebelumnya.
>
> salam
> Sony
>
> 2011/12/8 Haps <hapsari.stlizbeth@gmail.com>
> ysh Pak Danan...
> Terlampir kita coba membuat workbook, untuk membuat "sistem" seperti yg diceritakan oleh pak Danan.
> Tetapi hanya sampai kepada tahap Entri Data saja (menghasilkan tabel data dokumen / data surat)
> Itupun masih sangat sederhana, misalnya proses entri, belum didahului oleh validasi data yg
> di enterikan, (textbox kosong tetap diproses entrinya)
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (9)
6a.

Re: File Macro

Posted by: "o' Seno" ontoseno84@gmail.com   ontoseno84@ymail.com

Thu Dec 8, 2011 5:10 pm (PST)



Dear Muja-muja,

Kalau yg saya tahu, kok lain ya .. maklum hanya dari "denger-denger" saja..

Makro itu tidak terintegrasi di dalam installer office;
yg terintegrasi dlm installer adalah VBA (bahasa untuk membuat makro),
sehingga
kapanpun excel dibuka kemampuan VBAnya sudah ada ( tetapi makronya belum
ada )
Makro baru ada, setelah anda buat (dengan cara rekam mapun cara tulis code)

Dalam lingkup Excel modern, Makro adalah serangkaian perintah dengan kode
VBA,
setiap serangkaian perintah (disebut procedure).
Prosedur ini sering disebut pula dengan Rutin atau juga MAKRO.

Jika anda pakai excel 2007 & yg lebih baru :
Makro yg sudah dibuat akan TETAP ADA jika file workbooknya jika extensi
filenya = xlsm
(atau bisa juga xlsb, xlam, xltm)
Jika di save sebagai xlsx makro yg sudah and tulis akan LENYAP seperti
debu disedot
dengan vakum kliner.

Mengenai urusan mengENABLEkan / menDISABLEkan workbook agar mampu/gak mampu
menjalankan makro, settingnya harus di obok-obok melalui Excel Option >
Trust Center >
Trust Center Setting > Macro Setting > ...
(seperti sudah digambarkan oleh "dik" Haps), bukan hanya mengganti extensi
filenya saja.

Mohon maaf jika penjelasan tsb semaNGkin salah...

o'Seno

2011/12/8 <mail4muja@yahoo.co.id>:
> Makro tuh sudah terintegrasi dalam installer officenya. Supaya makro
enable di tiap komputer simpan filenya save as *.xlsm aja... Itu yang sy
tau... 8x_x8

> -----Original Message-----
> From: Riska.Nirmalasari@danone.com>; Date: Thu, 8 Dec 2011 14:36:34
> Mohon pencerahannya, untuk file excel yg ada makronya. Jika komputer
tidak tersupport makro maka harus enable dulu.
> Apakah ada makro yg membuat file tersebut secara otomatis support makro?
Jadi walaupun pindah2 komputer tidak perlu klik "enable".
> Terimakasih atas pencerahannya
> R1ska
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)
6b.

Re: File Macro

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

Thu Dec 8, 2011 7:54 pm (PST)



Betul sekali bung Seno....

. ( | MANGSTAB !| )
_____ \ \ GAN.. / /_____
(____ _) \ / (_____)
(_____ ) _)_ :-). (_ (______)
(__ ___) )-- ||-- ( (_ ____)
(_____) __/ / .. \ \_ _ (_____)
_/_/ \_\_

-----Original Message-----
From: "o' Seno" <ontoseno84@gmail.com>
Date: Fri, 9 Dec 2011 08:10:49

Dear Muja-muja,

Kalau yg saya tahu, kok lain ya .. maklum hanya dari "denger-denger" saja..

Makro itu tidak terintegrasi di dalam installer office;
yg terintegrasi dlm installer adalah VBA (bahasa untuk membuat makro),
sehingga kapanpun excel dibuka kemampuan VBAnya sudah ada ( tetapi makronya belum ada )
Makro baru ada, setelah anda buat (dengan cara rekam mapun cara tulis code)

Dalam lingkup Excel modern, Makro adalah serangkaian perintah dengan kode VBA, setiap serangkaian perintah (disebut procedure).
Prosedur ini sering disebut pula dengan Rutin atau juga MAKRO.

Jika anda pakai excel 2007 & yg lebih baru :
Makro yg sudah dibuat akan TETAP ADA jika file workbooknya jika extensi filenya = xlsm (atau bisa juga xlsb, xlam, xltm)
Jika di save sebagai xlsx makro yg sudah and tulis akan LENYAP seperti debu disedot dengan vakum kliner.

Mengenai urusan mengENABLEkan / menDISABLEkan workbook agar mampu/gak mampu menjalankan makro, settingnya harus di obok-obok melalui
Excel Option > Trust Center > Trust Center Setting > Macro Setting > ...
(seperti sudah digambarkan oleh "dik" Haps), bukan hanya mengganti extensi filenya saja.

Mohon maaf jika penjelasan tsb semaNGkin salah...

o'Seno

2011/12/8 <mail4muja@yahoo.co.id>:
> Makro tuh sudah terintegrasi dalam installer officenya. Supaya makro
enable di tiap komputer simpan filenya save as *.xlsm aja... Itu yang sy tau... 8x_x8
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)
7a.

bagaimana cara hide beberapa sheet sekaligus

Posted by: "Saifudin Mnp" saifmnp@ymail.com   saifmnp@ymail.com

Thu Dec 8, 2011 5:38 pm (PST)



Bagaimana cara menghide banyak sheet sekaligus sebelum menutup workbook?
selama ini saya pergunakan cara seperti di bawah ini tetapi ribet karena harusmenyebutkan sheetnya satu per satu

Private Sub workbook_beforeclose(Cancel As Boolean)
Application.DisplayAlerts = False
Sheet6.Visible = xlSheetVisible
Sheet1.Visible = xlSheetVeryHidden
Sheet2.Visible = xlSheetVeryHidden
Sheet3.Visible = xlSheetVeryHidden
Sheet5.Visible = xlSheetVeryHidden
ThisWorkbook.Save

ThisWorkbook.Close
End Sub

terima kasih dan salam kenal
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
7b.

Re: bagaimana cara hide beberapa sheet sekaligus

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

Thu Dec 8, 2011 5:44 pm (PST)



Mungkin begini Oom Sai...
Sheets(Array("Sheet6", "Sheet1", "Sheet2", Sheet3", "Sheet5",
"Sheet4")).Visible = False

iHaps

2011/12/9 Saifudin Mnp <saifmnp@ymail.com>

> **
> Bagaimana cara menghide *banyak sheet sekaligus* sebelum menutup workbook?
> selama ini saya pergunakan cara seperti di bawah ini tetapi *ribet *karena
> harus* menyebutkan sheetnya satu per satu*
>
> Private Sub workbook_beforeclose(Cancel As Boolean)
> Application.DisplayAlerts = False
> Sheet6.Visible = xlSheetVisible
> Sheet1.Visible = xlSheetVeryHidden
> Sheet2.Visible = xlSheetVeryHidden
> Sheet3.Visible = xlSheetVeryHidden
> Sheet5.Visible = xlSheetVeryHidden
> ThisWorkbook.Save
> ThisWorkbook.Close
> End Sub
>
> terima kasih dan salam kenal
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
7c.

Re: bagaimana cara hide beberapa sheet sekaligus

Posted by: "zainul_ulum[at]yahoo[dot]com" zainul_ulum@yahoo.com   zainul_ulum

Thu Dec 8, 2011 6:00 pm (PST)



Kalo cara yang lebih panjang, tetapi flexible:

'1. Buat procedure baru

Sub SembunyikanSemuaSheetKecuali(nmSheet As String)

With Worksheets(nmSheet)

.Visible = xlSheetVisible

.Activate

End With

For Each sh In ThisWorkbook.Worksheets

If sh.Name = ActiveSheet.Name Then

sh.Visible = xlSheetVisible

Else

sh.Visible = xlSheetHidden

End If

Next sh

End Sub

'2. Rubah event workbook_beforeclose menjadi

Private Sub workbook_beforeclose(Cancel As Boolean)

Application.DisplayAlerts = False

SembunyikanSemuaSheetKecuali "Sheet6"

ThisWorkbook.Save

ThisWorkbook.Close

End Sub

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of Haps
Sent: Friday, December 09, 2011 8:44 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] bagaimana cara hide beberapa sheet sekaligus

Mungkin begini Oom Sai...

Sheets(Array("Sheet6", "Sheet1", "Sheet2", Sheet3", "Sheet5", "Sheet4")).Visible = False

iHaps

2011/12/9 Saifudin Mnp <saifmnp@ymail.com>

Bagaimana cara menghide banyak sheet sekaligus sebelum menutup workbook?

selama ini saya pergunakan cara seperti di bawah ini tetapi ribet karena harus menyebutkan sheetnya satu per satu

Private Sub workbook_beforeclose(Cancel As Boolean)

Application.DisplayAlerts = False

Sheet6.Visible = xlSheetVisible

Sheet1.Visible = xlSheetVeryHidden

Sheet2.Visible = xlSheetVeryHidden

Sheet3.Visible = xlSheetVeryHidden

Sheet5.Visible = xlSheetVeryHidden

ThisWorkbook.Save

ThisWorkbook.Close

End Sub

terima kasih dan salam kenal

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
7d.

Bls: [belajar-excel] bagaimana cara hide beberapa sheet sekaligus

Posted by: "Saifudin Mnp" saifmnp@ymail.com   saifmnp@ymail.com

Thu Dec 8, 2011 6:07 pm (PST)



Terima kasih Mas Zainul Ulum
It's smart way

________________________________
Dari: zainul_ulum[at]yahoo[dot]com <zainul_ulum@yahoo.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Jumat, 9 Desember 2011 10:00
Judul: RE: [belajar-excel] bagaimana cara hide beberapa sheet sekaligus


 
Kalo cara yang lebih panjang, tetapi flexible:
'1. Buat procedure baru
Sub SembunyikanSemuaSheetKecuali(nmSheet As String)
    With Worksheets(nmSheet)
        .Visible = xlSheetVisible
        .Activate
    End With
    For Each sh In ThisWorkbook.Worksheets
        If sh.Name = ActiveSheet.Name Then
            sh.Visible = xlSheetVisible
        Else
            sh.Visible = xlSheetHidden
        End If
    Next sh
End Sub
 
'2.  Rubah event workbook_beforeclose menjadi
 
Private Sub workbook_beforeclose(Cancel As Boolean)
Application.DisplayAlerts = False
SembunyikanSemuaSheetKecuali "Sheet6"
ThisWorkbook.Save
ThisWorkbook.Close
End Sub
 
 
From:belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of Haps
Sent: Friday, December 09, 2011 8:44 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] bagaimana cara hide beberapa sheet sekaligus
 
 
Mungkin begini Oom Sai...
Sheets(Array("Sheet6", "Sheet1", "Sheet2", Sheet3", "Sheet5", "Sheet4")).Visible = False
 
iHaps
 
 
 
2011/12/9 Saifudin Mnp <saifmnp@ymail.com>
Bagaimana cara menghide banyak sheet sekaligus sebelum menutup workbook?
selama ini saya pergunakan cara seperti di bawah ini tetapi ribet karena harusmenyebutkan sheetnya satu per satu
 
Private Sub workbook_beforeclose(Cancel As Boolean)
Application.DisplayAlerts = False
Sheet6.Visible = xlSheetVisible
Sheet1.Visible = xlSheetVeryHidden
Sheet2.Visible = xlSheetVeryHidden
Sheet3.Visible = xlSheetVeryHidden
Sheet5.Visible = xlSheetVeryHidden
ThisWorkbook.Save
ThisWorkbook.Close
End Sub
 
terima kasih dan salam kenal
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
8a.

copy dan rename file

Posted by: "him mah" himmah.mlg@gmail.com

Thu Dec 8, 2011 5:45 pm (PST)



Assalamu'alaikum Wr. Wb.
mau tanya (karena internetnya lambat maaf kalau belum sempat search di
arsip milis)

kita punya beberapa file (dalam hal ini csv) yang ada di folder C:\COBA\DATA
Misal nama file tersebut:
1. A.csv
2. B.csv
3. C.csv
4. D.csv

kemudian daftar file tersebut akan masuk ke list yang ada di combobox
(form control toolbox)
setelah kita pilih file tersebut dari combobox, misal file B.csv

maka file B.csv yang ada di folder C:\COBA\DATA akan di copy dan di
paste ke folder C:\COBA dengan nama DATA.csv (rename)

jika di folder C:\COBA sebelumnya sudah ada file DATA.csv maka file
yang kita paste tadi akan mereplace file sebelumnya

terima kasih
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
8b.

Re: copy dan rename file

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

Thu Dec 8, 2011 7:39 pm (PST)



maaf
apa *dosa Windows-Explorer *sehingga untuk pekerjaan² seperti ini
kita harus "bikin sendiri" programnya ya...

2011/12/9 him mah <himmah.mlg@gmail.com>
> Assalamu'alaikum Wr. Wb.
> mau tanya (karena internetnya lambat maaf kalau belum sempat search di
> arsip milis)
>
> kita punya beberapa file (dalam hal ini csv) yang ada di folder
C:\COBA\DATA
> Misal nama file tersebut:
> 1. A.csv
> 2. B.csv
> 3. C.csv
> 4. D.csv
>
> kemudian daftar file tersebut akan masuk ke list yang ada di combobox
> (form control toolbox)
> setelah kita pilih file tersebut dari combobox, misal file B.csv
>
> maka file B.csv yang ada di folder C:\COBA\DATA akan di copy dan di
> paste ke folder C:\COBA dengan nama DATA.csv (rename)
>
> jika di folder C:\COBA sebelumnya sudah ada file DATA.csv maka file
> yang kita paste tadi akan mereplace file sebelumnya
>
> terima kasih
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
9a.

Selisih Menit DTPicker tidak bulat

Posted by: "muja" mail4muja@yahoo.co.id   mail4muja

Thu Dec 8, 2011 7:59 pm (PST)



Salam Para Jawara XL,

Terlampir dikirimkan File lampiran namun belum betul, Mohon para Jawara XL sudi kiranya turun tangan untuk memberekkannya. :D.

Sekilas isi file :
# Input userform terdiri dari 1 textbox dan 3 DTPicker. dan 3 textbox dibawahnya sebagai hasil yang otomatis bernilai jika data entri dirubah,

# Merubah jam dan menit saya tidak diketik manual tetapi paku keyboard up & down
#Hasil 3 textbox terbawah merupakan selisih waktu yang dikali kan dengan 60 (menit)

Masalahnya :

1. Mengapa hasil Selisih dan perkaliannya angkanya tidak bulat, Bagaimana supaya hasilnya bulat..??
2. bagaimana caranya ketika mengetik jumlah pelanggan terganggu, data Hasil 3 textbox terbawah juga otomatis ikut berubah?
3. Oh ya bagai mana ya merubah tampilan Workbook pada Field kolom A B C dst menjadi 1 2 3 dst ? dan balikin lagi ke A B C gemana ya?

Demikian saja, Mohon kiranya para jawara bisa membantu mengatasinya...

Salam
Mas Muja
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
9b.

Re: Selisih Menit DTPicker tidak bulat

Posted by: "o' Seno" ontoseno84@gmail.com   ontoseno84@ymail.com

Thu Dec 8, 2011 10:54 pm (PST)



textbox itu bukan cell
apapun yg ditampilkan di situ (walau pun ex data datetime ) tetap menjadi
data text
maka kalau mau di aritmatikkan harus diurus dulu konversinya

Private Sub DTPicker2_Change()
Dim status1 As Date
If DTPicker2.Enabled Then
'durasi respon layanan
status1 = DTPicker2.Value - DTPicker1.Value
TextBox2.Value = Format(status1 * 60 * 24, "0")
End If
End Sub

Private Sub DTPicker3_Change()
Dim status2 As Date, status3 As Date
If DTPicker1.Enabled And DTPicker3.Enabled Then
' durasi penanganan
status2 = DTPicker3.Value - DTPicker1.Value
TextBox3.Value = Format(status2 * 60 * 24, "0")
End If
status3 = (CDate(TextBox3.Value) * CLng(TextBox1.Value)) / 60
TextBox4 = Format(CDbl(status3), "#,##0.00")
End Sub

Private Sub UserForm_Initialize()
' jumlah pelanggan diberi nilai awal 1
' untuk menjcegah error bila lupa mengisi
' tapi sudah mengisi dtpickers
TextBox1 = 1
End Sub

2011/12/9 muja <mail4muja@yahoo.co.id>

> **
>
>
> Salam Para Jawara XL,
>
> Terlampir dikirimkan File lampiran namun belum betul, Mohon para Jawara XL
> sudi kiranya turun tangan untuk memberekkannya. :D.
>
> Sekilas isi file :
> # Input userform terdiri dari 1 textbox dan 3 DTPicker. dan 3 textbox
> dibawahnya sebagai hasil yang otomatis bernilai jika data entri dirubah,
>
> # Merubah jam dan menit saya tidak diketik manual tetapi paku keyboard up
> & down
> #Hasil 3 textbox terbawah merupakan selisih waktu yang dikali kan dengan
> 60 (menit)
>
> Masalahnya :
>
> 1. Mengapa hasil Selisih dan perkaliannya angkanya tidak bulat, Bagaimana
> supaya hasilnya bulat..??
> 2. bagaimana caranya ketika mengetik jumlah pelanggan terganggu, data
> Hasil 3 textbox terbawah juga otomatis ikut berubah?
> 3. Oh ya bagai mana ya merubah tampilan Workbook pada Field kolom A B C
> dst menjadi 1 2 3 dst ? dan balikin lagi ke A B C gemana ya?
>
> Demikian saja, Mohon kiranya para jawara bisa membantu mengatasinya...
>
> Salam
> Mas Muja
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
10a.

Fwd: filter dari file lain dan substitute spasi pada nama sheet

Posted by: "yulian nugroho" yuliannug@gmail.com   yuliannug

Thu Dec 8, 2011 8:00 pm (PST)



kisanak ?

terpuruk ku di sini,
termenung ....
dikerubutin laler

menunggu petunjukmu ....
kutunggu dirimu di tikungan jalan

YN

---------- Forwarded message ----------
From: yulian nugroho <yuliannug@gmail.com>
Date: 2011/12/7
Subject: filter dari file lain dan substitute spasi pada nama sheet
To: belajar-excel@yahoogroups.com

Kisanak,
bantu aku ...

soalan 1
aku coba filter dari file lain dengan formula yang pernah kudapat dari
milis ini tak mau kerja, apa dosaku ... ?
tunjukkan jalan yang lurus padaku, kisanak ...

soalan 2
kadang dapat file dari rekan kerja dengan nama sheet yang lebay dalam
penggunaan spasi
jadi saat coba mau ambil data "indirect" gak mau kerja, apa dosaku ... ?
bila kisanak ada formula yang bisa substitute spasi dari nama sheet pasti
sesuatu banget dweh ..

makasih sakdurungnya ....

--
Thanks & Regards
Yulian Nugroho

--
Thanks & Regards
Yulian Nugroho
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
Recent Activity
Visit Your Group
Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Y! Groups blog

The place to go

to stay informed

on Groups news!

Dog Groups

on Yahoo! Groups

discuss everything

related to dogs.

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
---------------------------------------------------------------------
MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

Diposting oleh EXCEL FEED LEARNING di 01.06

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)