15 Messages
Digest #3533
2a
Re: Pivottable - data banyak kolom digabung jadi sekolom [1 Attachme by "Mr. Kid" nmkid.family@ymail.com
Messages
Sun Aug 9, 2015 12:46 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Danny,
1. Bagaimana caranya mencegah data ganda dalam userform dengan jumlah 35
textbox? Contoh :
- jika semua data sama (semua textbox) , maka ada pesan = data masih sama.
- jika ada satu atau dua (textbox) yang berubah, maka ada pesan = textbox
1 dan 21 selesai diubah.
>> Jadi, apa maksud Anda dengan 'data ganda' ?
>> Contoh yang Anda berikan adalah tentang penyusunan pesan tentang
textbox-textbox yang mengalami pengubahan nilai.
>> Pesan bisa disusun dalam proses simpan, yaitu sebelum penulisan nilai
textbox ke suatu cell.
>> Kira-kira susunannya begini :
dim sMsg as string
if cdbl(textbox1.text)<>sheets("bunga").range("i5").value then
smsg=smsg & ", Textbox1"
endif
if cdbl(textbox2.text)<>sheets("bunga").range("i6").value then
smsg=smsg & ", Textbox2"
endif
dst sampai textbox35,
kemudian diikuti dengan proses penulisan nilai setiap textbox ke range
terkait, seperti :
sheets("bunga").range("i5").value=textbox1.text
dst
lalu ditutup dengan penampilan pesan :
if lenb(smsg)<>0 then
msgbox "Textbox yang berubah adalah :" & vbcrlf &
mid(smsg,3),vbinformation,"judul pesan"
else
msgbox "Semua data masih sama.",vbinformation,"judul pesan"
endif
>> Berhubung ada 35 textbox, maka bisa jadi baris kodenya akan ada banyak
sekali.
>> Selain itu, menampilkan pesan dengan MsgBox terbatasi sebanyak 1024
karakter. Jadi, jika pesannya lebih dari 1024 karakter, sebaiknya dibuat
sebuah userform berisi sebuah textbox pesan atau label pesan untuk
menampilkan bunyi pesannya.
--------------------------
2. Dalam kode textbox, saya mengisi agar tidak bisa diisi selain angka.
Tetapi dalam kondisi lain, saya ingin mengisi angka dengan menggunakan koma
atau titik (contoh = 7,5 atau 7.5). Kode apa yang bisa digunakan untuk
melakukan hal itu?
>> Textbox memiliki event bernama KeyPress atau KeyDown yang bisa digunakan
untuk hal ini.
>> Event KeyPress akan menggunakan kode ASCII karakter yang di-input user.
Event KeyDown akan menggunakan kode keyboard yang ditekan oleh user.
>> VB/VBA menggunakan karakter titik sebagai tanda desimal pada regional
setting apapun.
>> kode ASCII karakter titik adalah 46, kode keyboard karakter titik adalah
190 pada shift bernilai 0
>> kode ASCII angka 0 sampai 9 adalah 48 sampai 57, dengan kode keyboard
angka 0 sampai angka 9 adalah sama, yaitu 48 sampai 57.
>> Jika menggunakan event keypress :
select case keyascii
case 48 to 57, 46 'angka 0 sampai angka 9, karakter titik
'do nothing
case else
keyascii=0
end select
>> Jika menggunakan event keydown :
shift=0
select case keycode
case 48 to 57, 190 'keyboard untuk angka 0 sampai angka 9, keyboard untuk
karakter titik (ingat, pada shift tidak tertekan alias 0)
'do nothing
case else
keycode=0
end select
------------------------
Pada kasus ini, penggunaan textbox yang banyak bisa digantikan dengan
control datagrid, tetapi tampaknya kurang luwes bagi pengguna Excel. Jadi,
penggunaan textbox yang banyak masih bisa dimaklumi jika memang dituntut
harus bisa menampilkan seluruh nilai secara individual agar memudahkan
dalam proses input karena bisa membandingkan nilai di bagian lain.
Penggunan banyak control yang memiliki fungsional yang sama (misal pada
kasus ini sebagai media input nilai bunga, meski dari berbagai kriteria),
bisa disederhanakan dengan penyusunan class module berisi prosedur event
dari si control (misal textbox pada kasus ini). Dengan demikian, 1 (satu)
prosedur event tertentu bisa digunakan bersama oleh seluruh controls yang
secara fungsional adalah sama tersebut.
Bahkan, dengan cara tersebut akan bisa dikembangkan lebih jauh.
File terlampir adalah contoh dari banyak textbox yang cukup menggunakan 1
(satu) prosedur event tertentu. Seperti event keypress dari 35 textbox yang
ada cukup dengan 1 (satu) prosedur event keypress di class module. Begitu
juga untuk event change dari 35 textbox yang ada cukup dengan 1 (satu)
prosedur event change di class module.
Wassalam,
Kid
2015-08-06 19:07 GMT+07:00 Danny Prasetyo danny_06791@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Selamat malam para master. Saya ada 2 kendala.
> 1. Bagaimana caranya mencegah data ganda dalam userform dengan jumlah 35
> textbox? Contoh :
> - jika semua data sama (semua textbox) , maka ada pesan = data masih sama.
> - jika ada satu atau dua (textbox) yang berubah, maka ada pesan = textbox
> 1 dan 21 selesai diubah.
> 2. Dalam kode textbox, saya mengisi agar tidak bisa diisi selain angka.
> Tetapi dalam kondisi lain, saya ingin mengisi angka dengan menggunakan koma
> atau titik (contoh = 7,5 atau 7.5). Kode apa yang bisa digunakan untuk
> melakukan hal itu?
>
> Terima kasih jika bersedia membantu.
>
>
>
1. Bagaimana caranya mencegah data ganda dalam userform dengan jumlah 35
textbox? Contoh :
- jika semua data sama (semua textbox) , maka ada pesan = data masih sama.
- jika ada satu atau dua (textbox) yang berubah, maka ada pesan = textbox
1 dan 21 selesai diubah.
>> Jadi, apa maksud Anda dengan 'data ganda' ?
>> Contoh yang Anda berikan adalah tentang penyusunan pesan tentang
textbox-textbox yang mengalami pengubahan nilai.
>> Pesan bisa disusun dalam proses simpan, yaitu sebelum penulisan nilai
textbox ke suatu cell.
>> Kira-kira susunannya begini :
dim sMsg as string
if cdbl(textbox1.text)<>sheets("bunga").range("i5").value then
smsg=smsg & ", Textbox1"
endif
if cdbl(textbox2.text)<>sheets("bunga").range("i6").value then
smsg=smsg & ", Textbox2"
endif
dst sampai textbox35,
kemudian diikuti dengan proses penulisan nilai setiap textbox ke range
terkait, seperti :
sheets("bunga").range("i5").value=textbox1.text
dst
lalu ditutup dengan penampilan pesan :
if lenb(smsg)<>0 then
msgbox "Textbox yang berubah adalah :" & vbcrlf &
mid(smsg,3),vbinformation,"judul pesan"
else
msgbox "Semua data masih sama.",vbinformation,"judul pesan"
endif
>> Berhubung ada 35 textbox, maka bisa jadi baris kodenya akan ada banyak
sekali.
>> Selain itu, menampilkan pesan dengan MsgBox terbatasi sebanyak 1024
karakter. Jadi, jika pesannya lebih dari 1024 karakter, sebaiknya dibuat
sebuah userform berisi sebuah textbox pesan atau label pesan untuk
menampilkan bunyi pesannya.
--------------------------
2. Dalam kode textbox, saya mengisi agar tidak bisa diisi selain angka.
Tetapi dalam kondisi lain, saya ingin mengisi angka dengan menggunakan koma
atau titik (contoh = 7,5 atau 7.5). Kode apa yang bisa digunakan untuk
melakukan hal itu?
>> Textbox memiliki event bernama KeyPress atau KeyDown yang bisa digunakan
untuk hal ini.
>> Event KeyPress akan menggunakan kode ASCII karakter yang di-input user.
Event KeyDown akan menggunakan kode keyboard yang ditekan oleh user.
>> VB/VBA menggunakan karakter titik sebagai tanda desimal pada regional
setting apapun.
>> kode ASCII karakter titik adalah 46, kode keyboard karakter titik adalah
190 pada shift bernilai 0
>> kode ASCII angka 0 sampai 9 adalah 48 sampai 57, dengan kode keyboard
angka 0 sampai angka 9 adalah sama, yaitu 48 sampai 57.
>> Jika menggunakan event keypress :
select case keyascii
case 48 to 57, 46 'angka 0 sampai angka 9, karakter titik
'do nothing
case else
keyascii=0
end select
>> Jika menggunakan event keydown :
shift=0
select case keycode
case 48 to 57, 190 'keyboard untuk angka 0 sampai angka 9, keyboard untuk
karakter titik (ingat, pada shift tidak tertekan alias 0)
'do nothing
case else
keycode=0
end select
------------------------
Pada kasus ini, penggunaan textbox yang banyak bisa digantikan dengan
control datagrid, tetapi tampaknya kurang luwes bagi pengguna Excel. Jadi,
penggunaan textbox yang banyak masih bisa dimaklumi jika memang dituntut
harus bisa menampilkan seluruh nilai secara individual agar memudahkan
dalam proses input karena bisa membandingkan nilai di bagian lain.
Penggunan banyak control yang memiliki fungsional yang sama (misal pada
kasus ini sebagai media input nilai bunga, meski dari berbagai kriteria),
bisa disederhanakan dengan penyusunan class module berisi prosedur event
dari si control (misal textbox pada kasus ini). Dengan demikian, 1 (satu)
prosedur event tertentu bisa digunakan bersama oleh seluruh controls yang
secara fungsional adalah sama tersebut.
Bahkan, dengan cara tersebut akan bisa dikembangkan lebih jauh.
File terlampir adalah contoh dari banyak textbox yang cukup menggunakan 1
(satu) prosedur event tertentu. Seperti event keypress dari 35 textbox yang
ada cukup dengan 1 (satu) prosedur event keypress di class module. Begitu
juga untuk event change dari 35 textbox yang ada cukup dengan 1 (satu)
prosedur event change di class module.
Wassalam,
Kid
2015-08-06 19:07 GMT+07:00 Danny Prasetyo danny_06791@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Selamat malam para master. Saya ada 2 kendala.
> 1. Bagaimana caranya mencegah data ganda dalam userform dengan jumlah 35
> textbox? Contoh :
> - jika semua data sama (semua textbox) , maka ada pesan = data masih sama.
> - jika ada satu atau dua (textbox) yang berubah, maka ada pesan = textbox
> 1 dan 21 selesai diubah.
> 2. Dalam kode textbox, saya mengisi agar tidak bisa diisi selain angka.
> Tetapi dalam kondisi lain, saya ingin mengisi angka dengan menggunakan koma
> atau titik (contoh = 7,5 atau 7.5). Kode apa yang bisa digunakan untuk
> melakukan hal itu?
>
> Terima kasih jika bersedia membantu.
>
>
>
Sun Aug 9, 2015 7:18 pm (PDT) . Posted by:
"Subroto, Matzen"
Hi Mr. Kid
Assalamu alaikum, Mr. Kid
mohon pencerahannya perihal protectsheet dalam file ini
Wa alaikum salam
Terima kasih atas perhatian dan kerjasamanya, dan saya mohon maaf apabila ada kata-kata yang kurang berkenan
Terima Kasih
Matzen
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 10 Agustus 2015 2:46
To: BeExcel
Subject: Re: [belajar-excel] Mencegah data ganda [1 Attachment]
Hai Danny,
1. Bagaimana caranya mencegah data ganda dalam userform dengan jumlah 35 textbox? Contoh :
- jika semua data sama (semua textbox) , maka ada pesan = data masih sama.
- jika ada satu atau dua (textbox) yang berubah, maka ada pesan = textbox 1 dan 21 selesai diubah.
>> Jadi, apa maksud Anda dengan 'data ganda' ?
>> Contoh yang Anda berikan adalah tentang penyusunan pesan tentang textbox-textbox yang mengalami pengubahan nilai.
>> Pesan bisa disusun dalam proses simpan, yaitu sebelum penulisan nilai textbox ke suatu cell.
>> Kira-kira susunannya begini :
dim sMsg as string
if cdbl(textbox1.text)<>sheets("bunga").range("i5").value then
smsg=smsg & ", Textbox1"
endif
if cdbl(textbox2.text)<>sheets("bunga").range("i6").value then
smsg=smsg & ", Textbox2"
endif
dst sampai textbox35,
kemudian diikuti dengan proses penulisan nilai setiap textbox ke range terkait, seperti :
sheets("bunga").range("i5").value=textbox1.text
dst
lalu ditutup dengan penampilan pesan :
if lenb(smsg)<>0 then
msgbox "Textbox yang berubah adalah :" & vbcrlf & mid(smsg,3),vbinformation,"judul pesan"
else
msgbox "Semua data masih sama.",vbinformation,"judul pesan"
endif
>> Berhubung ada 35 textbox, maka bisa jadi baris kodenya akan ada banyak sekali.
>> Selain itu, menampilkan pesan dengan MsgBox terbatasi sebanyak 1024 karakter. Jadi, jika pesannya lebih dari 1024 karakter, sebaiknya dibuat sebuah userform berisi sebuah textbox pesan atau label pesan untuk menampilkan bunyi pesannya.
--------------------------
2. Dalam kode textbox, saya mengisi agar tidak bisa diisi selain angka. Tetapi dalam kondisi lain, saya ingin mengisi angka dengan menggunakan koma atau titik (contoh = 7,5 atau 7.5). Kode apa yang bisa digunakan untuk melakukan hal itu?
>> Textbox memiliki event bernama KeyPress atau KeyDown yang bisa digunakan untuk hal ini.
>> Event KeyPress akan menggunakan kode ASCII karakter yang di-input user. Event KeyDown akan menggunakan kode keyboard yang ditekan oleh user.
>> VB/VBA menggunakan karakter titik sebagai tanda desimal pada regional setting apapun.
>> kode ASCII karakter titik adalah 46, kode keyboard karakter titik adalah 190 pada shift bernilai 0
>> kode ASCII angka 0 sampai 9 adalah 48 sampai 57, dengan kode keyboard angka 0 sampai angka 9 adalah sama, yaitu 48 sampai 57.
>> Jika menggunakan event keypress :
select case keyascii
case 48 to 57, 46 'angka 0 sampai angka 9, karakter titik
'do nothing
case else
keyascii=0
end select
>> Jika menggunakan event keydown :
shift=0
select case keycode
case 48 to 57, 190 'keyboard untuk angka 0 sampai angka 9, keyboard untuk karakter titik (ingat, pada shift tidak tertekan alias 0)
'do nothing
case else
keycode=0
end select
------------------------
Pada kasus ini, penggunaan textbox yang banyak bisa digantikan dengan control datagrid, tetapi tampaknya kurang luwes bagi pengguna Excel. Jadi, penggunaan textbox yang banyak masih bisa dimaklumi jika memang dituntut harus bisa menampilkan seluruh nilai secara individual agar memudahkan dalam proses input karena bisa membandingkan nilai di bagian lain.
Penggunan banyak control yang memiliki fungsional yang sama (misal pada kasus ini sebagai media input nilai bunga, meski dari berbagai kriteria), bisa disederhanakan dengan penyusunan class module berisi prosedur event dari si control (misal textbox pada kasus ini). Dengan demikian, 1 (satu) prosedur event tertentu bisa digunakan bersama oleh seluruh controls yang secara fungsional adalah sama tersebut.
Bahkan, dengan cara tersebut akan bisa dikembangkan lebih jauh.
File terlampir adalah contoh dari banyak textbox yang cukup menggunakan 1 (satu) prosedur event tertentu. Seperti event keypress dari 35 textbox yang ada cukup dengan 1 (satu) prosedur event keypress di class module. Begitu juga untuk event change dari 35 textbox yang ada cukup dengan 1 (satu) prosedur event change di class module.
Wassalam,
Kid
2015-08-06 19:07 GMT+07:00 Danny Prasetyo danny_06791@yahoo.com<mailto:danny_06791@yahoo.com> [belajar-excel] <belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>>:
Selamat malam para master. Saya ada 2 kendala.
1. Bagaimana caranya mencegah data ganda dalam userform dengan jumlah 35 textbox? Contoh :
- jika semua data sama (semua textbox) , maka ada pesan = data masih sama.
- jika ada satu atau dua (textbox) yang berubah, maka ada pesan = textbox 1 dan 21 selesai diubah.
2. Dalam kode textbox, saya mengisi agar tidak bisa diisi selain angka. Tetapi dalam kondisi lain, saya ingin mengisi angka dengan menggunakan koma atau titik (contoh = 7,5 atau 7.5). Kode apa yang bisa digunakan untuk melakukan hal itu?
Terima kasih jika bersedia membantu.
__________________________________________________________
This email has been scanned for Viruses and Spam. For more information
please contact your local Business Unit Information Security representative.
__________________________________________________________
Assalamu alaikum, Mr. Kid
mohon pencerahannya perihal protectsheet dalam file ini
Wa alaikum salam
Terima kasih atas perhatian dan kerjasamanya, dan saya mohon maaf apabila ada kata-kata yang kurang berkenan
Terima Kasih
Matzen
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 10 Agustus 2015 2:46
To: BeExcel
Subject: Re: [belajar-excel] Mencegah data ganda [1 Attachment]
Hai Danny,
1. Bagaimana caranya mencegah data ganda dalam userform dengan jumlah 35 textbox? Contoh :
- jika semua data sama (semua textbox) , maka ada pesan = data masih sama.
- jika ada satu atau dua (textbox) yang berubah, maka ada pesan = textbox 1 dan 21 selesai diubah.
>> Jadi, apa maksud Anda dengan 'data ganda' ?
>> Contoh yang Anda berikan adalah tentang penyusunan pesan tentang textbox-textbox yang mengalami pengubahan nilai.
>> Pesan bisa disusun dalam proses simpan, yaitu sebelum penulisan nilai textbox ke suatu cell.
>> Kira-kira susunannya begini :
dim sMsg as string
if cdbl(textbox1.text)<>sheets("bunga").range("i5").value then
smsg=smsg & ", Textbox1"
endif
if cdbl(textbox2.text)<>sheets("bunga").range("i6").value then
smsg=smsg & ", Textbox2"
endif
dst sampai textbox35,
kemudian diikuti dengan proses penulisan nilai setiap textbox ke range terkait, seperti :
sheets("bunga").range("i5").value=textbox1.text
dst
lalu ditutup dengan penampilan pesan :
if lenb(smsg)<>0 then
msgbox "Textbox yang berubah adalah :" & vbcrlf & mid(smsg,3),vbinformation,"judul pesan"
else
msgbox "Semua data masih sama.",vbinformation,"judul pesan"
endif
>> Berhubung ada 35 textbox, maka bisa jadi baris kodenya akan ada banyak sekali.
>> Selain itu, menampilkan pesan dengan MsgBox terbatasi sebanyak 1024 karakter. Jadi, jika pesannya lebih dari 1024 karakter, sebaiknya dibuat sebuah userform berisi sebuah textbox pesan atau label pesan untuk menampilkan bunyi pesannya.
--------------------------
2. Dalam kode textbox, saya mengisi agar tidak bisa diisi selain angka. Tetapi dalam kondisi lain, saya ingin mengisi angka dengan menggunakan koma atau titik (contoh = 7,5 atau 7.5). Kode apa yang bisa digunakan untuk melakukan hal itu?
>> Textbox memiliki event bernama KeyPress atau KeyDown yang bisa digunakan untuk hal ini.
>> Event KeyPress akan menggunakan kode ASCII karakter yang di-input user. Event KeyDown akan menggunakan kode keyboard yang ditekan oleh user.
>> VB/VBA menggunakan karakter titik sebagai tanda desimal pada regional setting apapun.
>> kode ASCII karakter titik adalah 46, kode keyboard karakter titik adalah 190 pada shift bernilai 0
>> kode ASCII angka 0 sampai 9 adalah 48 sampai 57, dengan kode keyboard angka 0 sampai angka 9 adalah sama, yaitu 48 sampai 57.
>> Jika menggunakan event keypress :
select case keyascii
case 48 to 57, 46 'angka 0 sampai angka 9, karakter titik
'do nothing
case else
keyascii=0
end select
>> Jika menggunakan event keydown :
shift=0
select case keycode
case 48 to 57, 190 'keyboard untuk angka 0 sampai angka 9, keyboard untuk karakter titik (ingat, pada shift tidak tertekan alias 0)
'do nothing
case else
keycode=0
end select
------------------------
Pada kasus ini, penggunaan textbox yang banyak bisa digantikan dengan control datagrid, tetapi tampaknya kurang luwes bagi pengguna Excel. Jadi, penggunaan textbox yang banyak masih bisa dimaklumi jika memang dituntut harus bisa menampilkan seluruh nilai secara individual agar memudahkan dalam proses input karena bisa membandingkan nilai di bagian lain.
Penggunan banyak control yang memiliki fungsional yang sama (misal pada kasus ini sebagai media input nilai bunga, meski dari berbagai kriteria), bisa disederhanakan dengan penyusunan class module berisi prosedur event dari si control (misal textbox pada kasus ini). Dengan demikian, 1 (satu) prosedur event tertentu bisa digunakan bersama oleh seluruh controls yang secara fungsional adalah sama tersebut.
Bahkan, dengan cara tersebut akan bisa dikembangkan lebih jauh.
File terlampir adalah contoh dari banyak textbox yang cukup menggunakan 1 (satu) prosedur event tertentu. Seperti event keypress dari 35 textbox yang ada cukup dengan 1 (satu) prosedur event keypress di class module. Begitu juga untuk event change dari 35 textbox yang ada cukup dengan 1 (satu) prosedur event change di class module.
Wassalam,
Kid
2015-08-06 19:07 GMT+07:00 Danny Prasetyo danny_06791@yahoo.com<mailto:danny_06791@yahoo.com> [belajar-excel] <belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>>:
Selamat malam para master. Saya ada 2 kendala.
1. Bagaimana caranya mencegah data ganda dalam userform dengan jumlah 35 textbox? Contoh :
- jika semua data sama (semua textbox) , maka ada pesan = data masih sama.
- jika ada satu atau dua (textbox) yang berubah, maka ada pesan = textbox 1 dan 21 selesai diubah.
2. Dalam kode textbox, saya mengisi agar tidak bisa diisi selain angka. Tetapi dalam kondisi lain, saya ingin mengisi angka dengan menggunakan koma atau titik (contoh = 7,5 atau 7.5). Kode apa yang bisa digunakan untuk melakukan hal itu?
Terima kasih jika bersedia membantu.
____________
This email has been scanned for Viruses and Spam. For more information
please contact your local Business Unit Information Security representative.
____________
Sun Aug 9, 2015 7:25 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam wr wb
Pak Matzen,
Sheet di protect melalui ribbon Review -> group Changes -> Protect Sheet
tanpa password. Jadi, bisa di-unprotect dengan ribbon Review -> group
Changes -> UnProtect Sheet.
Cells berwarna hijau yang menjadi area inputan oleh user tidak di-proteksi
(tidak ada proteksi cells nya), sedangkan selain itu diproteksi cellsnya.
Proteksi cells berlaku jika worksheet diproteksi. Cara memproteksi cells
adalah dengan mengatur properti Locked dari cells yang akan tidak
diproteksi, karena secara default, semua cells dalam Excel akan dalam
keadaan terproteksi.
Jadi, cells yang berwarna hijau dilepas proteksi cells nya dengan cara :
klik kanan cells berwarna hijau -> Format Cells -> tab Protection ->
hilangkan centang dari opsi Locked -> OK.
Dengan demikian, ketika sheet diproteksi dengan ribbon Review -> group
Changes -> Protect Sheet -> lalu dipilih agar yang tercentang hanya opsi
Select Unprotected cells -> lalu OK (bila perlu isi password), maka cells
berwarna hijau masih bisa diakses user karena tidak terproteksi cells nya
(properti Locked sudah di FALSE alias dihilangkan centangnya tadi).
Wassalamu'alaikum wr wb
Kid
2015-08-10 7:50 GMT+07:00 'Subroto, Matzen' matzen.subroto@akzonobel.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Hi Mr. Kid
>
>
>
> Assalamu alaikum, Mr. Kid
>
>
>
> mohon pencerahannya perihal protectsheet dalam file ini
>
>
>
> Wa alaikum salam
>
>
>
>
>
> Terima kasih atas perhatian dan kerjasamanya, dan saya mohon maaf apabila
> ada kata-kata yang kurang berkenan
>
>
>
>
>
> *Terima Kasih*
>
>
>
> *Matzen*
>
>
>
>
>
>
>
>
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* 10 Agustus 2015 2:46
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Mencegah data ganda [1 Attachment]
>
>
>
>
>
> Hai Danny,
>
> 1. Bagaimana caranya mencegah data ganda dalam userform dengan jumlah 35
> textbox? Contoh :
>
> - jika semua data sama (semua textbox) , maka ada pesan = data masih sama.
>
> - jika ada satu atau dua (textbox) yang berubah, maka ada pesan = textbox
> 1 dan 21 selesai diubah.
>
> >> Jadi, apa maksud Anda dengan 'data ganda' ?
>
> >> Contoh yang Anda berikan adalah tentang penyusunan pesan tentang
> textbox-textbox yang mengalami pengubahan nilai.
>
> >> Pesan bisa disusun dalam proses simpan, yaitu sebelum penulisan nilai
> textbox ke suatu cell.
>
> >> Kira-kira susunannya begini :
>
> dim sMsg as string
>
> if cdbl(textbox1.text)<>sheets("bunga").range("i5").value then
>
> smsg=smsg & ", Textbox1"
>
> endif
>
> if cdbl(textbox2.text)<>sheets("bunga").range("i6").value then
>
> smsg=smsg & ", Textbox2"
>
> endif
>
> dst sampai textbox35,
> kemudian diikuti dengan proses penulisan nilai setiap textbox ke range
> terkait, seperti :
>
> sheets("bunga").range("i5").value=textbox1.text
>
> dst
>
>
>
> lalu ditutup dengan penampilan pesan :
>
> if lenb(smsg)<>0 then
>
> msgbox "Textbox yang berubah adalah :" & vbcrlf &
> mid(smsg,3),vbinformation,"judul pesan"
>
> else
>
> msgbox "Semua data masih sama.",vbinformation,"judul pesan"
>
> endif
>
> >> Berhubung ada 35 textbox, maka bisa jadi baris kodenya akan ada banyak
> sekali.
> >> Selain itu, menampilkan pesan dengan MsgBox terbatasi sebanyak 1024
> karakter. Jadi, jika pesannya lebih dari 1024 karakter, sebaiknya dibuat
> sebuah userform berisi sebuah textbox pesan atau label pesan untuk
> menampilkan bunyi pesannya.
>
>
>
> --------------------------
>
> 2. Dalam kode textbox, saya mengisi agar tidak bisa diisi selain angka.
> Tetapi dalam kondisi lain, saya ingin mengisi angka dengan menggunakan koma
> atau titik (contoh = 7,5 atau 7.5). Kode apa yang bisa digunakan untuk
> melakukan hal itu?
>
> >> Textbox memiliki event bernama KeyPress atau KeyDown yang bisa
> digunakan untuk hal ini.
>
> >> Event KeyPress akan menggunakan kode ASCII karakter yang di-input user.
> Event KeyDown akan menggunakan kode keyboard yang ditekan oleh user.
>
> >> VB/VBA menggunakan karakter titik sebagai tanda desimal pada regional
> setting apapun.
>
> >> kode ASCII karakter titik adalah 46, kode keyboard karakter titik
> adalah 190 pada shift bernilai 0
>
> >> kode ASCII angka 0 sampai 9 adalah 48 sampai 57, dengan kode keyboard
> angka 0 sampai angka 9 adalah sama, yaitu 48 sampai 57.
>
> >> Jika menggunakan event keypress :
>
> select case keyascii
>
> case 48 to 57, 46 'angka 0 sampai angka 9, karakter titik
>
> 'do nothing
>
> case else
>
> keyascii=0
>
> end select
>
> >> Jika menggunakan event keydown :
>
> shift=0
> select case keycode
>
> case 48 to 57, 190 'keyboard untuk angka 0 sampai angka 9, keyboard
> untuk karakter titik (ingat, pada shift tidak tertekan alias 0)
>
> 'do nothing
>
> case else
>
> keycode=0
>
> end select
>
> ------------------------
>
> Pada kasus ini, penggunaan textbox yang banyak bisa digantikan dengan
> control datagrid, tetapi tampaknya kurang luwes bagi pengguna Excel. Jadi,
> penggunaan textbox yang banyak masih bisa dimaklumi jika memang dituntut
> harus bisa menampilkan seluruh nilai secara individual agar memudahkan
> dalam proses input karena bisa membandingkan nilai di bagian lain.
>
>
>
> Penggunan banyak control yang memiliki fungsional yang sama (misal pada
> kasus ini sebagai media input nilai bunga, meski dari berbagai kriteria),
> bisa disederhanakan dengan penyusunan class module berisi prosedur event
> dari si control (misal textbox pada kasus ini). Dengan demikian, 1 (satu)
> prosedur event tertentu bisa digunakan bersama oleh seluruh controls yang
> secara fungsional adalah sama tersebut.
>
>
>
> Bahkan, dengan cara tersebut akan bisa dikembangkan lebih jauh.
>
> File terlampir adalah contoh dari banyak textbox yang cukup menggunakan 1
> (satu) prosedur event tertentu. Seperti event keypress dari 35 textbox yang
> ada cukup dengan 1 (satu) prosedur event keypress di class module. Begitu
> juga untuk event change dari 35 textbox yang ada cukup dengan 1 (satu)
> prosedur event change di class module.
>
> Wassalam,
>
> Kid
>
>
>
>
>
> 2015-08-06 19:07 GMT+07:00 Danny Prasetyo danny_06791@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Selamat malam para master. Saya ada 2 kendala.
>
> 1. Bagaimana caranya mencegah data ganda dalam userform dengan jumlah 35
> textbox? Contoh :
>
> - jika semua data sama (semua textbox) , maka ada pesan = data masih sama.
>
> - jika ada satu atau dua (textbox) yang berubah, maka ada pesan = textbox
> 1 dan 21 selesai diubah.
>
> 2. Dalam kode textbox, saya mengisi agar tidak bisa diisi selain angka.
> Tetapi dalam kondisi lain, saya ingin mengisi angka dengan menggunakan koma
> atau titik (contoh = 7,5 atau 7.5). Kode apa yang bisa digunakan untuk
> melakukan hal itu?
>
>
>
> Terima kasih jika bersedia membantu.
>
>
>
>
>
> __________________________________________________________
> This email has been scanned for Viruses and Spam. For more information
> please contact your local Business Unit Information Security
> representative.
>
> __________________________________________________________
>
>
>
Pak Matzen,
Sheet di protect melalui ribbon Review -> group Changes -> Protect Sheet
tanpa password. Jadi, bisa di-unprotect dengan ribbon Review -> group
Changes -> UnProtect Sheet.
Cells berwarna hijau yang menjadi area inputan oleh user tidak di-proteksi
(tidak ada proteksi cells nya), sedangkan selain itu diproteksi cellsnya.
Proteksi cells berlaku jika worksheet diproteksi. Cara memproteksi cells
adalah dengan mengatur properti Locked dari cells yang akan tidak
diproteksi, karena secara default, semua cells dalam Excel akan dalam
keadaan terproteksi.
Jadi, cells yang berwarna hijau dilepas proteksi cells nya dengan cara :
klik kanan cells berwarna hijau -> Format Cells -> tab Protection ->
hilangkan centang dari opsi Locked -> OK.
Dengan demikian, ketika sheet diproteksi dengan ribbon Review -> group
Changes -> Protect Sheet -> lalu dipilih agar yang tercentang hanya opsi
Select Unprotected cells -> lalu OK (bila perlu isi password), maka cells
berwarna hijau masih bisa diakses user karena tidak terproteksi cells nya
(properti Locked sudah di FALSE alias dihilangkan centangnya tadi).
Wassalamu'alaikum wr wb
Kid
2015-08-10 7:50 GMT+07:00 'Subroto, Matzen' matzen.subroto@akzonobel.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Hi Mr. Kid
>
>
>
> Assalamu alaikum, Mr. Kid
>
>
>
> mohon pencerahannya perihal protectsheet dalam file ini
>
>
>
> Wa alaikum salam
>
>
>
>
>
> Terima kasih atas perhatian dan kerjasamanya, dan saya mohon maaf apabila
> ada kata-kata yang kurang berkenan
>
>
>
>
>
> *Terima Kasih*
>
>
>
> *Matzen*
>
>
>
>
>
>
>
>
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* 10 Agustus 2015 2:46
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Mencegah data ganda [1 Attachment]
>
>
>
>
>
> Hai Danny,
>
> 1. Bagaimana caranya mencegah data ganda dalam userform dengan jumlah 35
> textbox? Contoh :
>
> - jika semua data sama (semua textbox) , maka ada pesan = data masih sama.
>
> - jika ada satu atau dua (textbox) yang berubah, maka ada pesan = textbox
> 1 dan 21 selesai diubah.
>
> >> Jadi, apa maksud Anda dengan 'data ganda' ?
>
> >> Contoh yang Anda berikan adalah tentang penyusunan pesan tentang
> textbox-textbox yang mengalami pengubahan nilai.
>
> >> Pesan bisa disusun dalam proses simpan, yaitu sebelum penulisan nilai
> textbox ke suatu cell.
>
> >> Kira-kira susunannya begini :
>
> dim sMsg as string
>
> if cdbl(textbox1.text)<>sheets("bunga").range("i5").value then
>
> smsg=smsg & ", Textbox1"
>
> endif
>
> if cdbl(textbox2.text)<>sheets("bunga").range("i6").value then
>
> smsg=smsg & ", Textbox2"
>
> endif
>
> dst sampai textbox35,
> kemudian diikuti dengan proses penulisan nilai setiap textbox ke range
> terkait, seperti :
>
> sheets("bunga").range("i5").value=textbox1.text
>
> dst
>
>
>
> lalu ditutup dengan penampilan pesan :
>
> if lenb(smsg)<>0 then
>
> msgbox "Textbox yang berubah adalah :" & vbcrlf &
> mid(smsg,3),vbinformation,"judul pesan"
>
> else
>
> msgbox "Semua data masih sama.",vbinformation,"judul pesan"
>
> endif
>
> >> Berhubung ada 35 textbox, maka bisa jadi baris kodenya akan ada banyak
> sekali.
> >> Selain itu, menampilkan pesan dengan MsgBox terbatasi sebanyak 1024
> karakter. Jadi, jika pesannya lebih dari 1024 karakter, sebaiknya dibuat
> sebuah userform berisi sebuah textbox pesan atau label pesan untuk
> menampilkan bunyi pesannya.
>
>
>
> --------------------------
>
> 2. Dalam kode textbox, saya mengisi agar tidak bisa diisi selain angka.
> Tetapi dalam kondisi lain, saya ingin mengisi angka dengan menggunakan koma
> atau titik (contoh = 7,5 atau 7.5). Kode apa yang bisa digunakan untuk
> melakukan hal itu?
>
> >> Textbox memiliki event bernama KeyPress atau KeyDown yang bisa
> digunakan untuk hal ini.
>
> >> Event KeyPress akan menggunakan kode ASCII karakter yang di-input user.
> Event KeyDown akan menggunakan kode keyboard yang ditekan oleh user.
>
> >> VB/VBA menggunakan karakter titik sebagai tanda desimal pada regional
> setting apapun.
>
> >> kode ASCII karakter titik adalah 46, kode keyboard karakter titik
> adalah 190 pada shift bernilai 0
>
> >> kode ASCII angka 0 sampai 9 adalah 48 sampai 57, dengan kode keyboard
> angka 0 sampai angka 9 adalah sama, yaitu 48 sampai 57.
>
> >> Jika menggunakan event keypress :
>
> select case keyascii
>
> case 48 to 57, 46 'angka 0 sampai angka 9, karakter titik
>
> 'do nothing
>
> case else
>
> keyascii=0
>
> end select
>
> >> Jika menggunakan event keydown :
>
> shift=0
> select case keycode
>
> case 48 to 57, 190 'keyboard untuk angka 0 sampai angka 9, keyboard
> untuk karakter titik (ingat, pada shift tidak tertekan alias 0)
>
> 'do nothing
>
> case else
>
> keycode=0
>
> end select
>
> ------------------------
>
> Pada kasus ini, penggunaan textbox yang banyak bisa digantikan dengan
> control datagrid, tetapi tampaknya kurang luwes bagi pengguna Excel. Jadi,
> penggunaan textbox yang banyak masih bisa dimaklumi jika memang dituntut
> harus bisa menampilkan seluruh nilai secara individual agar memudahkan
> dalam proses input karena bisa membandingkan nilai di bagian lain.
>
>
>
> Penggunan banyak control yang memiliki fungsional yang sama (misal pada
> kasus ini sebagai media input nilai bunga, meski dari berbagai kriteria),
> bisa disederhanakan dengan penyusunan class module berisi prosedur event
> dari si control (misal textbox pada kasus ini). Dengan demikian, 1 (satu)
> prosedur event tertentu bisa digunakan bersama oleh seluruh controls yang
> secara fungsional adalah sama tersebut.
>
>
>
> Bahkan, dengan cara tersebut akan bisa dikembangkan lebih jauh.
>
> File terlampir adalah contoh dari banyak textbox yang cukup menggunakan 1
> (satu) prosedur event tertentu. Seperti event keypress dari 35 textbox yang
> ada cukup dengan 1 (satu) prosedur event keypress di class module. Begitu
> juga untuk event change dari 35 textbox yang ada cukup dengan 1 (satu)
> prosedur event change di class module.
>
> Wassalam,
>
> Kid
>
>
>
>
>
> 2015-08-06 19:07 GMT+07:00 Danny Prasetyo danny_06791@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Selamat malam para master. Saya ada 2 kendala.
>
> 1. Bagaimana caranya mencegah data ganda dalam userform dengan jumlah 35
> textbox? Contoh :
>
> - jika semua data sama (semua textbox) , maka ada pesan = data masih sama.
>
> - jika ada satu atau dua (textbox) yang berubah, maka ada pesan = textbox
> 1 dan 21 selesai diubah.
>
> 2. Dalam kode textbox, saya mengisi agar tidak bisa diisi selain angka.
> Tetapi dalam kondisi lain, saya ingin mengisi angka dengan menggunakan koma
> atau titik (contoh = 7,5 atau 7.5). Kode apa yang bisa digunakan untuk
> melakukan hal itu?
>
>
>
> Terima kasih jika bersedia membantu.
>
>
>
>
>
> ____________
> This email has been scanned for Viruses and Spam. For more information
> please contact your local Business Unit Information Security
> representative.
>
> ____________
>
>
>
Sun Aug 9, 2015 7:34 pm (PDT) . Posted by:
"Subroto, Matzen"
Mr. Kid
Saya sudah coba untuk unprotect sheet, akan tetapi yang unlocked tetap yang cell yang warna hijau, sedangkan yang bisa edit hanya beberapa cell dan yang lain tetap terprotect
Wassalamu alaikum wr. Wb.
Matzen
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 10 Agustus 2015 9:25
To: BeExcel
Subject: Re: [belajar-excel] Mencegah data ganda
Wa'alaikumussalam wr wb
Pak Matzen,
Sheet di protect melalui ribbon Review -> group Changes -> Protect Sheet tanpa password. Jadi, bisa di-unprotect dengan ribbon Review -> group Changes -> UnProtect Sheet.
Cells berwarna hijau yang menjadi area inputan oleh user tidak di-proteksi (tidak ada proteksi cells nya), sedangkan selain itu diproteksi cellsnya. Proteksi cells berlaku jika worksheet diproteksi. Cara memproteksi cells adalah dengan mengatur properti Locked dari cells yang akan tidak diproteksi, karena secara default, semua cells dalam Excel akan dalam keadaan terproteksi.
Jadi, cells yang berwarna hijau dilepas proteksi cells nya dengan cara :
klik kanan cells berwarna hijau -> Format Cells -> tab Protection -> hilangkan centang dari opsi Locked -> OK.
Dengan demikian, ketika sheet diproteksi dengan ribbon Review -> group Changes -> Protect Sheet -> lalu dipilih agar yang tercentang hanya opsi Select Unprotected cells -> lalu OK (bila perlu isi password), maka cells berwarna hijau masih bisa diakses user karena tidak terproteksi cells nya (properti Locked sudah di FALSE alias dihilangkan centangnya tadi).
Wassalamu'alaikum wr wb
Kid
2015-08-10 7:50 GMT+07:00 'Subroto, Matzen' matzen.subroto@akzonobel.com<mailto:matzen.subroto@akzonobel.com> [belajar-excel] <belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>>:
Hi Mr. Kid
Assalamu alaikum, Mr. Kid
mohon pencerahannya perihal protectsheet dalam file ini
Wa alaikum salam
Terima kasih atas perhatian dan kerjasamanya, dan saya mohon maaf apabila ada kata-kata yang kurang berkenan
Terima Kasih
Matzen
From: belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com> [mailto:belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>]
Sent: 10 Agustus 2015 2:46
To: BeExcel
Subject: Re: [belajar-excel] Mencegah data ganda [1 Attachment]
Hai Danny,
1. Bagaimana caranya mencegah data ganda dalam userform dengan jumlah 35 textbox? Contoh :
- jika semua data sama (semua textbox) , maka ada pesan = data masih sama.
- jika ada satu atau dua (textbox) yang berubah, maka ada pesan = textbox 1 dan 21 selesai diubah.
>> Jadi, apa maksud Anda dengan 'data ganda' ?
>> Contoh yang Anda berikan adalah tentang penyusunan pesan tentang textbox-textbox yang mengalami pengubahan nilai.
>> Pesan bisa disusun dalam proses simpan, yaitu sebelum penulisan nilai textbox ke suatu cell.
>> Kira-kira susunannya begini :
dim sMsg as string
if cdbl(textbox1.text)<>sheets("bunga").range("i5").value then
smsg=smsg & ", Textbox1"
endif
if cdbl(textbox2.text)<>sheets("bunga").range("i6").value then
smsg=smsg & ", Textbox2"
endif
dst sampai textbox35,
kemudian diikuti dengan proses penulisan nilai setiap textbox ke range terkait, seperti :
sheets("bunga").range("i5").value=textbox1.text
dst
lalu ditutup dengan penampilan pesan :
if lenb(smsg)<>0 then
msgbox "Textbox yang berubah adalah :" & vbcrlf & mid(smsg,3),vbinformation,"judul pesan"
else
msgbox "Semua data masih sama.",vbinformation,"judul pesan"
endif
>> Berhubung ada 35 textbox, maka bisa jadi baris kodenya akan ada banyak sekali.
>> Selain itu, menampilkan pesan dengan MsgBox terbatasi sebanyak 1024 karakter. Jadi, jika pesannya lebih dari 1024 karakter, sebaiknya dibuat sebuah userform berisi sebuah textbox pesan atau label pesan untuk menampilkan bunyi pesannya.
--------------------------
2. Dalam kode textbox, saya mengisi agar tidak bisa diisi selain angka. Tetapi dalam kondisi lain, saya ingin mengisi angka dengan menggunakan koma atau titik (contoh = 7,5 atau 7.5). Kode apa yang bisa digunakan untuk melakukan hal itu?
>> Textbox memiliki event bernama KeyPress atau KeyDown yang bisa digunakan untuk hal ini.
>> Event KeyPress akan menggunakan kode ASCII karakter yang di-input user. Event KeyDown akan menggunakan kode keyboard yang ditekan oleh user.
>> VB/VBA menggunakan karakter titik sebagai tanda desimal pada regional setting apapun.
>> kode ASCII karakter titik adalah 46, kode keyboard karakter titik adalah 190 pada shift bernilai 0
>> kode ASCII angka 0 sampai 9 adalah 48 sampai 57, dengan kode keyboard angka 0 sampai angka 9 adalah sama, yaitu 48 sampai 57.
>> Jika menggunakan event keypress :
select case keyascii
case 48 to 57, 46 'angka 0 sampai angka 9, karakter titik
'do nothing
case else
keyascii=0
end select
>> Jika menggunakan event keydown :
shift=0
select case keycode
case 48 to 57, 190 'keyboard untuk angka 0 sampai angka 9, keyboard untuk karakter titik (ingat, pada shift tidak tertekan alias 0)
'do nothing
case else
keycode=0
end select
------------------------
Pada kasus ini, penggunaan textbox yang banyak bisa digantikan dengan control datagrid, tetapi tampaknya kurang luwes bagi pengguna Excel. Jadi, penggunaan textbox yang banyak masih bisa dimaklumi jika memang dituntut harus bisa menampilkan seluruh nilai secara individual agar memudahkan dalam proses input karena bisa membandingkan nilai di bagian lain.
Penggunan banyak control yang memiliki fungsional yang sama (misal pada kasus ini sebagai media input nilai bunga, meski dari berbagai kriteria), bisa disederhanakan dengan penyusunan class module berisi prosedur event dari si control (misal textbox pada kasus ini). Dengan demikian, 1 (satu) prosedur event tertentu bisa digunakan bersama oleh seluruh controls yang secara fungsional adalah sama tersebut.
Bahkan, dengan cara tersebut akan bisa dikembangkan lebih jauh.
File terlampir adalah contoh dari banyak textbox yang cukup menggunakan 1 (satu) prosedur event tertentu. Seperti event keypress dari 35 textbox yang ada cukup dengan 1 (satu) prosedur event keypress di class module. Begitu juga untuk event change dari 35 textbox yang ada cukup dengan 1 (satu) prosedur event change di class module.
Wassalam,
Kid
2015-08-06 19:07 GMT+07:00 Danny Prasetyo danny_06791@yahoo.com<mailto:danny_06791@yahoo.com> [belajar-excel] <belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>>:
Selamat malam para master. Saya ada 2 kendala.
1. Bagaimana caranya mencegah data ganda dalam userform dengan jumlah 35 textbox? Contoh :
- jika semua data sama (semua textbox) , maka ada pesan = data masih sama.
- jika ada satu atau dua (textbox) yang berubah, maka ada pesan = textbox 1 dan 21 selesai diubah.
2. Dalam kode textbox, saya mengisi agar tidak bisa diisi selain angka. Tetapi dalam kondisi lain, saya ingin mengisi angka dengan menggunakan koma atau titik (contoh = 7,5 atau 7.5). Kode apa yang bisa digunakan untuk melakukan hal itu?
Terima kasih jika bersedia membantu.
__________________________________________________________
This email has been scanned for Viruses and Spam. For more information
please contact your local Business Unit Information Security representative.
__________________________________________________________
__________________________________________________________
This email has been scanned for Viruses and Spam. For more information
please contact your local Business Unit Information Security representative.
__________________________________________________________
Saya sudah coba untuk unprotect sheet, akan tetapi yang unlocked tetap yang cell yang warna hijau, sedangkan yang bisa edit hanya beberapa cell dan yang lain tetap terprotect
Wassalamu alaikum wr. Wb.
Matzen
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 10 Agustus 2015 9:25
To: BeExcel
Subject: Re: [belajar-excel] Mencegah data ganda
Wa'alaikumussalam wr wb
Pak Matzen,
Sheet di protect melalui ribbon Review -> group Changes -> Protect Sheet tanpa password. Jadi, bisa di-unprotect dengan ribbon Review -> group Changes -> UnProtect Sheet.
Cells berwarna hijau yang menjadi area inputan oleh user tidak di-proteksi (tidak ada proteksi cells nya), sedangkan selain itu diproteksi cellsnya. Proteksi cells berlaku jika worksheet diproteksi. Cara memproteksi cells adalah dengan mengatur properti Locked dari cells yang akan tidak diproteksi, karena secara default, semua cells dalam Excel akan dalam keadaan terproteksi.
Jadi, cells yang berwarna hijau dilepas proteksi cells nya dengan cara :
klik kanan cells berwarna hijau -> Format Cells -> tab Protection -> hilangkan centang dari opsi Locked -> OK.
Dengan demikian, ketika sheet diproteksi dengan ribbon Review -> group Changes -> Protect Sheet -> lalu dipilih agar yang tercentang hanya opsi Select Unprotected cells -> lalu OK (bila perlu isi password), maka cells berwarna hijau masih bisa diakses user karena tidak terproteksi cells nya (properti Locked sudah di FALSE alias dihilangkan centangnya tadi).
Wassalamu'alaikum wr wb
Kid
2015-08-10 7:50 GMT+07:00 'Subroto, Matzen' matzen.subroto@akzonobel.com<mailto:matzen.subroto@akzonobel.com> [belajar-excel] <belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>>:
Hi Mr. Kid
Assalamu alaikum, Mr. Kid
mohon pencerahannya perihal protectsheet dalam file ini
Wa alaikum salam
Terima kasih atas perhatian dan kerjasamanya, dan saya mohon maaf apabila ada kata-kata yang kurang berkenan
Terima Kasih
Matzen
From: belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com> [mailto:belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>]
Sent: 10 Agustus 2015 2:46
To: BeExcel
Subject: Re: [belajar-excel] Mencegah data ganda [1 Attachment]
Hai Danny,
1. Bagaimana caranya mencegah data ganda dalam userform dengan jumlah 35 textbox? Contoh :
- jika semua data sama (semua textbox) , maka ada pesan = data masih sama.
- jika ada satu atau dua (textbox) yang berubah, maka ada pesan = textbox 1 dan 21 selesai diubah.
>> Jadi, apa maksud Anda dengan 'data ganda' ?
>> Contoh yang Anda berikan adalah tentang penyusunan pesan tentang textbox-textbox yang mengalami pengubahan nilai.
>> Pesan bisa disusun dalam proses simpan, yaitu sebelum penulisan nilai textbox ke suatu cell.
>> Kira-kira susunannya begini :
dim sMsg as string
if cdbl(textbox1.text)<>sheets("bunga").range("i5").value then
smsg=smsg & ", Textbox1"
endif
if cdbl(textbox2.text)<>sheets("bunga").range("i6").value then
smsg=smsg & ", Textbox2"
endif
dst sampai textbox35,
kemudian diikuti dengan proses penulisan nilai setiap textbox ke range terkait, seperti :
sheets("bunga").range("i5").value=textbox1.text
dst
lalu ditutup dengan penampilan pesan :
if lenb(smsg)<>0 then
msgbox "Textbox yang berubah adalah :" & vbcrlf & mid(smsg,3),vbinformation,"judul pesan"
else
msgbox "Semua data masih sama.",vbinformation,"judul pesan"
endif
>> Berhubung ada 35 textbox, maka bisa jadi baris kodenya akan ada banyak sekali.
>> Selain itu, menampilkan pesan dengan MsgBox terbatasi sebanyak 1024 karakter. Jadi, jika pesannya lebih dari 1024 karakter, sebaiknya dibuat sebuah userform berisi sebuah textbox pesan atau label pesan untuk menampilkan bunyi pesannya.
--------------------------
2. Dalam kode textbox, saya mengisi agar tidak bisa diisi selain angka. Tetapi dalam kondisi lain, saya ingin mengisi angka dengan menggunakan koma atau titik (contoh = 7,5 atau 7.5). Kode apa yang bisa digunakan untuk melakukan hal itu?
>> Textbox memiliki event bernama KeyPress atau KeyDown yang bisa digunakan untuk hal ini.
>> Event KeyPress akan menggunakan kode ASCII karakter yang di-input user. Event KeyDown akan menggunakan kode keyboard yang ditekan oleh user.
>> VB/VBA menggunakan karakter titik sebagai tanda desimal pada regional setting apapun.
>> kode ASCII karakter titik adalah 46, kode keyboard karakter titik adalah 190 pada shift bernilai 0
>> kode ASCII angka 0 sampai 9 adalah 48 sampai 57, dengan kode keyboard angka 0 sampai angka 9 adalah sama, yaitu 48 sampai 57.
>> Jika menggunakan event keypress :
select case keyascii
case 48 to 57, 46 'angka 0 sampai angka 9, karakter titik
'do nothing
case else
keyascii=0
end select
>> Jika menggunakan event keydown :
shift=0
select case keycode
case 48 to 57, 190 'keyboard untuk angka 0 sampai angka 9, keyboard untuk karakter titik (ingat, pada shift tidak tertekan alias 0)
'do nothing
case else
keycode=0
end select
------------------------
Pada kasus ini, penggunaan textbox yang banyak bisa digantikan dengan control datagrid, tetapi tampaknya kurang luwes bagi pengguna Excel. Jadi, penggunaan textbox yang banyak masih bisa dimaklumi jika memang dituntut harus bisa menampilkan seluruh nilai secara individual agar memudahkan dalam proses input karena bisa membandingkan nilai di bagian lain.
Penggunan banyak control yang memiliki fungsional yang sama (misal pada kasus ini sebagai media input nilai bunga, meski dari berbagai kriteria), bisa disederhanakan dengan penyusunan class module berisi prosedur event dari si control (misal textbox pada kasus ini). Dengan demikian, 1 (satu) prosedur event tertentu bisa digunakan bersama oleh seluruh controls yang secara fungsional adalah sama tersebut.
Bahkan, dengan cara tersebut akan bisa dikembangkan lebih jauh.
File terlampir adalah contoh dari banyak textbox yang cukup menggunakan 1 (satu) prosedur event tertentu. Seperti event keypress dari 35 textbox yang ada cukup dengan 1 (satu) prosedur event keypress di class module. Begitu juga untuk event change dari 35 textbox yang ada cukup dengan 1 (satu) prosedur event change di class module.
Wassalam,
Kid
2015-08-06 19:07 GMT+07:00 Danny Prasetyo danny_06791@yahoo.com<mailto:danny_06791@yahoo.com> [belajar-excel] <belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>>:
Selamat malam para master. Saya ada 2 kendala.
1. Bagaimana caranya mencegah data ganda dalam userform dengan jumlah 35 textbox? Contoh :
- jika semua data sama (semua textbox) , maka ada pesan = data masih sama.
- jika ada satu atau dua (textbox) yang berubah, maka ada pesan = textbox 1 dan 21 selesai diubah.
2. Dalam kode textbox, saya mengisi agar tidak bisa diisi selain angka. Tetapi dalam kondisi lain, saya ingin mengisi angka dengan menggunakan koma atau titik (contoh = 7,5 atau 7.5). Kode apa yang bisa digunakan untuk melakukan hal itu?
Terima kasih jika bersedia membantu.
____________
This email has been scanned for Viruses and Spam. For more information
please contact your local Business Unit Information Security representative.
____________
____________
This email has been scanned for Viruses and Spam. For more information
please contact your local Business Unit Information Security representative.
____________
Sun Aug 9, 2015 7:37 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Oh sudah di Unprotect sheet nya ya...
Kalau sudah di-Unprotect, maka semua cells bisa diakses dan di edit jika
ada dalam area scroll.
Area scroll bisa dilihat di VBE (ALT F11) -> object sheet terkait di
VBProject Explorer -> properti ScrollArea di window properties (kalau tidak
tampak adanya window properties, tekan F4. Lalu cari properti ScrollArea).
Jika properti ini dikosongkan, maka seluruh cells bisa di-scroll, yang
kemudian tampak bagi user semua cells bisa di klik.
Wassalamu'alaikum wr wb
Kid
2015-08-10 9:33 GMT+07:00 'Subroto, Matzen' matzen.subroto@akzonobel.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Mr. Kid
>
>
>
> Saya sudah coba untuk unprotect sheet, akan tetapi yang unlocked tetap
> yang cell yang warna hijau, sedangkan yang bisa edit hanya beberapa cell
> dan yang lain tetap terprotect
>
>
>
> Wassalamu alaikum wr. Wb.
>
>
>
> Matzen
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* 10 Agustus 2015 9:25
>
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Mencegah data ganda
>
>
>
>
>
> Wa'alaikumussalam wr wb
>
> Pak Matzen,
>
> Sheet di protect melalui ribbon Review -> group Changes -> Protect Sheet
> tanpa password. Jadi, bisa di-unprotect dengan ribbon Review -> group
> Changes -> UnProtect Sheet.
>
> Cells berwarna hijau yang menjadi area inputan oleh user tidak di-proteksi
> (tidak ada proteksi cells nya), sedangkan selain itu diproteksi cellsnya.
> Proteksi cells berlaku jika worksheet diproteksi. Cara memproteksi cells
> adalah dengan mengatur properti Locked dari cells yang akan tidak
> diproteksi, karena secara default, semua cells dalam Excel akan dalam
> keadaan terproteksi.
>
> Jadi, cells yang berwarna hijau dilepas proteksi cells nya dengan cara :
>
> klik kanan cells berwarna hijau -> Format Cells -> tab Protection ->
> hilangkan centang dari opsi Locked -> OK.
>
> Dengan demikian, ketika sheet diproteksi dengan ribbon Review -> group
> Changes -> Protect Sheet -> lalu dipilih agar yang tercentang hanya opsi
> Select Unprotected cells -> lalu OK (bila perlu isi password), maka cells
> berwarna hijau masih bisa diakses user karena tidak terproteksi cells nya
> (properti Locked sudah di FALSE alias dihilangkan centangnya tadi).
>
> Wassalamu'alaikum wr wb
>
> Kid
>
>
>
>
>
>
>
>
>
> 2015-08-10 7:50 GMT+07:00 'Subroto, Matzen' matzen.subroto@akzonobel.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Hi Mr. Kid
>
>
>
> Assalamu alaikum, Mr. Kid
>
>
>
> mohon pencerahannya perihal protectsheet dalam file ini
>
>
>
> Wa alaikum salam
>
>
>
>
>
> Terima kasih atas perhatian dan kerjasamanya, dan saya mohon maaf apabila
> ada kata-kata yang kurang berkenan
>
>
>
>
>
> *Terima Kasih*
>
>
>
> *Matzen*
>
>
>
>
>
>
>
>
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* 10 Agustus 2015 2:46
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Mencegah data ganda [1 Attachment]
>
>
>
>
>
> Hai Danny,
>
> 1. Bagaimana caranya mencegah data ganda dalam userform dengan jumlah 35
> textbox? Contoh :
>
> - jika semua data sama (semua textbox) , maka ada pesan = data masih sama.
>
> - jika ada satu atau dua (textbox) yang berubah, maka ada pesan = textbox
> 1 dan 21 selesai diubah.
>
> >> Jadi, apa maksud Anda dengan 'data ganda' ?
>
> >> Contoh yang Anda berikan adalah tentang penyusunan pesan tentang
> textbox-textbox yang mengalami pengubahan nilai.
>
> >> Pesan bisa disusun dalam proses simpan, yaitu sebelum penulisan nilai
> textbox ke suatu cell.
>
> >> Kira-kira susunannya begini :
>
> dim sMsg as string
>
> if cdbl(textbox1.text)<>sheets("bunga").range("i5").value then
>
> smsg=smsg & ", Textbox1"
>
> endif
>
> if cdbl(textbox2.text)<>sheets("bunga").range("i6").value then
>
> smsg=smsg & ", Textbox2"
>
> endif
>
> dst sampai textbox35,
> kemudian diikuti dengan proses penulisan nilai setiap textbox ke range
> terkait, seperti :
>
> sheets("bunga").range("i5").value=textbox1.text
>
> dst
>
>
>
> lalu ditutup dengan penampilan pesan :
>
> if lenb(smsg)<>0 then
>
> msgbox "Textbox yang berubah adalah :" & vbcrlf &
> mid(smsg,3),vbinformation,"judul pesan"
>
> else
>
> msgbox "Semua data masih sama.",vbinformation,"judul pesan"
>
> endif
>
> >> Berhubung ada 35 textbox, maka bisa jadi baris kodenya akan ada banyak
> sekali.
> >> Selain itu, menampilkan pesan dengan MsgBox terbatasi sebanyak 1024
> karakter. Jadi, jika pesannya lebih dari 1024 karakter, sebaiknya dibuat
> sebuah userform berisi sebuah textbox pesan atau label pesan untuk
> menampilkan bunyi pesannya.
>
>
>
> --------------------------
>
> 2. Dalam kode textbox, saya mengisi agar tidak bisa diisi selain angka.
> Tetapi dalam kondisi lain, saya ingin mengisi angka dengan menggunakan koma
> atau titik (contoh = 7,5 atau 7.5). Kode apa yang bisa digunakan untuk
> melakukan hal itu?
>
> >> Textbox memiliki event bernama KeyPress atau KeyDown yang bisa
> digunakan untuk hal ini.
>
> >> Event KeyPress akan menggunakan kode ASCII karakter yang di-input user.
> Event KeyDown akan menggunakan kode keyboard yang ditekan oleh user.
>
> >> VB/VBA menggunakan karakter titik sebagai tanda desimal pada regional
> setting apapun.
>
> >> kode ASCII karakter titik adalah 46, kode keyboard karakter titik
> adalah 190 pada shift bernilai 0
>
> >> kode ASCII angka 0 sampai 9 adalah 48 sampai 57, dengan kode keyboard
> angka 0 sampai angka 9 adalah sama, yaitu 48 sampai 57.
>
> >> Jika menggunakan event keypress :
>
> select case keyascii
>
> case 48 to 57, 46 'angka 0 sampai angka 9, karakter titik
>
> 'do nothing
>
> case else
>
> keyascii=0
>
> end select
>
> >> Jika menggunakan event keydown :
>
> shift=0
> select case keycode
>
> case 48 to 57, 190 'keyboard untuk angka 0 sampai angka 9, keyboard
> untuk karakter titik (ingat, pada shift tidak tertekan alias 0)
>
> 'do nothing
>
> case else
>
> keycode=0
>
> end select
>
> ------------------------
>
> Pada kasus ini, penggunaan textbox yang banyak bisa digantikan dengan
> control datagrid, tetapi tampaknya kurang luwes bagi pengguna Excel. Jadi,
> penggunaan textbox yang banyak masih bisa dimaklumi jika memang dituntut
> harus bisa menampilkan seluruh nilai secara individual agar memudahkan
> dalam proses input karena bisa membandingkan nilai di bagian lain.
>
>
>
> Penggunan banyak control yang memiliki fungsional yang sama (misal pada
> kasus ini sebagai media input nilai bunga, meski dari berbagai kriteria),
> bisa disederhanakan dengan penyusunan class module berisi prosedur event
> dari si control (misal textbox pada kasus ini). Dengan demikian, 1 (satu)
> prosedur event tertentu bisa digunakan bersama oleh seluruh controls yang
> secara fungsional adalah sama tersebut.
>
>
>
> Bahkan, dengan cara tersebut akan bisa dikembangkan lebih jauh.
>
> File terlampir adalah contoh dari banyak textbox yang cukup menggunakan 1
> (satu) prosedur event tertentu. Seperti event keypress dari 35 textbox yang
> ada cukup dengan 1 (satu) prosedur event keypress di class module. Begitu
> juga untuk event change dari 35 textbox yang ada cukup dengan 1 (satu)
> prosedur event change di class module.
>
> Wassalam,
>
> Kid
>
>
>
>
>
> 2015-08-06 19:07 GMT+07:00 Danny Prasetyo danny_06791@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Selamat malam para master. Saya ada 2 kendala.
>
> 1. Bagaimana caranya mencegah data ganda dalam userform dengan jumlah 35
> textbox? Contoh :
>
> - jika semua data sama (semua textbox) , maka ada pesan = data masih sama.
>
> - jika ada satu atau dua (textbox) yang berubah, maka ada pesan = textbox
> 1 dan 21 selesai diubah.
>
> 2. Dalam kode textbox, saya mengisi agar tidak bisa diisi selain angka.
> Tetapi dalam kondisi lain, saya ingin mengisi angka dengan menggunakan koma
> atau titik (contoh = 7,5 atau 7.5). Kode apa yang bisa digunakan untuk
> melakukan hal itu?
>
>
>
> Terima kasih jika bersedia membantu.
>
>
>
>
>
> __________________________________________________________
> This email has been scanned for Viruses and Spam. For more information
> please contact your local Business Unit Information Security
> representative.
>
> __________________________________________________________
>
>
>
>
>
> __________________________________________________________
> This email has been scanned for Viruses and Spam. For more information
> please contact your local Business Unit Information Security
> representative.
>
> __________________________________________________________
>
>
>
Kalau sudah di-Unprotect, maka semua cells bisa diakses dan di edit jika
ada dalam area scroll.
Area scroll bisa dilihat di VBE (ALT F11) -> object sheet terkait di
VBProject Explorer -> properti ScrollArea di window properties (kalau tidak
tampak adanya window properties, tekan F4. Lalu cari properti ScrollArea).
Jika properti ini dikosongkan, maka seluruh cells bisa di-scroll, yang
kemudian tampak bagi user semua cells bisa di klik.
Wassalamu'alaikum wr wb
Kid
2015-08-10 9:33 GMT+07:00 'Subroto, Matzen' matzen.subroto@akzonobel.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Mr. Kid
>
>
>
> Saya sudah coba untuk unprotect sheet, akan tetapi yang unlocked tetap
> yang cell yang warna hijau, sedangkan yang bisa edit hanya beberapa cell
> dan yang lain tetap terprotect
>
>
>
> Wassalamu alaikum wr. Wb.
>
>
>
> Matzen
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* 10 Agustus 2015 9:25
>
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Mencegah data ganda
>
>
>
>
>
> Wa'alaikumussalam wr wb
>
> Pak Matzen,
>
> Sheet di protect melalui ribbon Review -> group Changes -> Protect Sheet
> tanpa password. Jadi, bisa di-unprotect dengan ribbon Review -> group
> Changes -> UnProtect Sheet.
>
> Cells berwarna hijau yang menjadi area inputan oleh user tidak di-proteksi
> (tidak ada proteksi cells nya), sedangkan selain itu diproteksi cellsnya.
> Proteksi cells berlaku jika worksheet diproteksi. Cara memproteksi cells
> adalah dengan mengatur properti Locked dari cells yang akan tidak
> diproteksi, karena secara default, semua cells dalam Excel akan dalam
> keadaan terproteksi.
>
> Jadi, cells yang berwarna hijau dilepas proteksi cells nya dengan cara :
>
> klik kanan cells berwarna hijau -> Format Cells -> tab Protection ->
> hilangkan centang dari opsi Locked -> OK.
>
> Dengan demikian, ketika sheet diproteksi dengan ribbon Review -> group
> Changes -> Protect Sheet -> lalu dipilih agar yang tercentang hanya opsi
> Select Unprotected cells -> lalu OK (bila perlu isi password), maka cells
> berwarna hijau masih bisa diakses user karena tidak terproteksi cells nya
> (properti Locked sudah di FALSE alias dihilangkan centangnya tadi).
>
> Wassalamu'alaikum wr wb
>
> Kid
>
>
>
>
>
>
>
>
>
> 2015-08-10 7:50 GMT+07:00 'Subroto, Matzen' matzen.subroto@akzonobel.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Hi Mr. Kid
>
>
>
> Assalamu alaikum, Mr. Kid
>
>
>
> mohon pencerahannya perihal protectsheet dalam file ini
>
>
>
> Wa alaikum salam
>
>
>
>
>
> Terima kasih atas perhatian dan kerjasamanya, dan saya mohon maaf apabila
> ada kata-kata yang kurang berkenan
>
>
>
>
>
> *Terima Kasih*
>
>
>
> *Matzen*
>
>
>
>
>
>
>
>
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* 10 Agustus 2015 2:46
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Mencegah data ganda [1 Attachment]
>
>
>
>
>
> Hai Danny,
>
> 1. Bagaimana caranya mencegah data ganda dalam userform dengan jumlah 35
> textbox? Contoh :
>
> - jika semua data sama (semua textbox) , maka ada pesan = data masih sama.
>
> - jika ada satu atau dua (textbox) yang berubah, maka ada pesan = textbox
> 1 dan 21 selesai diubah.
>
> >> Jadi, apa maksud Anda dengan 'data ganda' ?
>
> >> Contoh yang Anda berikan adalah tentang penyusunan pesan tentang
> textbox-textbox yang mengalami pengubahan nilai.
>
> >> Pesan bisa disusun dalam proses simpan, yaitu sebelum penulisan nilai
> textbox ke suatu cell.
>
> >> Kira-kira susunannya begini :
>
> dim sMsg as string
>
> if cdbl(textbox1.text)<>sheets("bunga").range("i5").value then
>
> smsg=smsg & ", Textbox1"
>
> endif
>
> if cdbl(textbox2.text)<>sheets("bunga").range("i6").value then
>
> smsg=smsg & ", Textbox2"
>
> endif
>
> dst sampai textbox35,
> kemudian diikuti dengan proses penulisan nilai setiap textbox ke range
> terkait, seperti :
>
> sheets("bunga").range("i5").value=textbox1.text
>
> dst
>
>
>
> lalu ditutup dengan penampilan pesan :
>
> if lenb(smsg)<>0 then
>
> msgbox "Textbox yang berubah adalah :" & vbcrlf &
> mid(smsg,3),vbinformation,"judul pesan"
>
> else
>
> msgbox "Semua data masih sama.",vbinformation,"judul pesan"
>
> endif
>
> >> Berhubung ada 35 textbox, maka bisa jadi baris kodenya akan ada banyak
> sekali.
> >> Selain itu, menampilkan pesan dengan MsgBox terbatasi sebanyak 1024
> karakter. Jadi, jika pesannya lebih dari 1024 karakter, sebaiknya dibuat
> sebuah userform berisi sebuah textbox pesan atau label pesan untuk
> menampilkan bunyi pesannya.
>
>
>
> --------------------------
>
> 2. Dalam kode textbox, saya mengisi agar tidak bisa diisi selain angka.
> Tetapi dalam kondisi lain, saya ingin mengisi angka dengan menggunakan koma
> atau titik (contoh = 7,5 atau 7.5). Kode apa yang bisa digunakan untuk
> melakukan hal itu?
>
> >> Textbox memiliki event bernama KeyPress atau KeyDown yang bisa
> digunakan untuk hal ini.
>
> >> Event KeyPress akan menggunakan kode ASCII karakter yang di-input user.
> Event KeyDown akan menggunakan kode keyboard yang ditekan oleh user.
>
> >> VB/VBA menggunakan karakter titik sebagai tanda desimal pada regional
> setting apapun.
>
> >> kode ASCII karakter titik adalah 46, kode keyboard karakter titik
> adalah 190 pada shift bernilai 0
>
> >> kode ASCII angka 0 sampai 9 adalah 48 sampai 57, dengan kode keyboard
> angka 0 sampai angka 9 adalah sama, yaitu 48 sampai 57.
>
> >> Jika menggunakan event keypress :
>
> select case keyascii
>
> case 48 to 57, 46 'angka 0 sampai angka 9, karakter titik
>
> 'do nothing
>
> case else
>
> keyascii=0
>
> end select
>
> >> Jika menggunakan event keydown :
>
> shift=0
> select case keycode
>
> case 48 to 57, 190 'keyboard untuk angka 0 sampai angka 9, keyboard
> untuk karakter titik (ingat, pada shift tidak tertekan alias 0)
>
> 'do nothing
>
> case else
>
> keycode=0
>
> end select
>
> ------------------------
>
> Pada kasus ini, penggunaan textbox yang banyak bisa digantikan dengan
> control datagrid, tetapi tampaknya kurang luwes bagi pengguna Excel. Jadi,
> penggunaan textbox yang banyak masih bisa dimaklumi jika memang dituntut
> harus bisa menampilkan seluruh nilai secara individual agar memudahkan
> dalam proses input karena bisa membandingkan nilai di bagian lain.
>
>
>
> Penggunan banyak control yang memiliki fungsional yang sama (misal pada
> kasus ini sebagai media input nilai bunga, meski dari berbagai kriteria),
> bisa disederhanakan dengan penyusunan class module berisi prosedur event
> dari si control (misal textbox pada kasus ini). Dengan demikian, 1 (satu)
> prosedur event tertentu bisa digunakan bersama oleh seluruh controls yang
> secara fungsional adalah sama tersebut.
>
>
>
> Bahkan, dengan cara tersebut akan bisa dikembangkan lebih jauh.
>
> File terlampir adalah contoh dari banyak textbox yang cukup menggunakan 1
> (satu) prosedur event tertentu. Seperti event keypress dari 35 textbox yang
> ada cukup dengan 1 (satu) prosedur event keypress di class module. Begitu
> juga untuk event change dari 35 textbox yang ada cukup dengan 1 (satu)
> prosedur event change di class module.
>
> Wassalam,
>
> Kid
>
>
>
>
>
> 2015-08-06 19:07 GMT+07:00 Danny Prasetyo danny_06791@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Selamat malam para master. Saya ada 2 kendala.
>
> 1. Bagaimana caranya mencegah data ganda dalam userform dengan jumlah 35
> textbox? Contoh :
>
> - jika semua data sama (semua textbox) , maka ada pesan = data masih sama.
>
> - jika ada satu atau dua (textbox) yang berubah, maka ada pesan = textbox
> 1 dan 21 selesai diubah.
>
> 2. Dalam kode textbox, saya mengisi agar tidak bisa diisi selain angka.
> Tetapi dalam kondisi lain, saya ingin mengisi angka dengan menggunakan koma
> atau titik (contoh = 7,5 atau 7.5). Kode apa yang bisa digunakan untuk
> melakukan hal itu?
>
>
>
> Terima kasih jika bersedia membantu.
>
>
>
>
>
> ____________
> This email has been scanned for Viruses and Spam. For more information
> please contact your local Business Unit Information Security
> representative.
>
> ____________
>
>
>
>
>
> ____________
> This email has been scanned for Viruses and Spam. For more information
> please contact your local Business Unit Information Security
> representative.
>
> ____________
>
>
>
Sun Aug 9, 2015 12:50 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Imam,
File terlampir dengan formula.
Sebenarnya bisa lebih simpel dan tetap tanpa VBA bila menggunakan fitur Get
External Data. Hanya saja, yang sering dijumpai adalah enggannya pengguna
Excel untuk memulai mempelajari SQL.
Wassalam,
Kid
2015-08-08 1:59 GMT+07:00 Imam Sinurat sin.ur4t@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Yth. Admin dan rekan2...
>
> Daftar anggota pada tabel data saya susun dengan orientasi "mengarah ke
> samping (banyak kolom)", berhubung datanya juga harus digunakan untuk Mail
> Merge di MS Word.
> Sekarang saya kesulitan, bagaimana cara menampilkan daftar anggota yang
> berkolom-kolom itu *agar tampil sekolom* saja.
> Jika memungkinkan, sebaiknya menggunakan *PivotTable* tanpa makro. Tapi
> kalo nggak bisa, pake formula juga oke.
> Mohon bantuannya, terima kasih sebelumnya.
>
> Regards,
> Imam F. Sinurat - Sumut
>
>
>
File terlampir dengan formula.
Sebenarnya bisa lebih simpel dan tetap tanpa VBA bila menggunakan fitur Get
External Data. Hanya saja, yang sering dijumpai adalah enggannya pengguna
Excel untuk memulai mempelajari SQL.
Wassalam,
Kid
2015-08-08 1:59 GMT+07:00 Imam Sinurat sin.ur4t@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Yth. Admin dan rekan2...
>
> Daftar anggota pada tabel data saya susun dengan orientasi "mengarah ke
> samping (banyak kolom)"
> Merge di MS Word.
> Sekarang saya kesulitan, bagaimana cara menampilkan daftar anggota yang
> berkolom-kolom itu *agar tampil sekolom* saja.
> Jika memungkinkan, sebaiknya menggunakan *PivotTable* tanpa makro. Tapi
> kalo nggak bisa, pake formula juga oke.
> Mohon bantuannya, terima kasih sebelumnya.
>
> Regards,
> Imam F. Sinurat - Sumut
>
>
>
Mon Aug 10, 2015 12:51 am (PDT) . Posted by:
"Yayan Ajah"
Maaf saya nimbrung di sini :D
Mr. Kid apakah saya boleh minta link rekomendasi tentang pembelajaran Get External Data ?
Terima kasihYayan
Mr. Kid apakah saya boleh minta link rekomendasi tentang pembelajaran Get External Data ?
Terima kasihYayan
Sun Aug 9, 2015 8:07 pm (PDT) . Posted by:
"Andrie -" sioean2
Dear Mr. Kid & Mas Toby
Thanks atas bantuannya
From: "Toby kenzo tobykenzo@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Sunday, August 2, 2015 10:12 PM
Subject: Re: [belajar-excel] import efaktur keluaran [1 Attachment]
| Dear Andrie,Berikut programnya, bisa anda tambahkan sesuai dgn kebutuhan.Semoga bisa membantu.TerimaKasih.Sent from Yahoo Mail on Android |
From: Andrie - sioean2@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>;
To: <belajar-excel@yahoogroups.com>;
Subject: [belajar-excel] import efaktur keluaran [1 Attachment]
Sent: Thu, Jul 30, 2015 11:29:36 AM
| Dear Be Excel,
Saya mempunyai Sheet Data yang ingin di pindahkan datanya ke sheet import keluaran efaktur.Mohon bantuannya bagaimana caranya jika kita menggunakan macro untuk mengatasi hal ini sehingga mempermudah kita dalam proses import faktur keluaran di aplikasi efaktur Dirjen Pajak.
Contoh file terlampir
Thanks
|
#yiv3868910102 #yiv3868910102 -- #yiv3868910102ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv3868910102 #yiv3868910102ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv3868910102 #yiv3868910102ygrp-mkp #yiv3868910102hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv3868910102 #yiv3868910102ygrp-mkp #yiv3868910102ads {margin-bottom:10px;}#yiv3868910102 #yiv3868910102ygrp-mkp .yiv3868910102ad {padding:0 0;}#yiv3868910102 #yiv3868910102ygrp-mkp .yiv3868910102ad p {margin:0;}#yiv3868910102 #yiv3868910102ygrp-mkp .yiv3868910102ad a {color:#0000ff;text-decoration:none;}#yiv3868910102 #yiv3868910102ygrp-sponsor #yiv3868910102ygrp-lc {font-family:Arial;}#yiv3868910102 #yiv3868910102ygrp-sponsor #yiv3868910102ygrp-lc #yiv3868910102hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv3868910102 #yiv3868910102ygrp-sponsor #yiv3868910102ygrp-lc .yiv3868910102ad {margin-bottom:10px;padding:0 0;}#yiv3868910102 #yiv3868910102actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv3868910102 #yiv3868910102activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv3868910102 #yiv3868910102activity span {font-weight:700;}#yiv3868910102 #yiv3868910102activity span:first-child {text-transform:uppercase;}#yiv3868910102 #yiv3868910102activity span a {color:#5085b6;text-decoration:none;}#yiv3868910102 #yiv3868910102activity span span {color:#ff7900;}#yiv3868910102 #yiv3868910102activity span .yiv3868910102underline {text-decoration:underline;}#yiv3868910102 .yiv3868910102attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv3868910102 .yiv3868910102attach div a {text-decoration:none;}#yiv3868910102 .yiv3868910102attach img {border:none;padding-right:5px;}#yiv3868910102 .yiv3868910102attach label {display:block;margin-bottom:5px;}#yiv3868910102 .yiv3868910102attach label a {text-decoration:none;}#yiv3868910102 blockquote {margin:0 0 0 4px;}#yiv3868910102 .yiv3868910102bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv3868910102 .yiv3868910102bold a {text-decoration:none;}#yiv3868910102 dd.yiv3868910102last p a {font-family:Verdana;font-weight:700;}#yiv3868910102 dd.yiv3868910102last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv3868910102 dd.yiv3868910102last p span.yiv3868910102yshortcuts {margin-right:0;}#yiv3868910102 div.yiv3868910102attach-table div div a {text-decoration:none;}#yiv3868910102 div.yiv3868910102attach-table {width:400px;}#yiv3868910102 div.yiv3868910102file-title a, #yiv3868910102 div.yiv3868910102file-title a:active, #yiv3868910102 div.yiv3868910102file-title a:hover, #yiv3868910102 div.yiv3868910102file-title a:visited {text-decoration:none;}#yiv3868910102 div.yiv3868910102photo-title a, #yiv3868910102 div.yiv3868910102photo-title a:active, #yiv3868910102 div.yiv3868910102photo-title a:hover, #yiv3868910102 div.yiv3868910102photo-title a:visited {text-decoration:none;}#yiv3868910102 div#yiv3868910102ygrp-mlmsg #yiv3868910102ygrp-msg p a span.yiv3868910102yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv3868910102 .yiv3868910102green {color:#628c2a;}#yiv3868910102 .yiv3868910102MsoNormal {margin:0 0 0 0;}#yiv3868910102 o {font-size:0;}#yiv3868910102 #yiv3868910102photos div {float:left;width:72px;}#yiv3868910102 #yiv3868910102photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv3868910102 #yiv3868910102photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv3868910102 #yiv3868910102reco-category {font-size:77%;}#yiv3868910102 #yiv3868910102reco-desc {font-size:77%;}#yiv3868910102 .yiv3868910102replbq {margin:4px;}#yiv3868910102 #yiv3868910102ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv3868910102 #yiv3868910102ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv3868910102 #yiv3868910102ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv3868910102 #yiv3868910102ygrp-mlmsg select, #yiv3868910102 input, #yiv3868910102 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv3868910102 #yiv3868910102ygrp-mlmsg pre, #yiv3868910102 code {font:115% monospace;}#yiv3868910102 #yiv3868910102ygrp-mlmsg * {line-height:1.22em;}#yiv3868910102 #yiv3868910102ygrp-mlmsg #yiv3868910102logo {padding-bottom:10px;}#yiv3868910102 #yiv3868910102ygrp-msg p a {font-family:Verdana;}#yiv3868910102 #yiv3868910102ygrp-msg p#yiv3868910102attach-count span {color:#1E66AE;font-weight:700;}#yiv3868910102 #yiv3868910102ygrp-reco #yiv3868910102reco-head {color:#ff7900;font-weight:700;}#yiv3868910102 #yiv3868910102ygrp-reco {margin-bottom:20px;padding:0px;}#yiv3868910102 #yiv3868910102ygrp-sponsor #yiv3868910102ov li a {font-size:130%;text-decoration:none;}#yiv3868910102 #yiv3868910102ygrp-sponsor #yiv3868910102ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv3868910102 #yiv3868910102ygrp-sponsor #yiv3868910102ov ul {margin:0;padding:0 0 0 8px;}#yiv3868910102 #yiv3868910102ygrp-text {font-family:Georgia;}#yiv3868910102 #yiv3868910102ygrp-text p {margin:0 0 1em 0;}#yiv3868910102 #yiv3868910102ygrp-text tt {font-size:120%;}#yiv3868910102 #yiv3868910102ygrp-vital ul li:last-child {border-right:none !important;}#yiv3868910102
Thanks atas bantuannya
From: "Toby kenzo tobykenzo@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Sunday, August 2, 2015 10:12 PM
Subject: Re: [belajar-excel] import efaktur keluaran [1 Attachment]
| Dear Andrie,Berikut programnya, bisa anda tambahkan sesuai dgn kebutuhan.Semoga bisa membantu.TerimaKasih.Sent from Yahoo Mail on Android |
From: Andrie - sioean2@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>;
To: <belajar-excel@yahoogroups.com>;
Subject: [belajar-excel] import efaktur keluaran [1 Attachment]
Sent: Thu, Jul 30, 2015 11:29:36 AM
| Dear Be Excel,
Saya mempunyai Sheet Data yang ingin di pindahkan datanya ke sheet import keluaran efaktur.Mohon bantuannya bagaimana caranya jika kita menggunakan macro untuk mengatasi hal ini sehingga mempermudah kita dalam proses import faktur keluaran di aplikasi efaktur Dirjen Pajak.
Contoh file terlampir
Thanks
|
#yiv3868910102 #yiv3868910102 -- #yiv3868910102ygrp-
Sun Aug 9, 2015 10:15 pm (PDT) . Posted by:
"It Dpm" it_dpm
Dear para master Excel, mohonbantuannya bagaimana supaya dapatmembuat text dalam 1 kolom untuk tanda tangan seperti pada file terlampir...
terimakasih sebelumnya dan mohon maaf bila merepotkan....
terimakasih sebelumnya dan mohon maaf bila merepotkan..
Sun Aug 9, 2015 11:35 pm (PDT) . Posted by:
"Andrie -" sioean2
Dear Dpm,
Terlampir contohnya.
From: "It Dpm it_dpm@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Monday, August 10, 2015 12:13 PM
Subject: [belajar-excel] TEXT DALAM 1 KOLOM [1 Attachment]
Dear para master Excel, mohonbantuannya bagaimana supaya dapatmembuat text dalam 1 kolom untuk tanda tangan seperti pada file terlampir...
terimakasih sebelumnya dan mohon maaf bila merepotkan.... #yiv7364550370 #yiv7364550370 -- #yiv7364550370ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv7364550370 #yiv7364550370ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv7364550370 #yiv7364550370ygrp-mkp #yiv7364550370hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv7364550370 #yiv7364550370ygrp-mkp #yiv7364550370ads {margin-bottom:10px;}#yiv7364550370 #yiv7364550370ygrp-mkp .yiv7364550370ad {padding:0 0;}#yiv7364550370 #yiv7364550370ygrp-mkp .yiv7364550370ad p {margin:0;}#yiv7364550370 #yiv7364550370ygrp-mkp .yiv7364550370ad a {color:#0000ff;text-decoration:none;}#yiv7364550370 #yiv7364550370ygrp-sponsor #yiv7364550370ygrp-lc {font-family:Arial;}#yiv7364550370 #yiv7364550370ygrp-sponsor #yiv7364550370ygrp-lc #yiv7364550370hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv7364550370 #yiv7364550370ygrp-sponsor #yiv7364550370ygrp-lc .yiv7364550370ad {margin-bottom:10px;padding:0 0;}#yiv7364550370 #yiv7364550370actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv7364550370 #yiv7364550370activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv7364550370 #yiv7364550370activity span {font-weight:700;}#yiv7364550370 #yiv7364550370activity span:first-child {text-transform:uppercase;}#yiv7364550370 #yiv7364550370activity span a {color:#5085b6;text-decoration:none;}#yiv7364550370 #yiv7364550370activity span span {color:#ff7900;}#yiv7364550370 #yiv7364550370activity span .yiv7364550370underline {text-decoration:underline;}#yiv7364550370 .yiv7364550370attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv7364550370 .yiv7364550370attach div a {text-decoration:none;}#yiv7364550370 .yiv7364550370attach img {border:none;padding-right:5px;}#yiv7364550370 .yiv7364550370attach label {display:block;margin-bottom:5px;}#yiv7364550370 .yiv7364550370attach label a {text-decoration:none;}#yiv7364550370 blockquote {margin:0 0 0 4px;}#yiv7364550370 .yiv7364550370bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv7364550370 .yiv7364550370bold a {text-decoration:none;}#yiv7364550370 dd.yiv7364550370last p a {font-family:Verdana;font-weight:700;}#yiv7364550370 dd.yiv7364550370last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv7364550370 dd.yiv7364550370last p span.yiv7364550370yshortcuts {margin-right:0;}#yiv7364550370 div.yiv7364550370attach-table div div a {text-decoration:none;}#yiv7364550370 div.yiv7364550370attach-table {width:400px;}#yiv7364550370 div.yiv7364550370file-title a, #yiv7364550370 div.yiv7364550370file-title a:active, #yiv7364550370 div.yiv7364550370file-title a:hover, #yiv7364550370 div.yiv7364550370file-title a:visited {text-decoration:none;}#yiv7364550370 div.yiv7364550370photo-title a, #yiv7364550370 div.yiv7364550370photo-title a:active, #yiv7364550370 div.yiv7364550370photo-title a:hover, #yiv7364550370 div.yiv7364550370photo-title a:visited {text-decoration:none;}#yiv7364550370 div#yiv7364550370ygrp-mlmsg #yiv7364550370ygrp-msg p a span.yiv7364550370yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv7364550370 .yiv7364550370green {color:#628c2a;}#yiv7364550370 .yiv7364550370MsoNormal {margin:0 0 0 0;}#yiv7364550370 o {font-size:0;}#yiv7364550370 #yiv7364550370photos div {float:left;width:72px;}#yiv7364550370 #yiv7364550370photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv7364550370 #yiv7364550370photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv7364550370 #yiv7364550370reco-category {font-size:77%;}#yiv7364550370 #yiv7364550370reco-desc {font-size:77%;}#yiv7364550370 .yiv7364550370replbq {margin:4px;}#yiv7364550370 #yiv7364550370ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv7364550370 #yiv7364550370ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv7364550370 #yiv7364550370ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv7364550370 #yiv7364550370ygrp-mlmsg select, #yiv7364550370 input, #yiv7364550370 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv7364550370 #yiv7364550370ygrp-mlmsg pre, #yiv7364550370 code {font:115% monospace;}#yiv7364550370 #yiv7364550370ygrp-mlmsg * {line-height:1.22em;}#yiv7364550370 #yiv7364550370ygrp-mlmsg #yiv7364550370logo {padding-bottom:10px;}#yiv7364550370 #yiv7364550370ygrp-msg p a {font-family:Verdana;}#yiv7364550370 #yiv7364550370ygrp-msg p#yiv7364550370attach-count span {color:#1E66AE;font-weight:700;}#yiv7364550370 #yiv7364550370ygrp-reco #yiv7364550370reco-head {color:#ff7900;font-weight:700;}#yiv7364550370 #yiv7364550370ygrp-reco {margin-bottom:20px;padding:0px;}#yiv7364550370 #yiv7364550370ygrp-sponsor #yiv7364550370ov li a {font-size:130%;text-decoration:none;}#yiv7364550370 #yiv7364550370ygrp-sponsor #yiv7364550370ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv7364550370 #yiv7364550370ygrp-sponsor #yiv7364550370ov ul {margin:0;padding:0 0 0 8px;}#yiv7364550370 #yiv7364550370ygrp-text {font-family:Georgia;}#yiv7364550370 #yiv7364550370ygrp-text p {margin:0 0 1em 0;}#yiv7364550370 #yiv7364550370ygrp-text tt {font-size:120%;}#yiv7364550370 #yiv7364550370ygrp-vital ul li:last-child {border-right:none !important;}#yiv7364550370
Terlampir contohnya.
From: "It Dpm it_dpm@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Monday, August 10, 2015 12:13 PM
Subject: [belajar-excel] TEXT DALAM 1 KOLOM [1 Attachment]
Dear para master Excel, mohonbantuannya bagaimana supaya dapatmembuat text dalam 1 kolom untuk tanda tangan seperti pada file terlampir...
terimakasih sebelumnya dan mohon maaf bila merepotkan..
Mon Aug 10, 2015 12:51 am (PDT) . Posted by:
"It Dpm" it_dpm
mohon maaf maksud saya apabila namanya diubah maka otomatis akan menyesuaikan jumlah spasinya sehingga terlihat rapi dan lurus seperti ketika membuat di microsoft word
Pada Senin, 10 Agustus 2015 13:35, "Andrie - sioean2@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Dear Dpm,
Terlampir contohnya.
From: "It Dpm it_dpm@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Monday, August 10, 2015 12:13 PM
Subject: [belajar-excel] TEXT DALAM 1 KOLOM [1 Attachment]
Dear para master Excel, mohonbantuannya bagaimana supaya dapatmembuat text dalam 1 kolom untuk tanda tangan seperti pada file terlampir...
terimakasih sebelumnya dan mohon maaf bila merepotkan....
#yiv2390370848 #yiv2390370848 -- #yiv2390370848ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv2390370848 #yiv2390370848ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv2390370848 #yiv2390370848ygrp-mkp #yiv2390370848hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv2390370848 #yiv2390370848ygrp-mkp #yiv2390370848ads {margin-bottom:10px;}#yiv2390370848 #yiv2390370848ygrp-mkp .yiv2390370848ad {padding:0 0;}#yiv2390370848 #yiv2390370848ygrp-mkp .yiv2390370848ad p {margin:0;}#yiv2390370848 #yiv2390370848ygrp-mkp .yiv2390370848ad a {color:#0000ff;text-decoration:none;}#yiv2390370848 #yiv2390370848ygrp-sponsor #yiv2390370848ygrp-lc {font-family:Arial;}#yiv2390370848 #yiv2390370848ygrp-sponsor #yiv2390370848ygrp-lc #yiv2390370848hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv2390370848 #yiv2390370848ygrp-sponsor #yiv2390370848ygrp-lc .yiv2390370848ad {margin-bottom:10px;padding:0 0;}#yiv2390370848 #yiv2390370848actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv2390370848 #yiv2390370848activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv2390370848 #yiv2390370848activity span {font-weight:700;}#yiv2390370848 #yiv2390370848activity span:first-child {text-transform:uppercase;}#yiv2390370848 #yiv2390370848activity span a {color:#5085b6;text-decoration:none;}#yiv2390370848 #yiv2390370848activity span span {color:#ff7900;}#yiv2390370848 #yiv2390370848activity span .yiv2390370848underline {text-decoration:underline;}#yiv2390370848 .yiv2390370848attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv2390370848 .yiv2390370848attach div a {text-decoration:none;}#yiv2390370848 .yiv2390370848attach img {border:none;padding-right:5px;}#yiv2390370848 .yiv2390370848attach label {display:block;margin-bottom:5px;}#yiv2390370848 .yiv2390370848attach label a {text-decoration:none;}#yiv2390370848 blockquote {margin:0 0 0 4px;}#yiv2390370848 .yiv2390370848bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv2390370848 .yiv2390370848bold a {text-decoration:none;}#yiv2390370848 dd.yiv2390370848last p a {font-family:Verdana;font-weight:700;}#yiv2390370848 dd.yiv2390370848last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv2390370848 dd.yiv2390370848last p span.yiv2390370848yshortcuts {margin-right:0;}#yiv2390370848 div.yiv2390370848attach-table div div a {text-decoration:none;}#yiv2390370848 div.yiv2390370848attach-table {width:400px;}#yiv2390370848 div.yiv2390370848file-title a, #yiv2390370848 div.yiv2390370848file-title a:active, #yiv2390370848 div.yiv2390370848file-title a:hover, #yiv2390370848 div.yiv2390370848file-title a:visited {text-decoration:none;}#yiv2390370848 div.yiv2390370848photo-title a, #yiv2390370848 div.yiv2390370848photo-title a:active, #yiv2390370848 div.yiv2390370848photo-title a:hover, #yiv2390370848 div.yiv2390370848photo-title a:visited {text-decoration:none;}#yiv2390370848 div#yiv2390370848ygrp-mlmsg #yiv2390370848ygrp-msg p a span.yiv2390370848yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv2390370848 .yiv2390370848green {color:#628c2a;}#yiv2390370848 .yiv2390370848MsoNormal {margin:0 0 0 0;}#yiv2390370848 o {font-size:0;}#yiv2390370848 #yiv2390370848photos div {float:left;width:72px;}#yiv2390370848 #yiv2390370848photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv2390370848 #yiv2390370848photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv2390370848 #yiv2390370848reco-category {font-size:77%;}#yiv2390370848 #yiv2390370848reco-desc {font-size:77%;}#yiv2390370848 .yiv2390370848replbq {margin:4px;}#yiv2390370848 #yiv2390370848ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv2390370848 #yiv2390370848ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv2390370848 #yiv2390370848ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv2390370848 #yiv2390370848ygrp-mlmsg select, #yiv2390370848 input, #yiv2390370848 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv2390370848 #yiv2390370848ygrp-mlmsg pre, #yiv2390370848 code {font:115% monospace;}#yiv2390370848 #yiv2390370848ygrp-mlmsg * {line-height:1.22em;}#yiv2390370848 #yiv2390370848ygrp-mlmsg #yiv2390370848logo {padding-bottom:10px;}#yiv2390370848 #yiv2390370848ygrp-msg p a {font-family:Verdana;}#yiv2390370848 #yiv2390370848ygrp-msg p#yiv2390370848attach-count span {color:#1E66AE;font-weight:700;}#yiv2390370848 #yiv2390370848ygrp-reco #yiv2390370848reco-head {color:#ff7900;font-weight:700;}#yiv2390370848 #yiv2390370848ygrp-reco {margin-bottom:20px;padding:0px;}#yiv2390370848 #yiv2390370848ygrp-sponsor #yiv2390370848ov li a {font-size:130%;text-decoration:none;}#yiv2390370848 #yiv2390370848ygrp-sponsor #yiv2390370848ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv2390370848 #yiv2390370848ygrp-sponsor #yiv2390370848ov ul {margin:0;padding:0 0 0 8px;}#yiv2390370848 #yiv2390370848ygrp-text {font-family:Georgia;}#yiv2390370848 #yiv2390370848ygrp-text p {margin:0 0 1em 0;}#yiv2390370848 #yiv2390370848ygrp-text tt {font-size:120%;}#yiv2390370848 #yiv2390370848ygrp-vital ul li:last-child {border-right:none !important;}#yiv2390370848
Pada Senin, 10 Agustus 2015 13:35, "Andrie - sioean2@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Dear Dpm,
Terlampir contohnya.
From: "It Dpm it_dpm@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Monday, August 10, 2015 12:13 PM
Subject: [belajar-excel] TEXT DALAM 1 KOLOM [1 Attachment]
Dear para master Excel, mohonbantuannya bagaimana supaya dapatmembuat text dalam 1 kolom untuk tanda tangan seperti pada file terlampir...
terimakasih sebelumnya dan mohon maaf bila merepotkan..
#yiv2390370848 #yiv2390370848 -- #yiv2390370848ygrp-
Sun Aug 9, 2015 11:20 pm (PDT) . Posted by:
"Nang Agus"
Asalamualaikum warahmatullah wabarakatuh.
Seingat saya, Sudah banyak Mr. Kid menganjurkan untuk menggunakan Get
external data, misalnya:
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/37421
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/37578
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/37114
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/36903
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/36698
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/36341
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/35985
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/35762
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/35707
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/35625
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/35544
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/35357
dan masih banyak lagi ................. :(
Namun masih banyak member Be Excel yang tidak mau menggunakan dengan
berbagai alasan.
saya usul agar kopdar dapat membahas materi Get external data.
terima kasih,
wasalammualaikum warahmatullah
kenangAgus
Seingat saya, Sudah banyak Mr. Kid menganjurkan untuk menggunakan Get
external data, misalnya:
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/37421
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/37578
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/37114
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/36903
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/36698
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/36341
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/35985
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/35762
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/35707
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/35625
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/35544
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/35357
dan masih banyak lagi ............
Namun masih banyak member Be Excel yang tidak mau menggunakan dengan
berbagai alasan.
saya usul agar kopdar dapat membahas materi Get external data.
terima kasih,
wasalammualaikum warahmatullah
kenangAgus
Mon Aug 10, 2015 12:20 am (PDT) . Posted by:
"Heru Safrudin" superheruu
Dear Para Master,
Bagaimanakah kode macronya untuk menghitung jumlah baris dalam SATU CELL
yang didalamnya terdapat beberapa baris ?
Mohon pemahamannya
Wassalam,
Heru Safrudin
PT. BISI International, Tbk.
Bagaimanakah kode macronya untuk menghitung jumlah baris dalam SATU CELL
yang didalamnya terdapat beberapa baris ?
Mohon pemahamannya
Wassalam,
Heru Safrudin
PT. BISI International, Tbk.
Mon Aug 10, 2015 1:03 am (PDT) . Posted by:
"Heru Safrudin" superheruu
Dear Para Master,
Bagaimana supaya konter For Next melewati suatu prosedur ketika tidak
sesuai kriteria, contoh:
For hitung = 1 to 10
If hitung = 5 then
Lewati 'Next
Else
Kerjakan
End if
Next
Mohon pengetahuannya
Wassalam,
Heru Safrudin
Bagaimana supaya konter For Next melewati suatu prosedur ketika tidak
sesuai kriteria, contoh:
For hitung = 1 to 10
If hitung = 5 then
Lewati 'Next
Else
Kerjakan
End if
Next
Mohon pengetahuannya
Wassalam,
Heru Safrudin
Mon Aug 10, 2015 1:14 am (PDT) . Posted by:
"SUYONO"
Pak heru coba pake goto, ubah sedikit jadi seperti ini.
For hitung = 1 to 10
If hitung = 5 then
goto Bawah
Else
Kerjakan
End if
Next
Bawah:
Wassalam,
Suyono
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Monday, August 10, 2015 3:03 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Vba For...Next
Dear Para Master,
Bagaimana supaya konter For Next melewati suatu prosedur ketika tidak sesuai kriteria, contoh:
For hitung = 1 to 10
If hitung = 5 then
Lewati 'Next
Else
Kerjakan
End if
Next
Mohon pengetahuannya
Wassalam,
Heru Safrudin
For hitung = 1 to 10
If hitung = 5 then
goto Bawah
Else
Kerjakan
End if
Next
Bawah:
Wassalam,
Suyono
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Monday, August 10, 2015 3:03 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Vba For...Next
Dear Para Master,
Bagaimana supaya konter For Next melewati suatu prosedur ketika tidak sesuai kriteria, contoh:
For hitung = 1 to 10
If hitung = 5 then
Lewati 'Next
Else
Kerjakan
End if
Next
Mohon pengetahuannya
Wassalam,
Heru Safrudin
============================================================
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
---------------------------------------------------------------------
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:
Posting Komentar