11 New Messages
Digest #1924
Messages
Thu Nov 22, 2012 1:25 am (PST) . Posted by:
"Andre Rahmaidy Teeza" andre_teeza_bn
Sore Pak Kid
Menindaklanjuti request saya mengenai macro exel, kalau seandainya jumlah fielnya lebih dari 3 (tiga) yang akan dijadikan file output dalam bentuk txt, sudah saya coba coding macro pada file yang telah dikirim sebelumnya tapi hasilnya gagal. mohon bantuannya pak file terlampir dijadikan outputnya txt. terima kasih sebelumnya
Regards
Andree
Menindaklanjuti request saya mengenai macro exel, kalau seandainya jumlah fielnya lebih dari 3 (tiga) yang akan dijadikan file output dalam bentuk txt, sudah saya coba coding macro pada file yang telah dikirim sebelumnya tapi hasilnya gagal. mohon bantuannya pak file terlampir dijadikan outputnya txt. terima kasih sebelumnya
Regards
Andree
Thu Nov 22, 2012 1:31 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Pak Andre,
Milisnya bernama Belajar-Excel.
Berhubung arenanya adalah arena belajar, coba sesuaikan baris :
sFormula = "
=TEXT(B1,""000000000"")&TEXT(C1,""000000000"")&TEXT(D1,""000000000"")"
'simpan teks formula
agar merujuk ke range yang diinginkan, dan perhatikan pola dari 3 cell
inputan.
Jika ingin buaaaaanyaaaaaakkkkk sekali cell inputan, maka lanjutkan pola
formula tersebut sesuai kebutuhan.
Wassalam,
Kid.
2012/11/22 Andre Rahmaidy Teeza <andre_teeza_bn@yahoo.com >
> **
>
>
> Sore Pak Kid
>
> Menindaklanjuti request saya mengenai macro exel, kalau seandainya jumlah
> fielnya lebih dari 3 (tiga) yang akan dijadikan file output dalam bentuk
> txt, sudah saya coba coding macro pada file yang telah dikirim sebelumnya
> tapi hasilnya gagal. mohon bantuannya pak file terlampir dijadikan
> outputnya txt. terima kasih sebelumnya
>
> Regards
>
> Andree
> _
>
>
Milisnya bernama Belajar-Excel.
Berhubung arenanya adalah arena belajar, coba sesuaikan baris :
sFormula = "
=TEXT(B1,""00000000
'simpan teks formula
agar merujuk ke range yang diinginkan, dan perhatikan pola dari 3 cell
inputan.
Jika ingin buaaaaanyaaaaaakkkk
formula tersebut sesuai kebutuhan.
Wassalam,
Kid.
2012/11/22 Andre Rahmaidy Teeza <andre_teeza_
> **
>
>
> Sore Pak Kid
>
> Menindaklanjuti request saya mengenai macro exel, kalau seandainya jumlah
> fielnya lebih dari 3 (tiga) yang akan dijadikan file output dalam bentuk
> txt, sudah saya coba coding macro pada file yang telah dikirim sebelumnya
> tapi hasilnya gagal. mohon bantuannya pak file terlampir dijadikan
> outputnya txt. terima kasih sebelumnya
>
> Regards
>
> Andree
> _
>
>
Thu Nov 22, 2012 2:42 am (PST) . Posted by:
"ngademin Thohari" ngademinth
mr. kid
waktu dibuka file
ada error message '1004'
method 'on timer of object_application failed'
terima kasih
amin
________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Kamis, 22 November 2012 15:58
Judul: Re: [belajar-excel] verify data setiap 2 jam sekali
File terlampir memiliki siklus 2 jam on dan 2 jam berikutnya off dimulai pukul 01:00
Set On/Off diatur dengan Application.OnTime dalam prosedur SetTimer
Application.onTime dinon aktifkan ketika workbook ditutup.
Wassalam,
Kid.
2012/11/22 ngademin Thohari <ngademinth@yahoo.co.id >
>
>terimakasih atas supportnya
>Pak Kid,
>
>
>jadi cell verify ini akan muncul jika/ muncul tombol verifikasi dalam rentang waktu 2 sekali, untuk sekarang kondisinya saya masih locked, bila dalam rentang 2 jam cell verify akan unlocked dan data akan diisi.
>
>
>
>
>terima kasih
>
>
>amin
>
>
>
>________________________________
> Dari: Mr. Kid <mr.nmkid@gmail.com >
>Kepada: belajar-excel@yahoogroups.com
>Dikirim: Kamis, 22 November 2012 13:38
>Judul: Re: [belajar-excel] verify data setiap 2 jam sekali
>
>
>
>
>Pak Amin,
>
>Maaf kalau rada ndak paham dengan maksud verify akan aktif setelah blabla...
>Cell i2 (verify) akan aktif setiap 2 jam, yaitu 7:00 sampai 9:00, kemudian 9:00 sampai 11:00 jadi sebanyak 12 kali dalam 24 jam.
>Bukankah artinya verify aktif terus ?
>
>Atau mungkin maksudnya :
>"Selama cell verify belum diisi, maka ndak boleh simpan masuk ke tabel data"
>
>Jika hal ini yang dimaksud :
>1. cell i2 diset protection cell locked nya adalah FALSE (hilangkan centang dari opsi Locked) -> lihat di format cell -> protection -> locked
>2. tambahkan kriteria pada event click tombol Save dibagian pengkondisian terhadap cell J2 (kolom Value) dengan kriteria berdasar keberadaan isi di cell i2, sehingga kedua kondisi (berdasar nilai j2 dan keberadaan isi di i2) harus terenuhi :
>if range("j2").value<>0 and lenb(range("i2").value)<>0 then
>
>Wassalam,
>Kid.
>
>
>2012/11/18 ngademin Thohari <ngademinth@yahoo.co.id >
>
>
>>
>>Be-exceller
>>
>>
>>Melanjutkan yang telah di advice dan di ajarkan oleh mr. kid,
>>data yang diinginkan
>>fungsi kolom verify akan aktif setelah 2 jam sekali, kalau 24 jam akan aktif selama 12 kali, yang aktif adalah kolom I (verify by), bila belum diinput semua data yang di kolom I, maka data yang lain tidak bisa diinput, apakah ini memakai fungsi timer ?
>>berikut lampirannya.
>>
>>
>>terima kasih
>>
>>
>>amin
>>_
>>
>
>
>
waktu dibuka file
ada error message '1004'
method 'on timer of object_application failed'
terima kasih
amin
____________
Dari: Mr. Kid <mr.nmkid@gmail.
Kepada: belajar-excel@
Dikirim: Kamis, 22 November 2012 15:58
Judul: Re: [belajar-excel] verify data setiap 2 jam sekali
File terlampir memiliki siklus 2 jam on dan 2 jam berikutnya off dimulai pukul 01:00
Set On/Off diatur dengan Application.
Application.
Wassalam,
Kid.
2012/11/22 ngademin Thohari <ngademinth@yahoo.
>
>terimakasih atas supportnya
>Pak Kid,
>
>
>jadi cell verify ini akan muncul jika/ muncul tombol verifikasi dalam rentang waktu 2 sekali, untuk sekarang kondisinya saya masih locked, bila dalam rentang 2 jam cell verify akan unlocked dan data akan diisi.
>
>
>
>
>terima kasih
>
>
>amin
>
>
>
>___________
> Dari: Mr. Kid <mr.nmkid@gmail.
>Kepada: belajar-excel@
>Dikirim: Kamis, 22 November 2012 13:38
>Judul: Re: [belajar-excel] verify data setiap 2 jam sekali
>
>
>
>
>Pak Amin,
>
>Maaf kalau rada ndak paham dengan maksud verify akan aktif setelah blabla...
>Cell i2 (verify) akan aktif setiap 2 jam, yaitu 7:00 sampai 9:00, kemudian 9:00 sampai 11:00 jadi sebanyak 12 kali dalam 24 jam.
>Bukankah artinya verify aktif terus ?
>
>Atau mungkin maksudnya :
>"Selama cell verify belum diisi, maka ndak boleh simpan masuk ke tabel data"
>
>Jika hal ini yang dimaksud :
>1. cell i2 diset protection cell locked nya adalah FALSE (hilangkan centang dari opsi Locked) -> lihat di format cell -> protection -> locked
>2. tambahkan kriteria pada event click tombol Save dibagian pengkondisian terhadap cell J2 (kolom Value) dengan kriteria berdasar keberadaan isi di cell i2, sehingga kedua kondisi (berdasar nilai j2 dan keberadaan isi di i2) harus terenuhi :
>if range("j2").
>
>Wassalam,
>Kid.
>
>
>2012/11/18 ngademin Thohari <ngademinth@yahoo.
>
>
>>
>>Be-exceller
>>
>>
>>Melanjutkan yang telah di advice dan di ajarkan oleh mr. kid,
>>data yang diinginkan
>>fungsi kolom verify akan aktif setelah 2 jam sekali, kalau 24 jam akan aktif selama 12 kali, yang aktif adalah kolom I (verify by), bila belum diinput semua data yang di kolom I, maka data yang lain tidak bisa diinput, apakah ini memakai fungsi timer ?
>>berikut lampirannya.
>>
>>
>>terima kasih
>>
>>
>>amin
>>_
>>
>
>
>
Thu Nov 22, 2012 2:45 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba tutup dulu semua excel.
File tersebut (attachment yang lalu) dibuka ulang disini dapat berjalab
dengan baik.
Wassalam,
Kid.
2012/11/22 ngademin Thohari <ngademinth@yahoo.co.id >
> **
>
>
> mr. kid
> waktu dibuka file
>
> ada error message '1004'
> method 'on timer of object_application failed'
>
> terima kasih
>
>
> amin
>
> ------------------------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Kamis, 22 November 2012 15:58
>
> *Judul:* Re: [belajar-excel] verify data setiap 2 jam sekali
>
>
> File terlampir memiliki siklus 2 jam on dan 2 jam berikutnya off dimulai
> pukul 01:00
> Set On/Off diatur dengan Application.OnTime dalam prosedur SetTimer
> Application.onTime dinon aktifkan ketika workbook ditutup.
>
> Wassalam,
> Kid.
>
> 2012/11/22 ngademin Thohari <ngademinth@yahoo.co.id >
>
> **
>
> terimakasih atas supportnya
> Pak Kid,
>
> jadi cell verify ini akan muncul jika/ muncul tombol verifikasi dalam
> rentang waktu 2 sekali, untuk sekarang kondisinya saya masih locked, bila
> dalam rentang 2 jam cell verify akan unlocked dan data akan diisi.
>
>
> terima kasih
>
> amin
>
> ------------------------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Kamis, 22 November 2012 13:38
> *Judul:* Re: [belajar-excel] verify data setiap 2 jam sekali
>
>
> Pak Amin,
>
> Maaf kalau rada ndak paham dengan maksud verify akan aktif setelah
> blabla...
> Cell i2 (verify) akan aktif setiap 2 jam, yaitu 7:00 sampai 9:00, kemudian
> 9:00 sampai 11:00 jadi sebanyak 12 kali dalam 24 jam.
> Bukankah artinya verify aktif terus ?
>
> Atau mungkin maksudnya :
> "Selama cell verify belum diisi, maka ndak boleh simpan masuk ke tabel
> data"
>
> Jika hal ini yang dimaksud :
> 1. cell i2 diset protection cell locked nya adalah FALSE (hilangkan
> centang dari opsi Locked) -> lihat di format cell -> protection -> locked
> 2. tambahkan kriteria pada event click tombol Save dibagian pengkondisian
> terhadap cell J2 (kolom Value) dengan kriteria berdasar keberadaan isi di
> cell i2, sehingga kedua kondisi (berdasar nilai j2 dan keberadaan isi di
> i2) harus terenuhi :
> if range("j2").value<>0 and lenb(range("i2").value)<>0 then
>
> Wassalam,
> Kid.
>
> 2012/11/18 ngademin Thohari <ngademinth@yahoo.co.id >
>
> **
>
> Be-exceller
>
> Melanjutkan yang telah di advice dan di ajarkan oleh mr. kid,
> data yang diinginkan
> fungsi kolom verify akan aktif setelah 2 jam sekali, kalau 24 jam akan
> aktif selama 12 kali, yang aktif adalah kolom I (verify by), bila belum
> diinput semua data yang di kolom I, maka data yang lain tidak bisa diinput,
> apakah ini memakai fungsi timer ?
> berikut lampirannya.
>
> terima kasih
>
> amin
> _
>
>
>
>
>
>
>
>
>
File tersebut (attachment yang lalu) dibuka ulang disini dapat berjalab
dengan baik.
Wassalam,
Kid.
2012/11/22 ngademin Thohari <ngademinth@yahoo.
> **
>
>
> mr. kid
> waktu dibuka file
>
> ada error message '1004'
> method 'on timer of object_application failed'
>
> terima kasih
>
>
> amin
>
> ------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.
> *Kepada:* belajar-excel@
> *Dikirim:* Kamis, 22 November 2012 15:58
>
> *Judul:* Re: [belajar-excel] verify data setiap 2 jam sekali
>
>
> File terlampir memiliki siklus 2 jam on dan 2 jam berikutnya off dimulai
> pukul 01:00
> Set On/Off diatur dengan Application.
> Application.
>
> Wassalam,
> Kid.
>
> 2012/11/22 ngademin Thohari <ngademinth@yahoo.
>
> **
>
> terimakasih atas supportnya
> Pak Kid,
>
> jadi cell verify ini akan muncul jika/ muncul tombol verifikasi dalam
> rentang waktu 2 sekali, untuk sekarang kondisinya saya masih locked, bila
> dalam rentang 2 jam cell verify akan unlocked dan data akan diisi.
>
>
> terima kasih
>
> amin
>
> ------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.
> *Kepada:* belajar-excel@
> *Dikirim:* Kamis, 22 November 2012 13:38
> *Judul:* Re: [belajar-excel] verify data setiap 2 jam sekali
>
>
> Pak Amin,
>
> Maaf kalau rada ndak paham dengan maksud verify akan aktif setelah
> blabla...
> Cell i2 (verify) akan aktif setiap 2 jam, yaitu 7:00 sampai 9:00, kemudian
> 9:00 sampai 11:00 jadi sebanyak 12 kali dalam 24 jam.
> Bukankah artinya verify aktif terus ?
>
> Atau mungkin maksudnya :
> "Selama cell verify belum diisi, maka ndak boleh simpan masuk ke tabel
> data"
>
> Jika hal ini yang dimaksud :
> 1. cell i2 diset protection cell locked nya adalah FALSE (hilangkan
> centang dari opsi Locked) -> lihat di format cell -> protection -> locked
> 2. tambahkan kriteria pada event click tombol Save dibagian pengkondisian
> terhadap cell J2 (kolom Value) dengan kriteria berdasar keberadaan isi di
> cell i2, sehingga kedua kondisi (berdasar nilai j2 dan keberadaan isi di
> i2) harus terenuhi :
> if range("j2").
>
> Wassalam,
> Kid.
>
> 2012/11/18 ngademin Thohari <ngademinth@yahoo.
>
> **
>
> Be-exceller
>
> Melanjutkan yang telah di advice dan di ajarkan oleh mr. kid,
> data yang diinginkan
> fungsi kolom verify akan aktif setelah 2 jam sekali, kalau 24 jam akan
> aktif selama 12 kali, yang aktif adalah kolom I (verify by), bila belum
> diinput semua data yang di kolom I, maka data yang lain tidak bisa diinput,
> apakah ini memakai fungsi timer ?
> berikut lampirannya.
>
> terima kasih
>
> amin
> _
>
>
>
>
>
>
>
>
>
Thu Nov 22, 2012 6:04 am (PST) . Posted by:
"ngademin Thohari" ngademinth
mr. kid
saya coba restart, juga tetep sama
apa berbeda, saya memakai office 2010
Terima kasih
amin
saya coba restart, juga tetep sama
apa berbeda, saya memakai office 2010
Terima kasih
amin
Thu Nov 22, 2012 6:04 am (PST) . Posted by:
"ngademin Thohari" ngademinth
mr. kid
sudi kah kiranya menjelaskan di bawah ini, saya masih bingung plus awam
Option Explicit
Public Sub SetTimer()
Dim lState As Long
Dim dtNext As Date
dtNext = Now()
lState = (Hour(dtNext) + 3) Mod 4
Sheet1.Protect "Belajar-Excel", userinterfaceonly:=True
Sheet1.Range("i2").Locked = (lState <> 0)
dtNext = Int(Now) + TimeValue(Hour(dtNext) & ":00:00") + TimeValue(2 - lState Mod 2 & ":00:00")
Application.OnTime dtNext, "SetTimer"
End Sub
Public Sub StopTimer()
On Error Resume Next
Application.OnTime Now + TimeValue("00:00:01"), "SetTimer", schedule:=False
Err.Clear
On Error GoTo 0
End Sub
terima kasih
amin
sudi kah kiranya menjelaskan di bawah ini, saya masih bingung plus awam
Option Explicit
Public Sub SetTimer()
Dim lState As Long
Dim dtNext As Date
dtNext = Now()
lState = (Hour(dtNext) + 3) Mod 4
Sheet1.Protect "Belajar-Excel"
Sheet1.Range(
dtNext = Int(Now) + TimeValue(Hour(
Application.
End Sub
Public Sub StopTimer()
On Error Resume Next
Application.
Err.Clear
On Error GoTo 0
End Sub
terima kasih
amin
Thu Nov 22, 2012 6:19 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Application.OnTime tidak ada bedanya antara xl2007 dengan versi lainnya.
Script aktifkan pesan thread agar prosedur SetTimer dijalankan diwaktu
tertentu :
Public Sub SetTimer()
Dim lState As Long 'var status locked (0 = false alias bisa diubah
isi cellnya, selainnya tidak bisa)
Dim dtNext As Date 'data waktu akan dijalankannya lagi prosedur
settimer ini
dtNext = Now() 'nilai waktu awal
lState = (Hour(dtNext) + 3) Mod 4 'set status
Sheet1.Protect "Belajar-Excel", userinterfaceonly:=True 'proteksi
sheet
Sheet1.Range("i2").Locked = (lState <> 0) 'set properti locked milik
cell i2
'menentukan waktu untuk dijalankannya lagi prosedur settimer
dtNext = Int(Now) + TimeValue(Hour(dtNext) & ":00:00") + TimeValue(2 -
lState Mod 2 & ":00:00")
'proses pesan thread agar pada waktu dtNext, prosedur bernama SetTimer
dijalankan
Application.OnTime dtNext, "SetTimer"
End Sub
Script pembatalan pesanan thread proses di atas :
Public Sub StopTimer()
On Error Resume Next 'trap error
'batalkan pesanan thread
Application.OnTime Now + TimeValue("00:00:01"), "SetTimer",
schedule:=False
'clear error dan set trap error kembali seperti semula
Err.Clear
On Error GoTo 0
End Sub
Jika masih error, coba :
1. hapus dim dtNext as date dari dalam prosedur SetTimer
2. buat deklarasi pada level module dengan scope public untuk variabel
dtNext bertipe date (sebelum prosedur SetTimer = baris kedua dalam lembar
script)
public dtNext as date
3. pada prosedur stoptimer bagian :
Now + TimeValue("00:00:01")
diubah menjadi :
dtnext
Wassalam,
Kid.
On Thu, Nov 22, 2012 at 8:12 PM, ngademin Thohari <ngademinth@yahoo.co.id >wrote:
> **
>
>
> mr. kid
> sudi kah kiranya menjelaskan di bawah ini, saya masih bingung plus awam
>
> Option Explicit
>
> Public Sub SetTimer()
> Dim lState As Long
> Dim dtNext As Date
>
> dtNext = Now()
> lState = (Hour(dtNext) + 3) Mod 4
> Sheet1.Protect "Belajar-Excel", userinterfaceonly:=True
> Sheet1.Range("i2").Locked = (lState <> 0)
> dtNext = Int(Now) + TimeValue(Hour(dtNext) & ":00:00") + TimeValue(2 -
> lState Mod 2 & ":00:00")
> Application.OnTime dtNext, "SetTimer"
> End Sub
>
> Public Sub StopTimer()
> On Error Resume Next
> Application.OnTime Now + TimeValue("00:00:01"), "SetTimer",
> schedule:=False
> Err.Clear
> On Error GoTo 0
> End Sub
>
> terima kasih
>
> amin
>
>
>
Script aktifkan pesan thread agar prosedur SetTimer dijalankan diwaktu
tertentu :
Public Sub SetTimer()
Dim lState As Long 'var status locked (0 = false alias bisa diubah
isi cellnya, selainnya tidak bisa)
Dim dtNext As Date 'data waktu akan dijalankannya lagi prosedur
settimer ini
dtNext = Now() 'nilai waktu awal
lState = (Hour(dtNext) + 3) Mod 4 'set status
Sheet1.Protect "Belajar-Excel"
sheet
Sheet1.Range(
cell i2
'menentukan waktu untuk dijalankannya lagi prosedur settimer
dtNext = Int(Now) + TimeValue(Hour(
lState Mod 2 & ":00:00")
'proses pesan thread agar pada waktu dtNext, prosedur bernama SetTimer
dijalankan
Application.
End Sub
Script pembatalan pesanan thread proses di atas :
Public Sub StopTimer()
On Error Resume Next 'trap error
'batalkan pesanan thread
Application.
schedule:=False
'clear error dan set trap error kembali seperti semula
Err.Clear
On Error GoTo 0
End Sub
Jika masih error, coba :
1. hapus dim dtNext as date dari dalam prosedur SetTimer
2. buat deklarasi pada level module dengan scope public untuk variabel
dtNext bertipe date (sebelum prosedur SetTimer = baris kedua dalam lembar
script)
public dtNext as date
3. pada prosedur stoptimer bagian :
Now + TimeValue("00:
diubah menjadi :
dtnext
Wassalam,
Kid.
On Thu, Nov 22, 2012 at 8:12 PM, ngademin Thohari <ngademinth@yahoo.
> **
>
>
> mr. kid
> sudi kah kiranya menjelaskan di bawah ini, saya masih bingung plus awam
>
> Option Explicit
>
> Public Sub SetTimer()
> Dim lState As Long
> Dim dtNext As Date
>
> dtNext = Now()
> lState = (Hour(dtNext) + 3) Mod 4
> Sheet1.Protect "Belajar-Excel"
> Sheet1.Range(
> dtNext = Int(Now) + TimeValue(Hour(
> lState Mod 2 & ":00:00")
> Application.
> End Sub
>
> Public Sub StopTimer()
> On Error Resume Next
> Application.
> schedule:=False
> Err.Clear
> On Error GoTo 0
> End Sub
>
> terima kasih
>
> amin
>
>
>
Thu Nov 22, 2012 6:41 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba juga untuk mengubah nama prosedur SetTimer dengan nama lain seperti
SetMyTimer
Caranya :
1. aktifkan Module1
2. CTRL H
3. Find : SetTimer ; Replace : SetMyTimer ; opsi pilih
CurrentModule ; tekan Replace All
4. ganti bagian Find bertuliskan StopTimer ; replace menjadi StopMyTimer ;
opsi pilih current module ; tekan replace all
5. tekan Cancel
6. save workbook dan tutup workbook
7. buka lagi workbooknya
Wassalam,
Kid.
2012/11/22 Mr. Kid <mr.nmkid@gmail.com >
> Application.OnTime tidak ada bedanya antara xl2007 dengan versi lainnya.
>
> Script aktifkan pesan thread agar prosedur SetTimer dijalankan diwaktu
> tertentu :
> Public Sub SetTimer()
> Dim lState As Long 'var status locked (0 = false alias bisa diubah
> isi cellnya, selainnya tidak bisa)
> Dim dtNext As Date 'data waktu akan dijalankannya lagi prosedur
> settimer ini
>
> dtNext = Now() 'nilai waktu awal
> lState = (Hour(dtNext) + 3) Mod 4 'set status
> Sheet1.Protect "Belajar-Excel", userinterfaceonly:=True 'proteksi
> sheet
> Sheet1.Range("i2").Locked = (lState <> 0) 'set properti locked
> milik cell i2
>
> 'menentukan waktu untuk dijalankannya lagi prosedur settimer
>
> dtNext = Int(Now) + TimeValue(Hour(dtNext) & ":00:00") + TimeValue(2 -
> lState Mod 2 & ":00:00")
>
> 'proses pesan thread agar pada waktu dtNext, prosedur bernama SetTimer
> dijalankan
>
> Application.OnTime dtNext, "SetTimer"
> End Sub
>
>
> Script pembatalan pesanan thread proses di atas :
> Public Sub StopTimer()
> On Error Resume Next 'trap error
>
> 'batalkan pesanan thread
> Application.OnTime Now + TimeValue("00:00:01"), "SetTimer",
> schedule:=False
>
> 'clear error dan set trap error kembali seperti semula
>
> Err.Clear
> On Error GoTo 0
> End Sub
>
> Jika masih error, coba :
> 1. hapus dim dtNext as date dari dalam prosedur SetTimer
> 2. buat deklarasi pada level module dengan scope public untuk variabel
> dtNext bertipe date (sebelum prosedur SetTimer = baris kedua dalam lembar
> script)
> public dtNext as date
> 3. pada prosedur stoptimer bagian :
>
> Now + TimeValue("00:00:01")
> diubah menjadi :
> dtnext
>
> Wassalam,
> Kid.
>
>
>
> On Thu, Nov 22, 2012 at 8:12 PM, ngademin Thohari <ngademinth@yahoo.co.id >wrote:
>
>> **
>>
>>
>> mr. kid
>> sudi kah kiranya menjelaskan di bawah ini, saya masih bingung plus awam
>>
>> Option Explicit
>>
>> Public Sub SetTimer()
>> Dim lState As Long
>> Dim dtNext As Date
>>
>> dtNext = Now()
>> lState = (Hour(dtNext) + 3) Mod 4
>> Sheet1.Protect "Belajar-Excel", userinterfaceonly:=True
>> Sheet1.Range("i2").Locked = (lState <> 0)
>> dtNext = Int(Now) + TimeValue(Hour(dtNext) & ":00:00") + TimeValue(2
>> - lState Mod 2 & ":00:00")
>> Application.OnTime dtNext, "SetTimer"
>> End Sub
>>
>> Public Sub StopTimer()
>> On Error Resume Next
>> Application.OnTime Now + TimeValue("00:00:01"), "SetTimer",
>> schedule:=False
>> Err.Clear
>> On Error GoTo 0
>> End Sub
>>
>> terima kasih
>>
>> amin
>>
>>
>>
>
>
SetMyTimer
Caranya :
1. aktifkan Module1
2. CTRL H
3. Find : SetTimer ; Replace : SetMyTimer ; opsi pilih
CurrentModule ; tekan Replace All
4. ganti bagian Find bertuliskan StopTimer ; replace menjadi StopMyTimer ;
opsi pilih current module ; tekan replace all
5. tekan Cancel
6. save workbook dan tutup workbook
7. buka lagi workbooknya
Wassalam,
Kid.
2012/11/22 Mr. Kid <mr.nmkid@gmail.
> Application.
>
> Script aktifkan pesan thread agar prosedur SetTimer dijalankan diwaktu
> tertentu :
> Public Sub SetTimer()
> Dim lState As Long 'var status locked (0 = false alias bisa diubah
> isi cellnya, selainnya tidak bisa)
> Dim dtNext As Date 'data waktu akan dijalankannya lagi prosedur
> settimer ini
>
> dtNext = Now() 'nilai waktu awal
> lState = (Hour(dtNext) + 3) Mod 4 'set status
> Sheet1.Protect "Belajar-Excel"
> sheet
> Sheet1.Range(
> milik cell i2
>
> 'menentukan waktu untuk dijalankannya lagi prosedur settimer
>
> dtNext = Int(Now) + TimeValue(Hour(
> lState Mod 2 & ":00:00")
>
> 'proses pesan thread agar pada waktu dtNext, prosedur bernama SetTimer
> dijalankan
>
> Application.
> End Sub
>
>
> Script pembatalan pesanan thread proses di atas :
> Public Sub StopTimer()
> On Error Resume Next 'trap error
>
> 'batalkan pesanan thread
> Application.
> schedule:=False
>
> 'clear error dan set trap error kembali seperti semula
>
> Err.Clear
> On Error GoTo 0
> End Sub
>
> Jika masih error, coba :
> 1. hapus dim dtNext as date dari dalam prosedur SetTimer
> 2. buat deklarasi pada level module dengan scope public untuk variabel
> dtNext bertipe date (sebelum prosedur SetTimer = baris kedua dalam lembar
> script)
> public dtNext as date
> 3. pada prosedur stoptimer bagian :
>
> Now + TimeValue("00:
> diubah menjadi :
> dtnext
>
> Wassalam,
> Kid.
>
>
>
> On Thu, Nov 22, 2012 at 8:12 PM, ngademin Thohari <ngademinth@yahoo.
>
>> **
>>
>>
>> mr. kid
>> sudi kah kiranya menjelaskan di bawah ini, saya masih bingung plus awam
>>
>> Option Explicit
>>
>> Public Sub SetTimer()
>> Dim lState As Long
>> Dim dtNext As Date
>>
>> dtNext = Now()
>> lState = (Hour(dtNext) + 3) Mod 4
>> Sheet1.Protect "Belajar-Excel"
>> Sheet1.Range(
>> dtNext = Int(Now) + TimeValue(Hour(
>> - lState Mod 2 & ":00:00")
>> Application.
>> End Sub
>>
>> Public Sub StopTimer()
>> On Error Resume Next
>> Application.
>> schedule:=False
>> Err.Clear
>> On Error GoTo 0
>> End Sub
>>
>> terima kasih
>>
>> amin
>>
>>
>>
>
>
Thu Nov 22, 2012 6:43 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Ops opsinya bukan bukan Current Module, tetapi pilih Current Project atau
Current VBAProject gitu...
hehehe...
Wassalam,
Kid.
2012/11/22 Mr. Kid <mr.nmkid@gmail.com >
> Coba juga untuk mengubah nama prosedur SetTimer dengan nama lain seperti
> SetMyTimer
> Caranya :
> 1. aktifkan Module1
> 2. CTRL H
> 3. Find : SetTimer ; Replace : SetMyTimer ; opsi pilih
> CurrentModule ; tekan Replace All
> 4. ganti bagian Find bertuliskan StopTimer ; replace menjadi StopMyTimer ;
> opsi pilih current module ; tekan replace all
> 5. tekan Cancel
> 6. save workbook dan tutup workbook
> 7. buka lagi workbooknya
>
> Wassalam,
> Kid.
>
> 2012/11/22 Mr. Kid <mr.nmkid@gmail.com >
>
> Application.OnTime tidak ada bedanya antara xl2007 dengan versi lainnya.
>>
>> Script aktifkan pesan thread agar prosedur SetTimer dijalankan diwaktu
>> tertentu :
>> Public Sub SetTimer()
>> Dim lState As Long 'var status locked (0 = false alias bisa diubah
>> isi cellnya, selainnya tidak bisa)
>> Dim dtNext As Date 'data waktu akan dijalankannya lagi prosedur
>> settimer ini
>>
>> dtNext = Now() 'nilai waktu awal
>> lState = (Hour(dtNext) + 3) Mod 4 'set status
>> Sheet1.Protect "Belajar-Excel", userinterfaceonly:=True 'proteksi
>> sheet
>> Sheet1.Range("i2").Locked = (lState <> 0) 'set properti locked
>> milik cell i2
>>
>> 'menentukan waktu untuk dijalankannya lagi prosedur settimer
>>
>> dtNext = Int(Now) + TimeValue(Hour(dtNext) & ":00:00") + TimeValue(2
>> - lState Mod 2 & ":00:00")
>>
>> 'proses pesan thread agar pada waktu dtNext, prosedur bernama
>> SetTimer dijalankan
>>
>> Application.OnTime dtNext, "SetTimer"
>> End Sub
>>
>>
>> Script pembatalan pesanan thread proses di atas :
>> Public Sub StopTimer()
>> On Error Resume Next 'trap error
>>
>> 'batalkan pesanan thread
>> Application.OnTime Now + TimeValue("00:00:01"), "SetTimer",
>> schedule:=False
>>
>> 'clear error dan set trap error kembali seperti semula
>>
>> Err.Clear
>> On Error GoTo 0
>> End Sub
>>
>> Jika masih error, coba :
>> 1. hapus dim dtNext as date dari dalam prosedur SetTimer
>> 2. buat deklarasi pada level module dengan scope public untuk variabel
>> dtNext bertipe date (sebelum prosedur SetTimer = baris kedua dalam lembar
>> script)
>> public dtNext as date
>> 3. pada prosedur stoptimer bagian :
>>
>> Now + TimeValue("00:00:01")
>> diubah menjadi :
>> dtnext
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>> On Thu, Nov 22, 2012 at 8:12 PM, ngademin Thohari <ngademinth@yahoo.co.id
>> > wrote:
>>
>>> **
>>>
>>>
>>> mr. kid
>>> sudi kah kiranya menjelaskan di bawah ini, saya masih bingung plus awam
>>>
>>> Option Explicit
>>>
>>> Public Sub SetTimer()
>>> Dim lState As Long
>>> Dim dtNext As Date
>>>
>>> dtNext = Now()
>>> lState = (Hour(dtNext) + 3) Mod 4
>>> Sheet1.Protect "Belajar-Excel", userinterfaceonly:=True
>>> Sheet1.Range("i2").Locked = (lState <> 0)
>>> dtNext = Int(Now) + TimeValue(Hour(dtNext) & ":00:00") + TimeValue(2
>>> - lState Mod 2 & ":00:00")
>>> Application.OnTime dtNext, "SetTimer"
>>> End Sub
>>>
>>> Public Sub StopTimer()
>>> On Error Resume Next
>>> Application.OnTime Now + TimeValue("00:00:01"), "SetTimer",
>>> schedule:=False
>>> Err.Clear
>>> On Error GoTo 0
>>> End Sub
>>>
>>> terima kasih
>>>
>>> amin
>>>
>>>
>>>
>>
>>
>
Current VBAProject gitu...
hehehe...
Wassalam,
Kid.
2012/11/22 Mr. Kid <mr.nmkid@gmail.
> Coba juga untuk mengubah nama prosedur SetTimer dengan nama lain seperti
> SetMyTimer
> Caranya :
> 1. aktifkan Module1
> 2. CTRL H
> 3. Find : SetTimer ; Replace : SetMyTimer ; opsi pilih
> CurrentModule ; tekan Replace All
> 4. ganti bagian Find bertuliskan StopTimer ; replace menjadi StopMyTimer ;
> opsi pilih current module ; tekan replace all
> 5. tekan Cancel
> 6. save workbook dan tutup workbook
> 7. buka lagi workbooknya
>
> Wassalam,
> Kid.
>
> 2012/11/22 Mr. Kid <mr.nmkid@gmail.
>
> Application.
>>
>> Script aktifkan pesan thread agar prosedur SetTimer dijalankan diwaktu
>> tertentu :
>> Public Sub SetTimer()
>> Dim lState As Long 'var status locked (0 = false alias bisa diubah
>> isi cellnya, selainnya tidak bisa)
>> Dim dtNext As Date 'data waktu akan dijalankannya lagi prosedur
>> settimer ini
>>
>> dtNext = Now() 'nilai waktu awal
>> lState = (Hour(dtNext) + 3) Mod 4 'set status
>> Sheet1.Protect "Belajar-Excel"
>> sheet
>> Sheet1.Range(
>> milik cell i2
>>
>> 'menentukan waktu untuk dijalankannya lagi prosedur settimer
>>
>> dtNext = Int(Now) + TimeValue(Hour(
>> - lState Mod 2 & ":00:00")
>>
>> 'proses pesan thread agar pada waktu dtNext, prosedur bernama
>> SetTimer dijalankan
>>
>> Application.
>> End Sub
>>
>>
>> Script pembatalan pesanan thread proses di atas :
>> Public Sub StopTimer()
>> On Error Resume Next 'trap error
>>
>> 'batalkan pesanan thread
>> Application.
>> schedule:=False
>>
>> 'clear error dan set trap error kembali seperti semula
>>
>> Err.Clear
>> On Error GoTo 0
>> End Sub
>>
>> Jika masih error, coba :
>> 1. hapus dim dtNext as date dari dalam prosedur SetTimer
>> 2. buat deklarasi pada level module dengan scope public untuk variabel
>> dtNext bertipe date (sebelum prosedur SetTimer = baris kedua dalam lembar
>> script)
>> public dtNext as date
>> 3. pada prosedur stoptimer bagian :
>>
>> Now + TimeValue("00:
>> diubah menjadi :
>> dtnext
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>> On Thu, Nov 22, 2012 at 8:12 PM, ngademin Thohari <ngademinth@yahoo.
>> > wrote:
>>
>>> **
>>>
>>>
>>> mr. kid
>>> sudi kah kiranya menjelaskan di bawah ini, saya masih bingung plus awam
>>>
>>> Option Explicit
>>>
>>> Public Sub SetTimer()
>>> Dim lState As Long
>>> Dim dtNext As Date
>>>
>>> dtNext = Now()
>>> lState = (Hour(dtNext) + 3) Mod 4
>>> Sheet1.Protect "Belajar-Excel"
>>> Sheet1.Range(
>>> dtNext = Int(Now) + TimeValue(Hour(
>>> - lState Mod 2 & ":00:00")
>>> Application.
>>> End Sub
>>>
>>> Public Sub StopTimer()
>>> On Error Resume Next
>>> Application.
>>> schedule:=False
>>> Err.Clear
>>> On Error GoTo 0
>>> End Sub
>>>
>>> terima kasih
>>>
>>> amin
>>>
>>>
>>>
>>
>>
>
Thu Nov 22, 2012 6:01 am (PST) . Posted by:
"romi jayadiguna" rjayadiguna
slmat malam ....
mohon maaf dengan keteledoran sy yg tidak memenuhi atau mematuhi peraturan milis belajar excel....
ini pak saya kirimkan potongan file yang sekiranya dapatt lebih membantu penjelasan dr bapak..atas kasus yg saya temukan...
di kolom pengikut di file SPPD Tunggal, yang saya maksudkan kalo yang berangkat pengikut nya ada 3 orang ingin otomatis masuk ke daftar pengikut, tapi ingin jg fleksibel jikalau yg brangkat 1 atau 2 orang saja. otomatis terisi hanya 1 atau 2 orang saja...begitupun dengan file surat tugas...
sekali lagi saya ucapkan banyak terima kasih yang tak terhingga atas saran, penjelasan, bantuan serta berbagi ilmu dengan saya....
semoga tuhan yang maha kuasa membalas jasa serta amal bapak sekalian....
mohon maaf dengan keteledoran sy yg tidak memenuhi atau mematuhi peraturan milis belajar excel....
ini pak saya kirimkan potongan file yang sekiranya dapatt lebih membantu penjelasan dr bapak..atas kasus yg saya temukan...
di kolom pengikut di file SPPD Tunggal, yang saya maksudkan kalo yang berangkat pengikut nya ada 3 orang ingin otomatis masuk ke daftar pengikut, tapi ingin jg fleksibel jikalau yg brangkat 1 atau 2 orang saja. otomatis terisi hanya 1 atau 2 orang saja...begitupun dengan file surat tugas...
sekali lagi saya ucapkan banyak terima kasih yang tak terhingga atas saran, penjelasan, bantuan serta berbagi ilmu dengan saya....
semoga tuhan yang maha kuasa membalas jasa serta amal bapak sekalian....
Thu Nov 22, 2012 6:06 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Apakah yang dimaksud, formula di G27 sheet SPPD adalah :
=IFERROR(VLOOKUP(C27,PEGAWAI,3,FALSE),"")
[copy ke baris lainnya]
Wassalam,
Kid.
2012/11/22 romi jayadiguna <rjayadiguna@yahoo.co.id >
> **
>
>
> slmat malam ....
> mohon maaf dengan keteledoran sy yg tidak memenuhi atau mematuhi peraturan
> milis belajar excel....
>
> ini pak saya kirimkan potongan file yang sekiranya dapatt lebih membantu
> penjelasan dr bapak..atas kasus yg saya temukan...
>
> di kolom pengikut di file SPPD Tunggal, yang saya maksudkan kalo yang
> berangkat pengikut nya ada 3 orang ingin otomatis masuk ke daftar pengikut,
> tapi ingin jg fleksibel jikalau yg brangkat 1 atau 2 orang saja. otomatis
> terisi hanya 1 atau 2 orang saja...begitupun dengan file surat tugas...
>
> sekali lagi saya ucapkan banyak terima kasih yang tak terhingga atas
> saran, penjelasan, bantuan serta berbagi ilmu dengan saya....
>
> semoga tuhan yang maha kuasa membalas jasa serta amal bapak sekalian....
>
>
>
=IFERROR(VLOOKUP(
[copy ke baris lainnya]
Wassalam,
Kid.
2012/11/22 romi jayadiguna <rjayadiguna@
> **
>
>
> slmat malam ....
> mohon maaf dengan keteledoran sy yg tidak memenuhi atau mematuhi peraturan
> milis belajar excel....
>
> ini pak saya kirimkan potongan file yang sekiranya dapatt lebih membantu
> penjelasan dr bapak..atas kasus yg saya temukan...
>
> di kolom pengikut di file SPPD Tunggal, yang saya maksudkan kalo yang
> berangkat pengikut nya ada 3 orang ingin otomatis masuk ke daftar pengikut,
> tapi ingin jg fleksibel jikalau yg brangkat 1 atau 2 orang saja. otomatis
> terisi hanya 1 atau 2 orang saja...begitupun dengan file surat tugas...
>
> sekali lagi saya ucapkan banyak terima kasih yang tak terhingga atas
> saran, penjelasan, bantuan serta berbagi ilmu dengan saya....
>
> semoga tuhan yang maha kuasa membalas jasa serta amal bapak sekalian....
>
>
>
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