Hot Fox

domingo, 30 de maio de 2010

Re: ]] XL-mania [[ menemukan sheet

ikutan dong.... (walaupun sudah terlambat 5 hari)
meskipun membuatkan makronya, tetapi saya tetap mendukung usulan pak Kusnadi
yaitu mengorganisasikan data tidak harus dengan cara dipisahpisah dlm
BUANYAK sheet sperti itu

workbook terlampir mengusung "fitur baru"
- ketika dibuka >> langsung menampilkan ListBox berisi daftar nma sheets.
- nama sheet dapat dipilih secara cepat: dengan mouse-pointer maupun dengan
tombol panah atas / bawah
- setiap nama sheet yg sedang diipilih dlm listbox langsung diaktifkan
- jika sudah ketemu sheet yg anda kehendaki tinggal menutup userformnya.

lain kali jika ingin menampilkan UserForm (berisi Listbox daftar Nama Sheet)
anda tinggal Klik kanan di cell di sheet manapun

vba codingnya kira kira spt ini

1. di module milik ThisWorkbook

Private Sub Workbook_Open()
UserForm1.Show
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, _
ByVal Target As Range, Cancel As Boolean)
Dim YN As Long
YN = MsgBox("Mo lihat daftar sheets ??", _
vbQuestion + vbYesNo, ThisWorkbook.Name)
If YN = vbYes Then
Cancel = True
UserForm1.Show
End If
End Sub

dibuat 1 UserForm, di dalm userform dibuat 1 ListBox
code vba di module milik UserForm1

Private Sub ListBox1_Change()
Sheets(ListBox1.Value).Activate
End Sub

Private Sub UserForm_Initialize()
Dim sht As Worksheet
For Each sht In ThisWorkbook.Worksheets
ListBox1.AddItem sht.Name
Next
End Sub

2010/5/26 dyat <dyat_dy@yahoo.com>

hai xl mania mohon bantuannya ya..

gimana menemukan sheet dari sebuah worksheet...ada rumus macronya
gak?...karena biasanya data saya dalam 1 worksheet ada ratusan sheet...

gimana cara mudahnya, agar saya tidak selalu menggeser k'kiri dan
k'kanan untuk menemukan sheet yg saya inginkan..

terima kasih... ^^

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (6)

Recent Activity:

New Members 74

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| selamat hari raya waisak untuk merayakan... selamat long weekend. |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

__,_._,___

sábado, 29 de maio de 2010

Re: ]] XL-mania [[ cara export data pada file.text ke excel dengan vba

Ikutan nambahin...

Eksport data file *.txt ke dalam excel bisa jg dengan menggunakan fitur export data eksternal. Bahkan ada pengaturan format saat akan di export ke excel. Kl di versi 2003 bisa di akses dr menu FILE / Import (CMIIW) dan versi 2007/2010 dari tab menu DATA / Get External Data.

Mohon dikoreksi jika saya salah...

2010/5/28 Ronald Ardo <ardo.ronald@yahoo.com>

Dear Dobby,

coba ya ...

1. save dulu file data.text di folder D: (atau manapun)

2. kemudian running excel dan pilih menu open file untuk membuka file data.text

3. pilih tipe All Files (*.*) pada files of type box

4. kemudian pilih file data.text untuk dibuka

5. tekan tombol Next pada Text Import Wizard - Step 1 of 3

6. pastikan yang ditandai pada Tab check box

7. kemudian tekan next kemudian tekan finish

Selamat mencoba

Salam

Ardo

From: Dobby Paku <dp_140279@yahoo.com>
To: XL-mania@yahoogroups.com
Sent: Thu, May 27, 2010 11:24:35 PM
Subject: ]] XL-mania [[ cara export data pada file.text ke excel dengan vba

To para pakar excel....

saya ada masalah dengan export data dari file.text ke program excel...

dengan cara vba...

file terlampier.. .

terima kasih atas bantuannya.. .

salam sukses

dby

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (3)

Recent Activity:

New Members 74

Visit Your Group

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

__,_._,___

sexta-feira, 28 de maio de 2010

Re: ]] XL-mania [[ tanggal jatuh tempo

Gunakan fungsi Floor() terhadap DateDif().
Kriteria periode pembayaran dijabarkan sebagai 12/jumlah_pembayaran_per_tahun.
Hati-hati : jumlah_pembayaran_per_tahun > 12 akan membuat error formula.
Mungkin bisa dengan cara lainnya.

Penghitungan sekaligus juga belum diformulasikan, karena kurang tahu duduk perkaranya.

Semoga bermanfaat.
Kid.

2010/5/27 Rkarnani <rkarnani@kresnalife.co.id>

Thx mr.kid. setidaknya itu cukup mengakomodir u/ jenis pembayaran bulanan.

Tetapi bgaimana klau jenis pembyarannya berbeda ? misal triwulan

Contoh sederhana :

Pemby.Akhir : 27-Peb-2009

Lama Tunggakan sd. bulan ini (secara system) adalah : 04 periode yaitu :

27-Peb-2009 (sdh byar)

Seharusnya 3x tunggakan

27-Ags-2009

27-Peb-2010

27-Ags-2010

Dalam hal ini tgl.next duenya adalah 27-Peb-2010

Karena 27-Ags-2010 belum jatuh tempo.

Thx.

From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com] On Behalf Of Mr. Kid
Sent: 26-05-2010 6:11 PM
To: XL-mania@yahoogroups.com
Subject: Re: ]] XL-mania [[ tanggal jatuh tempo

Mungkin formula berikut bisa memberi gambaran.
Jika addin Analisys ToolPak diaktifkan :
=EDATE(D4,DATEDIF(D4,NOW(),"m"))

Jika addin Analisys ToolPak tidak ter-install atau tidak ingin diaktifkan :
=DATE(YEAR(D4),MONTH(D4)+DATEDIF(D4,NOW(),"m"),DAY(D4))

Setidaknya formula di atas bisa mengakomodir periode bulanan.
Jika periode lainnya selalu mengambil tanggal 1 bulan sebelum bulan sekarang jika tanggal sekarang belum sama dengan tanggal premi, mungkin formulanya juga tetap seperti itu.

Kid.

2010/5/25 Rkarnani <rkarnani@kresnalife.co.id>

Dear Suhu,

Sya Anggota lama (dengan tampilan baru) mohon pencerahan dari para suhu

Atas attachment terlampir.

Makacih sebelumnya