Senin, 26 Oktober 2015

[belajar-excel] Digest Number 3613

15 Messages

Digest #3613
1a
Re: Menangkap/mengalihkan error by "hendrik karnadi" hendrikkarnadi
1c
Re: Menangkap/mengalihkan error by "Hendrik Karnadi" hendrikkarnadi
2a
membuat jam digital by "Samsudin"
2c
Re: membuat jam digital [1 Attachment] by "Heri Pamungkas ( Gmail )" dchoosen88
2f
3b
Re: Macro untuk mengambil IP Address Komputer by "Hendrik Karnadi" hendrikkarnadi
3d
Re: Macro untuk mengambil IP Address Komputer by "Hendrik Karnadi" hendrikkarnadi
3e
Re: Macro untuk mengambil IP Address Komputer by "Mr. Kid" nmkid.family@ymail.com

Messages

Mon Oct 26, 2015 2:49 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Terima kasih Pak Suyono atas masukannya.
Maaf saya lupa melampirkan filenya(file .rar nya harus diextract dulu ke suatu folder, mis:D:\).
Pertanyaan saya khusus untuk Macro pada file Macro_Query From Stock_PL,Jika quantity pada file Stok_PL Sheet Stok Item G, yang tidak ada Saldo Awal maupun transaksinya.  saya isi dengan angka (mis. angka 1) maka macronya bisa dijalankan.Jika dibiarkan NULL maka macronya akan Error.
Sebagai pembanding saya lampirkan juga file yang bernama WKS_Query From Stock_PL yaitu fie yang langsung dilink ke Worksheet melalui Get External Data.
Mudah2an penjelasan di atas dapat menjelaskan pertanyaan yang saya tanyakan sebelumnya.
Terima kasih.
Salam,HK

From: "SUYONO reza.suyono@lge.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Monday, 26 October 2015, 14:34
Subject: RE: [belajar-excel] Menangkap/mengalihkan error

  Coba seperti ini Pak HK, semoga sesuai keinginan.   Public Function get_Average(Stock_awal As Double, nilai_beli AsDouble, stok_awal As Double, qty_pembelian As Double) As Double On Error GoTo Err get_Average = (Stock_awal + nilai_beli) / stok_awal +qty_pembelian Exit Function Err: get_Average = 0 End Function     From:belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Monday, October 26, 2015 2:16 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Menangkap/mengalihkan error     Dear Be-Excelers, Saya sedang mencoba membuat perhitungan harga pokok denganmacro SQL).   FORMULA ntuk menghitung harga pokok dengan sistim averageadalah sbb ÷  (Nilai Stok Awal + nilai pembelian)/qty stok awal + qtypembelian). Permasalahan timbul ketika hasil penjumlahan pembilang danpenyebut sama2 0(nol)..hasilnya Error.   Pertanyaan saya: Bagaimana penulisannya di macro agar apabila hasilnya Error,Error tsb diganti dengan 0 (nol) sehingga hppnya = 0 (nol).   Terima kasih.   Salam, HK       Sent fromSamsung Mobile #yiv6345406161 #yiv6345406161 -- #yiv6345406161ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv6345406161 #yiv6345406161ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv6345406161 #yiv6345406161ygrp-mkp #yiv6345406161hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv6345406161 #yiv6345406161ygrp-mkp #yiv6345406161ads {margin-bottom:10px;}#yiv6345406161 #yiv6345406161ygrp-mkp .yiv6345406161ad {padding:0 0;}#yiv6345406161 #yiv6345406161ygrp-mkp .yiv6345406161ad p {margin:0;}#yiv6345406161 #yiv6345406161ygrp-mkp .yiv6345406161ad a {color:#0000ff;text-decoration:none;}#yiv6345406161 #yiv6345406161ygrp-sponsor #yiv6345406161ygrp-lc {font-family:Arial;}#yiv6345406161 #yiv6345406161ygrp-sponsor #yiv6345406161ygrp-lc #yiv6345406161hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv6345406161 #yiv6345406161ygrp-sponsor #yiv6345406161ygrp-lc .yiv6345406161ad {margin-bottom:10px;padding:0 0;}#yiv6345406161 #yiv6345406161actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv6345406161 #yiv6345406161activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv6345406161 #yiv6345406161activity span {font-weight:700;}#yiv6345406161 #yiv6345406161activity span:first-child {text-transform:uppercase;}#yiv6345406161 #yiv6345406161activity span a {color:#5085b6;text-decoration:none;}#yiv6345406161 #yiv6345406161activity span span {color:#ff7900;}#yiv6345406161 #yiv6345406161activity span .yiv6345406161underline {text-decoration:underline;}#yiv6345406161 .yiv6345406161attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv6345406161 .yiv6345406161attach div a {text-decoration:none;}#yiv6345406161 .yiv6345406161attach img {border:none;padding-right:5px;}#yiv6345406161 .yiv6345406161attach label {display:block;margin-bottom:5px;}#yiv6345406161 .yiv6345406161attach label a {text-decoration:none;}#yiv6345406161 blockquote {margin:0 0 0 4px;}#yiv6345406161 .yiv6345406161bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv6345406161 .yiv6345406161bold a {text-decoration:none;}#yiv6345406161 dd.yiv6345406161last p a {font-family:Verdana;font-weight:700;}#yiv6345406161 dd.yiv6345406161last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv6345406161 dd.yiv6345406161last p span.yiv6345406161yshortcuts {margin-right:0;}#yiv6345406161 div.yiv6345406161attach-table div div a {text-decoration:none;}#yiv6345406161 div.yiv6345406161attach-table {width:400px;}#yiv6345406161 div.yiv6345406161file-title a, #yiv6345406161 div.yiv6345406161file-title a:active, #yiv6345406161 div.yiv6345406161file-title a:hover, #yiv6345406161 div.yiv6345406161file-title a:visited {text-decoration:none;}#yiv6345406161 div.yiv6345406161photo-title a, #yiv6345406161 div.yiv6345406161photo-title a:active, #yiv6345406161 div.yiv6345406161photo-title a:hover, #yiv6345406161 div.yiv6345406161photo-title a:visited {text-decoration:none;}#yiv6345406161 div#yiv6345406161ygrp-mlmsg #yiv6345406161ygrp-msg p a span.yiv6345406161yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv6345406161 .yiv6345406161green {color:#628c2a;}#yiv6345406161 .yiv6345406161MsoNormal {margin:0 0 0 0;}#yiv6345406161 o {font-size:0;}#yiv6345406161 #yiv6345406161photos div {float:left;width:72px;}#yiv6345406161 #yiv6345406161photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv6345406161 #yiv6345406161photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv6345406161 #yiv6345406161reco-category {font-size:77%;}#yiv6345406161 #yiv6345406161reco-desc {font-size:77%;}#yiv6345406161 .yiv6345406161replbq {margin:4px;}#yiv6345406161 #yiv6345406161ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv6345406161 #yiv6345406161ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv6345406161 #yiv6345406161ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv6345406161 #yiv6345406161ygrp-mlmsg select, #yiv6345406161 input, #yiv6345406161 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv6345406161 #yiv6345406161ygrp-mlmsg pre, #yiv6345406161 code {font:115% monospace;}#yiv6345406161 #yiv6345406161ygrp-mlmsg * {line-height:1.22em;}#yiv6345406161 #yiv6345406161ygrp-mlmsg #yiv6345406161logo {padding-bottom:10px;}#yiv6345406161 #yiv6345406161ygrp-msg p a {font-family:Verdana;}#yiv6345406161 #yiv6345406161ygrp-msg p#yiv6345406161attach-count span {color:#1E66AE;font-weight:700;}#yiv6345406161 #yiv6345406161ygrp-reco #yiv6345406161reco-head {color:#ff7900;font-weight:700;}#yiv6345406161 #yiv6345406161ygrp-reco {margin-bottom:20px;padding:0px;}#yiv6345406161 #yiv6345406161ygrp-sponsor #yiv6345406161ov li a {font-size:130%;text-decoration:none;}#yiv6345406161 #yiv6345406161ygrp-sponsor #yiv6345406161ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv6345406161 #yiv6345406161ygrp-sponsor #yiv6345406161ov ul {margin:0;padding:0 0 0 8px;}#yiv6345406161 #yiv6345406161ygrp-text {font-family:Georgia;}#yiv6345406161 #yiv6345406161ygrp-text p {margin:0 0 1em 0;}#yiv6345406161 #yiv6345406161ygrp-text tt {font-size:120%;}#yiv6345406161 #yiv6345406161ygrp-vital ul li:last-child {border-right:none !important;}#yiv6345406161

Mon Oct 26, 2015 3:38 am (PDT) . Posted by:

"SUYONO"

Sore Pak hendrik

Kalau External Data masih belum paham.

Salam
Suyono

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Monday, October 26, 2015 4:47 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Menangkap/mengalihkan error [1 Attachment]


Terima kasih Pak Suyono atas masukannya.

Maaf saya lupa melampirkan filenya
(file .rar nya harus diextract dulu ke suatu folder, mis:D:\).

Pertanyaan saya khusus untuk Macro pada file Macro_Query From Stock_PL,
Jika quantity pada file Stok_PL Sheet Stok Item G, yang tidak ada Saldo Awal maupun transaksinya. saya isi dengan angka (mis. angka 1) maka macronya bisa dijalankan.
Jika dibiarkan NULL maka macronya akan Error.

Sebagai pembanding saya lampirkan juga file yang bernama WKS_Query From Stock_PL yaitu fie yang langsung dilink ke Worksheet melalui Get External Data.

Mudah2an penjelasan di atas dapat menjelaskan pertanyaan yang saya tanyakan sebelumnya.

Terima kasih.

Salam,
HK


________________________________
From: "SUYONO reza.suyono@lge.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Monday, 26 October 2015, 14:34
Subject: RE: [belajar-excel] Menangkap/mengalihkan error


Coba seperti ini Pak HK, semoga sesuai keinginan.

Public Function get_Average(Stock_awal As Double, nilai_beli As Double, stok_awal As Double, qty_pembelian As Double) As Double
On Error GoTo Err
get_Average = (Stock_awal + nilai_beli) / stok_awal + qty_pembelian
Exit Function
Err:
get_Average = 0
End Function


From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Monday, October 26, 2015 2:16 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Menangkap/mengalihkan error


Dear Be-Excelers,
Saya sedang mencoba membuat perhitungan harga pokok dengan macro SQL).

FORMULA ntuk menghitung harga pokok dengan sistim average adalah sbb ÷
(Nilai Stok Awal + nilai pembelian)/qty stok awal + qty pembelian).
Permasalahan timbul ketika hasil penjumlahan pembilang dan penyebut sama2 0(nol)..hasilnya Error.

Pertanyaan saya:
Bagaimana penulisannya di macro agar apabila hasilnya Error, Error tsb diganti dengan 0 (nol) sehingga hppnya = 0 (nol).

Terima kasih.

Salam,
HK



Sent from Samsung Mobile


Mon Oct 26, 2015 7:50 am (PDT) . Posted by:

"Hendrik Karnadi" hendrikkarnadi

Problem solved pake IIF pada bagian HPP_Unit.

Sebelumnya
(Nilai+b.Nilai_Beli)/(Qty+b.Qty_Beli) As HPP_Unit

menjadi
IIF ((Qty+b.Qty_Beli)=0,0, (Nilai+b.Nilai_Beli)/(Qty+b.Qty_Beli)) As HPP_Unit

Terima kasih.

Salam,
HK

Sent from Samsung Mobile

<div>-------- Original message --------</div><div>From: "SUYONO reza.suyono@lge.com [belajar-excel]" <belajar-excel@yahoogroups.com> </div><div>Date:26/10/2015 5:38 PM (GMT+07:00) </div><div>To: belajar-excel@yahoogroups.com </div><div>Subject: RE: [belajar-excel] Menangkap/mengalihkan error </div><div>
</div>Sore Pak hendrik

Kalau External Data masih belum paham.

Salam

Suyono

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Monday, October 26, 2015 4:47 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Menangkap/mengalihkan error [1 Attachment]

Terima kasih Pak Suyono atas masukannya.

Maaf saya lupa melampirkan filenya

(file .rar nya harus diextract dulu ke suatu folder, mis:D:\).

Pertanyaan saya khusus untuk Macro pada file Macro_Query From Stock_PL,

Jika quantity pada file Stok_PL Sheet Stok Item G, yang tidak ada Saldo Awal maupun transaksinya. saya isi dengan angka (mis. angka 1) maka macronya bisa dijalankan.

Jika dibiarkan NULL maka macronya akan Error.

Sebagai pembanding saya lampirkan juga file yang bernama WKS_Query From Stock_PL yaitu fie yang langsung dilink ke Worksheet melalui Get External Data.

Mudah2an penjelasan di atas dapat menjelaskan pertanyaan yang saya tanyakan sebelumnya.

Terima kasih.

Salam,

HK

From: "SUYONO reza.suyono@lge.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Monday, 26 October 2015, 14:34
Subject: RE: [belajar-excel] Menangkap/mengalihkan error

Coba seperti ini Pak HK, semoga sesuai keinginan.

Public Function get_Average(Stock_awal As Double, nilai_beli As Double, stok_awal As Double, qty_pembelian As Double) As Double

On Error GoTo Err

get_Average = (Stock_awal + nilai_beli) / stok_awal + qty_pembelian

Exit Function

Err:

get_Average = 0

End Function

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Monday, October 26, 2015 2:16 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Menangkap/mengalihkan error

Dear Be-Excelers,

Saya sedang mencoba membuat perhitungan harga pokok dengan macro SQL).

FORMULA ntuk menghitung harga pokok dengan sistim average adalah sbb ÷

(Nilai Stok Awal + nilai pembelian)/qty stok awal + qty pembelian).

Permasalahan timbul ketika hasil penjumlahan pembilang dan penyebut sama2 0(nol)..hasilnya Error.

Pertanyaan saya:

Bagaimana penulisannya di macro agar apabila hasilnya Error, Error tsb diganti dengan 0 (nol) sehingga hppnya = 0 (nol).

Terima kasih.

Salam,

HK

Sent from Samsung Mobile

Mon Oct 26, 2015 2:53 am (PDT) . Posted by:

"Samsudin"



Dear Master Excel,

Bagaimana caranya script untuk menampilkan jam digital pada excel bisa berfungsi, karena saya sudah mencobanya tetapi tidak berhasil, masalahnya dimana?

Berikut script :

Script :

Dim TampilkanWaktu

Sub JamDigital()

Set Sh = ThisWorkbook.Sheets(1)

Sh.Calculate

With Sh.Range("B5")

.FormulaR1C1 = "=Now()"

.NumberFormat = "hh:mm:ss AM/PM"

End With

TampilkanWaktu = Now + TimeValue("00:00:01")

Application.OnTime TampilkanWaktu, "Jamdigital&quot;

End Sub

Terima kasih
Samsudin

----------------------------------------------------------

This message (including any attachments) contains confidential information intended
for a specific individual and purpose, and is protected by law. If you are not the
intended recipient, you should delete this message and hereby notified that any
disclosure, copying, or distribution of this message (or any part thereof), or the
taking of any action based on it, is strictly prohibited. No liability or responsibility
is accepted if information or data is, for whatever reason corrupted or does not reach
its intended recipient. No warranty is given that this email is free of viruses. The
views expressed in this email are, unless otherwise stated, those of the author and
not those of the Company or its management. The Company reserves the right to monitor,
intercept and block emails addressed to its users or take any other action in accordance
with its email use policy.

Mon Oct 26, 2015 3:43 am (PDT) . Posted by:

"SUYONO"

Pak Samsudin
Coba seperti ini.

Public Sub JamDigital()
Dim waktu As String
Ulangi:
DoEvents
waktu = Now
Sheets("Sheet1").Range("B5").Value = Format(waktu, "h:mm:ss AM/PM")
GoTo Ulangi
End Sub

Salam
Yono

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Monday, October 26, 2015 4:30 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] membuat jam digital [1 Attachment]



[cid:image001.jpg@01D11015.76A7EF90]
Dear Master Excel,

Bagaimana caranya script untuk menampilkan jam digital pada excel bisa berfungsi, karena saya sudah mencobanya tetapi tidak berhasil, masalahnya dimana?

Berikut script :

Script :

Dim TampilkanWaktu

Sub JamDigital()

Set Sh = ThisWorkbook.Sheets(1)

Sh.Calculate


With Sh.Range("B5")

.FormulaR1C1 = "=Now()"

.NumberFormat = "hh:mm:ss AM/PM"

End With


TampilkanWaktu = Now + TimeValue("00:00:01")

Application.OnTime TampilkanWaktu, "Jamdigital&quot;

End Sub



Terima kasih
Samsudin


----------------------------------------------------------





This message (including any attachments) contains confidential information intended

for a specific individual and purpose, and is protected by law. If you are not the

intended recipient, you should delete this message and hereby notified that any

disclosure, copying, or distribution of this message (or any part thereof), or the

taking of any action based on it, is strictly prohibited. No liability or responsibility

is accepted if information or data is, for whatever reason corrupted or does not reach

its intended recipient. No warranty is given that this email is free of viruses. The

views expressed in this email are, unless otherwise stated, those of the author and

not those of the Company or its management. The Company reserves the right to monitor,

intercept and block emails addressed to its users or take any other action in accordance

with its email use policy.


Mon Oct 26, 2015 6:27 am (PDT) . Posted by:

"Heri Pamungkas ( Gmail )" dchoosen88


السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Semangat pagi,.

Alhamdulillah di komputer saya
Script bapak berjalan lancar kok.

وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Warm Regards,

On 26/10/2015 16:30, Samsudin samsudin@bayan.com.sg [belajar-excel] wrote:
>
> Dear Master Excel,
>
> Bagaimana caranya script untuk menampilkan jam digital pada excel bisa
> berfungsi, karena saya sudah mencobanya tetapi tidak berhasil,
> masalahnya dimana?
>
> Berikut script :
>
> Script :
>
> Dim TampilkanWaktu
>
> Sub JamDigital()
>
> Set Sh = ThisWorkbook.Sheets(1)
>
> Sh.Calculate
>
>
> With Sh.Range("B5")
>
> .FormulaR1C1 = "=Now()"
>
> .NumberFormat = "hh:mm:ss AM/PM"
>
> End With
>
>
> TampilkanWaktu = Now + TimeValue("00:00:01")
>
> Application.OnTime TampilkanWaktu, "Jamdigital&quot;
>
> End Sub
>
> *Terima kasih*
>
> *Samsudin*
>
> ----------------------------------------------------------
>
>
> This message (including any attachments) contains confidential information intended
> for a specific individual and purpose, and is protected by law. If you are not the
> intended recipient, you should delete this message and hereby notified that any
> disclosure, copying, or distribution of this message (or any part thereof), or the
> taking of any action based on it, is strictly prohibited. No liability or responsibility
> is accepted if information or data is, for whatever reason corrupted or does not reach
> its intended recipient. No warranty is given that this email is free of viruses. The
> views expressed in this email are, unless otherwise stated, those of the author and
> not those of the Company or its management. The Company reserves the right to monitor,
> intercept and block emails addressed to its users or take any other action in accordance
> with its email use policy.
>
>

Mon Oct 26, 2015 4:45 pm (PDT) . Posted by:

"Samsudin"

Pak Yono,

Terima kasih atas pencerahannya tetapi kenapa jika file ini sedang posisi terbuka dan saya akan membuka file lain yang ada makronya tidak bisa kebuka.

Terima kasih
Samsudin

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Monday, October 26, 2015 6:44 PM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] membuat jam digital [1 Attachment]


Pak Samsudin
Coba seperti ini.

Public Sub JamDigital()
Dim waktu As String
Ulangi:
DoEvents
waktu = Now
Sheets("Sheet1").Range("B5").Value = Format(waktu, "h:mm:ss AM/PM")
GoTo Ulangi
End Sub

Salam
Yono

From: belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com> [mailto:belajar-excel@yahoogroups.com]
Sent: Monday, October 26, 2015 4:30 PM
To: belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>
Subject: [belajar-excel] membuat jam digital [1 Attachment]



[cid:image001.jpg@01D11084.A96B15F0]
Dear Master Excel,

Bagaimana caranya script untuk menampilkan jam digital pada excel bisa berfungsi, karena saya sudah mencobanya tetapi tidak berhasil, masalahnya dimana?

Berikut script :

Script :

Dim TampilkanWaktu

Sub JamDigital()

Set Sh = ThisWorkbook.Sheets(1)

Sh.Calculate


With Sh.Range("B5")

.FormulaR1C1 = "=Now()"

.NumberFormat = "hh:mm:ss AM/PM"

End With


TampilkanWaktu = Now + TimeValue("00:00:01")

Application.OnTime TampilkanWaktu, "Jamdigital&quot;

End Sub



Terima kasih
Samsudin


----------------------------------------------------------





This message (including any attachments) contains confidential information intended

for a specific individual and purpose, and is protected by law. If you are not the

intended recipient, you should delete this message and hereby notified that any

disclosure, copying, or distribution of this message (or any part thereof), or the

taking of any action based on it, is strictly prohibited. No liability or responsibility

is accepted if information or data is, for whatever reason corrupted or does not reach

its intended recipient. No warranty is given that this email is free of viruses. The

views expressed in this email are, unless otherwise stated, those of the author and

not those of the Company or its management. The Company reserves the right to monitor,

intercept and block emails addressed to its users or take any other action in accordance

with its email use policy.



----------------------------------------------------------

This message (including any attachments) contains confidential information intended
for a specific individual and purpose, and is protected by law. If you are not the
intended recipient, you should delete this message and hereby notified that any
disclosure, copying, or distribution of this message (or any part thereof), or the
taking of any action based on it, is strictly prohibited. No liability or responsibility
is accepted if information or data is, for whatever reason corrupted or does not reach
its intended recipient. No warranty is given that this email is free of viruses. The
views expressed in this email are, unless otherwise stated, those of the author and
not those of the Company or its management. The Company reserves the right to monitor,
intercept and block emails addressed to its users or take any other action in accordance
with its email use policy.

Mon Oct 26, 2015 5:42 pm (PDT) . Posted by:

"SUYONO"

Pak Samsudin

Karena script tersebut terus berjalan sejak file dibuka, jadi tidak bisa membuka file lain.
Bisanya script jam diletakkan di form dan diset modalnya False. Form1.Show False,
Kalau seperti itu bisa buka file lain.

Terima kasih
Yono

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Tuesday, October 27, 2015 5:57 AM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] membuat jam digital [1 Attachment]


Pak Yono,

Terima kasih atas pencerahannya tetapi kenapa jika file ini sedang posisi terbuka dan saya akan membuka file lain yang ada makronya tidak bisa kebuka.

Terima kasih
Samsudin

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Monday, October 26, 2015 6:44 PM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] membuat jam digital [1 Attachment]


Pak Samsudin
Coba seperti ini.

Public Sub JamDigital()
Dim waktu As String
Ulangi:
DoEvents
waktu = Now
Sheets("Sheet1").Range("B5").Value = Format(waktu, "h:mm:ss AM/PM")
GoTo Ulangi
End Sub

Salam
Yono

From: belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com> [mailto:belajar-excel@yahoogroups.com]
Sent: Monday, October 26, 2015 4:30 PM
To: belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>
Subject: [belajar-excel] membuat jam digital [1 Attachment]



[cid:image001.jpg@01D11089.644AE950]
Dear Master Excel,

Bagaimana caranya script untuk menampilkan jam digital pada excel bisa berfungsi, karena saya sudah mencobanya tetapi tidak berhasil, masalahnya dimana?

Berikut script :

Script :

Dim TampilkanWaktu

Sub JamDigital()

Set Sh = ThisWorkbook.Sheets(1)

Sh.Calculate


With Sh.Range("B5")

.FormulaR1C1 = "=Now()"

.NumberFormat = "hh:mm:ss AM/PM"

End With


TampilkanWaktu = Now + TimeValue("00:00:01")

Application.OnTime TampilkanWaktu, "Jamdigital&quot;

End Sub



Terima kasih
Samsudin


----------------------------------------------------------





This message (including any attachments) contains confidential information intended

for a specific individual and purpose, and is protected by law. If you are not the

intended recipient, you should delete this message and hereby notified that any

disclosure, copying, or distribution of this message (or any part thereof), or the

taking of any action based on it, is strictly prohibited. No liability or responsibility

is accepted if information or data is, for whatever reason corrupted or does not reach

its intended recipient. No warranty is given that this email is free of viruses. The

views expressed in this email are, unless otherwise stated, those of the author and

not those of the Company or its management. The Company reserves the right to monitor,

intercept and block emails addressed to its users or take any other action in accordance

with its email use policy.


----------------------------------------------------------



This message (including any attachments) contains confidential information intended

for a specific individual and purpose, and is protected by law. If you are not the

intended recipient, you should delete this message and hereby notified that any

disclosure, copying, or distribution of this message (or any part thereof), or the

taking of any action based on it, is strictly prohibited. No liability or responsibility

is accepted if information or data is, for whatever reason corrupted or does not reach

its intended recipient. No warranty is given that this email is free of viruses. The

views expressed in this email are, unless otherwise stated, those of the author and

not those of the Company or its management. The Company reserves the right to monitor,

intercept and block emails addressed to its users or take any other action in accordance

with its email use policy.


Mon Oct 26, 2015 9:54 pm (PDT) . Posted by:

"Samsudin"

Pak Herri,

Terima kasih infonya dan kalau boleh tahu bapak menggunakan Microsoft office berapa, sebagai informasi saya menggunakan computer perusahaan (semua program berlisensi resmi) dan munculnya seperti :

Dim TampilkanWaktu
Sub JamDigital()
Set Sh = ThisWorkbook.Sheets(1)
Sh.Calculate
With Sh.Range("B5")
.FormulaR1C1 = "=Now()"
.NumberFormat = "hh:mm:ss AM/PM"
End With
TampilkanWaktu = Now + TimeValue("00:00:01")
Application.OnTime TampilkanWaktu, "Jamdigital"
End Sub

Dan jika makro di run maka : Compile error: Variable not defined dan crusor mengarah ke Sh.
Terima kasih

Samsudin

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Monday, October 26, 2015 9:24 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] membuat jam digital





السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Semangat pagi,.



Alhamdulillah di komputer saya

Script bapak berjalan lancar kok.







وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ



Warm Regards,
On 26/10/2015 16:30, Samsudin samsudin@bayan.com.sg<mailto:samsudin@bayan.com.sg> [belajar-excel] wrote:


[cid:image001.jpg@01D1108C.0DEB5F10]
Dear Master Excel,

Bagaimana caranya script untuk menampilkan jam digital pada excel bisa berfungsi, karena saya sudah mencobanya tetapi tidak berhasil, masalahnya dimana?

Berikut script :

Script :

Dim TampilkanWaktu

Sub JamDigital()

Set Sh = ThisWorkbook.Sheets(1)

Sh.Calculate


With Sh.Range("B5")

.FormulaR1C1 = "=Now()"

.NumberFormat = "hh:mm:ss AM/PM"

End With


TampilkanWaktu = Now + TimeValue("00:00:01")

Application.OnTime TampilkanWaktu, "Jamdigital&quot;

End Sub



Terima kasih
Samsudin


----------------------------------------------------------





This message (including any attachments) contains confidential information intended

for a specific individual and purpose, and is protected by law. If you are not the

intended recipient, you should delete this message and hereby notified that any

disclosure, copying, or distribution of this message (or any part thereof), or the

taking of any action based on it, is strictly prohibited. No liability or responsibility

is accepted if information or data is, for whatever reason corrupted or does not reach

its intended recipient. No warranty is given that this email is free of viruses. The

views expressed in this email are, unless otherwise stated, those of the author and

not those of the Company or its management. The Company reserves the right to monitor,

intercept and block emails addressed to its users or take any other action in accordance

with its email use policy.




----------------------------------------------------------

This message (including any attachments) contains confidential information intended
for a specific individual and purpose, and is protected by law. If you are not the
intended recipient, you should delete this message and hereby notified that any
disclosure, copying, or distribution of this message (or any part thereof), or the
taking of any action based on it, is strictly prohibited. No liability or responsibility
is accepted if information or data is, for whatever reason corrupted or does not reach
its intended recipient. No warranty is given that this email is free of viruses. The
views expressed in this email are, unless otherwise stated, those of the author and
not those of the Company or its management. The Company reserves the right to monitor,
intercept and block emails addressed to its users or take any other action in accordance
with its email use policy.

Mon Oct 26, 2015 6:36 am (PDT) . Posted by:

"ris ha" har1sn.excel

Assalamu'alaikum.Selamat malam para master semua, mohon bantuan dan solusinya. Bagaimana cara mengambil IP Address Komputer, kemudian di letakkan di sheet 1 Range A1 misalkan.
Terima kasih banyak, semoga menjadi ilmu yang sangat bermanfaat sepanjang hayat.
SalamHaris

Mon Oct 26, 2015 7:02 am (PDT) . Posted by:

"Hendrik Karnadi" hendrikkarnadi

Hai Haris,
Coba cari di arsip milis, seingat saya Mr.Kid pernah share di milis ini.

Salam,
HK

Sent from Samsung Mobile

<div>-------- Original message --------</div><div>From: "ris ha har1sn.excel@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> </div><div>Date:26/10/2015 8:34 PM (GMT+07:00) </div><div>To: yahoogroups <belajar-excel@yahoogroups.com> </div><div>Subject: [belajar-excel] Macro untuk mengambil IP Address Komputer </div><div>
</div>Assalamu&#39;alaikum.
Selamat malam para master semua, mohon bantuan dan solusinya. Bagaimana cara mengambil IP Address Komputer, kemudian di letakkan di sheet 1 Range A1 misalkan.

Terima kasih banyak, semoga menjadi ilmu yang sangat bermanfaat sepanjang hayat.

Salam
Haris

Mon Oct 26, 2015 7:40 am (PDT) . Posted by:

"ris ha" har1sn.excel

Terima kasih pak Hendrik, saya udah mencari, yang paling mendekati yaitu di alamat ini
|   |
|   | |   |   |   |   |   |
| Yahoo! GroupsHai Kurei, 1.Bagaimana mengecek apakah IP yang digunakan masih di komputer yang sama ? |
| |
| View on groups.yahoo.com | Preview by Yahoo |
| |
|   |

, tapi error. Ada perintah agar meng update menjadi 64bit, kebetulan excel saya 64 bit..., gimana ya? mohon pencerahannya


On Monday, October 26, 2015 9:02 PM, "Hendrik Karnadi hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Hai Haris,Coba cari di arsip milis, seingat saya Mr.Kid pernah share di milis ini.
Salam,HK

Sent from Samsung Mobile

-------- Original message --------From: "ris ha har1sn.excel@yahoo.com [belajar-excel]" Date:26/10/2015 8:34 PM (GMT+07:00) To: yahoogroups Subject: [belajar-excel] Macro untuk mengambil IP Address Komputer
  Assalamu'alaikum.Selamat malam para master semua, mohon bantuan dan solusinya. Bagaimana cara mengambil IP Address Komputer, kemudian di letakkan di sheet 1 Range A1 misalkan.
Terima kasih banyak, semoga menjadi ilmu yang sangat bermanfaat sepanjang hayat.
SalamHaris

#yiv7735233103 #yiv7735233103 -- #yiv7735233103ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv7735233103 #yiv7735233103ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv7735233103 #yiv7735233103ygrp-mkp #yiv7735233103hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv7735233103 #yiv7735233103ygrp-mkp #yiv7735233103ads {margin-bottom:10px;}#yiv7735233103 #yiv7735233103ygrp-mkp .yiv7735233103ad {padding:0 0;}#yiv7735233103 #yiv7735233103ygrp-mkp .yiv7735233103ad p {margin:0;}#yiv7735233103 #yiv7735233103ygrp-mkp .yiv7735233103ad a {color:#0000ff;text-decoration:none;}#yiv7735233103 #yiv7735233103ygrp-sponsor #yiv7735233103ygrp-lc {font-family:Arial;}#yiv7735233103 #yiv7735233103ygrp-sponsor #yiv7735233103ygrp-lc #yiv7735233103hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv7735233103 #yiv7735233103ygrp-sponsor #yiv7735233103ygrp-lc .yiv7735233103ad {margin-bottom:10px;padding:0 0;}#yiv7735233103 #yiv7735233103actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv7735233103 #yiv7735233103activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv7735233103 #yiv7735233103activity span {font-weight:700;}#yiv7735233103 #yiv7735233103activity span:first-child {text-transform:uppercase;}#yiv7735233103 #yiv7735233103activity span a {color:#5085b6;text-decoration:none;}#yiv7735233103 #yiv7735233103activity span span {color:#ff7900;}#yiv7735233103 #yiv7735233103activity span .yiv7735233103underline {text-decoration:underline;}#yiv7735233103 .yiv7735233103attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv7735233103 .yiv7735233103attach div a {text-decoration:none;}#yiv7735233103 .yiv7735233103attach img {border:none;padding-right:5px;}#yiv7735233103 .yiv7735233103attach label {display:block;margin-bottom:5px;}#yiv7735233103 .yiv7735233103attach label a {text-decoration:none;}#yiv7735233103 blockquote {margin:0 0 0 4px;}#yiv7735233103 .yiv7735233103bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv7735233103 .yiv7735233103bold a {text-decoration:none;}#yiv7735233103 dd.yiv7735233103last p a {font-family:Verdana;font-weight:700;}#yiv7735233103 dd.yiv7735233103last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv7735233103 dd.yiv7735233103last p span.yiv7735233103yshortcuts {margin-right:0;}#yiv7735233103 div.yiv7735233103attach-table div div a {text-decoration:none;}#yiv7735233103 div.yiv7735233103attach-table {width:400px;}#yiv7735233103 div.yiv7735233103file-title a, #yiv7735233103 div.yiv7735233103file-title a:active, #yiv7735233103 div.yiv7735233103file-title a:hover, #yiv7735233103 div.yiv7735233103file-title a:visited {text-decoration:none;}#yiv7735233103 div.yiv7735233103photo-title a, #yiv7735233103 div.yiv7735233103photo-title a:active, #yiv7735233103 div.yiv7735233103photo-title a:hover, #yiv7735233103 div.yiv7735233103photo-title a:visited {text-decoration:none;}#yiv7735233103 div#yiv7735233103ygrp-mlmsg #yiv7735233103ygrp-msg p a span.yiv7735233103yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv7735233103 .yiv7735233103green {color:#628c2a;}#yiv7735233103 .yiv7735233103MsoNormal {margin:0 0 0 0;}#yiv7735233103 o {font-size:0;}#yiv7735233103 #yiv7735233103photos div {float:left;width:72px;}#yiv7735233103 #yiv7735233103photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv7735233103 #yiv7735233103photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv7735233103 #yiv7735233103reco-category {font-size:77%;}#yiv7735233103 #yiv7735233103reco-desc {font-size:77%;}#yiv7735233103 .yiv7735233103replbq {margin:4px;}#yiv7735233103 #yiv7735233103ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv7735233103 #yiv7735233103ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv7735233103 #yiv7735233103ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv7735233103 #yiv7735233103ygrp-mlmsg select, #yiv7735233103 input, #yiv7735233103 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv7735233103 #yiv7735233103ygrp-mlmsg pre, #yiv7735233103 code {font:115% monospace;}#yiv7735233103 #yiv7735233103ygrp-mlmsg * {line-height:1.22em;}#yiv7735233103 #yiv7735233103ygrp-mlmsg #yiv7735233103logo {padding-bottom:10px;}#yiv7735233103 #yiv7735233103ygrp-msg p a {font-family:Verdana;}#yiv7735233103 #yiv7735233103ygrp-msg p#yiv7735233103attach-count span {color:#1E66AE;font-weight:700;}#yiv7735233103 #yiv7735233103ygrp-reco #yiv7735233103reco-head {color:#ff7900;font-weight:700;}#yiv7735233103 #yiv7735233103ygrp-reco {margin-bottom:20px;padding:0px;}#yiv7735233103 #yiv7735233103ygrp-sponsor #yiv7735233103ov li a {font-size:130%;text-decoration:none;}#yiv7735233103 #yiv7735233103ygrp-sponsor #yiv7735233103ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv7735233103 #yiv7735233103ygrp-sponsor #yiv7735233103ov ul {margin:0;padding:0 0 0 8px;}#yiv7735233103 #yiv7735233103ygrp-text {font-family:Georgia;}#yiv7735233103 #yiv7735233103ygrp-text p {margin:0 0 1em 0;}#yiv7735233103 #yiv7735233103ygrp-text tt {font-size:120%;}#yiv7735233103 #yiv7735233103ygrp-vital ul li:last-child {border-right:none !important;}#yiv7735233103

Mon Oct 26, 2015 8:07 am (PDT) . Posted by:

"Hendrik Karnadi" hendrikkarnadi

Nah, yang ini kayaknya Mr. Kid ahlinya. 

Salam,
HK

Sent from Samsung Mobile

<div>-------- Original message --------</div><div>From: "ris ha har1sn.excel@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> </div><div>Date:26/10/2015 9:37 PM (GMT+07:00) </div><div>To: belajar-excel@yahoogroups.com </div><div>Subject: Re: [belajar-excel] Macro untuk mengambil IP Address Komputer </div><div>
</div>Terima kasih pak Hendrik, saya udah mencari, yang paling mendekati yaitu di alamat ini



Yahoo! Groups
Hai Kurei, 1.Bagaimana mengecek apakah IP yang digunakan masih di komputer yang sama ?
View on groups.yahoo.com
Preview by Yahoo


, tapi error. Ada perintah agar meng update menjadi 64bit, kebetulan excel saya 64 bit..., gimana ya? mohon pencerahannya

On Monday, October 26, 2015 9:02 PM, "Hendrik Karnadi hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:

Hai Haris,
Coba cari di arsip milis, seingat saya Mr.Kid pernah share di milis ini.

Salam,
HK

Sent from Samsung Mobile

-------- Original message --------
From: "ris ha har1sn.excel@yahoo.com [belajar-excel]"
Date:26/10/2015 8:34 PM (GMT+07:00)
To: yahoogroups
Subject: [belajar-excel] Macro untuk mengambil IP Address Komputer

Assalamu'alaikum.
Selamat malam para master semua, mohon bantuan dan solusinya. Bagaimana cara mengambil IP Address Komputer, kemudian di letakkan di sheet 1 Range A1 misalkan.

Terima kasih banyak, semoga menjadi ilmu yang sangat bermanfaat sepanjang hayat.

Salam
Haris

Mon Oct 26, 2015 3:34 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Haris,

UDF yang ada di :
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/topics/18550?soc_src=mail&soc_trk=ma
dibuat untuk Office 32 Bit.

Penggunaan di Office 64 Bit, diperlukan atribut PtrSafe pada deklarasinya.
Lihat di :
https://msdn.microsoft.com/en-us/library/office/ee691831%28v=office.14%29.aspx

Wassalam,
Kid

On Mon, Oct 26, 2015 at 9:37 PM, ris ha har1sn.excel@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> Terima kasih pak Hendrik, saya udah mencari, yang paling mendekati yaitu
> di alamat ini
> <https://groups.yahoo.com/neo/groups/belajar-excel/conversations/topics/18550?soc_src=mail&soc_trk=ma>
>
>
> [image: image]
> <https://groups.yahoo.com/neo/groups/belajar-excel/conversations/topics/18550?soc_src=mail&soc_trk=ma>
>
>
>
>
>
> Yahoo! Groups
> <https://groups.yahoo.com/neo/groups/belajar-excel/conversations/topics/18550?soc_src=mail&soc_trk=ma>
> Hai Kurei, 1.Bagaimana mengecek apakah IP yang digunakan masih di komputer
> yang sama ?
> View on groups.yahoo.com
> <https://groups.yahoo.com/neo/groups/belajar-excel/conversations/topics/18550?soc_src=mail&soc_trk=ma>
> Preview by Yahoo
>
>
> , tapi error. Ada perintah agar meng update menjadi 64bit, kebetulan excel
> saya 64 bit..., gimana ya? mohon pencerahannya
>
>
>
> On Monday, October 26, 2015 9:02 PM, "Hendrik Karnadi
> hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com>
> wrote:
>
>
>
> Hai Haris,
> Coba cari di arsip milis, seingat saya Mr.Kid pernah share di milis ini.
>
> Salam,
> HK
>
>
> Sent from Samsung Mobile
>
>
> -------- Original message --------
> From: "ris ha har1sn.excel@yahoo.com [belajar-excel]"
> Date:26/10/2015 8:34 PM (GMT+07:00)
> To: yahoogroups
> Subject: [belajar-excel] Macro untuk mengambil IP Address Komputer
>
>
> Assalamu'alaikum.
> Selamat malam para master semua, mohon bantuan dan solusinya. Bagaimana
> cara mengambil IP Address Komputer, kemudian di letakkan di sheet 1 Range
> A1 misalkan.
>
> Terima kasih banyak, semoga menjadi ilmu yang sangat bermanfaat sepanjang
> hayat.
>
> Salam
> Haris
>
>
>
>
>
>

Mon Oct 26, 2015 7:34 pm (PDT) . Posted by:

"ris ha" har1sn.excel

Terima kasih sebelumnya Mr. Kid, saya lagi mempelajari panduan yang dari microsoft.

Jadi muncul pertanyaan kembali, kalo macro untuk mendeteksi office 32bit atau 64bit gimana ya?Rencananya, biar aplikasi yang saya buat bisa dipakai dikedua versi tersebut tanpa utak atik macro lagi.Terima kasih atas solusinya

SalamHaris


On Tuesday, October 27, 2015 5:34 AM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Hai Haris,

UDF yang ada di :
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/topics/18550?soc_src=mail&soc_trk=ma
dibuat untuk Office 32 Bit.

Penggunaan di Office 64 Bit, diperlukan atribut PtrSafe pada deklarasinya. Lihat di :
https://msdn.microsoft.com/en-us/library/office/ee691831%28v=office.14%29.aspx

Wassalam,
Kid

On Mon, Oct 26, 2015 at 9:37 PM, ris ha har1sn.excel@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

  Terima kasih pak Hendrik, saya udah mencari, yang paling mendekati yaitu di alamat ini
|   |
|   | |   |   |   |   |   |
| Yahoo! GroupsHai Kurei, 1.Bagaimana mengecek apakah IP yang digunakan masih di komputer yang sama ? |
| |
| View on groups.yahoo.com | Preview by Yahoo |
| |
|   |

, tapi error. Ada perintah agar meng update menjadi 64bit, kebetulan excel saya 64 bit..., gimana ya? mohon pencerahannya


On Monday, October 26, 2015 9:02 PM, "Hendrik Karnadi hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Hai Haris,Coba cari di arsip milis, seingat saya Mr.Kid pernah share di milis ini.
Salam,HK

Sent from Samsung Mobile

-------- Original message --------From: "ris ha har1sn.excel@yahoo.com [belajar-excel]" Date:26/10/2015 8:34 PM (GMT+07:00) To: yahoogroups Subject: [belajar-excel] Macro untuk mengambil IP Address Komputer
  Assalamu'alaikum.Selamat malam para master semua, mohon bantuan dan solusinya. Bagaimana cara mengambil IP Address Komputer, kemudian di letakkan di sheet 1 Range A1 misalkan.
Terima kasih banyak, semoga menjadi ilmu yang sangat bermanfaat sepanjang hayat.
SalamHaris

#yiv6269508878 #yiv6269508878 -- #yiv6269508878ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv6269508878 #yiv6269508878ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv6269508878 #yiv6269508878ygrp-mkp #yiv6269508878hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv6269508878 #yiv6269508878ygrp-mkp #yiv6269508878ads {margin-bottom:10px;}#yiv6269508878 #yiv6269508878ygrp-mkp .yiv6269508878ad {padding:0 0;}#yiv6269508878 #yiv6269508878ygrp-mkp .yiv6269508878ad p {margin:0;}#yiv6269508878 #yiv6269508878ygrp-mkp .yiv6269508878ad a {color:#0000ff;text-decoration:none;}#yiv6269508878 #yiv6269508878ygrp-sponsor #yiv6269508878ygrp-lc {font-family:Arial;}#yiv6269508878 #yiv6269508878ygrp-sponsor #yiv6269508878ygrp-lc #yiv6269508878hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv6269508878 #yiv6269508878ygrp-sponsor #yiv6269508878ygrp-lc .yiv6269508878ad {margin-bottom:10px;padding:0 0;}#yiv6269508878 #yiv6269508878actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv6269508878 #yiv6269508878activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv6269508878 #yiv6269508878activity span {font-weight:700;}#yiv6269508878 #yiv6269508878activity span:first-child {text-transform:uppercase;}#yiv6269508878 #yiv6269508878activity span a {color:#5085b6;text-decoration:none;}#yiv6269508878 #yiv6269508878activity span span {color:#ff7900;}#yiv6269508878 #yiv6269508878activity span .yiv6269508878underline {text-decoration:underline;}#yiv6269508878 .yiv6269508878attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv6269508878 .yiv6269508878attach div a {text-decoration:none;}#yiv6269508878 .yiv6269508878attach img {border:none;padding-right:5px;}#yiv6269508878 .yiv6269508878attach label {display:block;margin-bottom:5px;}#yiv6269508878 .yiv6269508878attach label a {text-decoration:none;}#yiv6269508878 blockquote {margin:0 0 0 4px;}#yiv6269508878 .yiv6269508878bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv6269508878 .yiv6269508878bold a {text-decoration:none;}#yiv6269508878 dd.yiv6269508878last p a {font-family:Verdana;font-weight:700;}#yiv6269508878 dd.yiv6269508878last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv6269508878 dd.yiv6269508878last p span.yiv6269508878yshortcuts {margin-right:0;}#yiv6269508878 div.yiv6269508878attach-table div div a {text-decoration:none;}#yiv6269508878 div.yiv6269508878attach-table {width:400px;}#yiv6269508878 div.yiv6269508878file-title a, #yiv6269508878 div.yiv6269508878file-title a:active, #yiv6269508878 div.yiv6269508878file-title a:hover, #yiv6269508878 div.yiv6269508878file-title a:visited {text-decoration:none;}#yiv6269508878 div.yiv6269508878photo-title a, #yiv6269508878 div.yiv6269508878photo-title a:active, #yiv6269508878 div.yiv6269508878photo-title a:hover, #yiv6269508878 div.yiv6269508878photo-title a:visited {text-decoration:none;}#yiv6269508878 div#yiv6269508878ygrp-mlmsg #yiv6269508878ygrp-msg p a span.yiv6269508878yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv6269508878 .yiv6269508878green {color:#628c2a;}#yiv6269508878 .yiv6269508878MsoNormal {margin:0 0 0 0;}#yiv6269508878 o {font-size:0;}#yiv6269508878 #yiv6269508878photos div {float:left;width:72px;}#yiv6269508878 #yiv6269508878photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv6269508878 #yiv6269508878photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv6269508878 #yiv6269508878reco-category {font-size:77%;}#yiv6269508878 #yiv6269508878reco-desc {font-size:77%;}#yiv6269508878 .yiv6269508878replbq {margin:4px;}#yiv6269508878 #yiv6269508878ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv6269508878 #yiv6269508878ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv6269508878 #yiv6269508878ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv6269508878 #yiv6269508878ygrp-mlmsg select, #yiv6269508878 input, #yiv6269508878 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv6269508878 #yiv6269508878ygrp-mlmsg pre, #yiv6269508878 code {font:115% monospace;}#yiv6269508878 #yiv6269508878ygrp-mlmsg * {line-height:1.22em;}#yiv6269508878 #yiv6269508878ygrp-mlmsg #yiv6269508878logo {padding-bottom:10px;}#yiv6269508878 #yiv6269508878ygrp-msg p a {font-family:Verdana;}#yiv6269508878 #yiv6269508878ygrp-msg p#yiv6269508878attach-count span {color:#1E66AE;font-weight:700;}#yiv6269508878 #yiv6269508878ygrp-reco #yiv6269508878reco-head {color:#ff7900;font-weight:700;}#yiv6269508878 #yiv6269508878ygrp-reco {margin-bottom:20px;padding:0px;}#yiv6269508878 #yiv6269508878ygrp-sponsor #yiv6269508878ov li a {font-size:130%;text-decoration:none;}#yiv6269508878 #yiv6269508878ygrp-sponsor #yiv6269508878ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv6269508878 #yiv6269508878ygrp-sponsor #yiv6269508878ov ul {margin:0;padding:0 0 0 8px;}#yiv6269508878 #yiv6269508878ygrp-text {font-family:Georgia;}#yiv6269508878 #yiv6269508878ygrp-text p {margin:0 0 1em 0;}#yiv6269508878 #yiv6269508878ygrp-text tt {font-size:120%;}#yiv6269508878 #yiv6269508878ygrp-vital ul li:last-child {border-right:none !important;}#yiv6269508878

============================================================
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: 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:

Poskan Komentar