Senin, 26 Mei 2014

[belajar-excel] Digest Number 2945

15 Messages

Digest #2945
1b
Re: paste value pakai vba by "prazt" praztmath
1c
Re: paste value pakai vba by "Mr. Kid" nmkid.family@ymail.com
1d
Re: paste value pakai vba by "prazt" praztmath
2a
Synatax penulisan MsgBox by "nangAgus" nangagoez
2b
Re: Synatax penulisan MsgBox [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
2d
Re: Synatax penulisan MsgBox by "Mr. Kid" nmkid.family@ymail.com
3a
Re: Fw: Tarik garis terluar y,x,z berdasarkan nilai refferensi yang by "zainul_ulum[at]yahoo[dot]com" zainul_ulum
3b
Re: Fw: Tarik garis terluar y,x,z berdasarkan nilai refferensi yang by "zainul_ulum[at]yahoo[dot]com" zainul_ulum
4c
Re: Menampilkan selisih dua data di Excel Chart [1 Attachment] by "zainul_ulum[at]yahoo[dot]com" zainul_ulum
5
Memisah teks dalam sebuah cell menjadi beberapa kolom by "Paulus Taripar" paulustaripar@rocketmail.com

Messages

Sun May 25, 2014 6:17 pm (PDT) . Posted by:

"nangAgus" nangagoez

Kagem Mas Prazt;

Asalamualaikum warahmatullah.

Coba lihat kembali prosedur yang sudah anda buat.
ada prosedur yang mematikan copy paste
pada prosedur Workbook_Activate () terdapat perintah untuk mematikan
copyPaste
.CellDragAndDrop = False
Jadi setiap berpindah workbook, selalu copy paste dimatikan.
scripsaya yang berbunyi:
Workbooks("a.xlsm").Worksheets("sheet1").Range("a1").Copy

Workbooks("B.xlsm").Worksheets("sheet1").Range("b5").PasteSpecial
xlPasteValues

akan dibaca komputer menjadi:

Workbooks("a.xlsm").Worksheets("sheet1").Range("a1").Copy
.CellDragAndDrop = False (workbook_active)
Workbooks("B.xlsm").Worksheets("sheet1").Range("b5").PasteSpecial
xlPasteValues

Jadi kesimpulannya selama prosedur untuk mematikan copy paste antar
sheet masih aktif dibuat macropun tidak akan bisa.

semoga saya tidak salah, jika ada mohon be excel yang lain meralatnya.

Terima kasih
wasalamualaikum warahmatullah.

NangAgus

On 5/24/2014 15:51, 'prazt' praztmath@gmail.com [belajar-excel] wrote:
>
> Matursuwun Mr HK dan mas Agus...maap kl aneh-aneh permintaannya
> soalnya saya punya kasus begini, jika saya diable drag and drop
> (menggunakan VBA) difile A maupun B trus saya copy isi cell B3
> (misalnya) lalu saya paste (menggunakan tombol paste) ke file B pada
> Sheet1 cell C3(misalnya) maka tombol paste tersebut tidak aktif
> seperti file terlampir , nah pikir saya gmn kalau diakali pastenya
> pakai VBA bisa tidak...mohon pencerahannya...
>
> *From:*belajar-excel@yahoogroups.com
> [mailto:belajar-excel@yahoogroups.com]
> *Sent:* 24 Mei 2014 12:33
> *To:* belajar-excel@yahoogroups.com
> *Subject:* RE: [belajar-excel]
>
> Coba buka file B.
>
> Ketik Activecell.Value = "=Worbook ("A").Sheet1.Range ("A1").Value
>
> Salam,
>
> HK
>
> Sent from Samsung Mobile
>
>
> "'prazt' praztmath@gmail.com <mailto:praztmath@gmail.com>
> [belajar-excel]" <belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com>> wrote:
>
> Dear All master, minta bimbingannya ya
> bagaimana VBAnya untuk paste values dari workbook lain, misal dari
> File A pada sheet1 saya copy isi cell A1 dan saya paste value
> (menggunakan macro) ke File B pada sheet1 cell A1 atau B5..dengan kata
> lain area/lokasi paste valuenya adalah area yang di blok/diselect
> tidak tentu..
>
> ----------------------------------------------------------
>
> <http://www.avast.com/>
>
>
>
> Email ini bebas virus dan malware karena avast! Antivirus
> <http://www.avast.com/> proteksi aktif.
>
>
>
> ----------------------------------------------------------
> <http://www.avast.com/>
>
> Email ini bebas virus dan malware karena avast! Antivirus
> <http://www.avast.com/> proteksi aktif.
>
>
>

Sun May 25, 2014 10:20 pm (PDT) . Posted by:

"prazt" praztmath

Wa'alaikumsalam mas Agus, dari yg anda sampaikan saya jdai paham sekarang dan saya ucapkan banyak terima kasih...

Terus mau tau lebih lanjut nih saya mas Agus tentang script yang anda berikan seperti berikut ;

Workbooks("a.xlsm").Worksheets("sheet1").Range("a1").Copy
.CellDragAndDrop = False (workbook_active)
Workbooks("B.xlsm").Worksheets("sheet1").Range("b5").PasteSpecial xlPasteValues

Pada script yang saya tandai merah, berarti setiap workbook di ganti nama maka harus mengganti nama workbook yng sesuai pada script tersebut, begitu juga sheet dan range_nya (begitu yang saya tangkap dari script anda)?, nah gmn biar semuanya itu tidak mengganti jika nama workbook diganti, sheet juga bisa seluruh sheet yang ada di workbook begitu juga Range_nya terserah yang mau dicopy dan di paste.? Semoga berkenan kasih arahan..

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 26 Mei 2014 8:17
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] paste value pakai vba

Kagem Mas Prazt;

Asalamualaikum warahmatullah.

Coba lihat kembali prosedur yang sudah anda buat.
ada prosedur yang mematikan copy paste
pada prosedur Workbook_Activate () terdapat perintah untuk mematikan copyPaste
.CellDragAndDrop = False
Jadi setiap berpindah workbook, selalu copy paste dimatikan.
scripsaya yang berbunyi:
Workbooks("a.xlsm").Worksheets("sheet1").Range("a1").Copy

Workbooks("B.xlsm").Worksheets("sheet1").Range("b5").PasteSpecial xlPasteValues

akan dibaca komputer menjadi:

Workbooks("a.xlsm").Worksheets("sheet1").Range("a1").Copy
.CellDragAndDrop = False (workbook_active)
Workbooks("B.xlsm").Worksheets("sheet1").Range("b5").PasteSpecial xlPasteValues

Jadi kesimpulannya selama prosedur untuk mematikan copy paste antar sheet masih aktif dibuat macropun tidak akan bisa.

semoga saya tidak salah, jika ada mohon be excel yang lain meralatnya.

Terima kasih
wasalamualaikum warahmatullah.

NangAgus

On 5/24/2014 15:51, 'prazt' praztmath@gmail.com [belajar-excel] wrote:

Matursuwun Mr HK dan mas Agus...maap kl aneh-aneh permintaannya soalnya saya punya kasus begini, jika saya diable drag and drop (menggunakan VBA) difile A maupun B trus saya copy isi cell B3 (misalnya) lalu saya paste (menggunakan tombol paste) ke file B pada Sheet1 cell C3(misalnya) maka tombol paste tersebut tidak aktif seperti file terlampir , nah pikir saya gmn kalau diakali pastenya pakai VBA bisa tidak...mohon pencerahannya...

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 24 Mei 2014 12:33
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel]

Coba buka file B.

Ketik Activecell.Value = "=Worbook ("A").Sheet1.Range ("A1").Value

Salam,

HK

Sent from Samsung Mobile

"'prazt' praztmath@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


Dear All master, minta bimbingannya ya
bagaimana VBAnya untuk paste values dari workbook lain, misal dari File A pada sheet1 saya copy isi cell A1 dan saya paste value (menggunakan macro) ke File B pada sheet1 cell A1 atau B5..dengan kata lain area/lokasi paste valuenya adalah area yang di blok/diselect tidak tentu..

_____

<http://www.avast.com/>

Email ini bebas virus dan malware karena avast! Antivirus <http://www.avast.com/> proteksi aktif.

_____

<http://www.avast.com/>

Email ini bebas virus dan malware karena avast! Antivirus <http://www.avast.com/> proteksi aktif.

---
Email ini bebas dari virus dan malware karena Proteksi avast! Antivirus aktif.
http://www.avast.com

Sun May 25, 2014 10:36 pm (PDT) . Posted by:

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

Assalamu'alaikum Wr. Wb.

Asumsi : file yang ada tidak menggunakan customUI untuk menon-aktifkan
fitur copas (alias hanya menggunakan VBA saja)

Coba langkah berikut :
1. pada sebuah general module, buat prosedur bernama TidakBoleh dan isi
dengan seluruh script yang meng-turn off kemampuan copas
2. pada sebuah general module, buat prosedur bernama Boleh dan isi dengan
seluruh script yang meng-turn on kemampuan copas
3. pada event open dan activate milik workbook (jika tidak boleh dalam
workbook kerja saja) isi dengan script untuk memanggil prosedur bernama
TidakBoleh
4. pada event before close dan deactivate milik workbook (jika tidak boleh
dalam workbook kerja saja) isi dengan script untuk memanggil prosedur
bernama Boleh

Silakan dicoba...

Jadi, tidak boleh copas harus dibatasi dengan ketat (alias di-turn off
kemampuan copas-nya) pada suatu area kerja tertentu. Diluar area itu, maka
diperbolehkan (alias dikembalikan ke bawaan Excel)

Wassalamu'alaikum Wr. Wb.
Kid.

2014-05-26 12:20 GMT+07:00 'prazt' praztmath@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Wa'alaikumsalam mas Agus, dari yg anda sampaikan saya jdai paham sekarang
> dan saya ucapkan banyak terima kasih...
>
> Terus mau tau lebih lanjut nih saya mas Agus tentang script yang anda
> berikan seperti berikut ;
>
> Workbooks("a.xlsm").Worksheets("sheet1").Range("a1").Copy
> ..CellDragAndDrop = False (workbook_active)
>
> Workbooks("B.xlsm").Worksheets("sheet1").Range("b5").PasteSpecial
> xlPasteValues
>
> Pada script yang saya tandai merah, berarti setiap workbook di ganti nama
> maka harus mengganti nama workbook yng sesuai pada script tersebut, begitu
> juga sheet dan range_nya (begitu yang saya tangkap dari script anda)?, nah
> gmn biar semuanya itu tidak mengganti jika nama workbook diganti, sheet
> juga bisa seluruh sheet yang ada di workbook begitu juga Range_nya terserah
> yang mau dicopy dan di paste.? Semoga berkenan kasih arahan..
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* 26 Mei 2014 8:17
> *To:* belajar-excel@yahoogroups.com
> *Subject:* Re: [belajar-excel] paste value pakai vba
>
>
>
>
>
> Kagem Mas Prazt;
>
> Asalamualaikum warahmatullah.
>
> Coba lihat kembali prosedur yang sudah anda buat.
> ada prosedur yang mematikan copy paste
> pada prosedur Workbook_Activate () terdapat perintah untuk mematikan
> copyPaste
> .CellDragAndDrop = False
> Jadi setiap berpindah workbook, selalu copy paste dimatikan.
> scripsaya yang berbunyi:
> Workbooks("a.xlsm").Worksheets("sheet1")..Range("a1").Copy
>
>
> Workbooks("B.xlsm").Worksheets("sheet1").Range("b5").PasteSpecial
> xlPasteValues
>
> akan dibaca komputer menjadi:
>
> Workbooks("a.xlsm").Worksheets("sheet1").Range("a1").Copy
> .CellDragAndDrop = False (workbook_active)
> Workbooks("B.xlsm").Worksheets("sheet1").Range("b5").PasteSpecial
> xlPasteValues
>
> Jadi kesimpulannya selama prosedur untuk mematikan copy paste antar sheet
> masih aktif dibuat macropun tidak akan bisa.
>
> semoga saya tidak salah, jika ada mohon be excel yang lain meralatnya.
>
> Terima kasih
> wasalamualaikum warahmatullah.
>
> NangAgus
>
> On 5/24/2014 15:51, 'prazt' praztmath@gmail.com [belajar-excel] wrote:
>
>
>
> Matursuwun Mr HK dan mas Agus...maap kl aneh-aneh permintaannya soalnya
> saya punya kasus begini, jika saya diable drag and drop (menggunakan VBA)
> difile A maupun B trus saya copy isi cell B3 (misalnya) lalu saya paste
> (menggunakan tombol paste) ke file B pada Sheet1 cell C3(misalnya) maka
> tombol paste tersebut tidak aktif seperti file terlampir , nah pikir saya
> gmn kalau diakali pastenya pakai VBA bisa tidak...mohon pencerahannya...
>
>
>
> *From:* belajar-excel@yahoogroups.com [
> mailto:belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com>]
> *Sent:* 24 Mei 2014 12:33
> *To:* belajar-excel@yahoogroups.com
> *Subject:* RE: [belajar-excel]
>
>
>
>
>
> Coba buka file B.
>
> Ketik Activecell.Value = "=Worbook ("A").Sheet1.Range ("A1").Value
>
>
>
> Salam,
>
> HK
>
>
>
> Sent from Samsung Mobile
>
>
> "'prazt' praztmath@gmail.com [belajar-excel]" <
> belajar-excel@yahoogroups.com> wrote:
>
>
> Dear All master, minta bimbingannya ya
> bagaimana VBAnya untuk paste values dari workbook lain, misal dari File A
> pada sheet1 saya copy isi cell A1 dan saya paste value (menggunakan macro)
> ke File B pada sheet1 cell A1 atau B5..dengan kata lain area/lokasi paste
> valuenya adalah area yang di blok/diselect tidak tentu..
>
>
> ------------------------------
>
> <http://www.avast.com/>
>
> Email ini bebas virus dan malware karena avast! Antivirus<http://www.avast.com/>proteksi aktif.
>
>
>
>
> ------------------------------
>
> <http://www.avast.com/>
>
> Email ini bebas virus dan malware karena avast! Antivirus<http://www.avast.com/>proteksi aktif.
>
>
>
>
>
>
>
> ------------------------------
> <http://www.avast.com/>
>
> Email ini bebas virus dan malware karena avast! Antivirus<http://www.avast.com/>proteksi aktif.
>
>
>

Sun May 25, 2014 11:11 pm (PDT) . Posted by:

"prazt" praztmath

Ok mr.Kid....trimakasih alurnya sudah membantu..

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 26 Mei 2014 12:36
To: BeExcel
Subject: Re: [belajar-excel] paste value pakai vba

Assalamu'alaikum Wr. Wb.

Asumsi : file yang ada tidak menggunakan customUI untuk menon-aktifkan fitur copas (alias hanya menggunakan VBA saja)

Coba langkah berikut :

1. pada sebuah general module, buat prosedur bernama TidakBoleh dan isi dengan seluruh script yang meng-turn off kemampuan copas

2. pada sebuah general module, buat prosedur bernama Boleh dan isi dengan seluruh script yang meng-turn on kemampuan copas

3. pada event open dan activate milik workbook (jika tidak boleh dalam workbook kerja saja) isi dengan script untuk memanggil prosedur bernama TidakBoleh

4. pada event before close dan deactivate milik workbook (jika tidak boleh dalam workbook kerja saja) isi dengan script untuk memanggil prosedur bernama Boleh

Silakan dicoba...

Jadi, tidak boleh copas harus dibatasi dengan ketat (alias di-turn off kemampuan copas-nya) pada suatu area kerja tertentu. Diluar area itu, maka diperbolehkan (alias dikembalikan ke bawaan Excel)

Wassalamu'alaikum Wr. Wb.
Kid.

2014-05-26 12:20 GMT+07:00 'prazt' praztmath@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:

Wa'alaikumsalam mas Agus, dari yg anda sampaikan saya jdai paham sekarang dan saya ucapkan banyak terima kasih...

Terus mau tau lebih lanjut nih saya mas Agus tentang script yang anda berikan seperti berikut ;

Workbooks("a.xlsm").Worksheets("sheet1").Range("a1").Copy

..CellDragAndDrop = False (workbook_active)

Workbooks("B.xlsm").Worksheets("sheet1").Range("b5").PasteSpecial xlPasteValues

Pada script yang saya tandai merah, berarti setiap workbook di ganti nama maka harus mengganti nama workbook yng sesuai pada script tersebut, begitu juga sheet dan range_nya (begitu yang saya tangkap dari script anda)?, nah gmn biar semuanya itu tidak mengganti jika nama workbook diganti, sheet juga bisa seluruh sheet yang ada di workbook begitu juga Range_nya terserah yang mau dicopy dan di paste.? Semoga berkenan kasih arahan..

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 26 Mei 2014 8:17
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] paste value pakai vba

Kagem Mas Prazt;

Asalamualaikum warahmatullah.

Coba lihat kembali prosedur yang sudah anda buat.
ada prosedur yang mematikan copy paste
pada prosedur Workbook_Activate () terdapat perintah untuk mematikan copyPaste
.CellDragAndDrop = False
Jadi setiap berpindah workbook, selalu copy paste dimatikan.
scripsaya yang berbunyi:

Workbooks("a.xlsm").Worksheets("sheet1")..Range("a1").Copy

Workbooks("B.xlsm").Worksheets("sheet1").Range("b5").PasteSpecial xlPasteValues

akan dibaca komputer menjadi:

Workbooks("a.xlsm").Worksheets("sheet1").Range("a1").Copy
.CellDragAndDrop = False (workbook_active)
Workbooks("B.xlsm").Worksheets("sheet1").Range("b5").PasteSpecial xlPasteValues

Jadi kesimpulannya selama prosedur untuk mematikan copy paste antar sheet masih aktif dibuat macropun tidak akan bisa.

semoga saya tidak salah, jika ada mohon be excel yang lain meralatnya.

Terima kasih
wasalamualaikum warahmatullah.

NangAgus

On 5/24/2014 15:51, 'prazt' praztmath@gmail.com [belajar-excel] wrote:

Matursuwun Mr HK dan mas Agus...maap kl aneh-aneh permintaannya soalnya saya punya kasus begini, jika saya diable drag and drop (menggunakan VBA) difile A maupun B trus saya copy isi cell B3 (misalnya) lalu saya paste (menggunakan tombol paste) ke file B pada Sheet1 cell C3(misalnya) maka tombol paste tersebut tidak aktif seperti file terlampir , nah pikir saya gmn kalau diakali pastenya pakai VBA bisa tidak...mohon pencerahannya...

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 24 Mei 2014 12:33
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel]

Coba buka file B.

Ketik Activecell.Value = "=Worbook ("A").Sheet1.Range ("A1").Value

Salam,

HK

Sent from Samsung Mobile

"'prazt' praztmath@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


Dear All master, minta bimbingannya ya
bagaimana VBAnya untuk paste values dari workbook lain, misal dari File A pada sheet1 saya copy isi cell A1 dan saya paste value (menggunakan macro) ke File B pada sheet1 cell A1 atau B5..dengan kata lain area/lokasi paste valuenya adalah area yang di blok/diselect tidak tentu..

_____

<http://www.avast.com/>

Email ini bebas virus dan malware karena avast! Antivirus <http://www.avast.com/> proteksi aktif.

_____

<http://www.avast.com/>

Email ini bebas virus dan malware karena avast! Antivirus <http://www.avast.com/> proteksi aktif.

_____

<http://www.avast.com/>

Email ini bebas virus dan malware karena avast! Antivirus <http://www.avast.com/> proteksi aktif.

---
Email ini bebas dari virus dan malware karena Proteksi avast! Antivirus aktif.
http://www.avast.com

Sun May 25, 2014 6:52 pm (PDT) . Posted by:

"nangAgus" nangagoez

Asalamaulaikum warahmatullah.

saya mencoba menulis messege Box di VBA tapi tidak bisa adakah yang
dapat membantu saya?

pada help tertulis

*MsgBox(/prompt/*[, */buttons/*] [, */title/*] [, */helpfile/*,
*/context/*]*)
*

saya mencoba menulis*:
MsgBox("Anda salah pencet",vbOKonly, "Peringatan&quot;)
*tidak dapat dijalankan, muncul error

tetapi kenapa jika ditulis menjadi :

*MsgBox "Anda salah pencet",vbOKonly, "Peringatan&quot;
*dapat digunakan.

Bagaimana penggunaan syntax:*
*

*MsgBox(/prompt/*[, */buttons/*] [, */title/*] [, */helpfile/*,
*/context/*]*) ?
*

terima kasih
Wasalamualaikum warahmatullah.
NangAgus*
*

Sun May 25, 2014 11:08 pm (PDT) . Posted by:

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

Wa'alaikumussalam Wr. Wb.

mas Agus,

MsgBox sebenarnya adalah sebuah methods milik object yang dibentuk dari
class alias blueprint object yang bernama VBA.

Penggunaan methods :
1. bisa dipanggil secara langsung tanpa kurung jika tidak mengharapkan atau
memang tidak memiliki nilai balik
2. sebagai pengisi sesuatu (dikanan sama dengan) dan harus menggunakan
kurung bila methods tersebut memiliki nilai balik

MsgBox adalah methods yang memiliki nilai balik (jenis Function).
Nilai balik MsgBox disimpan pada VbMsgBoxResult.

> Function MsgBox(Prompt, [Buttons As VbMsgBoxStyle = vbOKOnly], [Title],
> [HelpFile], [Context]) As VbMsgBoxResult
>

Ketika MsgBox digunakan dengan kaidah penggunaan nomor 1, maka bisa
digunakan secara langsung tapi tidak dengan kurung
Contoh :
MsgBox "Kid ganteng"

Ketika MsgBox digunakan dengan kaidah penggunaan nomor 2, maka harus
menggunakan kurung
Contoh :
dim lResult as long
lresult=msgbox("Kid ganteng")

dan variabel lResult akan diisi dengan hasil dari MsgBox.

Supaya lebih jelas tentang kaidah penggunaan nomor 2, coba copy script
berikut pada sebuah general module dan di-run

public sub KotakPesan()
dim lResult as long

KOTAK_PESAN: 'sekedar label saja
lResult=MsgBox("Kid ganteng." & vbcrlf & "Ya atau ya...
?",vbquestion+vbyesno,"Kotak Pesan")
if lresult=vbyes then
msgbox "Terima kasih.",vbinformation,"Kid said :"
else
goto KOTAK_PESAN
endif
end sub

met mencoba
;)

Wassalamu'alaikum Wr. Wb.
Kid.

2014-05-26 8:52 GMT+07:00 nangAgus nangagoez@yahoo.co.id [belajar-excel] <
belajar-excel@yahoogroups.com>:

> Asalamaulaikum warahmatullah.
>
> saya mencoba menulis messege Box di VBA tapi tidak bisa adakah yang dapat
> membantu saya?
>
> pada help tertulis
>
> *MsgBox(prompt*[, *buttons*] [, *title*] [, *helpfile*, *context*]
> *) *
>
> saya mencoba menulis
>
> *: MsgBox("Anda salah pencet",vbOKonly, "Peringatan&quot;) *tidak dapat
> dijalankan, muncul error
>
>
> tetapi kenapa jika ditulis menjadi :
>
>
> *MsgBox "Anda salah pencet",vbOKonly, "Peringatan&quot; *dapat digunakan.
>
> Bagaimana penggunaan syntax:
>
>
> *MsgBox(prompt*[, *buttons*] [, *title*] [, *helpfile*, *context*]
> *) ? *
>
> terima kasih
> Wasalamualaikum warahmatullah.
> NangAgus
>

Sun May 25, 2014 11:25 pm (PDT) . Posted by:

"nangAgus"

Asalamualaikum warahmatullah.
Terima kasih Mr. Kid
baru tahu kalau msgBox adalah sebuah fungsi yang menghasilkan sesuatu,
apakah semua syntax pada VBA yang menggunakan kurung adalah fungsi?
seperti:

*Format*(/expression/[, /format/[, /firstdayofweek/[, /firstweekofyear/]]])

*Mid*(*/string/*, */start/*[, */length/*])

*Input(*/number/, [*#*]/filenumber/)

Karena fungsi maka menghasilkan sesuatu yang harus ditampung. Apakah
demikian yang dimaksud Mr. Kid?

Terima kasih, matur nuwun

Wasalam
NangAgus

On 5/26/2014 13:08, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] wrote:
> Wa'alaikumussalam Wr. Wb.
>
> mas Agus,
>
> MsgBox sebenarnya adalah sebuah methods milik object yang dibentuk
> dari class alias blueprint object yang bernama VBA.
>
> Penggunaan methods :
> 1. bisa dipanggil secara langsung tanpa kurung jika tidak mengharapkan
> atau memang tidak memiliki nilai balik
> 2. sebagai pengisi sesuatu (dikanan sama dengan) dan harus menggunakan
> kurung bila methods tersebut memiliki nilai balik
>
> MsgBox adalah methods yang memiliki nilai balik (jenis Function).
> Nilai balik MsgBox disimpan pada VbMsgBoxResult.
>
> Function MsgBox(Prompt, [Buttons As VbMsgBoxStyle = vbOKOnly],
> [Title], [HelpFile], [Context]) As VbMsgBoxResult
>
>
> Ketika MsgBox digunakan dengan kaidah penggunaan nomor 1, maka bisa
> digunakan secara langsung tapi tidak dengan kurung
> Contoh :
> MsgBox "Kid ganteng"
>
> Ketika MsgBox digunakan dengan kaidah penggunaan nomor 2, maka harus
> menggunakan kurung
> Contoh :
> dim lResult as long
> lresult=msgbox("Kid ganteng")
>
> dan variabel lResult akan diisi dengan hasil dari MsgBox.
>
> Supaya lebih jelas tentang kaidah penggunaan nomor 2, coba copy script
> berikut pada sebuah general module dan di-run
>
> public sub KotakPesan()
> dim lResult as long
>
> KOTAK_PESAN: 'sekedar label saja
> lResult=MsgBox("Kid ganteng." & vbcrlf & "Ya atau ya...
> ?",vbquestion+vbyesno,"Kotak Pesan")
> if lresult=vbyes then
> msgbox "Terima kasih.",vbinformation,"Kid said :"
> else
> goto KOTAK_PESAN
> endif
> end sub
>
> met mencoba
> ;)
>
> Wassalamu'alaikum Wr. Wb.
> Kid.
>
>
>
>
> 2014-05-26 8:52 GMT+07:00 nangAgus nangagoez@yahoo.co.id
> <mailto:nangagoez@yahoo.co.id> [belajar-excel]
> <belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>>:
>
> Asalamaulaikum warahmatullah.
>
> saya mencoba menulis messege Box di VBA tapi tidak bisa adakah
> yang dapat membantu saya?
>
> pada help tertulis
>
> *MsgBox(/prompt/*[, */buttons/*] [, */title/*] [, */helpfile/*,
> */context/*]*)
> *
>
> saya mencoba menulis*:
> MsgBox("Anda salah pencet",vbOKonly, "Peringatan&quot;)
> *tidak dapat dijalankan, muncul error
>
>
> tetapi kenapa jika ditulis menjadi :
>
> *MsgBox "Anda salah pencet",vbOKonly, "Peringatan&quot;
> *dapat digunakan.
>
> Bagaimana penggunaan syntax:*
> *
>
> *MsgBox(/prompt/*[, */buttons/*] [, */title/*] [, */helpfile/*,
> */context/*]*) ?
> *
>
> terima kasih
> Wasalamualaikum warahmatullah.
> NangAgus*
> *
>
>
>

Mon May 26, 2014 12:44 am (PDT) . Posted by:

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

Wa'alaikumussalam Wr. Wb.

Beberapa fungsi akan lebih bermanfaat ketika nilai baliknya ditampung ke
suatu tempat atau variabel.
Beberapa fungsi sering digunakan tanpa perlu menampung nilai baliknya,
sehingga tidak perlu ditampung ke suatu tempat atau variabel.
Beberapa fungsi menuntut adanya penampung hasil balik. Beberapa lainnya
tidak mengharuskan.

Dengan kondisi diatas, maka programmer mendapat keleluasaan untuk
memanfaatkan fungsi berdasar penggunaan yang sesuai kebutuhan. Seperti pada
MsgBox, kadang kala lebih dibutuhkan penggunaan tanpa memerlukan nilai
baliknya karena sekedar untuk memenuhi kebutuhan menampilkan suatu pesan
tertentu. Disuatu kondisi lain, bisa jadi MsgBox dibutuhkan untuk
mendapatkan masukan dari user, yang berarti, masukan dari user tersebut
harus ditampung dalam sebuah variabel atau suatu tempat tertentu.

Kira-kira demikian.

Wassalamu'alaikum Wr. Wb.
Kid.

2014-05-26 13:25 GMT+07:00 nangAgus nangagus@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

> Asalamualaikum warahmatullah.
> Terima kasih Mr. Kid
> baru tahu kalau msgBox adalah sebuah fungsi yang menghasilkan sesuatu,
> apakah semua syntax pada VBA yang menggunakan kurung adalah fungsi?
> seperti:
>
> *Format*(*expression*[, *format*[, *firstdayofweek*[, *firstweekofyear*
> ]]])
>
> *Mid*(*string*, *start*[, *length*])
>
> *Input(**number*, [*#*]*filenumber*)
>
> Karena fungsi maka menghasilkan sesuatu yang harus ditampung. Apakah
> demikian yang dimaksud Mr. Kid?
>
> Terima kasih, matur nuwun
>
> Wasalam
> NangAgus
>
>
>
> On 5/26/2014 13:08, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] wrote:
>
>
> Wa'alaikumussalam Wr. Wb.
>
> mas Agus,
>
> MsgBox sebenarnya adalah sebuah methods milik object yang dibentuk dari
> class alias blueprint object yang bernama VBA.
>
> Penggunaan methods :
> 1. bisa dipanggil secara langsung tanpa kurung jika tidak mengharapkan
> atau memang tidak memiliki nilai balik
> 2. sebagai pengisi sesuatu (dikanan sama dengan) dan harus menggunakan
> kurung bila methods tersebut memiliki nilai balik
>
> MsgBox adalah methods yang memiliki nilai balik (jenis Function).
> Nilai balik MsgBox disimpan pada VbMsgBoxResult.
>
>> Function MsgBox(Prompt, [Buttons As VbMsgBoxStyle = vbOKOnly], [Title],
>> [HelpFile], [Context]) As VbMsgBoxResult
>>
>
> Ketika MsgBox digunakan dengan kaidah penggunaan nomor 1, maka bisa
> digunakan secara langsung tapi tidak dengan kurung
> Contoh :
> MsgBox "Kid ganteng"
>
> Ketika MsgBox digunakan dengan kaidah penggunaan nomor 2, maka harus
> menggunakan kurung
> Contoh :
> dim lResult as long
> lresult=msgbox("Kid ganteng")
>
> dan variabel lResult akan diisi dengan hasil dari MsgBox.
>
> Supaya lebih jelas tentang kaidah penggunaan nomor 2, coba copy script
> berikut pada sebuah general module dan di-run
>
> public sub KotakPesan()
> dim lResult as long
>
> KOTAK_PESAN: 'sekedar label saja
> lResult=MsgBox("Kid ganteng." & vbcrlf & "Ya atau ya...
> ?",vbquestion+vbyesno,"Kotak Pesan")
> if lresult=vbyes then
> msgbox "Terima kasih.",vbinformation,"Kid said :"
> else
> goto KOTAK_PESAN
> endif
> end sub
>
> met mencoba
> ;)
>
> Wassalamu'alaikum Wr. Wb.
> Kid.
>
>
>
>
> 2014-05-26 8:52 GMT+07:00 nangAgus nangagoez@yahoo.co.id [belajar-excel]
> <belajar-excel@yahoogroups.com>:
>
>> Asalamaulaikum warahmatullah.
>>
>> saya mencoba menulis messege Box di VBA tapi tidak bisa adakah yang dapat
>> membantu saya?
>>
>> pada help tertulis
>>
>> *MsgBox(prompt*[, *buttons*] [, *title*] [, *helpfile*, *context*]
>> *) *
>>
>> saya mencoba menulis
>>
>> *: MsgBox("Anda salah pencet",vbOKonly, "Peringatan&quot;) *tidak dapat
>> dijalankan, muncul error
>>
>>
>> tetapi kenapa jika ditulis menjadi :
>>
>>
>> *MsgBox "Anda salah pencet",vbOKonly, "Peringatan&quot; *dapat digunakan.
>>
>> Bagaimana penggunaan syntax:
>>
>>
>> *MsgBox(prompt*[, *buttons*] [, *title*] [, *helpfile*, *context*]
>> *) ? *
>>
>> terima kasih
>> Wasalamualaikum warahmatullah.
>> NangAgus
>>
>
>
>

Sun May 25, 2014 7:55 pm (PDT) . Posted by:

"zainul_ulum[at]yahoo[dot]com" zainul_ulum

Mas Dayat,
Terus terang saya belum pernah mencoba membuat outer boundary di excel.
Kalo membuat boundary di software Autodesk civil 3D (C3D) atau Land Development Desktop (LDD) sudah pernah, itupun dihubungkan dengan cara menarik garis secara manual.

Jika melihat datanya, outer boundary diberi nama point description C* maka urutan membuat outer boundary di C3D atau LDD:
1. import semua titik
2. Lakukan query terhadap titik yang mempunyai point description C* kemudian buat group baru, missal grup C
3. Buat hanya group C yang hanya tampil di layar.
4. Hubungkan dengan POLYLINE titik di group C saja.

Apabila kode C adalah berurutan C0-C26-C0 adalah berurutan bisa dibuat programnya dengan VBA-Excel, tetapi hasil garisnya akan tergambar di AutoCAD.

wassalam
-zainul

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Friday, May 23, 2014 3:31 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Fw: Tarik garis terluar y,x,z berdasarkan nilai refferensi yang ditentukan antara satu titik ke titik yang lain secara otomatis / rumus formula

Melanjutkan pertanyaa saya yang mungkin belum jelas maka dengan ini saya lampirkan data yang lebih simpel yang mungkin bisa dimengerti oleh teman-teman

Regard's
Dayat
------Pesan Asli------
Ke: Belajar-excel
Perihal: Tarik garis terluar y,x,z berdasarkan nilai refferensi yang ditentukan antara satu titik ke titik yang lain secara otomatis / rumus formula
Terkirim: 20 Mei 2014 11:29 AM

Dear all

Selamat pagi, salam semua

Mohon dibantu, Hari ini saya mencoba untuk mengolah data suatu aplikasi yang berhubungan dengan titik koordinat y,x,z dimana titik-titik tersebut akan saya tarik dari luarnya saja dan berdasarkan ketentuan jarak referensi yang saya tentukan ( misal saya butuh menghubungkan titik terluar dengan referensi per 5 meter jarak titik terdekat secara berurutan ).
Kira-kira seperti itu ceritanya, dan yang saya butuhkan sekarang bagaimana membuat garis tersebut secara otomatis menggunakan excel.

Salam
Dayat

Powered by Telkomsel BlackBerry®

Sun May 25, 2014 10:12 pm (PDT) . Posted by:

"zainul_ulum[at]yahoo[dot]com" zainul_ulum

Mas Dayat,

Silahkan coba vba terlampir jika urutan koordinat boundarynya di excel sudah benar. VBA akan menggambarkan 3DPolyline , Text dan Titik di Autocad.

berikut hasil running programmnya di computer saya:

selamat mencoba

-zainul

-----Original Message-----
From: zainul_ulum[at]yahoo[dot]com [mailto:zainul_ulum@yahoo.com]
Sent: Monday, May 26, 2014 9:54 AM
To: 'belajar-excel@yahoogroups.com'
Subject: RE: [belajar-excel] Fw: Tarik garis terluar y,x,z berdasarkan nilai refferensi yang ditentukan antara satu titik ke titik yang lain secara otomatis / rumus formula

Mas Dayat,

Terus terang saya belum pernah mencoba membuat outer boundary di excel.

Kalo membuat boundary di software Autodesk civil 3D (C3D) atau Land Development Desktop (LDD) sudah pernah, itupun dihubungkan dengan cara menarik garis secara manual.

Jika melihat datanya, outer boundary diberi nama point description C* maka urutan membuat outer boundary di C3D atau LDD:

1. import semua titik

2. Lakukan query terhadap titik yang mempunyai point description C* kemudian buat group baru, missal grup C 3. Buat hanya group C yang hanya tampil di layar.

4. Hubungkan dengan POLYLINE titik di group C saja.

Apabila kode C adalah berurutan C0-C26-C0 adalah berurutan bisa dibuat programnya dengan VBA-Excel, tetapi hasil garisnya akan tergambar di AutoCAD.

wassalam

-zainul

From: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com [ <mailto:belajar-excel@yahoogroups.com> mailto:belajar-excel@yahoogroups.com]

Sent: Friday, May 23, 2014 3:31 PM

To: <mailto:belajar-excel@yahoogroups.com> belajar-excel@yahoogroups.com

Subject: [belajar-excel] Fw: Tarik garis terluar y,x,z berdasarkan nilai refferensi yang ditentukan antara satu titik ke titik yang lain secara otomatis / rumus formula

Melanjutkan pertanyaa saya yang mungkin belum jelas maka dengan ini saya lampirkan data yang lebih simpel yang mungkin bisa dimengerti oleh teman-teman

Regard's

Dayat

------Pesan Asli------

Ke: Belajar-excel

Perihal: Tarik garis terluar y,x,z berdasarkan nilai refferensi yang ditentukan antara satu titik ke titik yang lain secara otomatis / rumus formula

Terkirim: 20 Mei 2014 11:29 AM

Dear all

Selamat pagi, salam semua

Mohon dibantu, Hari ini saya mencoba untuk mengolah data suatu aplikasi yang berhubungan dengan titik koordinat y,x,z dimana titik-titik tersebut akan saya tarik dari luarnya saja dan berdasarkan ketentuan jarak referensi yang saya tentukan ( misal saya butuh menghubungkan titik terluar dengan referensi per 5 meter jarak titik terdekat secara berurutan ).

Kira-kira seperti itu ceritanya, dan yang saya butuhkan sekarang bagaimana membuat garis tersebut secara otomatis menggunakan excel.

Salam

Dayat

Sun May 25, 2014 10:42 pm (PDT) . Posted by:

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

Oh asumsinya data sumber sudah ada C01 dst (titik-titik outer boundary-nya)
ya...
Chart dengan tipe X-Y Scatter bisa membantu.

Wassalam,
Kid.

2014-05-26 12:12 GMT+07:00 'zainul_ulum[at]yahoo[dot]com'
zainul_ulum@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

> Mas Dayat,
>
> Silahkan coba vba terlampir jika urutan koordinat boundarynya di excel
> sudah benar. VBA akan menggambarkan 3DPolyline , Text dan Titik di Autocad.
>
>
>
> berikut hasil running programmnya di computer saya:
>
>
>
>
>
> selamat mencoba
>
> -zainul
>
>
>
>

Sun May 25, 2014 11:49 pm (PDT) . Posted by:

"Sony Ario"

Assalamualaikum wrb wb,

Yth. Teman2 be Excel,

Mohon bantuan. Apabila ada data Budget dan Actual, bagaimana caranya untuk
menampilkan selisih dari Actual dengan Budget tersebut di dalam chart di
Excel ? semisal data Budget Rp 100 dan Actual nya Rp 80 maka selisih Rp 20
dapat ditampilkan juga ?

File terlampir semoga cukup dapat memberikan penjelasan.

Terima kasih sebelumnya.

Wassalam
Sony

Mon May 26, 2014 12:24 am (PDT) . Posted by:

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

Wa'alaikumussalam Wr. Wb.

Sepertinya bisa dengan stacked column yang diatur tabel data untuk chart
nya.

Wassalamu'alaikum Wr. Wb.
Kid.

2014-05-26 13:49 GMT+07:00 Sony Ario sony.ario1@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Assalamualaikum wrb wb,
>
> Yth. Teman2 be Excel,
>
> Mohon bantuan. Apabila ada data Budget dan Actual, bagaimana caranya untuk
> menampilkan selisih dari Actual dengan Budget tersebut di dalam chart di
> Excel ? semisal data Budget Rp 100 dan Actual nya Rp 80 maka selisih Rp 20
> dapat ditampilkan juga ?
>
> File terlampir semoga cukup dapat memberikan penjelasan.
>
> Terima kasih sebelumnya.
>
> Wassalam
> Sony
>
>
>

Mon May 26, 2014 12:24 am (PDT) . Posted by:

"zainul_ulum[at]yahoo[dot]com" zainul_ulum

Wa'alaikum Salam Wr. Wb.
silahkan dicoba chart terlampir.
semoga sesuai harapan.
thanks
=zainul=

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Monday, May 26, 2014 1:49 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Menampilkan selisih dua data di Excel Chart [1 Attachment]

Assalamualaikum wrb wb,

Yth. Teman2 be Excel,
Mohon bantuan. Apabila ada data Budget dan Actual, bagaimana caranya untuk menampilkan selisih dari Actual dengan Budget tersebut di dalam chart di Excel ? semisal data Budget Rp 100 dan Actual nya Rp 80 maka selisih Rp 20 dapat ditampilkan juga ?
File terlampir semoga cukup dapat memberikan penjelasan.
Terima kasih sebelumnya.
Wassalam
Sony

Mon May 26, 2014 12:46 am (PDT) . Posted by:

"Paulus Taripar" paulustaripar@rocketmail.com

Para master excel.,tanya cara memisahkan dua kata dalam satu kolom dengan garis miring gimana ya? Terima kasih

--- Mods ---
Dimohon dengan sangat, agar Subject Email saat posting kasus diisi dengan kalimat judul yang mewakili dan mencerminkan kasus yang diungkapkan. Hal ini akan memudahkan para pencari posting lawas yang terkait dengan kasus yang sedang dihadapi.
----------------



=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

---------------------------------------------------------------------
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
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 00.46

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)