15 New Messages
Digest #1833
5a
Bls: [belajar-excel] mengambil nama bulan dari rumus =today() by "yahoo@udinabsolute.com" omnivora
Messages
Wed Oct 10, 2012 5:50 pm (PDT) . Posted by:
"onno95" onno95
assalamualaikum,
mohon bantuan agan2 master, bagaimana caranya supaya tunggakan hanya muncul
sampe bulan skarang, bulan yg akan datang tidak muncul. berikut sy
lampirkan file nya
sekian dan terima kasih
wassalamualaikum
--
===================
http://onno95.blogspot.com
mohon bantuan agan2 master, bagaimana caranya supaya tunggakan hanya muncul
sampe bulan skarang, bulan yg akan datang tidak muncul. berikut sy
lampirkan file nya
sekian dan terima kasih
wassalamualaikum
--
============
http://onno95.
Wed Oct 10, 2012 6:22 pm (PDT) . Posted by:
"aji mumpung"
wa'alaikumsalam wr. wb.,
pak onno, solusi untuk kasus ini sbb:
1. Ubah dahulu bulan menjadi bertipe Date Value dengan memasukkan lengkap
tanggal, bulan, dan tahun, lalu diformat agar hanya muncul bulan dan
tanggalnya
2. Pada cell F8 tulis formula sbb:
=IF(EOMONTH(TODAY();0)>A8;B8-E8;0)
copy ke bawah sebanyak baris data yang ada
semoga alur logika dalam sample terlampir dapat memperjelas solusi atas
kasus ini
wassalam,
-aji mumpung-
2012/10/11 onno95 <onno95@gmail.com >
> **
>
>
> assalamualaikum,
>
> mohon bantuan agan2 master, bagaimana caranya supaya tunggakan hanya
> muncul sampe bulan skarang, bulan yg akan datang tidak muncul. berikut sy
> lampirkan file nya
>
> sekian dan terima kasih
>
> wassalamualaikum
>
>
> --
> ===================
> http://onno95.blogspot.com
>
>
>
pak onno, solusi untuk kasus ini sbb:
1. Ubah dahulu bulan menjadi bertipe Date Value dengan memasukkan lengkap
tanggal, bulan, dan tahun, lalu diformat agar hanya muncul bulan dan
tanggalnya
2. Pada cell F8 tulis formula sbb:
=IF(EOMONTH(
copy ke bawah sebanyak baris data yang ada
semoga alur logika dalam sample terlampir dapat memperjelas solusi atas
kasus ini
wassalam,
-aji mumpung-
2012/10/11 onno95 <onno95@gmail.
> **
>
>
> assalamualaikum,
>
> mohon bantuan agan2 master, bagaimana caranya supaya tunggakan hanya
> muncul sampe bulan skarang, bulan yg akan datang tidak muncul. berikut sy
> lampirkan file nya
>
> sekian dan terima kasih
>
> wassalamualaikum
>
>
> --
> ============
> http://onno95.
>
>
>
Wed Oct 10, 2012 6:57 pm (PDT) . Posted by:
"Muhammad Ferdiansyah" muh_f3rdi4n5yah
Wa'alaikumsalam wr., wb.,
Dikarenakan "Bulan"nya berformat text,
Mungkin bisa digunakan formula ini :
=IF(TODAY()>DATE(2012,ROW(A7),0),B8-E8,0)
Penjelasan :
1. Today() à Menunjukkan waktu sekarang
2. Date(2012, row(a7), 0) à 2012 bisa diganti dengan tahun yg
diinginkan, untuk row(a7) dikarenakan bulannya dimulai dengan bulan Juli
(row(a7)=7), 0 mengambil tgl 0 dibulan 7 (atau tgl terakhir dibulan 6)..
3. Sehingga jika hari ini > dari bulan dalam tabel maka akan
menghitung sesuai dengan rumusnya (B8-E8), jika tidak maka akan menghasilkan
nilai 0.
Untuk lebih jelasnya bisa dilihat di lampiran.
Wassalam,
Ferdy
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ]
On Behalf Of aji mumpung
Sent: Thursday, October 11, 2012 8:22 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] tunggakan spp
wa'alaikumsalam wr. wb.,
pak onno, solusi untuk kasus ini sbb:
1. Ubah dahulu bulan menjadi bertipe Date Value dengan memasukkan lengkap
tanggal, bulan, dan tahun, lalu diformat agar hanya muncul bulan dan
tanggalnya
2. Pada cell F8 tulis formula sbb:
=IF(EOMONTH(TODAY();0)>A8;B8-E8;0)
copy ke bawah sebanyak baris data yang ada
semoga alur logika dalam sample terlampir dapat memperjelas solusi atas
kasus ini
wassalam,
-aji mumpung-
2012/10/11 onno95 <onno95@gmail.com >
assalamualaikum,
mohon bantuan agan2 master, bagaimana caranya supaya tunggakan hanya muncul
sampe bulan skarang, bulan yg akan datang tidak muncul. berikut sy lampirkan
file nya
sekian dan terima kasih
wassalamualaikum
--
===================
http://onno95.blogspot.com
Dikarenakan "Bulan"nya berformat text,
Mungkin bisa digunakan formula ini :
=IF(TODAY()>
Penjelasan :
1. Today() à Menunjukkan waktu sekarang
2. Date(2012, row(a7), 0) à 2012 bisa diganti dengan tahun yg
diinginkan, untuk row(a7) dikarenakan bulannya dimulai dengan bulan Juli
(row(a7)=7), 0 mengambil tgl 0 dibulan 7 (atau tgl terakhir dibulan 6)..
3. Sehingga jika hari ini > dari bulan dalam tabel maka akan
menghitung sesuai dengan rumusnya (B8-E8), jika tidak maka akan menghasilkan
nilai 0.
Untuk lebih jelasnya bisa dilihat di lampiran.
Wassalam,
Ferdy
From: belajar-excel@
On Behalf Of aji mumpung
Sent: Thursday, October 11, 2012 8:22 AM
To: belajar-excel@
Subject: Re: [belajar-excel] tunggakan spp
wa'alaikumsalam wr. wb.,
pak onno, solusi untuk kasus ini sbb:
1. Ubah dahulu bulan menjadi bertipe Date Value dengan memasukkan lengkap
tanggal, bulan, dan tahun, lalu diformat agar hanya muncul bulan dan
tanggalnya
2. Pada cell F8 tulis formula sbb:
=IF(EOMONTH(
copy ke bawah sebanyak baris data yang ada
semoga alur logika dalam sample terlampir dapat memperjelas solusi atas
kasus ini
wassalam,
-aji mumpung-
2012/10/11 onno95 <onno95@gmail.
assalamualaikum,
mohon bantuan agan2 master, bagaimana caranya supaya tunggakan hanya muncul
sampe bulan skarang, bulan yg akan datang tidak muncul. berikut sy lampirkan
file nya
sekian dan terima kasih
wassalamualaikum
--
============
http://onno95.
Wed Oct 10, 2012 9:51 pm (PDT) . Posted by:
"onno95" onno95
berkat bantuan mas aji dan mas ferdi masalahnya sudah tselesaikan. makasih
ya mas aji dan mas ferdi...
Pada 11 Oktober 2012 08:53, Muhammad Ferdiansyah <muh_ferdy@pusri.co.id >menulis:
> **
>
>
> Wa'alaikumsalam wr., wb.,****
>
> ** **
>
> Dikarenakan "Bulan"nya berformat text,****
>
> Mungkin bisa digunakan formula ini :****
>
> ** **
>
> *=IF(**TODAY()**>**DATE(2012,ROW(A7),0)**,**B8-E8**,0)*
>
> * *
>
> Penjelasan :****
>
> **1. **Today() à Menunjukkan waktu sekarang****
>
> **2. **Date(2012, row(a7), 0) à 2012 bisa diganti dengan tahun yg
> diinginkan, untuk row(a7) dikarenakan bulannya dimulai dengan bulan Juli (
> row(a7)=7), 0 mengambil tgl 0 dibulan 7 (atau tgl terakhir dibulan 6)..***
> *
>
> **3. **Sehingga jika hari ini > dari bulan dalam tabel maka akan
> menghitung sesuai dengan rumusnya (B8-E8), jika tidak maka akan
> menghasilkan nilai 0.****
>
> ** **
>
> Untuk lebih jelasnya bisa dilihat di lampiran.****
>
> ** **
>
> Wassalam,****
>
> ** **
>
> Ferdy****
>
> ** **
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com ] *On Behalf Of *aji mumpung
> *Sent:* Thursday, October 11, 2012 8:22 AM
> *To:* belajar-excel@yahoogroups.com
> *Subject:* Re: [belajar-excel] tunggakan spp****
>
> ** **
>
> ****
>
> wa'alaikumsalam wr. wb.,****
>
> ** **
>
> pak onno, solusi untuk kasus ini sbb:****
>
> ** **
>
> 1. Ubah dahulu bulan menjadi bertipe Date Value dengan memasukkan lengkap
> tanggal, bulan, dan tahun, lalu diformat agar hanya muncul bulan dan
> tanggalnya****
>
> ** **
>
> 2. Pada cell F8 tulis formula sbb:****
>
> ** **
>
> =IF(EOMONTH(TODAY();0)>A8;B8-E8;0)****
>
> ** **
>
> copy ke bawah sebanyak baris data yang ada****
>
> ** **
>
> semoga alur logika dalam sample terlampir dapat memperjelas solusi atas
> kasus ini****
>
> ** **
>
> wassalam,****
>
> ** **
>
> -aji mumpung-****
>
> 2012/10/11 onno95 <onno95@gmail.com >****
>
> ****
>
> assalamualaikum,****
>
> ** **
>
> mohon bantuan agan2 master, bagaimana caranya supaya tunggakan hanya
> muncul sampe bulan skarang, bulan yg akan datang tidak muncul. berikut sy
> lampirkan file nya****
>
> ** **
>
> sekian dan terima kasih****
>
> ** **
>
> wassalamualaikum****
>
>
>
> --
> ===================
> http://onno95.blogspot.com****
>
> ** **
>
> ****
>
>
>
--
===================
http://onno95.blogspot.com
ya mas aji dan mas ferdi...
Pada 11 Oktober 2012 08:53, Muhammad Ferdiansyah <muh_ferdy@pusri.
> **
>
>
> Wa'alaikumsalam wr., wb.,****
>
> ** **
>
> Dikarenakan "Bulan"nya berformat text,****
>
> Mungkin bisa digunakan formula ini :****
>
> ** **
>
> *=IF(**TODAY(
>
> * *
>
> Penjelasan :****
>
> **1. **Today() à Menunjukkan waktu sekarang****
>
> **2. **Date(2012, row(a7), 0) à 2012 bisa diganti dengan tahun yg
> diinginkan, untuk row(a7) dikarenakan bulannya dimulai dengan bulan Juli (
> row(a7)=7), 0 mengambil tgl 0 dibulan 7 (atau tgl terakhir dibulan 6)..***
> *
>
> **3. **Sehingga jika hari ini > dari bulan dalam tabel maka akan
> menghitung sesuai dengan rumusnya (B8-E8), jika tidak maka akan
> menghasilkan nilai 0.****
>
> ** **
>
> Untuk lebih jelasnya bisa dilihat di lampiran.***
>
> ** **
>
> Wassalam,***
>
> ** **
>
> Ferdy****
>
> ** **
>
> *From:* belajar-excel@
> belajar-excel@
> *Sent:* Thursday, October 11, 2012 8:22 AM
> *To:* belajar-excel@
> *Subject:* Re: [belajar-excel] tunggakan spp****
>
> ** **
>
> ****
>
> wa'alaikumsalam wr. wb.,****
>
> ** **
>
> pak onno, solusi untuk kasus ini sbb:****
>
> ** **
>
> 1. Ubah dahulu bulan menjadi bertipe Date Value dengan memasukkan lengkap
> tanggal, bulan, dan tahun, lalu diformat agar hanya muncul bulan dan
> tanggalnya**
>
> ** **
>
> 2. Pada cell F8 tulis formula sbb:****
>
> ** **
>
> =IF(EOMONTH(
>
> ** **
>
> copy ke bawah sebanyak baris data yang ada****
>
> ** **
>
> semoga alur logika dalam sample terlampir dapat memperjelas solusi atas
> kasus ini****
>
> ** **
>
> wassalam,***
>
> ** **
>
> -aji mumpung-****
>
> 2012/10/11 onno95 <onno95@gmail.
>
> ****
>
> assalamualaikum,
>
> ** **
>
> mohon bantuan agan2 master, bagaimana caranya supaya tunggakan hanya
> muncul sampe bulan skarang, bulan yg akan datang tidak muncul. berikut sy
> lampirkan file nya****
>
> ** **
>
> sekian dan terima kasih****
>
> ** **
>
> wassalamualaikum*
>
>
>
> --
> ============
> http://onno95.
>
> ** **
>
> ****
>
>
>
--
============
http://onno95.
Wed Oct 10, 2012 9:54 pm (PDT) . Posted by:
"Saifudin Mnp" saifmnp@ymail.com
bagaimana jika "hanya muncul sampai bulan sekarang" saya ubah menjadi "muncul sampai dengan bulan tertentu"?
terlampir semoga sesuai keinginan
________________________________
Dari: onno95 <onno95@gmail.com >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Kamis, 11 Oktober 2012 7:52
Judul: [belajar-excel] tunggakan spp
assalamualaikum,
mohon bantuan agan2 master, bagaimana caranya supaya tunggakan hanya muncul
sampe bulan skarang, bulan yg akan datang tidak muncul. berikut sy
lampirkan file nya
sekian dan terima kasih
wassalamualaikum
--
===================
http://onno95.blogspot.com
terlampir semoga sesuai keinginan
____________
Dari: onno95 <onno95@gmail.
Kepada: belajar-excel@
Dikirim: Kamis, 11 Oktober 2012 7:52
Judul: [belajar-excel] tunggakan spp
assalamualaikum,
mohon bantuan agan2 master, bagaimana caranya supaya tunggakan hanya muncul
sampe bulan skarang, bulan yg akan datang tidak muncul. berikut sy
lampirkan file nya
sekian dan terima kasih
wassalamualaikum
--
============
http://onno95.
Wed Oct 10, 2012 5:50 pm (PDT) . Posted by:
"Toni Kus indratno" tonny.kuzh@ymail.com
Tetap sama Pak,,belum bisa. . . .
bisakah lebih rinci dijelaskan ke saya,?
tonikus.staff.uad.ac.id
bisakah lebih rinci dijelaskan ke saya,?
tonikus.staff.
Wed Oct 10, 2012 6:37 pm (PDT) . Posted by:
"aji mumpung"
Pak Toni,
Mr Kid, mohon izin untuk ikut menjelaskan solusi atas kasus ini..
Berikut code dari Mr Kid
======================================================================
Pada modul1
Option Explicit
Public lTry As Long
=====================================================================
=====================================================================
Pada this workbook
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If lTry > 2 Then
Sheet1.cmdClose.Visible = True
ElseIf lTry = -1 Then
Exit Sub
Else
lTry = lTry + 1
End If
Cancel = True
End Sub
Private Sub Workbook_Open()
Sheet1.cmdClose = False
lTry = 0
End Sub
==================================================================================
==================================================================================
Pada sheet1
Option Explicit
Private Sub cmdClose_Click()
lTry = -1
Application.DisplayAlerts = False
cmdClose.Visible = False
ThisWorkbook.Save
ThisWorkbook.Close False
Application.DisplayAlerts = True
End Sub
===============================================================================
Pada awalnya Mr Kid mendeklarasikan sebuah variabel bertipe long yang dapat
dipanggil dari mana saja dengan nama lTry
deklarasi variabel ini ditulis pada sebuah modul dan digunakan untuk
menyimpan berapa kali user mencoba menutup file excel dengan cara mengeklik
(bener gak ya bahasanya?) tombol silang di kanan atas atau dari menu File
>> Close
Pada saat workbook dibuka (*ditandai dengan warna biru*), maka nilai lTry
ini disetting menjadi 0 (nol)
Setiap kali user mencoba menutup workbook dengan cara menekan tombol silang
di kanan atas, maka nilai lTry ini akan selalu ditambahkan dengan angka 1
sehingga nilainya akan menjadi 0, 1, 2, 3, dst
Lihat yang diberi *warna merah*, workbook hanya akan dapat ditutup manakala
lTry bernilai -1 (minus satu), sedangkan nilai awal adalah 0 (nol),, nilai
berikutnya adalah 1, 2, dan seterusnya..
kapan nilai -1 ini akan tercapai sedangkan nilainya terus bertambah? oleh
sebab itu maka mr Kid menyeting nilai -1 ini hanya pada tombol cmdClick
yang diberi warna biru.
jadi sebanyak apa pun user mencoba menutup workbook, selama ybs tidak
menekan tombol tutup maka workbook tidak akan tertutup..
Tentunya cara ini hanya berhasil jika user memperbolehkan macro berjalan di
komputer mereka denga cara meng-Enable-kan macro tersebut, jika user
men-Disable maka code tersebut tidak akan berjalan.
Solusi lain adalah memaksa user untuk meng-Enable-kan macro, jika mereka
tidak meng-enablekan maka mereka tidak dapat mengakses workbook tersebut.
cara tersebut tentunya harus disusun ulang untuk melengkapi kode yang sudah
ditulis oleh mr Kid.
Pendapat saya pribadi, kode dari Mr Kid selalu menakjubkan untuk dipelajari
wassalam,
-aji mumpung-
Pada 11 Oktober 2012 07:27, Toni Kus indratno <tonny.kuzh@ymail.com >menulis:
> **
>
>
> Tetap sama Pak,,belum bisa. . . .
> bisakah lebih rinci dijelaskan ke saya,?
>
>
> tonikus.staff.uad.ac.id
>
>
>
Mr Kid, mohon izin untuk ikut menjelaskan solusi atas kasus ini..
Berikut code dari Mr Kid
============
Pada modul1
Option Explicit
Public lTry As Long
============
============
Pada this workbook
Option Explicit
Private Sub Workbook_BeforeClos
If lTry > 2 Then
Sheet1.cmdClose.
ElseIf lTry = -1 Then
Exit Sub
Else
lTry = lTry + 1
End If
Cancel = True
End Sub
Private Sub Workbook_Open(
Sheet1.cmdClose = False
lTry = 0
End Sub
============
============
Pada sheet1
Option Explicit
Private Sub cmdClose_Click(
lTry = -1
Application.
cmdClose.Visible = False
ThisWorkbook.
ThisWorkbook.
Application.
End Sub
============
Pada awalnya Mr Kid mendeklarasikan sebuah variabel bertipe long yang dapat
dipanggil dari mana saja dengan nama lTry
deklarasi variabel ini ditulis pada sebuah modul dan digunakan untuk
menyimpan berapa kali user mencoba menutup file excel dengan cara mengeklik
(bener gak ya bahasanya?) tombol silang di kanan atas atau dari menu File
>> Close
Pada saat workbook dibuka (*ditandai dengan warna biru*), maka nilai lTry
ini disetting menjadi 0 (nol)
Setiap kali user mencoba menutup workbook dengan cara menekan tombol silang
di kanan atas, maka nilai lTry ini akan selalu ditambahkan dengan angka 1
sehingga nilainya akan menjadi 0, 1, 2, 3, dst
Lihat yang diberi *warna merah*, workbook hanya akan dapat ditutup manakala
lTry bernilai -1 (minus satu), sedangkan nilai awal adalah 0 (nol),, nilai
berikutnya adalah 1, 2, dan seterusnya..
kapan nilai -1 ini akan tercapai sedangkan nilainya terus bertambah? oleh
sebab itu maka mr Kid menyeting nilai -1 ini hanya pada tombol cmdClick
yang diberi warna biru.
jadi sebanyak apa pun user mencoba menutup workbook, selama ybs tidak
menekan tombol tutup maka workbook tidak akan tertutup..
Tentunya cara ini hanya berhasil jika user memperbolehkan macro berjalan di
komputer mereka denga cara meng-Enable-
men-Disable maka code tersebut tidak akan berjalan.
Solusi lain adalah memaksa user untuk meng-Enable-
tidak meng-enablekan maka mereka tidak dapat mengakses workbook tersebut.
cara tersebut tentunya harus disusun ulang untuk melengkapi kode yang sudah
ditulis oleh mr Kid.
Pendapat saya pribadi, kode dari Mr Kid selalu menakjubkan untuk dipelajari
wassalam,
-aji mumpung-
Pada 11 Oktober 2012 07:27, Toni Kus indratno <tonny.kuzh@ymail.
> **
>
>
> Tetap sama Pak,,belum bisa. . . .
> bisakah lebih rinci dijelaskan ke saya,?
>
>
> tonikus.staff.
>
>
>
Wed Oct 10, 2012 7:40 pm (PDT) . Posted by:
"aji mumpung"
maaf.. ada sedikit salah penjelasan.. belum dikasih warna hehehe..
kapan nilai -1 ini akan tercapai sedangkan nilainya terus bertambah? oleh
sebab itu maka mr Kid menyeting nilai -1 ini hanya pada tombol cmdClick
yang diberi warna biru. >> belum dikasih warna
nilai ini akan menjalankan program ke sini:
ElseIf lTry = -1 Then
Exit Sub >>> keluar dari program yang melarang user menutup wbk
yang pada akhirnya user dapat menutup kembali workbook yang sebelumnya
dibuka
wassalam,
-aji mumpung-
Pada 11 Oktober 2012 08:37, aji mumpung <pupung1986@gmail.com > menulis:
> Pak Toni,
>
> Mr Kid, mohon izin untuk ikut menjelaskan solusi atas kasus ini..
>
> Berikut code dari Mr Kid
>
> ======================================================================
> Pada modul1
>
> Option Explicit
>
> Public lTry As Long
> =====================================================================
>
>
> =====================================================================
> Pada this workbook
>
> Option Explicit
>
> Private Sub Workbook_BeforeClose(Cancel As Boolean)
> If lTry > 2 Then
> Sheet1.cmdClose.Visible = True
> ElseIf lTry = -1 Then
> Exit Sub
> Else
> lTry = lTry + 1
> End If
> Cancel = True
> End Sub
>
> Private Sub Workbook_Open()
> Sheet1.cmdClose = False
> lTry = 0
> End Sub
>
> ==================================================================================
>
>
> ==================================================================================
> Pada sheet1
>
> Option Explicit
>
> Private Sub cmdClose_Click()
> lTry = -1
> Application.DisplayAlerts = False
> cmdClose.Visible = False
> ThisWorkbook.Save
> ThisWorkbook.Close False
> Application.DisplayAlerts = True
> End Sub
>
> ===============================================================================
>
> Pada awalnya Mr Kid mendeklarasikan sebuah variabel bertipe long yang
> dapat dipanggil dari mana saja dengan nama lTry
> deklarasi variabel ini ditulis pada sebuah modul dan digunakan untuk
> menyimpan berapa kali user mencoba menutup file excel dengan cara mengeklik
> (bener gak ya bahasanya?) tombol silang di kanan atas atau dari menu File
> >> Close
>
> Pada saat workbook dibuka (*ditandai dengan warna biru*), maka nilai lTry
> ini disetting menjadi 0 (nol)
>
> Setiap kali user mencoba menutup workbook dengan cara menekan tombol
> silang di kanan atas, maka nilai lTry ini akan selalu ditambahkan dengan
> angka 1
> sehingga nilainya akan menjadi 0, 1, 2, 3, dst
>
> Lihat yang diberi *warna merah*, workbook hanya akan dapat ditutup
> manakala lTry bernilai -1 (minus satu), sedangkan nilai awal adalah 0
> (nol),, nilai berikutnya adalah 1, 2, dan seterusnya..
>
> kapan nilai -1 ini akan tercapai sedangkan nilainya terus bertambah? oleh
> sebab itu maka mr Kid menyeting nilai -1 ini hanya pada tombol cmdClick
> yang diberi warna biru.
>
> jadi sebanyak apa pun user mencoba menutup workbook, selama ybs tidak
> menekan tombol tutup maka workbook tidak akan tertutup..
>
> Tentunya cara ini hanya berhasil jika user memperbolehkan macro berjalan
> di komputer mereka denga cara meng-Enable-kan macro tersebut, jika user
> men-Disable maka code tersebut tidak akan berjalan.
>
> Solusi lain adalah memaksa user untuk meng-Enable-kan macro, jika mereka
> tidak meng-enablekan maka mereka tidak dapat mengakses workbook tersebut.
>
> cara tersebut tentunya harus disusun ulang untuk melengkapi kode yang
> sudah ditulis oleh mr Kid.
>
> Pendapat saya pribadi, kode dari Mr Kid selalu menakjubkan untuk dipelajari
>
>
> wassalam,
>
> -aji mumpung-
>
>
> Pada 11 Oktober 2012 07:27, Toni Kus indratno <tonny.kuzh@ymail.com >menulis:
>
> **
>>
>>
>> Tetap sama Pak,,belum bisa. . . .
>> bisakah lebih rinci dijelaskan ke saya,?
>>
>>
>> tonikus.staff.uad.ac.id
>>
>>
>>
>
>
kapan nilai -1 ini akan tercapai sedangkan nilainya terus bertambah? oleh
sebab itu maka mr Kid menyeting nilai -1 ini hanya pada tombol cmdClick
yang diberi warna biru. >> belum dikasih warna
nilai ini akan menjalankan program ke sini:
ElseIf lTry = -1 Then
Exit Sub >>> keluar dari program yang melarang user menutup wbk
yang pada akhirnya user dapat menutup kembali workbook yang sebelumnya
dibuka
wassalam,
-aji mumpung-
Pada 11 Oktober 2012 08:37, aji mumpung <pupung1986@gmail.
> Pak Toni,
>
> Mr Kid, mohon izin untuk ikut menjelaskan solusi atas kasus ini..
>
> Berikut code dari Mr Kid
>
> ============
> Pada modul1
>
> Option Explicit
>
> Public lTry As Long
> ============
>
>
> ============
> Pada this workbook
>
> Option Explicit
>
> Private Sub Workbook_BeforeClos
> If lTry > 2 Then
> Sheet1.cmdClose.
> ElseIf lTry = -1 Then
> Exit Sub
> Else
> lTry = lTry + 1
> End If
> Cancel = True
> End Sub
>
> Private Sub Workbook_Open(
> Sheet1.cmdClose = False
> lTry = 0
> End Sub
>
> ============
>
>
> ============
> Pada sheet1
>
> Option Explicit
>
> Private Sub cmdClose_Click(
> lTry = -1
> Application.
> cmdClose.Visible = False
> ThisWorkbook.
> ThisWorkbook.
> Application.
> End Sub
>
> ============
>
> Pada awalnya Mr Kid mendeklarasikan sebuah variabel bertipe long yang
> dapat dipanggil dari mana saja dengan nama lTry
> deklarasi variabel ini ditulis pada sebuah modul dan digunakan untuk
> menyimpan berapa kali user mencoba menutup file excel dengan cara mengeklik
> (bener gak ya bahasanya?) tombol silang di kanan atas atau dari menu File
> >> Close
>
> Pada saat workbook dibuka (*ditandai dengan warna biru*), maka nilai lTry
> ini disetting menjadi 0 (nol)
>
> Setiap kali user mencoba menutup workbook dengan cara menekan tombol
> silang di kanan atas, maka nilai lTry ini akan selalu ditambahkan dengan
> angka 1
> sehingga nilainya akan menjadi 0, 1, 2, 3, dst
>
> Lihat yang diberi *warna merah*, workbook hanya akan dapat ditutup
> manakala lTry bernilai -1 (minus satu), sedangkan nilai awal adalah 0
> (nol),, nilai berikutnya adalah 1, 2, dan seterusnya..
>
> kapan nilai -1 ini akan tercapai sedangkan nilainya terus bertambah? oleh
> sebab itu maka mr Kid menyeting nilai -1 ini hanya pada tombol cmdClick
> yang diberi warna biru.
>
> jadi sebanyak apa pun user mencoba menutup workbook, selama ybs tidak
> menekan tombol tutup maka workbook tidak akan tertutup..
>
> Tentunya cara ini hanya berhasil jika user memperbolehkan macro berjalan
> di komputer mereka denga cara meng-Enable-
> men-Disable maka code tersebut tidak akan berjalan.
>
> Solusi lain adalah memaksa user untuk meng-Enable-
> tidak meng-enablekan maka mereka tidak dapat mengakses workbook tersebut.
>
> cara tersebut tentunya harus disusun ulang untuk melengkapi kode yang
> sudah ditulis oleh mr Kid.
>
> Pendapat saya pribadi, kode dari Mr Kid selalu menakjubkan untuk dipelajari
>
>
> wassalam,
>
> -aji mumpung-
>
>
> Pada 11 Oktober 2012 07:27, Toni Kus indratno <tonny.kuzh@ymail.
>
> **
>>
>>
>> Tetap sama Pak,,belum bisa. . . .
>> bisakah lebih rinci dijelaskan ke saya,?
>>
>>
>> tonikus.staff.
>>
>>
>>
>
>
Wed Oct 10, 2012 9:52 pm (PDT) . Posted by:
"Toni Kus indratno" tonny.kuzh@ymail.com
Lha tombolnya itu bagaimana mas,?
akan muncul sendiri atau kita bikin tombolnya,?
kalau bikin tombolnya ambil yang dimana ya mas,?
maaf merepotkan,,hehe
tonikus.staff.uad.ac.id
akan muncul sendiri atau kita bikin tombolnya,?
kalau bikin tombolnya ambil yang dimana ya mas,?
maaf merepotkan,,
tonikus.staff.
Wed Oct 10, 2012 10:00 pm (PDT) . Posted by:
"aji mumpung"
tombolnya sudah disetting oleh mr Kid akan muncul pada saat user mencoba
menutup aplikasi sebanyak 4 kali..
coba perhatikan kode ini
If lTry > 2 Then
Sheet1.cmdClose.Visible = True
pada saat pertama user mencoba menutup wbk, nilai lTry = 0
percobaan kedua, nilai lTry = 0 + 1 = 1
percobaan ketiga, nilai lTry = 1 + 1 = 2
percobaan keempat, nilai lTry = 2 + 1 = 3
pada saat lTry sudah lebih besar dari 2 maka tombol yang sudah disiapkan
oleh mr Kid akan muncul..
omong-omong dilenya sudah dicoba belum pak? atau macronya masih belum
dijalankan?
wassalam,
-aji mumpung-
Pada 11 Oktober 2012 09:45, Toni Kus indratno <tonny.kuzh@ymail.com >menulis:
> **
>
>
> Lha tombolnya itu bagaimana mas,?
> akan muncul sendiri atau kita bikin tombolnya,?
> kalau bikin tombolnya ambil yang dimana ya mas,?
> maaf merepotkan,,hehe
>
>
> tonikus.staff.uad.ac.id
>
>
>
menutup aplikasi sebanyak 4 kali..
coba perhatikan kode ini
If lTry > 2 Then
Sheet1.cmdClose.
pada saat pertama user mencoba menutup wbk, nilai lTry = 0
percobaan kedua, nilai lTry = 0 + 1 = 1
percobaan ketiga, nilai lTry = 1 + 1 = 2
percobaan keempat, nilai lTry = 2 + 1 = 3
pada saat lTry sudah lebih besar dari 2 maka tombol yang sudah disiapkan
oleh mr Kid akan muncul..
omong-omong dilenya sudah dicoba belum pak? atau macronya masih belum
dijalankan?
wassalam,
-aji mumpung-
Pada 11 Oktober 2012 09:45, Toni Kus indratno <tonny.kuzh@ymail.
> **
>
>
> Lha tombolnya itu bagaimana mas,?
> akan muncul sendiri atau kita bikin tombolnya,?
> kalau bikin tombolnya ambil yang dimana ya mas,?
> maaf merepotkan,,
>
>
> tonikus.staff.
>
>
>
Wed Oct 10, 2012 9:52 pm (PDT) . Posted by:
"Prazt Math" praztmath
Dear pk Aji.
Permalasahannya datanya berubah-ubah, terus sebetulnya sheetnya banyak
sekali, sudah saya coba jadikan dalam satu sheet tp malah tambah ribet ,
sering ada errornya pada data...maka dari itu, saya berpikir bagaimana kl
tidak jd 1 sheet seperti pada permasalahan yang sudah saya tulis...terima
kasih atas partisipasinya pak Aji...
Permalasahannya datanya berubah-ubah, terus sebetulnya sheetnya banyak
sekali, sudah saya coba jadikan dalam satu sheet tp malah tambah ribet ,
sering ada errornya pada data...maka dari itu, saya berpikir bagaimana kl
tidak jd 1 sheet seperti pada permasalahan yang sudah saya tulis...terima
kasih atas partisipasinya pak Aji...
Wed Oct 10, 2012 9:52 pm (PDT) . Posted by:
"vina azha" veeria_165
Assalamu'alaikum
salam kenal semua nya,,,saya newbie di milis ini,,
saya punya permasalahan dalam menggunakan rumus excel untuk menghitung
jumlah suatu kolom jika rumus yang digunakan utk menghitung tersebut
hanya mengacu pada beberapa karakter kode saja.
Misal :
06.07.5.2.2.01.01 = Belanja alat tulis kantor
uraian kode nya :
06 = Kode Program (2 digit di awal sebelah kiri merupakan kode program)
07 = Kode Kegiatan
5.2.2.01.01 = Kode Nama Rekening Belanja (11 karakter dari kanan
kode rekening merupakan nama rekening belanja) , Mis : Belanja Alat
tulis kantor
contoh kasus:
KODE REKENING NAMA REKENING BELANJA
06.07.5.2.2.01.01 Belanja alat tulis kantor 500
06.07.5.2.2.06.01 Belanja cetak 700
06.07.5.2.2.06.02 Belanja penggandaan 200
18.02.5.2.2.01.01 Belanja alat tulis kantor 100
19.27.5.2.2.01.01 Belanja alat tulis kantor 500
19.27.5.2.2.06.01 Belanja cetak 200
19.27.5.2.2.06.02 Belanja Penggandaan 100
26.04.5.2.2.01.01 Belanja Alat tulis Kantor 800
permasalahan nya : Bagaimana rumus nya jika saya ingin mengetahui total
jumlah keseluruhan "belanja cetak" atau "belanja alat tulis kantor" pada
pada tabel diatas untuk semua kode program dan kegiatan (tanpa
memperhatikan kode program dan kegiatan)?
5.2.2.01.01 Belanja alat tulis kantor ?
5.2.2.06.01 Belanja cetak ?
Jika rumus yang digunakan benar, maka total belanja alat tulis kantor (5.2.2.01.01) adalah sebesar : 1.900
Rumus apa yg harus di gunakan jika acuan nya adalah kolom "Kode
Rekening" dengan mengambil 11 karakter dari kanan kode rekening
tersebut(misal : 11 karakter dari kanan yaitu 5.2.2.01.01) ??
saya udah mencoba rumus dibawah ini , tp kliatan nya kurang tepat.
=SUMIF($B$5:$B$76;RIGHT(B85;11)="5.2.2.01.01";$D$9:$D$76)
bagaimana penyelesaian nya??
trimakasih...
file excel saya sertakan :
salam kenal semua nya,,,saya newbie di milis ini,,
saya punya permasalahan dalam menggunakan rumus excel untuk menghitung
jumlah suatu kolom jika rumus yang digunakan utk menghitung tersebut
hanya mengacu pada beberapa karakter kode saja.
Misal :
06.07.5.2.2.
uraian kode nya :
06 = Kode Program (2 digit di awal sebelah kiri merupakan kode program)
07 = Kode Kegiatan
5.2.2.01.01 = Kode Nama Rekening Belanja (11 karakter dari kanan
kode rekening merupakan nama rekening belanja) , Mis : Belanja Alat
tulis kantor
contoh kasus:
KODE REKENING NAMA REKENING BELANJA
06.07.5.2.2.
06.07.5.2.2.
06.07.5.2.2.
18.02.5.2.2.
19.27.5.2.2.
19.27.5.2.2.
19.27.5.2.2.
26.04.5.2.2.
permasalahan nya : Bagaimana rumus nya jika saya ingin mengetahui total
jumlah keseluruhan "belanja cetak" atau "belanja alat tulis kantor" pada
pada tabel diatas untuk semua kode program dan kegiatan (tanpa
memperhatikan kode program dan kegiatan)?
5.2.2.01.01 Belanja alat tulis kantor ?
5.2.2.06.01 Belanja cetak ?
Jika rumus yang digunakan benar, maka total belanja alat tulis kantor (5.2.2.01.01) adalah sebesar : 1.900
Rumus apa yg harus di gunakan jika acuan nya adalah kolom "Kode
Rekening" dengan mengambil 11 karakter dari kanan kode rekening
tersebut(misal : 11 karakter dari kanan yaitu 5.2.2.01.01) ??
saya udah mencoba rumus dibawah ini , tp kliatan nya kurang tepat.
=SUMIF($B$5:
bagaimana penyelesaian nya??
trimakasih..
file excel saya sertakan :
Wed Oct 10, 2012 9:53 pm (PDT) . Posted by:
"yahoo@udinabsolute.com" omnivora
kalau pakai format cell
Formar cell >> tab number >> custom >> type tulis di type mmmm
________________________________
Dari: onno95 <onno95@gmail.com >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Rabu, 10 Oktober 2012 9:57
Judul: [belajar-excel] mengambil nama bulan dari rumus =today()
dear master,
mohon bantuan nya para master. sy msh bingung gmn cara mengambil nama bulan nya saja dari rumus =today().
contoh:
hasil dari rumus =today() adalah 10 oktober 2012. bgm caranya supaya saya hanya menampilkan oktober saja. sy dah coba dengan fungsi mid tp tdk bisa, krn format nya tgl, mid mau nya format text.
sekian dan terimakasih
Formar cell >> tab number >> custom >> type tulis di type mmmm
____________
Dari: onno95 <onno95@gmail.
Kepada: belajar-excel@
Dikirim: Rabu, 10 Oktober 2012 9:57
Judul: [belajar-excel] mengambil nama bulan dari rumus =today()
dear master,
mohon bantuan nya para master. sy msh bingung gmn cara mengambil nama bulan nya saja dari rumus =today().
contoh:
hasil dari rumus =today() adalah 10 oktober 2012. bgm caranya supaya saya hanya menampilkan oktober saja. sy dah coba dengan fungsi mid tp tdk bisa, krn format nya tgl, mid mau nya format text.
sekian dan terimakasih
Wed Oct 10, 2012 9:53 pm (PDT) . Posted by:
"indria pie" mas_pie3
master excel yg baik,
saya mau tanya tentang penjumlahan, ada angka yang beda jika dijumlah secara manual (kalkulator) dan dengan memakai fungsi sum.
saya lampirkan file contohnya...
terima kasih untuk jawabn dan penjelasannya
salam,
Snupy
saya mau tanya tentang penjumlahan, ada angka yang beda jika dijumlah secara manual (kalkulator) dan dengan memakai fungsi sum.
saya lampirkan file contohnya...
terima kasih untuk jawabn dan penjelasannya
salam,
Snupy
Wed Oct 10, 2012 9:53 pm (PDT) . Posted by:
"Azwar Rhosyied" azwar_rhosyied
Dear Master Excel,
Bagaimana caranya update otomatis supaya cell yang di arsir berubah warna mengikuti hari yang ditentukan.
Misal, MEETING terjadi pada hari MONDAY-TUESDAY, kalau hari ini MONDAY maka cell tersebut akan berisi warna merah dan cell yang lain bewarna putih.
Mohon solusinya dari master2 semuanya.
[terlampir file contohnya]
Terima kasih.
Bagaimana caranya update otomatis supaya cell yang di arsir berubah warna mengikuti hari yang ditentukan.
Misal, MEETING terjadi pada hari MONDAY-TUESDAY, kalau hari ini MONDAY maka cell tersebut akan berisi warna merah dan cell yang lain bewarna putih.
Mohon solusinya dari master2 semuanya.
[terlampir file contohnya]
Terima kasih.
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
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar