Re: [belajar-excel] JAM BERDETAK DENGAN HITUNGAN JARAK

classic Classic list List threaded Threaded
5 messages Options
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] JAM BERDETAK DENGAN HITUNGAN JARAK

Agus-2
Coba gunakan perintah:
Option Explicit
Sub etung()
Dim hour As Boolean
Dim jam As Date
jam = Range("B1")
hour = Not (hour)
Do While hour = True
DoEvents
jam = jam + 1 / 24 / 60 / 60
Range("F1") = jam
Range("F3") = TimeValue(Now)
Range("F5") = (Range("F1") - Range("b1")) * Range("b5") * 60 * 60 * 24
Loop
End Sub

regard
Agus
On 10/13/2018 06:58, Hendry Mahmud [hidden email]
[belajar-excel] wrote:

>
> Dear Temen-Temen,
>
> Mohon Bantuannya Untuk Membuat VBA / Macro “JAM BERDETAK DENGAN
> HITUNGAN JARAK” , Berikut Saya Lampirkan Filenya.
>
> Terima Kasih Atas Supportnya.
>
> Regards,
>
>
> HENDRY MAHMUD
> Mobile : +62 813 4373 8898
>
> Sent from Mail for Windows 10
>
>


Reply | Threaded
Open this post in threaded view
|

re : [belajar-excel] JAM BERDETAK DENGAN HITUNGAN JARAK [2 Attachments]

Hendry Mahmud
Terima Kasih mas Agus,

Lalu Bagaimana Kalau Mau Ditambahkan Untuk Tombol “MULAI” , Tombol “BERHENTI” dan Tombol “RESET”.

Terima Kasih atas supportnya.



Regards,


HENDRY MAHMUD
Mobile : +62 813 4373 8898

Website : www.ikramgroup.id

e-mail :
[hidden email]
[hidden email]

Sent from Mail for Windows 10

Dari: Agus [hidden email] [belajar-excel]
Dikirim: Sabtu, 13 Oktober 2018 13.48
Kepada: [hidden email]
Subjek: Re: [belajar-excel] JAM BERDETAK DENGAN HITUNGAN JARAK

 
Coba gunakan perintah:
Option Explicit
Sub etung()
Dim hour As Boolean
Dim jam As Date
jam = Range("B1")
hour = Not (hour)
Do While hour = True
DoEvents
jam = jam + 1 / 24 / 60 / 60
Range("F1") = jam
Range("F3") = TimeValue(Now)
Range("F5") = (Range("F1") - Range("b1")) * Range("b5") * 60 * 60 * 24
Loop
End Sub

regard
Agus
On 10/13/2018 06:58, Hendry Mahmud [hidden email] [belajar-excel] wrote:
 
Dear Temen-Temen,
 
Mohon Bantuannya Untuk Membuat VBA / Macro “JAM BERDETAK DENGAN HITUNGAN JARAK” , Berikut Saya Lampirkan Filenya.
 
Terima Kasih Atas Supportnya.
 

 
 
 
Regards,


HENDRY MAHMUD
Mobile : +62 813 4373 8898


Sent from Mail for Windows 10
 




52BB728A8E944BCFB9C52F5225E73D49[2991835].png (27K) Download Attachment
85946F54AE9F45E79BF52CD0CC8D6A9B.png (216 bytes) Download Attachment
Reply | Threaded
Open this post in threaded view
|

RE : [belajar-excel] JAM BERDETAK DENGAN HITUNGAN JARAK [5 Attachments]

Hendry Mahmud
In reply to this post by Agus-2
Terima Kasih mas Agus,

Lalu Bagaimana Kalau Mau Ditambahkan Untuk Tombol “MULAI” , Tombol “BERHENTI” dan Tombol “RESET”.

Terima Kasih atas supportnya.

CONTOH TERLAMPIR :












Regards,


HENDRY MAHMUD
Mobile : +62 813 4373 8898

Website : www.ikramgroup.id

e-mail :
[hidden email]
[hidden email]

Sent from Mail for Windows 10

Dari: Agus [hidden email] [belajar-excel]
Dikirim: Sabtu, 13 Oktober 2018 13.48
Kepada: [hidden email]
Subjek: Re: [belajar-excel] JAM BERDETAK DENGAN HITUNGAN JARAK

 
Coba gunakan perintah:
Option Explicit
Sub etung()
Dim hour As Boolean
Dim jam As Date
jam = Range("B1")
hour = Not (hour)
Do While hour = True
DoEvents
jam = jam + 1 / 24 / 60 / 60
Range("F1") = jam
Range("F3") = TimeValue(Now)
Range("F5") = (Range("F1") - Range("b1")) * Range("b5") * 60 * 60 * 24
Loop
End Sub

regard
Agus
On 10/13/2018 06:58, Hendry Mahmud [hidden email] [belajar-excel] wrote:
 
Dear Temen-Temen,
 
Mohon Bantuannya Untuk Membuat VBA / Macro “JAM BERDETAK DENGAN HITUNGAN JARAK” , Berikut Saya Lampirkan Filenya.
 
Terima Kasih Atas Supportnya.
 

 
 
 
Regards,


HENDRY MAHMUD
Mobile : +62 813 4373 8898


Sent from Mail for Windows 10
 




52BB728A8E944BCFB9C52F5225E73D49[2996066].png (27K) Download Attachment
JAM BERDETAK DENGAN HITUNGAN JARAK.jpg (350K) Download Attachment
JAM BERDETAK DENGAN HITUNGAN JARAK.xlsm (25K) Download Attachment
53B12D352E8C4538BBE2E4915F99F323.jpg (58K) Download Attachment
DFA492B17D9547A0B9965ACC311B46C6.png (216 bytes) Download Attachment
Reply | Threaded
Open this post in threaded view
|

Re: RE : [belajar-excel] JAM BERDETAK DENGAN HITUNGAN JARAK [1 Attachment]

Agus-2
In reply to this post by Agus-2
Silahkan dicoba pada lampiran

Regard
Nang Agus
On 10/14/2018 06:16, Hendry Mahmud [hidden email]
[belajar-excel] wrote:

>
> Terima Kasih mas Agus,
>
> Lalu Bagaimana Kalau Mau Ditambahkan Untuk Tombol “MULAI” , Tombol
> “BERHENTI” dan Tombol “RESET”.
>
> Terima Kasih atas supportnya.
>
> CONTOH TERLAMPIR :
>
>
> Regards,
>
>
> HENDRY MAHMUD
> Mobile : +62 813 4373 8898
>
> Website : www.ikramgroup.id
>
> e-mail :
> [hidden email]
> *[hidden email]
> *
>
>
> ------------------------------------------------------------------------
> ============================================================
> Pojok Lowongan Kerja yang disediakan milis :
> http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
> *** Posting lowongan kerja : ke link tersebut dan klik New Topic
> ============================================================
> bergabung ke milis (subscribe), kirim mail kosong ke:
> [hidden email]
> posting ke milis, kirimkan ke: [hidden email]
> 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@.../
> atau (sejak 25-Apr-2011) bisa juga di :
> http://milis-belajar-excel.1048464.n5.nabble.com/
> menghubungi moderators & owners: [hidden email]
> keluar dari membership milis (UnSubscribe), kirim mail kosong ke :
> [hidden email]
> ---------------------------------------------------------------------
> Visit Your Group
> <https://groups.yahoo.com/neo/groups/belajar-excel/info;_ylc=X3oDMTJmdjliZjQ2BF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDdnRsBHNsawN2Z2hwBHN0aW1lAzE1Mzk0OTA2OTM->
>
>
> Yahoo! Groups
> <https://groups.yahoo.com/neo;_ylc=X3oDMTJlNm9yNW1jBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTUzOTQ5MDY5Mw-->
>
> • Privacy
> <https://info.yahoo.com/privacy/us/yahoo/groups/details.html> •
> Unsubscribe
> <mailto:[hidden email]?subject=Unsubscribe>
> • Terms of Use <https://info.yahoo.com/legal/us/yahoo/utos/terms/>
>
> SPONSORED LINKS
> .
>
>



C0ba JAM BERDETAK DENGAN HITUNGAN JARAK.xlsm (26K) Download Attachment
Reply | Threaded
Open this post in threaded view
|

Re: RE : [belajar-excel] JAM BERDETAK DENGAN HITUNGAN JARAK [1 Attachment]

Agus-2
Dear Hendri Mahmud
Mohon maaf ada kesalahan sedikit cekrip pada file terdahulu,
waktunya melompat-lompat
file terakhir dapat diresume dengan cell bantu di F2
regard
NangAgus
On 10/14/2018 16:09, Agus [hidden email] [belajar-excel] wrote:

>
> Silahkan dicoba pada lampiran
>
> Regard
> Nang Agus
> On 10/14/2018 06:16, Hendry Mahmud [hidden email]
> [belajar-excel] wrote:
>>
>> Terima Kasih mas Agus,
>>
>> Lalu Bagaimana Kalau Mau Ditambahkan Untuk Tombol “MULAI” , Tombol
>> “BERHENTI” dan Tombol “RESET”.
>>
>> Terima Kasih atas supportnya.
>>
>> CONTOH TERLAMPIR :
>>
>>
>> Regards,
>>
>>
>> HENDRY MAHMUD
>> Mobile : +62 813 4373 8898
>>
>> Website : www.ikramgroup.id
>>
>> e-mail :
>> [hidden email]
>> *[hidden email]
>> *
>>
>>
>> ------------------------------------------------------------------------
>> .
>>
>
>



Kopi JAM BERDETAK DENGAN HITUNGAN JARAK.xlsm (26K) Download Attachment