1. Object Sheet1 itu yg mana ya ? kok bisa ada kriteria nya yg di K2 & L2 ?
>> Coba ke VBE -> project explorer -> cari sheet1 (blablabla) -> klik dia
-> lihat properties window (tekan F4 kalau ndak tampak) -> cari property
Visible -> ganti nilai property dengan xlSheetVisible (pilih) -> kembali ke
workbook dan lihat sheet yang dimaksud.
2. Apa beda fungsi Format$ dengan Format yg biasa itu ?
>> keduanya sama kecuali datatype yang dihasilkan.
>> Format$ adalah fungsi format nilai data yang menghasilkan nilai
berdatatype string
>> Format adalah fungsi format nilai data yang menghasilkan nilai
berdatatype Variant
>> cara cek :
1. tulis disebuah code window
Format(
2. lihat tooltip info (aktifkan options auto quick info milik VBE
jika tidak muncul tooltip info-nya)
3. perhatikan dipaling kanan tidak ada kata As String
4. coba karakter ( diganti dengan $( agar menjadi
Format$(
3. lihat lagi tooltip info dipaling kanan ada As String
>> Type data string akan lebih cepat diproses daripada typedata variant.
3. dan ada fungsi refresh Pivot Table di event Form Initialize, sheet nya
yg mana ?
>> tugasnya merefresh pivot table yang menjadi sumber daftar isian combobox
dalam userform pada saat tepat sesaat sebelum userform akan siap digunakan
oleh user
>> lokasinya di object sheet1 (lihat nomor 1)
Wassalam,
Kid.
2013/7/15 Sony Ario <[email protected]>
> **
>
>
> Mr Kid, terima kasih respond nya.
>
> Kelihatan nya di macro menggunakan Advance Filter yah ?
>
> pertanyaan saya :
>
>
> 1. Object Sheet1 itu yg mana ya ? kok bisa ada kriteria nya yg di K2 &
> L2 ?
> 2. Apa beda fungsi Format$ dengan Format yg biasa itu ?
> 3. dan ada fungsi refresh Pivot Table di event Form Initialize, sheet
> nya yg mana ?
>
>
> Hehehe... saya khawatir ilmu saya belum cukup nih untuk menerima
> penjelasan Mr. Kid :D
>
>
> 2013/7/14 Mr. Kid <[email protected]>
>
> **
>>
>>
>> hehehe...
>>
>> kalau seperti file terlampir bagaimana ?
>>
>> maaf ya kalau ndak sesuai harapan, soale saya masuk regunya yang rada
>> ogah pake loop kalau ndak terpaksa...
>>
>> hik..hik..hik... jadi ingat mbake,
>> pernah debat japri gara-gara loop...
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>> 2013/7/14 Sony Ario <[email protected]>
>>
>>> **
>>>
>>>
>>> Yth. Teman2 Be Excel,
>>>
>>> Saat ini saya sedang ada masalah dengan permintaan atas format report
>>> terlampir. Report ini adalah report yang sehari2 saya gunakan untuk membuat
>>> sebuah laporan nanti nya.
>>>
>>> Masalah yang saya hadapi adalah :
>>>
>>> 1. Bagaimana macro nya untuk mengambil data dengan multi kriteria -
>>> bukan macro advance filter karena saya hanya butuh beberapa field saja.
>>>
>>> 2. Range data periode yang akan saya ambil, parameter nya berasal dari
>>> sebuah combo box di userform, dengan memasukan bulan ,tahun (dengan
>>> menggunakan karakter wildcard) dan subledger
>>>
>>> 3. Kolom Kriteria yg ingin saya ambil adalah :
>>> a. Periode
>>> b. Akun
>>> c. Subledger
>>>
>>> Contoh Output yang saya harapkan adalah : saya bisa tau berapa total
>>> untuk subledger tertentu dalam rentan periode tertentu.
>>>
>>> Berikut adalah potongan macro yang sudah saya coba. Tapi setelah di run,
>>> seperti nya loop nya berjalan terus.
>>>
>>> Mohon bantuan yah teman2... terima kasih sebelumnya.
>>>
>>> Salam
>>>
>>> Private Sub cmdCetakLaporan_Click()
>>> Application.ScreenUpdating = False
>>>
>>> Dim KodeLap, Subledger, PeriodeAwal, PeriodeAkhir As String
>>> Dim Tanggal, NoJnl, Periode, Keterangan, Akun As String
>>> Dim Umur, Total, Jumlah, i, n, r As Long
>>>
>>> KodeLap = Me.cboKodeLap.Value
>>> Subledger = Me.cboSubledger.Value
>>> PeriodeAwal = (cboBulanAwal.ListIndex + 1) & "/1/" &
>>> txtTahunAwal.Value
>>> PeriodeAkhir = (cboBulanAkhir.ListIndex + 1) & "/1/" &
>>> txtTahunAkhir.Value
>>>
>>> Select Case KodeLap
>>> Case "Piutang Usaha"
>>> Akun = "1.1.4"
>>>
>>> Case "Piutang Pinjaman Anggota"
>>> Akun = "1.1.5"
>>>
>>> Case "Piutang Pinjaman non Anggota"
>>> Akun = "1.1.6"
>>>
>>> Case "Hutang Usaha"
>>> Akun = "2.1.3"
>>>
>>> Case "Simpanan Anggota"
>>> Akun = "2.1.1"
>>>
>>> Case "SHU Bagian Anggota"
>>> Akun = "2.1.2"
>>>
>>> Case "Hutang Bank dan Lain-Lain"
>>> Akun = "2.1.4"
>>> End Select
>>>
>>> Sheets("tblGL").Activate
>>> Range("C2").Select
>>>
>>> Do Until ActiveCell.Value >= PeriodeAwal And ActiveCell.Value <=
>>> PeriodeAkhir And ActiveCell.Offset(0, 3).Value <> Akun
>>> ActiveCell.Offset(1, 0).Select
>>> Loop
>>>
>>> End Sub
>>>
>>>
>>
>
>
