15 New Messages
Digest #2571
3a
Re: memindahkan data dari sheetsatu ke sheet yang lain dengan kriter by "Mr. KEPT" kurniawan_tufail@ymail.com
3b
Re: memindahkan data dari sheetsatu ke sheet yang lain dengan kriter by "hendrik karnadi" hendrikkarnadi
Messages
Tue Oct 1, 2013 6:24 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
hehehehehe...
sorry saya ndak bisa kasih solusi... (banyak amat yang akan dikonversi)
saya babar belas gak punya daftar object model reference-nya si openopis,
jadi rada ribet nyusunnya karena harus search atu atu.
Coba dulu di OOo nya dibaris pertama setiap module atau userform code,
diberi baris berbunyi :
Option VBASupport 1
lalu di run si file.
Wassalam,
Kid.
2013/10/1 Andre Rahmaidy Teeza <andre_teeza_bn@yahoo.com>
> **
>
>
> thanks to pak hendrik n miss jan
>
> cuma saya penasaran bikin macro di open office sudah di coba dengan coding
> yang sma tetap ga running juga..
> mudah2an teman exceller yang lain bisa bantuin. atw mungkin Mr. kid bisa
> kasi solusi. kalau converter yang miss jan saya belum nemukan di google,
> ntar coba saya search di om google..
>
>
>
sorry saya ndak bisa kasih solusi... (banyak amat yang akan dikonversi)
saya babar belas gak punya daftar object model reference-nya si openopis,
jadi rada ribet nyusunnya karena harus search atu atu.
Coba dulu di OOo nya dibaris pertama setiap module atau userform code,
diberi baris berbunyi :
Option VBASupport 1
lalu di run si file.
Wassalam,
Kid.
2013/10/1 Andre Rahmaidy Teeza <andre_teeza_
> **
>
>
> thanks to pak hendrik n miss jan
>
> cuma saya penasaran bikin macro di open office sudah di coba dengan coding
> yang sma tetap ga running juga..
> mudah2an teman exceller yang lain bisa bantuin. atw mungkin Mr. kid bisa
> kasi solusi. kalau converter yang miss jan saya belum nemukan di google,
> ntar coba saya search di om google..
>
>
>
Tue Oct 1, 2013 6:37 pm (PDT) . Posted by:
"Jan Raisin"
wew.... ini solusi paling jitu mr.. Option VBASupport 1
gak perlu convert dari satu bahasa program ke bahasa program yang lain..
berdasaran solusi ini.. Jan gak perlu lagi susah-susah belajar bahasa
progam yang lain..
cukup fokus belajar dan mendalami Formula, VBA, SQL, dan beberapa fitur
Excel yang lain maka hampir semua kasus bisa diselesaikan.
Nice advice
æóÓóøáÇóãõ Úóáóíúßõãú æóÑóÍúãóÉõ Çááåö æóÈóÑóßóÇÊõåõ
-Miss Jan Raisin-
Pada 1 Oktober 2013 20.24, Mr. Kid <mr.nmkid@gmail.com> menulis:
> **
>
>
> hehehehehe...
>
> sorry saya ndak bisa kasih solusi... (banyak amat yang akan dikonversi)
> saya babar belas gak punya daftar object model reference-nya si openopis,
> jadi rada ribet nyusunnya karena harus search atu atu.
>
> Coba dulu di OOo nya dibaris pertama setiap module atau userform code,
> diberi baris berbunyi :
> Option VBASupport 1
> lalu di run si file.
>
> Wassalam,
> Kid.
>
>
> 2013/10/1 Andre Rahmaidy Teeza <andre_teeza_bn@yahoo.com>
>
>> **
>>
>>
>> thanks to pak hendrik n miss jan
>>
>> cuma saya penasaran bikin macro di open office sudah di coba dengan
>> coding yang sma tetap ga running juga..
>> mudah2an teman exceller yang lain bisa bantuin. atw mungkin Mr. kid bisa
>> kasi solusi. kalau converter yang miss jan saya belum nemukan di google,
>> ntar coba saya search di om google..
>>
>>
gak perlu convert dari satu bahasa program ke bahasa program yang lain..
berdasaran solusi ini.. Jan gak perlu lagi susah-susah belajar bahasa
progam yang lain..
cukup fokus belajar dan mendalami Formula, VBA, SQL, dan beberapa fitur
Excel yang lain maka hampir semua kasus bisa diselesaikan.
Nice advice
æóÓóøáÇóãõ Úóáóíúßõãú æóÑóÍúãóÉõ Çááåö æóÈóÑóßóÇÊõåõ
-Miss Jan Raisin-
Pada 1 Oktober 2013 20.24, Mr. Kid <mr.nmkid@gmail.
> **
>
>
> hehehehehe..
>
> sorry saya ndak bisa kasih solusi... (banyak amat yang akan dikonversi)
> saya babar belas gak punya daftar object model reference-nya si openopis,
> jadi rada ribet nyusunnya karena harus search atu atu.
>
> Coba dulu di OOo nya dibaris pertama setiap module atau userform code,
> diberi baris berbunyi :
> Option VBASupport 1
> lalu di run si file.
>
> Wassalam,
> Kid.
>
>
> 2013/10/1 Andre Rahmaidy Teeza <andre_teeza_
>
>> **
>>
>>
>> thanks to pak hendrik n miss jan
>>
>> cuma saya penasaran bikin macro di open office sudah di coba dengan
>> coding yang sma tetap ga running juga..
>> mudah2an teman exceller yang lain bisa bantuin. atw mungkin Mr. kid bisa
>> kasi solusi. kalau converter yang miss jan saya belum nemukan di google,
>> ntar coba saya search di om google..
>>
>>
Tue Oct 1, 2013 6:44 pm (PDT) . Posted by:
"zainul_ulum[at]yahoo[dot]com" zainul_ulum
perlu dicoba nih
Option VBASupport 1
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Jan Raisin
Sent: Wednesday, October 02, 2013 8:37 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Macro Openoffice
wew.... ini solusi paling jitu mr.. Option VBASupport 1
gak perlu convert dari satu bahasa program ke bahasa program yang lain..
berdasaran solusi ini.. Jan gak perlu lagi susah-susah belajar bahasa progam
yang lain..
cukup fokus belajar dan mendalami Formula, VBA, SQL, dan beberapa fitur
Excel yang lain maka hampir semua kasus bisa diselesaikan.
Nice advice
æóÓóøáÇóãõ Úóáóíúßõãú æóÑóÍúãóÉõ Çááåö æóÈóÑóßóÇÊõåõ
-Miss Jan Raisin-
Pada 1 Oktober 2013 20.24, Mr. Kid <mr.nmkid@gmail.com> menulis:
hehehehehe...
sorry saya ndak bisa kasih solusi... (banyak amat yang akan dikonversi)
saya babar belas gak punya daftar object model reference-nya si openopis,
jadi rada ribet nyusunnya karena harus search atu atu.
Coba dulu di OOo nya dibaris pertama setiap module atau userform code,
diberi baris berbunyi :
Option VBASupport 1
lalu di run si file.
Wassalam,
Kid.
2013/10/1 Andre Rahmaidy Teeza <andre_teeza_bn@yahoo.com>
thanks to pak hendrik n miss jan
cuma saya penasaran bikin macro di open office sudah di coba dengan coding
yang sma tetap ga running juga..
mudah2an teman exceller yang lain bisa bantuin. atw mungkin Mr. kid bisa
kasi solusi. kalau converter yang miss jan saya belum nemukan di google,
ntar coba saya search di om google..
Option VBASupport 1
From: belajar-excel@
On Behalf Of Jan Raisin
Sent: Wednesday, October 02, 2013 8:37 AM
To: belajar-excel@
Subject: Re: [belajar-excel] Macro Openoffice
wew.... ini solusi paling jitu mr.. Option VBASupport 1
gak perlu convert dari satu bahasa program ke bahasa program yang lain..
berdasaran solusi ini.. Jan gak perlu lagi susah-susah belajar bahasa progam
yang lain..
cukup fokus belajar dan mendalami Formula, VBA, SQL, dan beberapa fitur
Excel yang lain maka hampir semua kasus bisa diselesaikan.
Nice advice
æóÓóøáÇóãõ Úóáóíúßõãú æóÑóÍúãóÉõ Çááåö æóÈóÑóßóÇÊõåõ
-Miss Jan Raisin-
Pada 1 Oktober 2013 20.24, Mr. Kid <mr.nmkid@gmail.
hehehehehe..
sorry saya ndak bisa kasih solusi... (banyak amat yang akan dikonversi)
saya babar belas gak punya daftar object model reference-nya si openopis,
jadi rada ribet nyusunnya karena harus search atu atu.
Coba dulu di OOo nya dibaris pertama setiap module atau userform code,
diberi baris berbunyi :
Option VBASupport 1
lalu di run si file.
Wassalam,
Kid.
2013/10/1 Andre Rahmaidy Teeza <andre_teeza_
thanks to pak hendrik n miss jan
cuma saya penasaran bikin macro di open office sudah di coba dengan coding
yang sma tetap ga running juga..
mudah2an teman exceller yang lain bisa bantuin. atw mungkin Mr. kid bisa
kasi solusi. kalau converter yang miss jan saya belum nemukan di google,
ntar coba saya search di om google..
Tue Oct 1, 2013 6:54 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
wakakaka...
iya, perlu dicoba dulu.
Kalau di star office waktu doeloe sih bisa. Cuman kadang gak bisa pas udah
berurusan sama userform.
Jadi bikin VBAnya jangan yang rumit ya. Mungkin VBASupport nya akan
mengubah si VBA jadi VBScript kali ya...
Saya gak mudeng dalemannya. Dokumentasinya dikit.
Kalau struktur objectnya, si OO memang lebih bagus dari VBA karena full
OOP. Mungkin nanti kalau dah mulai banyak dokumentasi object model nya akan
jadi lebih enak.
Wassalam,
Kid.
2013/10/2 zainul_ulum[at]yahoo[dot]com <zainul_ulum@yahoo.com>
> **
>
>
> perlu dicoba nih ****
>
> Option VBASupport 1****
>
> ** **
>
> ** **
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *On Behalf Of *Jan Raisin
> *Sent:* Wednesday, October 02, 2013 8:37 AM
> *To:* belajar-excel@yahoogroups.com
> *Subject:* Re: [belajar-excel] Macro Openoffice****
>
> ** **
>
> ****
>
> wew.... ini solusi paling jitu mr.. Option VBASupport 1****
>
> gak perlu convert dari satu bahasa program ke bahasa program yang lain..**
> **
>
> ** **
>
> berdasaran solusi ini.. Jan gak perlu lagi susah-susah belajar bahasa
> progam yang lain..****
>
> cukup fokus belajar dan mendalami Formula, VBA, SQL, dan beberapa fitur
> Excel yang lain maka hampir semua kasus bisa diselesaikan.
>
> Nice advice****
>
>
> ****
> وَسَÙ'لاَم٠عَلَيÙ'ÙƒÙÙ…Ù' وَرَØÙ'مَة٠الله٠وَبَرَكَاتÙÙ‡Ù****
>
> ** **
>
> -Miss Jan Raisin-****
>
> ** **
>
> Pada 1 Oktober 2013 20.24, Mr. Kid <mr.nmkid@gmail.com> menulis:****
>
> ****
>
> hehehehehe...
>
> sorry saya ndak bisa kasih solusi... (banyak amat yang akan dikonversi)***
> *
>
> saya babar belas gak punya daftar object model reference-nya si openopis,
> jadi rada ribet nyusunnya karena harus search atu atu.****
>
> Coba dulu di OOo nya dibaris pertama setiap module atau userform code,
> diberi baris berbunyi :****
>
> Option VBASupport 1****
>
> lalu di run si file.****
>
> Wassalam,
> Kid.****
>
> ** **
>
> 2013/10/1 Andre Rahmaidy Teeza <andre_teeza_bn@yahoo.com>****
>
> ****
>
> thanks to pak hendrik n miss jan****
>
> ** **
>
> cuma saya penasaran bikin macro di open office sudah di coba dengan coding
> yang sma tetap ga running juga..****
>
> mudah2an teman exceller yang lain bisa bantuin. atw mungkin Mr. kid bisa
> kasi solusi. kalau converter yang miss jan saya belum nemukan di google,
> ntar coba saya search di om google.. ****
>
> ** **
>
> ****
>
>
>
iya, perlu dicoba dulu.
Kalau di star office waktu doeloe sih bisa. Cuman kadang gak bisa pas udah
berurusan sama userform.
Jadi bikin VBAnya jangan yang rumit ya. Mungkin VBASupport nya akan
mengubah si VBA jadi VBScript kali ya...
Saya gak mudeng dalemannya. Dokumentasinya dikit.
Kalau struktur objectnya, si OO memang lebih bagus dari VBA karena full
OOP. Mungkin nanti kalau dah mulai banyak dokumentasi object model nya akan
jadi lebih enak.
Wassalam,
Kid.
2013/10/2 zainul_ulum[
> **
>
>
> perlu dicoba nih ****
>
> Option VBASupport 1****
>
> ** **
>
> ** **
>
> *From:* belajar-excel@
> belajar-excel@
> *Sent:* Wednesday, October 02, 2013 8:37 AM
> *To:* belajar-excel@
> *Subject:* Re: [belajar-excel] Macro Openoffice**
>
> ** **
>
> ****
>
> wew.... ini solusi paling jitu mr.. Option VBASupport 1****
>
> gak perlu convert dari satu bahasa program ke bahasa program yang lain..**
> **
>
> ** **
>
> berdasaran solusi ini.. Jan gak perlu lagi susah-susah belajar bahasa
> progam yang lain..****
>
> cukup fokus belajar dan mendalami Formula, VBA, SQL, dan beberapa fitur
> Excel yang lain maka hampir semua kasus bisa diselesaikan.
>
> Nice advice****
>
>
> ****
> وَسَÙ'لاَم٠عَلَيÙ'ÙƒÙÙ…Ù' وَرَØÙ'مَة٠الله٠وَبَرَكَاتÙÙ‡Ù****
>
> ** **
>
> -Miss Jan Raisin-****
>
> ** **
>
> Pada 1 Oktober 2013 20.24, Mr. Kid <mr.nmkid@gmail.
>
> ****
>
> hehehehehe..
>
> sorry saya ndak bisa kasih solusi... (banyak amat yang akan dikonversi)*
> *
>
> saya babar belas gak punya daftar object model reference-nya si openopis,
> jadi rada ribet nyusunnya karena harus search atu atu.****
>
> Coba dulu di OOo nya dibaris pertama setiap module atau userform code,
> diberi baris berbunyi :****
>
> Option VBASupport 1****
>
> lalu di run si file.****
>
> Wassalam,
> Kid.****
>
> ** **
>
> 2013/10/1 Andre Rahmaidy Teeza <andre_teeza_
>
> ****
>
> thanks to pak hendrik n miss jan****
>
> ** **
>
> cuma saya penasaran bikin macro di open office sudah di coba dengan coding
> yang sma tetap ga running juga..****
>
> mudah2an teman exceller yang lain bisa bantuin. atw mungkin Mr. kid bisa
> kasi solusi. kalau converter yang miss jan saya belum nemukan di google,
> ntar coba saya search di om google.. ****
>
> ** **
>
> ****
>
>
>
Tue Oct 1, 2013 7:04 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
eh ada yang lupa.
Sebelum dibawa ke ooo atau star office, pastikan seluruh variabel terlah
dideklarasikan dengan baik, termasuk yang datatype variant jangan
sekedarnya seperti :
dim v
tapi diubah jadi
dim v as variant
baru deh dibawa ke ooo atau star office lalu ditambahkan optiona vbasupport
1 (kalau belum ditambahkan oleh si ooo -> harusnya sekarang dah nambah
sendiri).
save as dulu supaya jadi open dokumennya si ooo
coba run dan edit yang terdebug dikit (tetap dalam bahasa VB/VBA).
*** kalau dah masalah userform, saya ndak tahu ya... jadi, yang tahu mohon
berbagi disini yak..
Wassalam,
Kid.
2013/10/2 Mr. Kid <mr.nmkid@gmail.com>
> wakakaka...
>
> iya, perlu dicoba dulu.
>
> Kalau di star office waktu doeloe sih bisa. Cuman kadang gak bisa pas udah
> berurusan sama userform.
> Jadi bikin VBAnya jangan yang rumit ya. Mungkin VBASupport nya akan
> mengubah si VBA jadi VBScript kali ya...
> Saya gak mudeng dalemannya. Dokumentasinya dikit.
>
> Kalau struktur objectnya, si OO memang lebih bagus dari VBA karena full
> OOP. Mungkin nanti kalau dah mulai banyak dokumentasi object model nya akan
> jadi lebih enak.
>
> Wassalam,
> Kid.
>
>
>
>
> 2013/10/2 zainul_ulum[at]yahoo[dot]com <zainul_ulum@yahoo.com>
>
> **
>>
>>
>> perlu dicoba nih ****
>>
>> Option VBASupport 1****
>>
>> ** **
>>
>> ** **
>>
>> *From:* belajar-excel@yahoogroups.com [mailto:
>> belajar-excel@yahoogroups.com] *On Behalf Of *Jan Raisin
>> *Sent:* Wednesday, October 02, 2013 8:37 AM
>> *To:* belajar-excel@yahoogroups.com
>> *Subject:* Re: [belajar-excel] Macro Openoffice****
>>
>> ** **
>>
>> ****
>>
>> wew.... ini solusi paling jitu mr.. Option VBASupport 1****
>>
>> gak perlu convert dari satu bahasa program ke bahasa program yang lain..*
>> ***
>>
>> ** **
>>
>> berdasaran solusi ini.. Jan gak perlu lagi susah-susah belajar bahasa
>> progam yang lain..****
>>
>> cukup fokus belajar dan mendalami Formula, VBA, SQL, dan beberapa fitur
>> Excel yang lain maka hampir semua kasus bisa diselesaikan.
>>
>> Nice advice****
>>
>>
>> ****
>> وَسَÙ'لاَم٠عَلَيÙ'ÙƒÙÙ…Ù' وَرَØÙ'مَة٠الله٠وَبَرَكَاتÙÙ‡Ù****
>>
>> ** **
>>
>> -Miss Jan Raisin-****
>>
>> ** **
>>
>> Pada 1 Oktober 2013 20.24, Mr. Kid <mr.nmkid@gmail.com> menulis:****
>>
>> ****
>>
>> hehehehehe...
>>
>> sorry saya ndak bisa kasih solusi... (banyak amat yang akan dikonversi)**
>> **
>>
>> saya babar belas gak punya daftar object model reference-nya si openopis,
>> jadi rada ribet nyusunnya karena harus search atu atu.****
>>
>> Coba dulu di OOo nya dibaris pertama setiap module atau userform code,
>> diberi baris berbunyi :****
>>
>> Option VBASupport 1****
>>
>> lalu di run si file.****
>>
>> Wassalam,
>> Kid.****
>>
>> ** **
>>
>> 2013/10/1 Andre Rahmaidy Teeza <andre_teeza_bn@yahoo.com>****
>>
>> ****
>>
>> thanks to pak hendrik n miss jan****
>>
>> ** **
>>
>> cuma saya penasaran bikin macro di open office sudah di coba dengan
>> coding yang sma tetap ga running juga..****
>>
>> mudah2an teman exceller yang lain bisa bantuin. atw mungkin Mr. kid bisa
>> kasi solusi. kalau converter yang miss jan saya belum nemukan di google,
>> ntar coba saya search di om google.. ****
>>
>> ** **
>>
>> ****
>>
>>
>>
>
>
Sebelum dibawa ke ooo atau star office, pastikan seluruh variabel terlah
dideklarasikan dengan baik, termasuk yang datatype variant jangan
sekedarnya seperti :
dim v
tapi diubah jadi
dim v as variant
baru deh dibawa ke ooo atau star office lalu ditambahkan optiona vbasupport
1 (kalau belum ditambahkan oleh si ooo -> harusnya sekarang dah nambah
sendiri).
save as dulu supaya jadi open dokumennya si ooo
coba run dan edit yang terdebug dikit (tetap dalam bahasa VB/VBA).
*** kalau dah masalah userform, saya ndak tahu ya... jadi, yang tahu mohon
berbagi disini yak..
Wassalam,
Kid.
2013/10/2 Mr. Kid <mr.nmkid@gmail.
> wakakaka...
>
> iya, perlu dicoba dulu.
>
> Kalau di star office waktu doeloe sih bisa. Cuman kadang gak bisa pas udah
> berurusan sama userform.
> Jadi bikin VBAnya jangan yang rumit ya. Mungkin VBASupport nya akan
> mengubah si VBA jadi VBScript kali ya...
> Saya gak mudeng dalemannya. Dokumentasinya dikit.
>
> Kalau struktur objectnya, si OO memang lebih bagus dari VBA karena full
> OOP. Mungkin nanti kalau dah mulai banyak dokumentasi object model nya akan
> jadi lebih enak.
>
> Wassalam,
> Kid.
>
>
>
>
> 2013/10/2 zainul_ulum[
>
> **
>>
>>
>> perlu dicoba nih ****
>>
>> Option VBASupport 1****
>>
>> ** **
>>
>> ** **
>>
>> *From:* belajar-excel@
>> belajar-excel@
>> *Sent:* Wednesday, October 02, 2013 8:37 AM
>> *To:* belajar-excel@
>> *Subject:* Re: [belajar-excel] Macro Openoffice**
>>
>> ** **
>>
>> ****
>>
>> wew.... ini solusi paling jitu mr.. Option VBASupport 1****
>>
>> gak perlu convert dari satu bahasa program ke bahasa program yang lain..*
>> ***
>>
>> ** **
>>
>> berdasaran solusi ini.. Jan gak perlu lagi susah-susah belajar bahasa
>> progam yang lain..****
>>
>> cukup fokus belajar dan mendalami Formula, VBA, SQL, dan beberapa fitur
>> Excel yang lain maka hampir semua kasus bisa diselesaikan.
>>
>> Nice advice****
>>
>>
>> ****
>> وَسَÙ'لاَم٠عَلَيÙ'ÙƒÙÙ…Ù' وَرَØÙ'مَة٠الله٠وَبَرَكَاتÙÙ‡Ù****
>>
>> ** **
>>
>> -Miss Jan Raisin-****
>>
>> ** **
>>
>> Pada 1 Oktober 2013 20.24, Mr. Kid <mr.nmkid@gmail.
>>
>> ****
>>
>> hehehehehe..
>>
>> sorry saya ndak bisa kasih solusi... (banyak amat yang akan dikonversi)*
>> **
>>
>> saya babar belas gak punya daftar object model reference-nya si openopis,
>> jadi rada ribet nyusunnya karena harus search atu atu.****
>>
>> Coba dulu di OOo nya dibaris pertama setiap module atau userform code,
>> diberi baris berbunyi :****
>>
>> Option VBASupport 1****
>>
>> lalu di run si file.****
>>
>> Wassalam,
>> Kid.****
>>
>> ** **
>>
>> 2013/10/1 Andre Rahmaidy Teeza <andre_teeza_
>>
>> ****
>>
>> thanks to pak hendrik n miss jan****
>>
>> ** **
>>
>> cuma saya penasaran bikin macro di open office sudah di coba dengan
>> coding yang sma tetap ga running juga..****
>>
>> mudah2an teman exceller yang lain bisa bantuin. atw mungkin Mr. kid bisa
>> kasi solusi. kalau converter yang miss jan saya belum nemukan di google,
>> ntar coba saya search di om google.. ****
>>
>> ** **
>>
>> ****
>>
>>
>>
>
>
Tue Oct 1, 2013 7:40 pm (PDT) . Posted by:
"zainul_ulum[at]yahoo[dot]com" zainul_ulum
Mumpung disinggung tentang OOP kalo nggak salah kepanjangan dari (Object Oriented Programming), minta tolong diulas tentang "property get statement" dan "property set statement".
kelebihan menggunakan statement tersebut jika dibanding dengan menggunakan statement tersebut?
maturnuwun
-zainul-
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of Mr. Kid
Sent: Wednesday, October 02, 2013 8:55 AM
To: BeExcel
Subject: Re: [belajar-excel] Macro Openoffice
wakakaka...
iya, perlu dicoba dulu.
Kalau di star office waktu doeloe sih bisa. Cuman kadang gak bisa pas udah berurusan sama userform.
Jadi bikin VBAnya jangan yang rumit ya. Mungkin VBASupport nya akan mengubah si VBA jadi VBScript kali ya...
Saya gak mudeng dalemannya. Dokumentasinya dikit.
Kalau struktur objectnya, si OO memang lebih bagus dari VBA karena full OOP. Mungkin nanti kalau dah mulai banyak dokumentasi object model nya akan jadi lebih enak.
Wassalam,
Kid.
kelebihan menggunakan statement tersebut jika dibanding dengan menggunakan statement tersebut?
maturnuwun
-zainul-
From: belajar-excel@
Sent: Wednesday, October 02, 2013 8:55 AM
To: BeExcel
Subject: Re: [belajar-excel] Macro Openoffice
wakakaka...
iya, perlu dicoba dulu.
Kalau di star office waktu doeloe sih bisa. Cuman kadang gak bisa pas udah berurusan sama userform.
Jadi bikin VBAnya jangan yang rumit ya. Mungkin VBASupport nya akan mengubah si VBA jadi VBScript kali ya...
Saya gak mudeng dalemannya. Dokumentasinya dikit.
Kalau struktur objectnya, si OO memang lebih bagus dari VBA karena full OOP. Mungkin nanti kalau dah mulai banyak dokumentasi object model nya akan jadi lebih enak.
Wassalam,
Kid.
Tue Oct 1, 2013 6:52 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Dwi,
coba diubah begini :
1. sheet Page 1 cell T1 diisi angka 2 (karena saat ini nomor urutnya adalah
nomor 2)
2. sheet Page 1 cell O10 diberi formula berbunyi :
=TEXT(T1,"000")&"/"&ROMAN(MONTH(O12))&"/"&IFERROR(VLOOKUP(D10,Sheet1!$C$4:$E$6,3,0),"")&"/"&TEXT(O12,"YY")
3. prosedur NomorInvoiceOtomatis baris pertama diganti menjadi :
Range("T1").Value = Range("T1").Value + 1
agar merujuk ke cell T1 di sheet aktif
4. prosedur SimpanInvoice baris pertama diubah menjadi :
Dim NewFN As String
NewFN = "D:\DWi's FIle\DATA APP 2013\Invoice\Inv" &
Range("O10").Value & ".xlsx"
Wassalam,
Kid.
2013/10/1 dwi mulyaningsih <upiet29@yahoo.com>
> **
>
>
> Dear Pakar Excel,
>
> Saya mau membuat nomor invoice yang secara otomatis nomornya akan berubah
> pada saat tombol simpan diklik. Permasalahannya bagaimana membuat format
> nomor invoicenya agar otomatis akan bertambah satu digit. Format nomor
> invoicenya adalah 002/VIII/041/13 dimana 002 adalah nomor urut invoice,
> VIII adalah bulan, 041 adalah nomor sales order, dan 13 adalah 2 digit
> tahun.
> untuk customernya bagaimana agar otomatis bisa diisi, master data customer
> ada di sheet 1.
>
> Salam
> Dwi
>
>
>
coba diubah begini :
1. sheet Page 1 cell T1 diisi angka 2 (karena saat ini nomor urutnya adalah
nomor 2)
2. sheet Page 1 cell O10 diberi formula berbunyi :
=TEXT(T1,"
3. prosedur NomorInvoiceOtomati
Range("
agar merujuk ke cell T1 di sheet aktif
4. prosedur SimpanInvoice baris pertama diubah menjadi :
Dim NewFN As String
NewFN = "D:\
Range("
Wassalam,
Kid.
2013/10/1 dwi mulyaningsih <upiet29@yahoo.
> **
>
>
> Dear Pakar Excel,
>
> Saya mau membuat nomor invoice yang secara otomatis nomornya akan berubah
> pada saat tombol simpan diklik. Permasalahannya bagaimana membuat format
> nomor invoicenya agar otomatis akan bertambah satu digit. Format nomor
> invoicenya adalah 002/VIII/041/
> VIII adalah bulan, 041 adalah nomor sales order, dan 13 adalah 2 digit
> tahun.
> untuk customernya bagaimana agar otomatis bisa diisi, master data customer
> ada di sheet 1.
>
> Salam
> Dwi
>
>
>
Tue Oct 1, 2013 7:25 pm (PDT) . Posted by:
"dwi mulyaningsih" upiet29
Mr. Kid,
untuk formulanya kok tidak bisa ya?
selalu keluar command "formula you type contains an error" dan menunjuk ke nilai (T1,"000")
________________________________
From: Mr. Kid <mr.nmkid@gmail.com>
To: BeExcel <belajar-excel@yahoogroups.com>
Sent: Tuesday, October 1, 2013 8:51 PM
Subject: Re: [belajar-excel] Membuat Nomor Urut Invoice
Â
Hai Dwi,
coba diubah begini :
1. sheet Page 1 cell T1 diisi angka 2 (karena saat ini nomor urutnya adalah nomor 2)
2. sheet Page 1 cell O10 diberi formula berbunyi :
         =TEXT(T1,"000")&"/"&ROMAN(MONTH(O12))&"/"&IFERROR(VLOOKUP(D10,Sheet1!$C$4:$E$6,3,0),"")&"/"&TEXT(O12,"YY")
3. prosedur NomorInvoiceOtomatis baris pertama diganti menjadi :
        Range("T1").Value = Range("T1").Value + 1
   agar merujuk ke cell T1 di sheet aktif
4. prosedur SimpanInvoice baris pertama diubah menjadi :
        Dim NewFN As String
        NewFN = "D:\DWi's FIle\DATA APP 2013\Invoice\Inv" & Range("O10").Value & ".xlsx"
Wassalam,
Kid.
2013/10/1 dwi mulyaningsih <upiet29@yahoo.com>
>Â
>Dear Pakar Excel,
>
>
>Saya mau membuat nomor invoice yang secara otomatis nomornya akan berubah pada saat tombol simpan diklik. Permasalahannya bagaimana membuat format nomor invoicenya agar otomatis akan bertambah satu digit. Format nomor invoicenya adalah 002/VIII/041/13 dimana 002 adalah nomor urut invoice, VIII adalah bulan, 041 adalah nomor sales order, dan 13 adalah 2 digit tahun.
>untuk customernya bagaimana agar otomatis bisa diisi, master data customer ada di sheet 1.
>
>
>Salam
>Dwi
untuk formulanya kok tidak bisa ya?
selalu keluar command "formula you type contains an error" dan menunjuk ke nilai (T1,"000"
____________
From: Mr. Kid <mr.nmkid@gmail.
To: BeExcel <belajar-excel@
Sent: Tuesday, October 1, 2013 8:51 PM
Subject: Re: [belajar-excel] Membuat Nomor Urut Invoice
Â
Hai Dwi,
coba diubah begini :
1. sheet Page 1 cell T1 diisi angka 2 (karena saat ini nomor urutnya adalah nomor 2)
2. sheet Page 1 cell O10 diberi formula berbunyi :
         =TEXT(T1,"
3. prosedur NomorInvoiceOtomati
        Range("
   agar merujuk ke cell T1 di sheet aktif
4. prosedur SimpanInvoice baris pertama diubah menjadi :
        Dim NewFN As String
        NewFN = "D:\
Wassalam,
Kid.
2013/10/1 dwi mulyaningsih <upiet29@yahoo.
>Â
>Dear Pakar Excel,
>
>
>Saya mau membuat nomor invoice yang secara otomatis nomornya akan berubah pada saat tombol simpan diklik. Permasalahannya bagaimana membuat format nomor invoicenya agar otomatis akan bertambah satu digit. Format nomor invoicenya adalah 002/VIII/041/
>untuk customernya bagaimana agar otomatis bisa diisi, master data customer ada di sheet 1.
>
>
>Salam
>Dwi
Tue Oct 1, 2013 7:27 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Dwi,
Jika regional setting komputer setempat adalah Indonesian, ganti semua
karakter koma dalam formula menjadi karakter titik koma.
Wassalam,
Kid.
2013/10/2 dwi mulyaningsih <upiet29@yahoo.com>
> **
>
>
> Mr. Kid,
>
> untuk formulanya kok tidak bisa ya?
> selalu keluar command "formula you type contains an error" dan menunjuk ke
> nilai (T1,"000")
>
>
> ------------------------------
> *From:* Mr. Kid <mr.nmkid@gmail.com>
> *To:* BeExcel <belajar-excel@yahoogroups.com>
> *Sent:* Tuesday, October 1, 2013 8:51 PM
>
> *Subject:* Re: [belajar-excel] Membuat Nomor Urut Invoice
>
>
> Hai Dwi,
>
> coba diubah begini :
> 1. sheet Page 1 cell T1 diisi angka 2 (karena saat ini nomor urutnya
> adalah nomor 2)
> 2. sheet Page 1 cell O10 diberi formula berbunyi :
>
> =TEXT(T1,"000")&"/"&ROMAN(MONTH(O12))&"/"&IFERROR(VLOOKUP(D10,Sheet1!$C$4:$E$6,3,0),"")&"/"&TEXT(O12,"YY")
> 3. prosedur NomorInvoiceOtomatis baris pertama diganti menjadi :
> Range("T1").Value = Range("T1").Value + 1
> agar merujuk ke cell T1 di sheet aktif
> 4. prosedur SimpanInvoice baris pertama diubah menjadi :
> Dim NewFN As String
> NewFN = "D:\DWi's FIle\DATA APP 2013\Invoice\Inv" &
> Range("O10").Value & ".xlsx"
>
> Wassalam,
> Kid.
>
>
>
>
> 2013/10/1 dwi mulyaningsih <upiet29@yahoo.com>
>
> **
>
> Dear Pakar Excel,
>
> Saya mau membuat nomor invoice yang secara otomatis nomornya akan berubah
> pada saat tombol simpan diklik. Permasalahannya bagaimana membuat format
> nomor invoicenya agar otomatis akan bertambah satu digit. Format nomor
> invoicenya adalah 002/VIII/041/13 dimana 002 adalah nomor urut invoice,
> VIII adalah bulan, 041 adalah nomor sales order, dan 13 adalah 2 digit
> tahun.
> untuk customernya bagaimana agar otomatis bisa diisi, master data customer
> ada di sheet 1.
>
> Salam
> Dwi
>
>
>
>
>
>
Jika regional setting komputer setempat adalah Indonesian, ganti semua
karakter koma dalam formula menjadi karakter titik koma.
Wassalam,
Kid.
2013/10/2 dwi mulyaningsih <upiet29@yahoo.
> **
>
>
> Mr. Kid,
>
> untuk formulanya kok tidak bisa ya?
> selalu keluar command "formula you type contains an error" dan menunjuk ke
> nilai (T1,"000"
>
>
> ------------
> *From:* Mr. Kid <mr.nmkid@gmail.
> *To:* BeExcel <belajar-excel@
> *Sent:* Tuesday, October 1, 2013 8:51 PM
>
> *Subject:* Re: [belajar-excel] Membuat Nomor Urut Invoice
>
>
> Hai Dwi,
>
> coba diubah begini :
> 1. sheet Page 1 cell T1 diisi angka 2 (karena saat ini nomor urutnya
> adalah nomor 2)
> 2. sheet Page 1 cell O10 diberi formula berbunyi :
>
> =TEXT(T1,"
> 3. prosedur NomorInvoiceOtomati
> Range("
> agar merujuk ke cell T1 di sheet aktif
> 4. prosedur SimpanInvoice baris pertama diubah menjadi :
> Dim NewFN As String
> NewFN = "D:\
> Range("
>
> Wassalam,
> Kid.
>
>
>
>
> 2013/10/1 dwi mulyaningsih <upiet29@yahoo.
>
> **
>
> Dear Pakar Excel,
>
> Saya mau membuat nomor invoice yang secara otomatis nomornya akan berubah
> pada saat tombol simpan diklik. Permasalahannya bagaimana membuat format
> nomor invoicenya agar otomatis akan bertambah satu digit. Format nomor
> invoicenya adalah 002/VIII/041/
> VIII adalah bulan, 041 adalah nomor sales order, dan 13 adalah 2 digit
> tahun.
> untuk customernya bagaimana agar otomatis bisa diisi, master data customer
> ada di sheet 1.
>
> Salam
> Dwi
>
>
>
>
>
>
Tue Oct 1, 2013 7:25 am (PDT) . Posted by:
"Mr. KEPT" kurniawan_tufail@ymail.com
Dear Pak Hendrik,
mohon penjelasan bahasa manusianya untuk bagian scrip ini :
If rData(i, 1) = Sheets("Hasil").Range("F1") Then
r = r + 1
rHasil(r, 1).Value = "=N(R[-1]C)+1"
terimakasih sebelumnya pak,,
Regrads,
Kurniawan
--
View this message in context: http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-memindahkan-data-dari-sheetsatu-ke-sheet-yang-lain-dengan-kriteria-tertentu-yang-lebih-tp5721311p5721345.html
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
mohon penjelasan bahasa manusianya untuk bagian scrip ini :
If rData(i, 1) = Sheets("
r = r + 1
rHasil(r, 1).Value = "=N(R[-
terimakasih sebelumnya pak,,
Regrads,
Kurniawan
--
View this message in context: http://milis-
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
Tue Oct 1, 2013 9:15 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Hi Kurniawan,
Sebelum saya jelaskan satu persatu bagian Code di bawah, kita perlu fokus pada tujuan "filtering" yaitu mencari semua data yang kelompoknya sesuai dengan isi dari Range("F1") pada sheet ("Hasil") untuk ditampilkan pada rHasil.
If rData(i, 1) = Sheets("Hasil").Range("F1") Then
Jika range rData baris ke i kolom 1sama dengan isi dariRange(F1") pada sheet ("Hasil") maka .....(kondisi)
r = r + 1
Tambahkan 1 pada variable r (untuk mencari baris baru)
rHasil(r, 1).Value = "=N(R[-1]C)+1"
Nilai range rHasil baris ke r (baris baru) Â kolom 1 = Nilai diatasnya pada kolom yang sama (=N(R[-1]C) ditambah 1 (untuk mengisi No Urut pada rHasil)
Semoga penjelasan ini membuat anda semakin jelas.
Salam,
HK
________________________________
From: Mr. KEPT <kurniawan_tufail@ymail.com>
To: belajar-excel@yahoogroups.com
Sent: Tuesday, 1 October 2013, 21:25
Subject: Re: [belajar-excel] memindahkan data dari sheetsatu ke sheet yang lain dengan kriteria tertentu yang lebih dari satu
Â
Dear Pak Hendrik,
mohon penjelasan bahasa manusianya untuk bagian scrip ini :
If rData(i, 1) = Sheets("Hasil").Range("F1") Then
r = r + 1
rHasil(r, 1).Value = "=N(R[-1]C)+1"
terimakasih sebelumnya pak,,
Regrads,
Kurniawan
--
View this message in context: http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-memindahkan-data-dari-sheetsatu-ke-sheet-yang-lain-dengan-kriteria-tertentu-yang-lebih-tp5721311p5721345.html
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
Sebelum saya jelaskan satu persatu bagian Code di bawah, kita perlu fokus pada tujuan "filtering&quo
If rData(i, 1) = Sheets("
Jika range rData baris ke i kolom 1sama dengan isi dariRange(F1"
r = r + 1
Tambahkan 1 pada variable r (untuk mencari baris baru)
rHasil(r, 1).Value = "=N(R[-
Nilai range rHasil baris ke r (baris baru) Â kolom 1 = Nilai diatasnya pada kolom yang sama (=N(R[-1]C) ditambah 1 (untuk mengisi No Urut pada rHasil)
Semoga penjelasan ini membuat anda semakin jelas.
Salam,
HK
____________
From: Mr. KEPT <kurniawan_tufail@
To: belajar-excel@
Sent: Tuesday, 1 October 2013, 21:25
Subject: Re: [belajar-excel] memindahkan data dari sheetsatu ke sheet yang lain dengan kriteria tertentu yang lebih dari satu
Â
Dear Pak Hendrik,
mohon penjelasan bahasa manusianya untuk bagian scrip ini :
If rData(i, 1) = Sheets("
r = r + 1
rHasil(r, 1).Value = "=N(R[-
terimakasih sebelumnya pak,,
Regrads,
Kurniawan
--
View this message in context: http://milis-
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
Tue Oct 1, 2013 4:45 pm (PDT) . Posted by:
"De Premor" de.premor
Kalau untuk alternatif proteksi sepertinya tidak, karena tetap sama aja
hasil dari encryp tetap berupa text, tetapi kalau untuk menyembunyikan
password mungkin bisa agak sedikit menyulitkan pembacaannya, karena
musti di convert kesana kemari dulu :D
Dalam fungsi EncDec tersebut dibuat sederhana saja sesuai dengan
keperluan yang ada (menyembunyikan tanggal yang notabene berupa deretan
angka), dan harus bisa diambil lagi nilainya menjadi tanggal semula
yaitu cuma di xor dengan bilangan tertentu kemudian di xor lagi dengan
bilangan lainnya, kemudian diubah ke Hex, dan membalik prosesnya untuk
mengetahui nilai sebenarnya.
Enkripsi model seperti (bolak balik aka 2 arah ) ini tidak tertalu aman,
karena dapat dengan mudah dikembalikan ke nilai awal, tapi karena
keperluannya mengharuskan seperti itu ya mau gimana lagi :D
Enkripsi 2 arah yang sudah umum digunakan di jagat coding contohnya
BASE64, BLOWFISH, ROTATE13 dll
Selain enkripsi 2 arah yang bisa diketaui nilai awalnya, ada juga
enkripsi 1 arah, yang mustahil untuk diketahui nilai awalnya karena
sudah diacak2, dibolak-balik, diaduk-aduk, diobok-obok dst... sehingga
menghasilkan sebuah deret huruf dan angka yang tak bermakna dimata
manusia :D
Contoh Hasil enkripsi searah kata "Belajar-Excel" menggunakan MD5 :
d1dbd01073ad229fcde3ac345b94c36d
Didalam dunia perenkripsian ada sebuah istilah yang sama "Salting" ,
dimana hasil dari sebuah enkripsi dienkripsi lagi menggunakan kata
tertentu untuk menambah keamanan
Sementara ini dulu :D
On 01-10-2013 9:54, hendrik karnadi wrote:
> Pak De Premor,
>
> Dalam jawaban anda atas "Password Harian", ada suatu fungsi yang
> menarik, yaitu,
>
> Function EncDec(ByVal Anu, Optional Enc As Boolean = True)
> On Error Resume Next
> With Application.WorksheetFunction
> If Enc = True Then
> Anu = Anu Xor 53135 Xor 24642
> EncDec = .Dec2Hex(Anu)
> Else
> Anu = .Hex2Dec(Anu)
> EncDec = Anu Xor 24642 Xor 53135
> End If
> End With
> End Function
>
> Mohon dapat dijelaskan, apakah fungsi Enc ini bisa dipakai sebagai
> salah satu alternatif proteksi file yang lebih sulit dibongkar dan
> bagaimana cara membuat/pemakaiannya.
>
> Terima kasih.
>
> Salam,
> HK
>
hasil dari encryp tetap berupa text, tetapi kalau untuk menyembunyikan
password mungkin bisa agak sedikit menyulitkan pembacaannya, karena
musti di convert kesana kemari dulu :D
Dalam fungsi EncDec tersebut dibuat sederhana saja sesuai dengan
keperluan yang ada (menyembunyikan tanggal yang notabene berupa deretan
angka), dan harus bisa diambil lagi nilainya menjadi tanggal semula
yaitu cuma di xor dengan bilangan tertentu kemudian di xor lagi dengan
bilangan lainnya, kemudian diubah ke Hex, dan membalik prosesnya untuk
mengetahui nilai sebenarnya.
Enkripsi model seperti (bolak balik aka 2 arah ) ini tidak tertalu aman,
karena dapat dengan mudah dikembalikan ke nilai awal, tapi karena
keperluannya mengharuskan seperti itu ya mau gimana lagi :D
Enkripsi 2 arah yang sudah umum digunakan di jagat coding contohnya
BASE64, BLOWFISH, ROTATE13 dll
Selain enkripsi 2 arah yang bisa diketaui nilai awalnya, ada juga
enkripsi 1 arah, yang mustahil untuk diketahui nilai awalnya karena
sudah diacak2, dibolak-balik, diaduk-aduk, diobok-obok dst... sehingga
menghasilkan sebuah deret huruf dan angka yang tak bermakna dimata
manusia :D
Contoh Hasil enkripsi searah kata "Belajar-
d1dbd01073ad229fcde
Didalam dunia perenkripsian ada sebuah istilah yang sama "Salting" ,
dimana hasil dari sebuah enkripsi dienkripsi lagi menggunakan kata
tertentu untuk menambah keamanan
Sementara ini dulu :D
On 01-10-2013 9:54, hendrik karnadi wrote:
> Pak De Premor,
>
> Dalam jawaban anda atas "Password Harian"
> menarik, yaitu,
>
> Function EncDec(ByVal Anu, Optional Enc As Boolean = True)
> On Error Resume Next
> With Application.
> If Enc = True Then
> Anu = Anu Xor 53135 Xor 24642
> EncDec = .Dec2Hex(Anu)
> Else
> Anu = .Hex2Dec(Anu)
> EncDec = Anu Xor 24642 Xor 53135
> End If
> End With
> End Function
>
> Mohon dapat dijelaskan, apakah fungsi Enc ini bisa dipakai sebagai
> salah satu alternatif proteksi file yang lebih sulit dibongkar dan
> bagaimana cara membuat/pemakaianny
>
> Terima kasih.
>
> Salam,
> HK
>
Tue Oct 1, 2013 7:09 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Terima kasih Pak De.
Salam,
HK
________________________________
From: De Premor <de@premor.net>
To: belajar-excel@yahoogroups.com
Sent: Wednesday, 2 October 2013, 6:43
Subject: Re: [belajar-excel] Encryption
Â
Kalau untuk alternatif proteksi sepertinya tidak, karena tetap sama aja hasil dari encryp tetap berupa text, tetapi kalau untuk menyembunyikan password mungkin bisa agak sedikit menyulitkan pembacaannya, karena musti di convert kesana kemari dulu :D
Dalam fungsi EncDec tersebut dibuat sederhana saja sesuai dengan
keperluan yang ada (menyembunyikan tanggal yang notabene berupa
deretan angka), dan harus bisa diambil lagi nilainya menjadi
tanggal semula
yaitu cuma di xor dengan bilangan tertentu kemudian di xor lagi
dengan bilangan lainnya, kemudian diubah ke Hex, dan membalik
prosesnya untuk mengetahui nilai sebenarnya.
Enkripsi model seperti (bolak balik aka 2 arah ) ini tidak tertalu
aman, karena dapat dengan mudah dikembalikan ke nilai awal, tapi
karena keperluannya mengharuskan seperti itu ya mau gimana lagi :D
Enkripsi 2 arah yang sudah umum digunakan di jagat coding
contohnya BASE64, BLOWFISH, ROTATE13 dll
Selain enkripsi 2 arah yang bisa diketaui nilai awalnya, ada juga
enkripsi 1 arah, yang mustahil untuk diketahui nilai awalnya
karena sudah diacak2, dibolak-balik, diaduk-aduk, diobok-obok
dst... sehingga menghasilkan sebuah deret huruf dan angka yang tak
bermakna dimata manusia :D
Contoh Hasil enkripsi searah kata "Belajar-Excel" menggunakan MD5
: d1dbd01073ad229fcde3ac345b94c36d
Didalam dunia perenkripsian ada sebuah istilah yang sama "Salting"
, dimana hasil dari sebuah enkripsi dienkripsi lagi menggunakan
kata tertentu untuk menambah keamanan
Sementara ini dulu :D
On 01-10-2013 9:54, hendrik karnadi wrote:
Â
>Pak De Premor,
>
>
>Dalam jawaban anda atas "Password Harian", ada suatu fungsi yang menarik, yaitu,
>
>
>Function EncDec(ByVal Anu, Optional Enc As Boolean = True)
>Â Â On Error Resume Next
>Â Â With Application.WorksheetFunction
>Â Â Â Â If Enc = True Then
>Â Â Â Â Â Â Anu = Anu Xor 53135 Xor 24642
>Â Â Â Â Â Â EncDec = .Dec2Hex(Anu)
>Â Â Â Â Else
>Â Â Â Â Â Â Anu = .Hex2Dec(Anu)
>Â Â Â Â Â Â EncDec = Anu Xor 24642 Xor 53135
>Â Â Â Â End If
>Â Â End With
>End Function
>
>
>Mohon dapat dijelaskan, apakah fungsi Enc ini bisa dipakai sebagai salah satu alternatif proteksi file yang lebih sulit dibongkar dan bagaimana cara membuat/pemakaiannya.
>
>
>Terima kasih.
>
>
>Salam,
>HK
Salam,
HK
____________
From: De Premor <de@premor.net>
To: belajar-excel@
Sent: Wednesday, 2 October 2013, 6:43
Subject: Re: [belajar-excel] Encryption
Â
Kalau untuk alternatif proteksi sepertinya tidak, karena tetap sama aja hasil dari encryp tetap berupa text, tetapi kalau untuk menyembunyikan password mungkin bisa agak sedikit menyulitkan pembacaannya, karena musti di convert kesana kemari dulu :D
Dalam fungsi EncDec tersebut dibuat sederhana saja sesuai dengan
keperluan yang ada (menyembunyikan tanggal yang notabene berupa
deretan angka), dan harus bisa diambil lagi nilainya menjadi
tanggal semula
yaitu cuma di xor dengan bilangan tertentu kemudian di xor lagi
dengan bilangan lainnya, kemudian diubah ke Hex, dan membalik
prosesnya untuk mengetahui nilai sebenarnya.
Enkripsi model seperti (bolak balik aka 2 arah ) ini tidak tertalu
aman, karena dapat dengan mudah dikembalikan ke nilai awal, tapi
karena keperluannya mengharuskan seperti itu ya mau gimana lagi :D
Enkripsi 2 arah yang sudah umum digunakan di jagat coding
contohnya BASE64, BLOWFISH, ROTATE13 dll
Selain enkripsi 2 arah yang bisa diketaui nilai awalnya, ada juga
enkripsi 1 arah, yang mustahil untuk diketahui nilai awalnya
karena sudah diacak2, dibolak-balik, diaduk-aduk, diobok-obok
dst... sehingga menghasilkan sebuah deret huruf dan angka yang tak
bermakna dimata manusia :D
Contoh Hasil enkripsi searah kata "Belajar-
: d1dbd01073ad229fcde
Didalam dunia perenkripsian ada sebuah istilah yang sama "Salting"
, dimana hasil dari sebuah enkripsi dienkripsi lagi menggunakan
kata tertentu untuk menambah keamanan
Sementara ini dulu :D
On 01-10-2013 9:54, hendrik karnadi wrote:
Â
>Pak De Premor,
>
>
>Dalam jawaban anda atas "Password Harian"
>
>
>Function EncDec(ByVal Anu, Optional Enc As Boolean = True)
>Â Â On Error Resume Next
>Â Â With Application.
>Â Â Â Â If Enc = True Then
>Â Â Â Â Â Â Anu = Anu Xor 53135 Xor 24642
>Â Â Â Â Â Â EncDec = .Dec2Hex(Anu)
>Â Â Â Â Else
>Â Â Â Â Â Â Anu = .Hex2Dec(Anu)
>Â Â Â Â Â Â EncDec = Anu Xor 24642 Xor 53135
>Â Â Â Â End If
>Â Â End With
>End Function
>
>
>Mohon dapat dijelaskan, apakah fungsi Enc ini bisa dipakai sebagai salah satu alternatif proteksi file yang lebih sulit dibongkar dan bagaimana cara membuat/pemakaianny
>
>
>Terima kasih.
>
>
>Salam,
>HK
Tue Oct 1, 2013 6:46 pm (PDT) . Posted by:
"dwi mulyaningsih" upiet29
Dear opik,
saya panggil opik aja ya.
untuk script yang anda sebutkan :
Dlm NewFN = "D:\DWi's FIle\DATA APP 2013\Invoice\Inv" & Range("O10").Value & ".xlsx"
ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
NomorInvoiceOtomatis
Itu untuk save as otomatis dengan nama sesuai nomor invoicenya
Wassalam
________________________________
From: lapendosol opik <lapendosol@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Tuesday, October 1, 2013 7:15 PM
Subject: Re: [belajar-excel] Membuat Nomor Urut Invoice
Â
Woalah maap yak ga liat tabel Nomer Sales Order, jebulannya ada di sheet1.
Oke ditambahkan di step3
=VLOOKUP('Page 1'!D10,Sheet1!C4:E6,3)
Step5 nya jadi
=TEXT(LEFT(B2,3)+1,"000")&"/"&VLOOKUP(MONTH(NOW()),D2:E13,2)&"/"&VLOOKUP('Page 1'!D10,Sheet1!C4:E6,3)&"/"&RIGHT(YEAR(NOW()),2)
NB:
Tombol simpannya silahkan disesuaikan dengan kebutuhan biar berjalan sesuai keinginan terutama discript:
Dlm NewFN = "D:\DWi's FIle\DATA APP 2013\Invoice\Inv" & Range("O10").Value & ".xlsx"
ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
NomorInvoiceOtomatis
Saya belum paham yg begituan dan ga ngerti maksudnya buat ngapain.
________________________________
From: lapendosol opik <lapendosol@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Tuesday, October 1, 2013 6:27 PM
Subject: Re: [belajar-excel] Membuat Nomor Urut Invoice [1 Attachment]
Â
Hai Dwi,
Data yg dikirim kurang lengkap, difile yg dikirim ga ada tabel Nomer Sales Order, jadi silahkan utak atik sendiri ya.
Berikut solusi dari saya semoga bisa bermanfaat:
Buatkan sheet bantuan tersendiri untuk pembuatan/pergantian Nomer Invoice
Buatkan tabel bantuan pembuatan kode Romawi
Step 1: pembuatan nomer invoice 3digit
misal nomer invoice lengkap ada di cell B2
=TEXT(LEFT(B2,3)+1,"000")
Step 2: pembuatan romawi bulan sekarang
Buatkan tabel bantuan romawi misal ada di cell D2:E13
=VLOOKUP(MONTH(NOW()),D2:E13,2)
Step 3: pembuatan nomer sales order
Karena ga ada contoh sales order silahkan otak atik sendiri yg ini
Step 4: pembuatan 2digit tahun yg sekarang
=RIGHT(YEAR(NOW()),2)
Step 5: gabungkan step-step diatas
=TEXT(LEFT(B2,3)+1,"000")&"/"&VLOOKUP(MONTH(NOW()),D2:E13,2)&"/039/"&RIGHT(YEAR(NOW()),2)
Step 6: pindahkan dari tabel bantuan pembuatan invoice tersebut ke module simpan
Semoga bermanfaat
Wassalam,
________________________________
From: dwi mulyaningsih <upiet29@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Tuesday, October 1, 2013 4:49 PM
Subject: [belajar-excel] Membuat Nomor Urut Invoice [1 Attachment]
Â
Dear Pakar Excel,
Saya mau membuat nomor invoice yang secara otomatis nomornya akan berubah pada saat tombol simpan diklik. Permasalahannya bagaimana membuat format nomor invoicenya agar otomatis akan bertambah satu digit. Format nomor invoicenya adalah 002/VIII/041/13 dimana 002 adalah nomor urut invoice, VIII adalah bulan, 041 adalah nomor sales order, dan 13 adalah 2 digit tahun.
untuk customernya bagaimana agar otomatis bisa diisi, master data customer ada di sheet 1.
Salam
Dwi
saya panggil opik aja ya.
untuk script yang anda sebutkan :
Dlm NewFN = "D:\
ActiveWorkbook.
ActiveWorkbook.
NomorInvoiceOtomati
Itu untuk save as otomatis dengan nama sesuai nomor invoicenya
Wassalam
____________
From: lapendosol opik <lapendosol@yahoo.
To: "belajar-excel@
Sent: Tuesday, October 1, 2013 7:15 PM
Subject: Re: [belajar-excel] Membuat Nomor Urut Invoice
Â
Woalah maap yak ga liat tabel Nomer Sales Order, jebulannya ada di sheet1.
Oke ditambahkan di step3
=VLOOKUP('
Step5 nya jadi
=TEXT(LEFT(B2,
NB:
Tombol simpannya silahkan disesuaikan dengan kebutuhan biar berjalan sesuai keinginan terutama discript:
Dlm NewFN = "D:\
ActiveWorkbook.
ActiveWorkbook.
NomorInvoiceOtomati
Saya belum paham yg begituan dan ga ngerti maksudnya buat ngapain.
____________
From: lapendosol opik <lapendosol@yahoo.
To: "belajar-excel@
Sent: Tuesday, October 1, 2013 6:27 PM
Subject: Re: [belajar-excel] Membuat Nomor Urut Invoice [1 Attachment]
Â
Hai Dwi,
Data yg dikirim kurang lengkap, difile yg dikirim ga ada tabel Nomer Sales Order, jadi silahkan utak atik sendiri ya.
Berikut solusi dari saya semoga bisa bermanfaat:
Buatkan sheet bantuan tersendiri untuk pembuatan/pergantia
Buatkan tabel bantuan pembuatan kode Romawi
Step 1: pembuatan nomer invoice 3digit
misal nomer invoice lengkap ada di cell B2
=TEXT(LEFT(B2,
Step 2: pembuatan romawi bulan sekarang
Buatkan tabel bantuan romawi misal ada di cell D2:E13
=VLOOKUP(MONTH(
Step 3: pembuatan nomer sales order
Karena ga ada contoh sales order silahkan otak atik sendiri yg ini
Step 4: pembuatan 2digit tahun yg sekarang
=RIGHT(YEAR(
Step 5: gabungkan step-step diatas
=TEXT(LEFT(B2,
Step 6: pindahkan dari tabel bantuan pembuatan invoice tersebut ke module simpan
Semoga bermanfaat
Wassalam,
____________
From: dwi mulyaningsih <upiet29@yahoo.
To: "belajar-excel@
Sent: Tuesday, October 1, 2013 4:49 PM
Subject: [belajar-excel] Membuat Nomor Urut Invoice [1 Attachment]
Â
Dear Pakar Excel,
Saya mau membuat nomor invoice yang secara otomatis nomornya akan berubah pada saat tombol simpan diklik. Permasalahannya bagaimana membuat format nomor invoicenya agar otomatis akan bertambah satu digit. Format nomor invoicenya adalah 002/VIII/041/
untuk customernya bagaimana agar otomatis bisa diisi, master data customer ada di sheet 1.
Salam
Dwi
Tue Oct 1, 2013 7:05 pm (PDT) . Posted by:
"Ferry Ferdian" frnmgi
salam kenal,
yth,
Pimpinan komunitas Belajar Excel
mohon nanya gimana caranya memindahkan dan merubah suatu kolom yang berisi
data menjadi data yang kita inginin saja di kolom lain menggunakan
rumus fx, seperti contoh
kolom A1 kolom B2 (hasil)
A1 0 5
A2 0 2
A3 0 35
A4 5
A5 0
A6 2
A7 35
A8 0
atau angka 0 pada kolom A1 terdapat #N/A yang tentunya hasil tersebut tidak kita ingin tampilkan di kolom baru dan baris baru.
terima kasih,
Ferry
yth,
Pimpinan komunitas Belajar Excel
mohon nanya gimana caranya memindahkan dan merubah suatu kolom yang berisi
data menjadi data yang kita inginin saja di kolom lain menggunakan
rumus fx, seperti contoh
kolom A1 kolom B2 (hasil)
A1 0 5
A2 0 2
A3 0 35
A4 5
A5 0
A6 2
A7 35
A8 0
atau angka 0 pada kolom A1 terdapat #N/A yang tentunya hasil tersebut tidak kita ingin tampilkan di kolom baru dan baris baru.
terima kasih,
Ferry
GROUP FOOTER MESSAGE
=====================================================================
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
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar