15 Messages
Digest #3660
Messages
Thu Nov 26, 2015 2:45 am (PST) . Posted by:
"Toby kenzo" tobykenzo
Dear Imam,
Not responding bisa di akibatkan karna penggunaan Control Toolbox yang tidak ada, di sini anda menggunakan control Calendar, coba di ganti dengan MonthView.Penyusunan Table yang kurang baik juga bisa mengakibatkan penarikan data yang kita inginkan akan sulit, oleh sebab itu, coba pelajari lagi cara penyusunan table yang benar, apalagi table tersebut di gunakan sebagai database program yang ingin anda buat.Penggunaan Object dan Procedure juga harus di pahami apalagi penggunaan Deklarasi yang sesuai dgn kebutuhan.Jika ingin belajar Macro/VBA, mulailah step by step,agar bisa memahami jika ada kesalahan yang terjadi, jika langsung tanpa proses, ujung2nya pasti akan bingung sendiri jika ada kesalahan yang terjadi.Di milis ini sebenarnya sudah banyak contoh seperti apa yang anda inginkan, coba di buka2 lagi file2 yang dulu2, pasti ketemu..Mungkin nanti ada beExceler yang berbaik hati yang akan langsung memberikan apa yang anda inginkan.
TerimaKasih,
Pada Kamis, 26 November 2015 8:55, "imam cahyo yuwono chyywn@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Assalamualaikum Wr. Wb.dear para expert.saya sedang mencoba membuat form input data namun ketika di coba menjadi not responding kesalahannya dimana ya ? adapun keinginan saya yang belum dapat saya pecahkan adalah :1. no urut otomatis dan tampil ti TB12. tanggal muncul di TB23. TB9 nilainya sama dengan TB2 dan TB10 sama dengan TB3 seperti link gitu4. tampilan listbox gagal terus begitu dengan nomor urut5 ingin buat tombol edit agar kalo ada kesalahan bisa di edit langsung di user form6. kadang muncul pesan seperti di SS FORM
file ini saya tiru dari download-an file yang saya contoh berjalan baik tapi punya saya error terus mohon bantuan solusinyaterima kasihWasallamualaikum Wr. Wb.
#yiv6582865903 #yiv6582865903 -- #yiv6582865903ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv6582865903 #yiv6582865903ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv6582865903 #yiv6582865903ygrp-mkp #yiv6582865903hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv6582865903 #yiv6582865903ygrp-mkp #yiv6582865903ads {margin-bottom:10px;}#yiv6582865903 #yiv6582865903ygrp-mkp .yiv6582865903ad {padding:0 0;}#yiv6582865903 #yiv6582865903ygrp-mkp .yiv6582865903ad p {margin:0;}#yiv6582865903 #yiv6582865903ygrp-mkp .yiv6582865903ad a {color:#0000ff;text-decoration:none;}#yiv6582865903 #yiv6582865903ygrp-sponsor #yiv6582865903ygrp-lc {font-family:Arial;}#yiv6582865903 #yiv6582865903ygrp-sponsor #yiv6582865903ygrp-lc #yiv6582865903hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv6582865903 #yiv6582865903ygrp-sponsor #yiv6582865903ygrp-lc .yiv6582865903ad {margin-bottom:10px;padding:0 0;}#yiv6582865903 #yiv6582865903actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv6582865903 #yiv6582865903activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv6582865903 #yiv6582865903activity span {font-weight:700;}#yiv6582865903 #yiv6582865903activity span:first-child {text-transform:uppercase;}#yiv6582865903 #yiv6582865903activity span a {color:#5085b6;text-decoration:none;}#yiv6582865903 #yiv6582865903activity span span {color:#ff7900;}#yiv6582865903 #yiv6582865903activity span .yiv6582865903underline {text-decoration:underline;}#yiv6582865903 .yiv6582865903attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv6582865903 .yiv6582865903attach div a {text-decoration:none;}#yiv6582865903 .yiv6582865903attach img {border:none;padding-right:5px;}#yiv6582865903 .yiv6582865903attach label {display:block;margin-bottom:5px;}#yiv6582865903 .yiv6582865903attach label a {text-decoration:none;}#yiv6582865903 blockquote {margin:0 0 0 4px;}#yiv6582865903 .yiv6582865903bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv6582865903 .yiv6582865903bold a {text-decoration:none;}#yiv6582865903 dd.yiv6582865903last p a {font-family:Verdana;font-weight:700;}#yiv6582865903 dd.yiv6582865903last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv6582865903 dd.yiv6582865903last p span.yiv6582865903yshortcuts {margin-right:0;}#yiv6582865903 div.yiv6582865903attach-table div div a {text-decoration:none;}#yiv6582865903 div.yiv6582865903attach-table {width:400px;}#yiv6582865903 div.yiv6582865903file-title a, #yiv6582865903 div.yiv6582865903file-title a:active, #yiv6582865903 div.yiv6582865903file-title a:hover, #yiv6582865903 div.yiv6582865903file-title a:visited {text-decoration:none;}#yiv6582865903 div.yiv6582865903photo-title a, #yiv6582865903 div.yiv6582865903photo-title a:active, #yiv6582865903 div.yiv6582865903photo-title a:hover, #yiv6582865903 div.yiv6582865903photo-title a:visited {text-decoration:none;}#yiv6582865903 div#yiv6582865903ygrp-mlmsg #yiv6582865903ygrp-msg p a span.yiv6582865903yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv6582865903 .yiv6582865903green {color:#628c2a;}#yiv6582865903 .yiv6582865903MsoNormal {margin:0 0 0 0;}#yiv6582865903 o {font-size:0;}#yiv6582865903 #yiv6582865903photos div {float:left;width:72px;}#yiv6582865903 #yiv6582865903photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv6582865903 #yiv6582865903photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv6582865903 #yiv6582865903reco-category {font-size:77%;}#yiv6582865903 #yiv6582865903reco-desc {font-size:77%;}#yiv6582865903 .yiv6582865903replbq {margin:4px;}#yiv6582865903 #yiv6582865903ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv6582865903 #yiv6582865903ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv6582865903 #yiv6582865903ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv6582865903 #yiv6582865903ygrp-mlmsg select, #yiv6582865903 input, #yiv6582865903 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv6582865903 #yiv6582865903ygrp-mlmsg pre, #yiv6582865903 code {font:115% monospace;}#yiv6582865903 #yiv6582865903ygrp-mlmsg * {line-height:1.22em;}#yiv6582865903 #yiv6582865903ygrp-mlmsg #yiv6582865903logo {padding-bottom:10px;}#yiv6582865903 #yiv6582865903ygrp-msg p a {font-family:Verdana;}#yiv6582865903 #yiv6582865903ygrp-msg p#yiv6582865903attach-count span {color:#1E66AE;font-weight:700;}#yiv6582865903 #yiv6582865903ygrp-reco #yiv6582865903reco-head {color:#ff7900;font-weight:700;}#yiv6582865903 #yiv6582865903ygrp-reco {margin-bottom:20px;padding:0px;}#yiv6582865903 #yiv6582865903ygrp-sponsor #yiv6582865903ov li a {font-size:130%;text-decoration:none;}#yiv6582865903 #yiv6582865903ygrp-sponsor #yiv6582865903ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv6582865903 #yiv6582865903ygrp-sponsor #yiv6582865903ov ul {margin:0;padding:0 0 0 8px;}#yiv6582865903 #yiv6582865903ygrp-text {font-family:Georgia;}#yiv6582865903 #yiv6582865903ygrp-text p {margin:0 0 1em 0;}#yiv6582865903 #yiv6582865903ygrp-text tt {font-size:120%;}#yiv6582865903 #yiv6582865903ygrp-vital ul li:last-child {border-right:none !important;}#yiv6582865903
Not responding bisa di akibatkan karna penggunaan Control Toolbox yang tidak ada, di sini anda menggunakan control Calendar, coba di ganti dengan MonthView.Penyusunan Table yang kurang baik juga bisa mengakibatkan penarikan data yang kita inginkan akan sulit, oleh sebab itu, coba pelajari lagi cara penyusunan table yang benar, apalagi table tersebut di gunakan sebagai database program yang ingin anda buat.Penggunaan Object dan Procedure juga harus di pahami apalagi penggunaan Deklarasi yang sesuai dgn kebutuhan.Jika ingin belajar Macro/VBA, mulailah step by step,agar bisa memahami jika ada kesalahan yang terjadi, jika langsung tanpa proses, ujung2nya pasti akan bingung sendiri jika ada kesalahan yang terjadi.Di milis ini sebenarnya sudah banyak contoh seperti apa yang anda inginkan, coba di buka2 lagi file2 yang dulu2, pasti ketemu..Mungkin nanti ada beExceler yang berbaik hati yang akan langsung memberikan apa yang anda inginkan.
TerimaKasih,
Pada Kamis, 26 November 2015 8:55, "imam cahyo yuwono chyywn@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Assalamualaikum Wr. Wb.dear para expert.saya sedang mencoba membuat form input data namun ketika di coba menjadi not responding kesalahannya dimana ya ? adapun keinginan saya yang belum dapat saya pecahkan adalah :1. no urut otomatis dan tampil ti TB12. tanggal muncul di TB23. TB9 nilainya sama dengan TB2 dan TB10 sama dengan TB3 seperti link gitu4. tampilan listbox gagal terus begitu dengan nomor urut5 ingin buat tombol edit agar kalo ada kesalahan bisa di edit langsung di user form6. kadang muncul pesan seperti di SS FORM
file ini saya tiru dari download-an file yang saya contoh berjalan baik tapi punya saya error terus mohon bantuan solusinyaterima kasihWasallamualaik
#yiv6582865903 #yiv6582865903 -- #yiv6582865903ygrp-
Thu Nov 26, 2015 5:53 am (PST) . Posted by:
"him mah"
Assalamu'alaikum. Wr. Wb
dear all
Mau tanya terkait mengedit text file
saya punya file misal DataPelanggan.txt
isinya terdiri dari Kode Pelanggan dan Nama pelanggan
yang dipisahkan oleh tanda titik koma (;)
isinya seperti ini:
P-002;ABC
P-001;DEF
P-003;GHI
P-007;XYZ
kalau dari excel
kita mencari kode pelanggan tertentu
apakah kode pelanggan tersebut
sudah ada atau belum dalam file DataPelanggan.txt
misal kriterianya kode pelanggan P-003
ternyata kode pelanggan tersebut sudah ada
sehingga proses selanjutnya
adalah melakukan edit file text tersebut
misal untuk P-003 nama pelanggannya diganti dengan nama OPQ
sehingga file text tersebut isinya menjadi
P-002;ABC
P-001;DEF
P-003;OPQ
P-007;XYZ
kemudian jika kita masukan kode pelanggan P-004
ternyata dalam file DataPelanggan.txt
kode tersebut tidak ditemukan
sehingga proses selanjutnya adalah menambahkan data baru
misal kode P-004 nama pelanggan KLM
sehingga file DataPelanggan.txt
isninya menjadi
P-002;ABC
P-001;DEF
P-003;OPQ
P-007;XYZ
P-004;KLM
kira-kira untuk yang seperti ini
VBA nya bagaimana?
ada satu lagi
bisa tidak ya kita melakukan sort data
yang ada di file DataPelanggan.txt
sehingga data di file tersebut menjadi urut
P-001;DEF
P-002;ABC
P-003;OPQ
P-004;KLM
P-007;XYZ
terima kasih
dear all
Mau tanya terkait mengedit text file
saya punya file misal DataPelanggan.
isinya terdiri dari Kode Pelanggan dan Nama pelanggan
yang dipisahkan oleh tanda titik koma (;)
isinya seperti ini:
P-002;ABC
P-001;DEF
P-003;GHI
P-007;XYZ
kalau dari excel
kita mencari kode pelanggan tertentu
apakah kode pelanggan tersebut
sudah ada atau belum dalam file DataPelanggan.
misal kriterianya kode pelanggan P-003
ternyata kode pelanggan tersebut sudah ada
sehingga proses selanjutnya
adalah melakukan edit file text tersebut
misal untuk P-003 nama pelanggannya diganti dengan nama OPQ
sehingga file text tersebut isinya menjadi
P-002;ABC
P-001;DEF
P-003;OPQ
P-007;XYZ
kemudian jika kita masukan kode pelanggan P-004
ternyata dalam file DataPelanggan.
kode tersebut tidak ditemukan
sehingga proses selanjutnya adalah menambahkan data baru
misal kode P-004 nama pelanggan KLM
sehingga file DataPelanggan.
isninya menjadi
P-002;ABC
P-001;DEF
P-003;OPQ
P-007;XYZ
P-004;KLM
kira-kira untuk yang seperti ini
VBA nya bagaimana?
ada satu lagi
bisa tidak ya kita melakukan sort data
yang ada di file DataPelanggan.
sehingga data di file tersebut menjadi urut
P-001;DEF
P-002;ABC
P-003;OPQ
P-004;KLM
P-007;XYZ
terima kasih
Thu Nov 26, 2015 7:41 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam wr wb
Hai Himmah,
Misal :
A. data baru ada di sheet 'baru', berupa data 17 kolom mulai dari kolom A,
tetapi yang ditulis ke txt file hanya kolom A dan B. Record mulai baris 2
karena baris 1 nya header. Ada tombol di sheet 'baru' menjalankan proses
penulisan ke txt file.
B. data lama di txt file bernama DataPelanggan.txt di folder yang sama
dengan si workbook data baru berisi 2 kolom dengan delimiter titik koma
Kira-kira prosesnya begini :
1. buat sheet temporary (misal bernama temp), tapi yang aktif tetap sheet
'baru'
2. copy data (tanpa header) dari sheet 'baru' kolom A dan B ke sheet temp
kolom A, simpan jumlah baris yang di-copy
3. baca txt file dan tulis ke sheet temp kolom A dan B di baris baru
(menambahkan data hasil paste dari sheet 'baru')
4. di sheet temp, lakukan remove duplicate berdasar kolom A dan pastikan
tanpa header
5. di sheet temp, lakukan sort asc berdasar kolom A dan B dan pastikan
tanpa header
6. buat txt baru, lalu loop setiap baris berisi data di sheet temp, dan
tulis ke txt baru tersebut
7. buang sheet temp
8. selesai (beri pesan ke user bila perlu)
VBA nya begini : (sesuaikan dengan keadaan setempat, termasuk meletakkannya
di dalam prosedur mana yang akan Anda gunakan)
dim shtBaru as worksheet, shtTemp as worksheet, lLastRow as long
dim iFile as integer, sLine as string
1. buat sheet temporary (misal bernama temp)
set shtBaru=sheets("baru")
set shtTemp=sheets.add
shtBaru.activate
2. copy data (tanpa header) dari sheet 'baru' kolom A dan B ke sheet temp
kolom A
with shtBaru
range( .cells( 2,2) , .cells( .rows.count , 1 ).end(xlup) ).copy
shttemp.range("a1").pastespecial xlpastevalues
llastrow=shttemp.usedrange.rows.count
end with
>> Proses 3 sampai 7 akan bekerja di sheet Temp
with shtTemp 'kerja di sheet temp
3. baca txt file dan tulis ke sheet temp kolom A dan B di baris
baru (menambahkan data hasil paste dari sheet 'baru')
ifile=freefile 'create id file baru untuk proses
io file
open thisworkbook.path & "\datapelanggan.txt" for input as
ifile 'buka file sebagai bahan input
do while not eof(ifile) 'loop setiap baris dalam
file sampai karakter end of file
line input #ifile, sline 'baca sebaris utuh dan
simpan ke variabel sLine
llastrow=llastrow+1 'baris terakhir di sheet
temp naik satu karena akan ada baris dari txt yang masuk
.cells( llastrow , 1 ).resize(1,2).value = split( sline
, ";" ) 'tulis setiap fields dari sebaris txt ke sheet temp
loop 'ke sequence loop berikutnya
close ifile 'tutup file
4. di sheet temp, lakukan remove duplicate berdasar kolom A dan
pastikan tanpa header
.range("a1").currentregion.removeduplicates 1,xlno 'remove
duplicate dengan key kolom ke-1 alias kolom A, tanpa header
5. di sheet temp, lakukan sort asc berdasar kolom A dan B dan
pastikan tanpa header
.range("a1").currentregion.sort
.cells(1,1),xlascending,.cells(1,2),order2:=xlascending,header:=xlno,orientation:=xlsortcolumns
6. buat txt baru, lalu loop setiap baris berisi data di sheet
temp, dan tulis ke txt baru tersebut
ifile=freefile 'create id file baru untuk proses
io file
open thisworkbook.path & "\datapelanggan.txt" for output as
ifile 'buka file sebagai bahan input
for llastrow=1 to .usedrange.rows.count 'loop
setiap baris di sheet temp
if len(.cells(llastrow,1).value)<>0 then 'cek
bahwa ada isinya
print #ifile , .cells(llastrow,1).value & ";"
& .cells(llastrow,2).value
endif 'selesai blok kondisi ada isinya
next llastrow 'ke baris berikutnya
close ifile 'tutup file
7. buang sheet temp
application.displayalerts=false 'suruh Excel supaya ndak cerewet
dulu
.delete 'buang sheet temp
application.displayalers=true 'ijinkan Excel untuk kembali
cerewet
end with 'selesai kerja di sheet temp
8. selesai (beri pesan ke user bila perlu)
msgbox "Selesai.",vbinformation,"Judul pesan"
*** silakan diatur sendiri semua trap error dan environment Excel dalam
mengerjakan proses di atas
Wassalamu'alaikum wr wb
Kid
2015-11-26 20:53 GMT+07:00 him mah himmah.mlg@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Assalamu'alaikum. Wr. Wb
> dear all
>
> Mau tanya terkait mengedit text file
>
> saya punya file misal DataPelanggan.txt
> isinya terdiri dari Kode Pelanggan dan Nama pelanggan
> yang dipisahkan oleh tanda titik koma (;)
> isinya seperti ini:
>
> P-002;ABC
> P-001;DEF
> P-003;GHI
> P-007;XYZ
>
> kalau dari excel
> kita mencari kode pelanggan tertentu
> apakah kode pelanggan tersebut
> sudah ada atau belum dalam file DataPelanggan.txt
>
> misal kriterianya kode pelanggan P-003
> ternyata kode pelanggan tersebut sudah ada
> sehingga proses selanjutnya
> adalah melakukan edit file text tersebut
> misal untuk P-003 nama pelanggannya diganti dengan nama OPQ
>
> sehingga file text tersebut isinya menjadi
>
> P-002;ABC
> P-001;DEF
> P-003;OPQ
> P-007;XYZ
>
> kemudian jika kita masukan kode pelanggan P-004
> ternyata dalam file DataPelanggan.txt
> kode tersebut tidak ditemukan
> sehingga proses selanjutnya adalah menambahkan data baru
> misal kode P-004 nama pelanggan KLM
> sehingga file DataPelanggan.txt
> isninya menjadi
>
> P-002;ABC
> P-001;DEF
> P-003;OPQ
> P-007;XYZ
> P-004;KLM
>
> kira-kira untuk yang seperti ini
> VBA nya bagaimana?
>
> ada satu lagi
> bisa tidak ya kita melakukan sort data
> yang ada di file DataPelanggan.txt
> sehingga data di file tersebut menjadi urut
>
> P-001;DEF
> P-002;ABC
> P-003;OPQ
> P-004;KLM
> P-007;XYZ
>
> terima kasih
>
>
Hai Himmah,
Misal :
A. data baru ada di sheet 'baru', berupa data 17 kolom mulai dari kolom A,
tetapi yang ditulis ke txt file hanya kolom A dan B. Record mulai baris 2
karena baris 1 nya header. Ada tombol di sheet 'baru' menjalankan proses
penulisan ke txt file.
B. data lama di txt file bernama DataPelanggan.txt di folder yang sama
dengan si workbook data baru berisi 2 kolom dengan delimiter titik koma
Kira-kira prosesnya begini :
1. buat sheet temporary (misal bernama temp), tapi yang aktif tetap sheet
'baru'
2. copy data (tanpa header) dari sheet 'baru' kolom A dan B ke sheet temp
kolom A, simpan jumlah baris yang di-copy
3. baca txt file dan tulis ke sheet temp kolom A dan B di baris baru
(menambahkan data hasil paste dari sheet 'baru')
4. di sheet temp, lakukan remove duplicate berdasar kolom A dan pastikan
tanpa header
5. di sheet temp, lakukan sort asc berdasar kolom A dan B dan pastikan
tanpa header
6. buat txt baru, lalu loop setiap baris berisi data di sheet temp, dan
tulis ke txt baru tersebut
7. buang sheet temp
8. selesai (beri pesan ke user bila perlu)
VBA nya begini : (sesuaikan dengan keadaan setempat, termasuk meletakkannya
di dalam prosedur mana yang akan Anda gunakan)
dim shtBaru as worksheet, shtTemp as worksheet, lLastRow as long
dim iFile as integer, sLine as string
1. buat sheet temporary (misal bernama temp)
set shtBaru=sheets("baru")
set shtTemp=sheets.add
shtBaru.activate
2. copy data (tanpa header) dari sheet 'baru' kolom A dan B ke sheet temp
kolom A
with shtBaru
range( .cells( 2,2) , .cells( .rows.count , 1 ).end(xlup) ).copy
shttemp.range("a1").pastespecial xlpastevalues
llastrow=shttemp.usedrange.rows.count
end with
>> Proses 3 sampai 7 akan bekerja di sheet Temp
with shtTemp 'kerja di sheet temp
3. baca txt file dan tulis ke sheet temp kolom A dan B di baris
baru (menambahkan data hasil paste dari sheet 'baru')
ifile=freefile 'create id file baru untuk proses
io file
open thisworkbook.path & "\datapelanggan.txt" for input as
ifile 'buka file sebagai bahan input
do while not eof(ifile) 'loop setiap baris dalam
file sampai karakter end of file
line input #ifile, sline 'baca sebaris utuh dan
simpan ke variabel sLine
llastrow=llastrow+1 'baris terakhir di sheet
temp naik satu karena akan ada baris dari txt yang masuk
.cells( llastrow , 1 ).resize(1,2).value = split( sline
, ";" ) 'tulis setiap fields dari sebaris txt ke sheet temp
loop 'ke sequence loop berikutnya
close ifile 'tutup file
4. di sheet temp, lakukan remove duplicate berdasar kolom A dan
pastikan tanpa header
.range("a1").currentregion.removeduplicates 1,xlno 'remove
duplicate dengan key kolom ke-1 alias kolom A, tanpa header
5. di sheet temp, lakukan sort asc berdasar kolom A dan B dan
pastikan tanpa header
.range("a1").currentregion.sort
.cells(1,1),xlascending,.cells(1,2),order2:=xlascending,header:=xlno,orientation:=xlsortcolumns
6. buat txt baru, lalu loop setiap baris berisi data di sheet
temp, dan tulis ke txt baru tersebut
ifile=freefile 'create id file baru untuk proses
io file
open thisworkbook.path & "\datapelanggan.txt" for output as
ifile 'buka file sebagai bahan input
for llastrow=1 to .usedrange.rows.count 'loop
setiap baris di sheet temp
if len(.cells(llastrow,1).value)<>0 then 'cek
bahwa ada isinya
print #ifile , .cells(llastrow,1).value & ";"
& .cells(llastrow,2).value
endif 'selesai blok kondisi ada isinya
next llastrow 'ke baris berikutnya
close ifile 'tutup file
7. buang sheet temp
application.displayalerts=false 'suruh Excel supaya ndak cerewet
dulu
.delete 'buang sheet temp
application.displayalers=true 'ijinkan Excel untuk kembali
cerewet
end with 'selesai kerja di sheet temp
8. selesai (beri pesan ke user bila perlu)
msgbox "Selesai.",vbinformation,"Judul pesan"
*** silakan diatur sendiri semua trap error dan environment Excel dalam
mengerjakan proses di atas
Wassalamu'alaikum wr wb
Kid
2015-11-26 20:53 GMT+07:00 him mah himmah.mlg@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Assalamu'
> dear all
>
> Mau tanya terkait mengedit text file
>
> saya punya file misal DataPelanggan.
> isinya terdiri dari Kode Pelanggan dan Nama pelanggan
> yang dipisahkan oleh tanda titik koma (;)
> isinya seperti ini:
>
> P-002;ABC
> P-001;DEF
> P-003;GHI
> P-007;XYZ
>
> kalau dari excel
> kita mencari kode pelanggan tertentu
> apakah kode pelanggan tersebut
> sudah ada atau belum dalam file DataPelanggan.
>
> misal kriterianya kode pelanggan P-003
> ternyata kode pelanggan tersebut sudah ada
> sehingga proses selanjutnya
> adalah melakukan edit file text tersebut
> misal untuk P-003 nama pelanggannya diganti dengan nama OPQ
>
> sehingga file text tersebut isinya menjadi
>
> P-002;ABC
> P-001;DEF
> P-003;OPQ
> P-007;XYZ
>
> kemudian jika kita masukan kode pelanggan P-004
> ternyata dalam file DataPelanggan.
> kode tersebut tidak ditemukan
> sehingga proses selanjutnya adalah menambahkan data baru
> misal kode P-004 nama pelanggan KLM
> sehingga file DataPelanggan.
> isninya menjadi
>
> P-002;ABC
> P-001;DEF
> P-003;OPQ
> P-007;XYZ
> P-004;KLM
>
> kira-kira untuk yang seperti ini
> VBA nya bagaimana?
>
> ada satu lagi
> bisa tidak ya kita melakukan sort data
> yang ada di file DataPelanggan.
> sehingga data di file tersebut menjadi urut
>
> P-001;DEF
> P-002;ABC
> P-003;OPQ
> P-004;KLM
> P-007;XYZ
>
> terima kasih
>
>
Thu Nov 26, 2015 5:12 pm (PST) . Posted by:
"him mah"
terima kasih, nanti saya coba dulu ya
oh iya terkait dengan remove duplikat
apakah data yang tidak diremove itu
sesuai dengan yang kita inginkan ya
misal data
P-003;GHI
P-003;OPQ
maka yang diremve adalah
yang awal
P-003;GHI
Pada 26 November 2015 22.41, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com> menulis:
>
>
> Wa'alaikumussalam wr wb
>
> Hai Himmah,
>
> Misal :
> A. data baru ada di sheet 'baru', berupa data 17 kolom mulai dari kolom A,
> tetapi yang ditulis ke txt file hanya kolom A dan B. Record mulai baris 2
> karena baris 1 nya header. Ada tombol di sheet 'baru' menjalankan proses
> penulisan ke txt file.
> B. data lama di txt file bernama DataPelanggan.txt di folder yang sama
> dengan si workbook data baru berisi 2 kolom dengan delimiter titik koma
>
> Kira-kira prosesnya begini :
> 1. buat sheet temporary (misal bernama temp), tapi yang aktif tetap sheet
> 'baru'
> 2. copy data (tanpa header) dari sheet 'baru' kolom A dan B ke sheet temp
> kolom A, simpan jumlah baris yang di-copy
> 3. baca txt file dan tulis ke sheet temp kolom A dan B di baris baru
> (menambahkan data hasil paste dari sheet 'baru')
> 4. di sheet temp, lakukan remove duplicate berdasar kolom A dan pastikan
> tanpa header
> 5. di sheet temp, lakukan sort asc berdasar kolom A dan B dan pastikan
> tanpa header
> 6. buat txt baru, lalu loop setiap baris berisi data di sheet temp, dan
> tulis ke txt baru tersebut
> 7. buang sheet temp
> 8. selesai (beri pesan ke user bila perlu)
>
> VBA nya begini : (sesuaikan dengan keadaan setempat, termasuk
> meletakkannya di dalam prosedur mana yang akan Anda gunakan)
> dim shtBaru as worksheet, shtTemp as worksheet, lLastRow as long
> dim iFile as integer, sLine as string
>
> 1. buat sheet temporary (misal bernama temp)
> set shtBaru=sheets("baru")
> set shtTemp=sheets.add
> shtBaru.activate
>
> 2. copy data (tanpa header) dari sheet 'baru' kolom A dan B ke sheet temp
> kolom A
> with shtBaru
> range( .cells( 2,2) , .cells( .rows.count , 1 ).end(xlup) ).copy
> shttemp.range("a1").pastespecial xlpastevalues
> llastrow=shttemp.usedrange.rows.count
> end with
>
> >> Proses 3 sampai 7 akan bekerja di sheet Temp
>
> with shtTemp 'kerja di sheet temp
>
> 3. baca txt file dan tulis ke sheet temp kolom A dan B di baris
> baru (menambahkan data hasil paste dari sheet 'baru')
> ifile=freefile 'create id file baru untuk proses
> io file
> open thisworkbook.path & "\datapelanggan.txt" for input as
> ifile 'buka file sebagai bahan input
> do while not eof(ifile) 'loop setiap baris dalam
> file sampai karakter end of file
> line input #ifile, sline 'baca sebaris utuh
> dan simpan ke variabel sLine
> llastrow=llastrow+1 'baris terakhir di sheet
> temp naik satu karena akan ada baris dari txt yang masuk
> .cells( llastrow , 1 ).resize(1,2).value = split(
> sline , ";" ) 'tulis setiap fields dari sebaris txt ke sheet temp
> loop 'ke sequence loop berikutnya
> close ifile 'tutup file
>
> 4. di sheet temp, lakukan remove duplicate berdasar kolom A dan
> pastikan tanpa header
> .range("a1").currentregion.removeduplicates 1,xlno 'remove
> duplicate dengan key kolom ke-1 alias kolom A, tanpa header
>
> 5. di sheet temp, lakukan sort asc berdasar kolom A dan B dan
> pastikan tanpa header
> .range("a1").currentregion.sort
> .cells(1,1),xlascending,.cells(1,2),order2:=xlascending,header:=xlno,orientation:=xlsortcolumns
>
> 6. buat txt baru, lalu loop setiap baris berisi data di sheet
> temp, dan tulis ke txt baru tersebut
> ifile=freefile 'create id file baru untuk proses
> io file
> open thisworkbook.path & "\datapelanggan.txt" for output as
> ifile 'buka file sebagai bahan input
> for llastrow=1 to .usedrange.rows.count
> 'loop setiap baris di sheet temp
> if len(.cells(llastrow,1).value)<>0 then 'cek
> bahwa ada isinya
> print #ifile , .cells(llastrow,1).value & ";"
> & .cells(llastrow,2).value
> endif 'selesai blok kondisi ada isinya
> next llastrow 'ke baris berikutnya
> close ifile 'tutup file
>
> 7. buang sheet temp
> application.displayalerts=false 'suruh Excel supaya ndak
> cerewet dulu
> .delete 'buang sheet temp
> application.displayalers=true 'ijinkan Excel untuk kembali
> cerewet
>
> end with 'selesai kerja di sheet temp
>
> 8. selesai (beri pesan ke user bila perlu)
> msgbox "Selesai.",vbinformation,"Judul pesan"
>
> *** silakan diatur sendiri semua trap error dan environment Excel dalam
> mengerjakan proses di atas
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
>
> 2015-11-26 20:53 GMT+07:00 him mah himmah.mlg@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>>
>>
>> Assalamu'alaikum. Wr. Wb
>> dear all
>>
>> Mau tanya terkait mengedit text file
>>
>> saya punya file misal DataPelanggan.txt
>> isinya terdiri dari Kode Pelanggan dan Nama pelanggan
>> yang dipisahkan oleh tanda titik koma (;)
>> isinya seperti ini:
>>
>> P-002;ABC
>> P-001;DEF
>> P-003;GHI
>> P-007;XYZ
>>
>> kalau dari excel
>> kita mencari kode pelanggan tertentu
>> apakah kode pelanggan tersebut
>> sudah ada atau belum dalam file DataPelanggan.txt
>>
>> misal kriterianya kode pelanggan P-003
>> ternyata kode pelanggan tersebut sudah ada
>> sehingga proses selanjutnya
>> adalah melakukan edit file text tersebut
>> misal untuk P-003 nama pelanggannya diganti dengan nama OPQ
>>
>> sehingga file text tersebut isinya menjadi
>>
>> P-002;ABC
>> P-001;DEF
>> P-003;OPQ
>> P-007;XYZ
>>
>> kemudian jika kita masukan kode pelanggan P-004
>> ternyata dalam file DataPelanggan.txt
>> kode tersebut tidak ditemukan
>> sehingga proses selanjutnya adalah menambahkan data baru
>> misal kode P-004 nama pelanggan KLM
>> sehingga file DataPelanggan.txt
>> isninya menjadi
>>
>> P-002;ABC
>> P-001;DEF
>> P-003;OPQ
>> P-007;XYZ
>> P-004;KLM
>>
>> kira-kira untuk yang seperti ini
>> VBA nya bagaimana?
>>
>> ada satu lagi
>> bisa tidak ya kita melakukan sort data
>> yang ada di file DataPelanggan.txt
>> sehingga data di file tersebut menjadi urut
>>
>> P-001;DEF
>> P-002;ABC
>> P-003;OPQ
>> P-004;KLM
>> P-007;XYZ
>>
>> terima kasih
>>
>
>
>
oh iya terkait dengan remove duplikat
apakah data yang tidak diremove itu
sesuai dengan yang kita inginkan ya
misal data
P-003;GHI
P-003;OPQ
maka yang diremve adalah
yang awal
P-003;GHI
Pada 26 November 2015 22.41, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com> menulis:
>
>
> Wa'alaikumussalam wr wb
>
> Hai Himmah,
>
> Misal :
> A. data baru ada di sheet 'baru', berupa data 17 kolom mulai dari kolom A,
> tetapi yang ditulis ke txt file hanya kolom A dan B. Record mulai baris 2
> karena baris 1 nya header. Ada tombol di sheet 'baru' menjalankan proses
> penulisan ke txt file.
> B. data lama di txt file bernama DataPelanggan.txt di folder yang sama
> dengan si workbook data baru berisi 2 kolom dengan delimiter titik koma
>
> Kira-kira prosesnya begini :
> 1. buat sheet temporary (misal bernama temp), tapi yang aktif tetap sheet
> 'baru'
> 2. copy data (tanpa header) dari sheet 'baru' kolom A dan B ke sheet temp
> kolom A, simpan jumlah baris yang di-copy
> 3. baca txt file dan tulis ke sheet temp kolom A dan B di baris baru
> (menambahkan data hasil paste dari sheet 'baru')
> 4. di sheet temp, lakukan remove duplicate berdasar kolom A dan pastikan
> tanpa header
> 5. di sheet temp, lakukan sort asc berdasar kolom A dan B dan pastikan
> tanpa header
> 6. buat txt baru, lalu loop setiap baris berisi data di sheet temp, dan
> tulis ke txt baru tersebut
> 7. buang sheet temp
> 8. selesai (beri pesan ke user bila perlu)
>
> VBA nya begini : (sesuaikan dengan keadaan setempat, termasuk
> meletakkannya di dalam prosedur mana yang akan Anda gunakan)
> dim shtBaru as worksheet, shtTemp as worksheet, lLastRow as long
> dim iFile as integer, sLine as string
>
> 1. buat sheet temporary (misal bernama temp)
> set shtBaru=sheets("baru")
> set shtTemp=sheets.add
> shtBaru.activate
>
> 2. copy data (tanpa header) dari sheet 'baru' kolom A dan B ke sheet temp
> kolom A
> with shtBaru
> range( .cells( 2,2) , .cells( .rows.count , 1 ).end(xlup) ).copy
> shttemp.range("a1").pastespecial xlpastevalues
> llastrow=shttemp.usedrange.rows.count
> end with
>
> >> Proses 3 sampai 7 akan bekerja di sheet Temp
>
> with shtTemp 'kerja di sheet temp
>
> 3. baca txt file dan tulis ke sheet temp kolom A dan B di baris
> baru (menambahkan data hasil paste dari sheet 'baru')
> ifile=freefile 'create id file baru untuk proses
> io file
> open thisworkbook.path & "\datapelanggan.txt" for input as
> ifile 'buka file sebagai bahan input
> do while not eof(ifile) 'loop setiap baris dalam
> file sampai karakter end of file
> line input #ifile, sline 'baca sebaris utuh
> dan simpan ke variabel sLine
> llastrow=llastrow+1 'baris terakhir di sheet
> temp naik satu karena akan ada baris dari txt yang masuk
> .cells( llastrow , 1 ).resize(1,2).value = split(
> sline , ";" ) 'tulis setiap fields dari sebaris txt ke sheet temp
> loop 'ke sequence loop berikutnya
> close ifile 'tutup file
>
> 4. di sheet temp, lakukan remove duplicate berdasar kolom A dan
> pastikan tanpa header
> .range("a1").currentregion.removeduplicates 1,xlno 'remove
> duplicate dengan key kolom ke-1 alias kolom A, tanpa header
>
> 5. di sheet temp, lakukan sort asc berdasar kolom A dan B dan
> pastikan tanpa header
> .range("a1").currentregion.sort
> .cells(1,1),xlascending,.cells(1,2),order2:=xlascending,header:=xlno,orientation:=xlsortcolumns
>
> 6. buat txt baru, lalu loop setiap baris berisi data di sheet
> temp, dan tulis ke txt baru tersebut
> ifile=freefile 'create id file baru untuk proses
> io file
> open thisworkbook.path & "\datapelanggan.txt" for output as
> ifile 'buka file sebagai bahan input
> for llastrow=1 to .usedrange.rows.count
> 'loop setiap baris di sheet temp
> if len(.cells(llastrow,1).value)<>0 then 'cek
> bahwa ada isinya
> print #ifile , .cells(llastrow,1).value & ";"
> & .cells(llastrow,2).value
> endif 'selesai blok kondisi ada isinya
> next llastrow 'ke baris berikutnya
> close ifile 'tutup file
>
> 7. buang sheet temp
> application.displayalerts=false 'suruh Excel supaya ndak
> cerewet dulu
> .delete 'buang sheet temp
> application.displayalers=true 'ijinkan Excel untuk kembali
> cerewet
>
> end with 'selesai kerja di sheet temp
>
> 8. selesai (beri pesan ke user bila perlu)
> msgbox "Selesai.",vbinformation,"Judul pesan"
>
> *** silakan diatur sendiri semua trap error dan environment Excel dalam
> mengerjakan proses di atas
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
>
> 2015-11-26 20:53 GMT+07:00 him mah himmah.mlg@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>>
>>
>> Assalamu'
>> dear all
>>
>> Mau tanya terkait mengedit text file
>>
>> saya punya file misal DataPelanggan.
>> isinya terdiri dari Kode Pelanggan dan Nama pelanggan
>> yang dipisahkan oleh tanda titik koma (;)
>> isinya seperti ini:
>>
>> P-002;ABC
>> P-001;DEF
>> P-003;GHI
>> P-007;XYZ
>>
>> kalau dari excel
>> kita mencari kode pelanggan tertentu
>> apakah kode pelanggan tersebut
>> sudah ada atau belum dalam file DataPelanggan.
>>
>> misal kriterianya kode pelanggan P-003
>> ternyata kode pelanggan tersebut sudah ada
>> sehingga proses selanjutnya
>> adalah melakukan edit file text tersebut
>> misal untuk P-003 nama pelanggannya diganti dengan nama OPQ
>>
>> sehingga file text tersebut isinya menjadi
>>
>> P-002;ABC
>> P-001;DEF
>> P-003;OPQ
>> P-007;XYZ
>>
>> kemudian jika kita masukan kode pelanggan P-004
>> ternyata dalam file DataPelanggan.
>> kode tersebut tidak ditemukan
>> sehingga proses selanjutnya adalah menambahkan data baru
>> misal kode P-004 nama pelanggan KLM
>> sehingga file DataPelanggan.
>> isninya menjadi
>>
>> P-002;ABC
>> P-001;DEF
>> P-003;OPQ
>> P-007;XYZ
>> P-004;KLM
>>
>> kira-kira untuk yang seperti ini
>> VBA nya bagaimana?
>>
>> ada satu lagi
>> bisa tidak ya kita melakukan sort data
>> yang ada di file DataPelanggan.
>> sehingga data di file tersebut menjadi urut
>>
>> P-001;DEF
>> P-002;ABC
>> P-003;OPQ
>> P-004;KLM
>> P-007;XYZ
>>
>> terima kasih
>>
>
>
>
Thu Nov 26, 2015 5:16 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
sepertinya sih demikian ya...
tapi itu cuma sepertinya loh ya...
mungkin lebih enak kalo dicoba dan dilihat hasilnya dulu. kalau ndak pas,
ya silakan diperbaiki... wkwkwkwk...
atau dicoba manual dulu dengan ribbon data remove duplicates.
2015-11-27 8:12 GMT+07:00 him mah himmah.mlg@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> terima kasih, nanti saya coba dulu ya
>
> oh iya terkait dengan remove duplikat
> apakah data yang tidak diremove itu
> sesuai dengan yang kita inginkan ya
>
> misal data
> P-003;GHI
> P-003;OPQ
>
>
> maka yang diremve adalah
> yang awal
>
> P-003;GHI
>
> Pada 26 November 2015 22.41, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]
> <belajar-excel@yahoogroups.com> menulis:
>
>>
>>
>> Wa'alaikumussalam wr wb
>>
>> Hai Himmah,
>>
>> Misal :
>> A. data baru ada di sheet 'baru', berupa data 17 kolom mulai dari kolom
>> A, tetapi yang ditulis ke txt file hanya kolom A dan B. Record mulai baris
>> 2 karena baris 1 nya header. Ada tombol di sheet 'baru' menjalankan proses
>> penulisan ke txt file.
>> B. data lama di txt file bernama DataPelanggan.txt di folder yang sama
>> dengan si workbook data baru berisi 2 kolom dengan delimiter titik koma
>>
>> Kira-kira prosesnya begini :
>> 1. buat sheet temporary (misal bernama temp), tapi yang aktif tetap sheet
>> 'baru'
>> 2. copy data (tanpa header) dari sheet 'baru' kolom A dan B ke sheet temp
>> kolom A, simpan jumlah baris yang di-copy
>> 3. baca txt file dan tulis ke sheet temp kolom A dan B di baris baru
>> (menambahkan data hasil paste dari sheet 'baru')
>> 4. di sheet temp, lakukan remove duplicate berdasar kolom A dan pastikan
>> tanpa header
>> 5. di sheet temp, lakukan sort asc berdasar kolom A dan B dan pastikan
>> tanpa header
>> 6. buat txt baru, lalu loop setiap baris berisi data di sheet temp, dan
>> tulis ke txt baru tersebut
>> 7. buang sheet temp
>> 8. selesai (beri pesan ke user bila perlu)
>>
>> VBA nya begini : (sesuaikan dengan keadaan setempat, termasuk
>> meletakkannya di dalam prosedur mana yang akan Anda gunakan)
>> dim shtBaru as worksheet, shtTemp as worksheet, lLastRow as long
>> dim iFile as integer, sLine as string
>>
>> 1. buat sheet temporary (misal bernama temp)
>> set shtBaru=sheets("baru")
>> set shtTemp=sheets.add
>> shtBaru.activate
>>
>> 2. copy data (tanpa header) dari sheet 'baru' kolom A dan B ke sheet temp
>> kolom A
>> with shtBaru
>> range( .cells( 2,2) , .cells( .rows.count , 1 ).end(xlup)
>> ).copy
>> shttemp.range("a1").pastespecial xlpastevalues
>> llastrow=shttemp.usedrange.rows.count
>> end with
>>
>> >> Proses 3 sampai 7 akan bekerja di sheet Temp
>>
>> with shtTemp 'kerja di sheet temp
>>
>> 3. baca txt file dan tulis ke sheet temp kolom A dan B di baris
>> baru (menambahkan data hasil paste dari sheet 'baru')
>> ifile=freefile 'create id file baru untuk proses
>> io file
>> open thisworkbook.path & "\datapelanggan.txt" for input as
>> ifile 'buka file sebagai bahan input
>> do while not eof(ifile) 'loop setiap baris dalam
>> file sampai karakter end of file
>> line input #ifile, sline 'baca sebaris utuh
>> dan simpan ke variabel sLine
>> llastrow=llastrow+1 'baris terakhir di sheet
>> temp naik satu karena akan ada baris dari txt yang masuk
>> .cells( llastrow , 1 ).resize(1,2).value = split(
>> sline , ";" ) 'tulis setiap fields dari sebaris txt ke sheet temp
>> loop 'ke sequence loop berikutnya
>> close ifile 'tutup file
>>
>> 4. di sheet temp, lakukan remove duplicate berdasar kolom A dan
>> pastikan tanpa header
>> .range("a1").currentregion.removeduplicates 1,xlno 'remove
>> duplicate dengan key kolom ke-1 alias kolom A, tanpa header
>>
>> 5. di sheet temp, lakukan sort asc berdasar kolom A dan B dan
>> pastikan tanpa header
>> .range("a1").currentregion.sort
>> .cells(1,1),xlascending,.cells(1,2),order2:=xlascending,header:=xlno,orientation:=xlsortcolumns
>>
>> 6. buat txt baru, lalu loop setiap baris berisi data di sheet
>> temp, dan tulis ke txt baru tersebut
>> ifile=freefile 'create id file baru untuk proses
>> io file
>> open thisworkbook.path & "\datapelanggan.txt" for output as
>> ifile 'buka file sebagai bahan input
>> for llastrow=1 to .usedrange.rows.count
>> 'loop setiap baris di sheet temp
>> if len(.cells(llastrow,1).value)<>0 then 'cek
>> bahwa ada isinya
>> print #ifile , .cells(llastrow,1).value &
>> ";" & .cells(llastrow,2).value
>> endif 'selesai blok kondisi ada isinya
>> next llastrow 'ke baris berikutnya
>> close ifile 'tutup file
>>
>> 7. buang sheet temp
>> application.displayalerts=false 'suruh Excel supaya ndak
>> cerewet dulu
>> .delete 'buang sheet temp
>> application.displayalers=true 'ijinkan Excel untuk kembali
>> cerewet
>>
>> end with 'selesai kerja di sheet temp
>>
>> 8. selesai (beri pesan ke user bila perlu)
>> msgbox "Selesai.",vbinformation,"Judul pesan"
>>
>> *** silakan diatur sendiri semua trap error dan environment Excel dalam
>> mengerjakan proses di atas
>>
>> Wassalamu'alaikum wr wb
>> Kid
>>
>>
>>
>>
>> 2015-11-26 20:53 GMT+07:00 him mah himmah.mlg@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> Assalamu'alaikum. Wr. Wb
>>> dear all
>>>
>>> Mau tanya terkait mengedit text file
>>>
>>> saya punya file misal DataPelanggan.txt
>>> isinya terdiri dari Kode Pelanggan dan Nama pelanggan
>>> yang dipisahkan oleh tanda titik koma (;)
>>> isinya seperti ini:
>>>
>>> P-002;ABC
>>> P-001;DEF
>>> P-003;GHI
>>> P-007;XYZ
>>>
>>> kalau dari excel
>>> kita mencari kode pelanggan tertentu
>>> apakah kode pelanggan tersebut
>>> sudah ada atau belum dalam file DataPelanggan.txt
>>>
>>> misal kriterianya kode pelanggan P-003
>>> ternyata kode pelanggan tersebut sudah ada
>>> sehingga proses selanjutnya
>>> adalah melakukan edit file text tersebut
>>> misal untuk P-003 nama pelanggannya diganti dengan nama OPQ
>>>
>>> sehingga file text tersebut isinya menjadi
>>>
>>> P-002;ABC
>>> P-001;DEF
>>> P-003;OPQ
>>> P-007;XYZ
>>>
>>> kemudian jika kita masukan kode pelanggan P-004
>>> ternyata dalam file DataPelanggan.txt
>>> kode tersebut tidak ditemukan
>>> sehingga proses selanjutnya adalah menambahkan data baru
>>> misal kode P-004 nama pelanggan KLM
>>> sehingga file DataPelanggan.txt
>>> isninya menjadi
>>>
>>> P-002;ABC
>>> P-001;DEF
>>> P-003;OPQ
>>> P-007;XYZ
>>> P-004;KLM
>>>
>>> kira-kira untuk yang seperti ini
>>> VBA nya bagaimana?
>>>
>>> ada satu lagi
>>> bisa tidak ya kita melakukan sort data
>>> yang ada di file DataPelanggan.txt
>>> sehingga data di file tersebut menjadi urut
>>>
>>> P-001;DEF
>>> P-002;ABC
>>> P-003;OPQ
>>> P-004;KLM
>>> P-007;XYZ
>>>
>>> terima kasih
>>>
>>
>>
>
>
tapi itu cuma sepertinya loh ya...
mungkin lebih enak kalo dicoba dan dilihat hasilnya dulu. kalau ndak pas,
ya silakan diperbaiki... wkwkwkwk...
atau dicoba manual dulu dengan ribbon data remove duplicates.
2015-11-27 8:12 GMT+07:00 him mah himmah.mlg@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> terima kasih, nanti saya coba dulu ya
>
> oh iya terkait dengan remove duplikat
> apakah data yang tidak diremove itu
> sesuai dengan yang kita inginkan ya
>
> misal data
> P-003;GHI
> P-003;OPQ
>
>
> maka yang diremve adalah
> yang awal
>
> P-003;GHI
>
> Pada 26 November 2015 22.41, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]
> <belajar-excel@yahoogroups.com> menulis:
>
>>
>>
>> Wa'alaikumussalam wr wb
>>
>> Hai Himmah,
>>
>> Misal :
>> A. data baru ada di sheet 'baru', berupa data 17 kolom mulai dari kolom
>> A, tetapi yang ditulis ke txt file hanya kolom A dan B. Record mulai baris
>> 2 karena baris 1 nya header. Ada tombol di sheet 'baru' menjalankan proses
>> penulisan ke txt file.
>> B. data lama di txt file bernama DataPelanggan.txt di folder yang sama
>> dengan si workbook data baru berisi 2 kolom dengan delimiter titik koma
>>
>> Kira-kira prosesnya begini :
>> 1. buat sheet temporary (misal bernama temp), tapi yang aktif tetap sheet
>> 'baru'
>> 2. copy data (tanpa header) dari sheet 'baru' kolom A dan B ke sheet temp
>> kolom A, simpan jumlah baris yang di-copy
>> 3. baca txt file dan tulis ke sheet temp kolom A dan B di baris baru
>> (menambahkan data hasil paste dari sheet 'baru')
>> 4. di sheet temp, lakukan remove duplicate berdasar kolom A dan pastikan
>> tanpa header
>> 5. di sheet temp, lakukan sort asc berdasar kolom A dan B dan pastikan
>> tanpa header
>> 6. buat txt baru, lalu loop setiap baris berisi data di sheet temp, dan
>> tulis ke txt baru tersebut
>> 7. buang sheet temp
>> 8. selesai (beri pesan ke user bila perlu)
>>
>> VBA nya begini : (sesuaikan dengan keadaan setempat, termasuk
>> meletakkannya di dalam prosedur mana yang akan Anda gunakan)
>> dim shtBaru as worksheet, shtTemp as worksheet, lLastRow as long
>> dim iFile as integer, sLine as string
>>
>> 1. buat sheet temporary (misal bernama temp)
>> set shtBaru=sheets("baru")
>> set shtTemp=sheets.add
>> shtBaru.activate
>>
>> 2. copy data (tanpa header) dari sheet 'baru' kolom A dan B ke sheet temp
>> kolom A
>> with shtBaru
>> range( .cells( 2,2) , .cells( .rows.count , 1 ).end(xlup)
>> ).copy
>> shttemp.range("a1").pastespecial xlpastevalues
>> llastrow=shttemp.usedrange.rows.count
>> end with
>>
>> >> Proses 3 sampai 7 akan bekerja di sheet Temp
>>
>> with shtTemp 'kerja di sheet temp
>>
>> 3. baca txt file dan tulis ke sheet temp kolom A dan B di baris
>> baru (menambahkan data hasil paste dari sheet 'baru')
>> ifile=freefile 'create id file baru untuk proses
>> io file
>> open thisworkbook.path & "\datapelanggan.txt" for input as
>> ifile 'buka file sebagai bahan input
>> do while not eof(ifile) 'loop setiap baris dalam
>> file sampai karakter end of file
>> line input #ifile, sline 'baca sebaris utuh
>> dan simpan ke variabel sLine
>> llastrow=llastrow+1 'baris terakhir di sheet
>> temp naik satu karena akan ada baris dari txt yang masuk
>> .cells( llastrow , 1 ).resize(1,2).value = split(
>> sline , ";" ) 'tulis setiap fields dari sebaris txt ke sheet temp
>> loop 'ke sequence loop berikutnya
>> close ifile 'tutup file
>>
>> 4. di sheet temp, lakukan remove duplicate berdasar kolom A dan
>> pastikan tanpa header
>> .range("a1").currentregion.removeduplicates 1,xlno 'remove
>> duplicate dengan key kolom ke-1 alias kolom A, tanpa header
>>
>> 5. di sheet temp, lakukan sort asc berdasar kolom A dan B dan
>> pastikan tanpa header
>> .range("a1").currentregion.sort
>> .cells(1,1),xlascending,.cells(1,2),order2:=xlascending,header:=xlno,orientation:=xlsortcolumns
>>
>> 6. buat txt baru, lalu loop setiap baris berisi data di sheet
>> temp, dan tulis ke txt baru tersebut
>> ifile=freefile 'create id file baru untuk proses
>> io file
>> open thisworkbook.path & "\datapelanggan.txt" for output as
>> ifile 'buka file sebagai bahan input
>> for llastrow=1 to .usedrange.rows.count
>> 'loop setiap baris di sheet temp
>> if len(.cells(llastrow,1).value)<>0 then 'cek
>> bahwa ada isinya
>> print #ifile , .cells(llastrow,1).value &
>> ";" & .cells(llastrow,2).value
>> endif 'selesai blok kondisi ada isinya
>> next llastrow 'ke baris berikutnya
>> close ifile 'tutup file
>>
>> 7. buang sheet temp
>> application.displayalerts=false 'suruh Excel supaya ndak
>> cerewet dulu
>> .delete 'buang sheet temp
>> application.displayalers=true 'ijinkan Excel untuk kembali
>> cerewet
>>
>> end with 'selesai kerja di sheet temp
>>
>> 8. selesai (beri pesan ke user bila perlu)
>> msgbox "Selesai.",vbinformation,"Judul pesan"
>>
>> *** silakan diatur sendiri semua trap error dan environment Excel dalam
>> mengerjakan proses di atas
>>
>> Wassalamu'alaikum wr wb
>> Kid
>>
>>
>>
>>
>> 2015-11-26 20:53 GMT+07:00 him mah himmah.mlg@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> Assalamu'
>>> dear all
>>>
>>> Mau tanya terkait mengedit text file
>>>
>>> saya punya file misal DataPelanggan.
>>> isinya terdiri dari Kode Pelanggan dan Nama pelanggan
>>> yang dipisahkan oleh tanda titik koma (;)
>>> isinya seperti ini:
>>>
>>> P-002;ABC
>>> P-001;DEF
>>> P-003;GHI
>>> P-007;XYZ
>>>
>>> kalau dari excel
>>> kita mencari kode pelanggan tertentu
>>> apakah kode pelanggan tersebut
>>> sudah ada atau belum dalam file DataPelanggan.
>>>
>>> misal kriterianya kode pelanggan P-003
>>> ternyata kode pelanggan tersebut sudah ada
>>> sehingga proses selanjutnya
>>> adalah melakukan edit file text tersebut
>>> misal untuk P-003 nama pelanggannya diganti dengan nama OPQ
>>>
>>> sehingga file text tersebut isinya menjadi
>>>
>>> P-002;ABC
>>> P-001;DEF
>>> P-003;OPQ
>>> P-007;XYZ
>>>
>>> kemudian jika kita masukan kode pelanggan P-004
>>> ternyata dalam file DataPelanggan.
>>> kode tersebut tidak ditemukan
>>> sehingga proses selanjutnya adalah menambahkan data baru
>>> misal kode P-004 nama pelanggan KLM
>>> sehingga file DataPelanggan.
>>> isninya menjadi
>>>
>>> P-002;ABC
>>> P-001;DEF
>>> P-003;OPQ
>>> P-007;XYZ
>>> P-004;KLM
>>>
>>> kira-kira untuk yang seperti ini
>>> VBA nya bagaimana?
>>>
>>> ada satu lagi
>>> bisa tidak ya kita melakukan sort data
>>> yang ada di file DataPelanggan.
>>> sehingga data di file tersebut menjadi urut
>>>
>>> P-001;DEF
>>> P-002;ABC
>>> P-003;OPQ
>>> P-004;KLM
>>> P-007;XYZ
>>>
>>> terima kasih
>>>
>>
>>
>
>
Thu Nov 26, 2015 8:12 am (PST) . Posted by:
edo_hanggoro
Assalamualaikum..
Dear All
Mau tanya bagaimana cara membuat kode VBA bahwa untuk setiap pengisian atau perubahan nilai di setiap baris di kolom C akan menghasilkan nilai di setiap baris yang ada di kolom D berupa perkalian dari baris di kolom A dikali dengan baris di kolom C . Sedangkan nilai yang ada di baris di kolom B sendiri akan berkurang menjadi nilai dari kolom B yang awal dikurangi dengan nilai yg ada di baris kolom D.
Untuk lebih jelasnya, saya lampirkan filenya.
Terima kasih
Edo
Dear All
Mau tanya bagaimana cara membuat kode VBA bahwa untuk setiap pengisian atau perubahan nilai di setiap baris di kolom C akan menghasilkan nilai di setiap baris yang ada di kolom D berupa perkalian dari baris di kolom A dikali dengan baris di kolom C . Sedangkan nilai yang ada di baris di kolom B sendiri akan berkurang menjadi nilai dari kolom B yang awal dikurangi dengan nilai yg ada di baris kolom D.
Untuk lebih jelasnya, saya lampirkan filenya.
Terima kasih
Edo
Thu Nov 26, 2015 8:45 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam wr wb
Hai Edo,
Jadi bisa ada banyak cells sekaligus yang diubah (misal dengan copas) dan
yang berubah hanya di kolom C (di preview nya, kolom C adalah persentase).
> pada event change milik worksheet diberi kode VBA berikut :
dim rng as range,lRow as long
if not intersect( target,range("c:c") is nothing then 'cek yang
berubah beririsan dengan kolom C
application.enableevents=false 'cegah Excel untuk responsif
terhadap perilaku
on error resume next 'lewati error yang terjadi
for each rng in intersect( target,range("c:c") 'di setiap cells
yang berubah di kolom C
lrow=rng.row 'simpan baris
cells(lrow,4).value=cells(lrow,2).value*cells(lrow,3).value 'isi
kolom D
if err.number=0 then 'kolom D terisi dengan baik ?
cells(lrow,2).value=cells(lrow,2).value-cells(lrow,4).value 'isi kolom B
endif 'selesai cek kolom D terisi dengan baik
err.clear 'hapus error yang terjadi
next rng 'ke range yang berubah berikutnya
on error goto 0 'kembalikan setting trap error ke default
application.enableevents=true 'excel boleh responsif lagi
endif 'selesai cek
Wassalamu'alaikum wr wb
Kid
2015-11-26 22:07 GMT+07:00 Edo_Hanggoro@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Assalamualaikum..
>
>
> Dear All
>
> Mau tanya bagaimana cara membuat kode VBA bahwa untuk setiap pengisian
> atau perubahan nilai di setiap baris di kolom C akan menghasilkan nilai di
> setiap baris yang ada di kolom D berupa perkalian dari baris di kolom A
> dikali dengan baris di kolom C . Sedangkan nilai yang ada di baris di kolom
> B sendiri akan berkurang menjadi nilai dari kolom B yang awal dikurangi
> dengan nilai yg ada di baris kolom D.
>
>
> Untuk lebih jelasnya, saya lampirkan filenya.
>
>
> Terima kasih
>
>
> Edo
>
>
>
>
Hai Edo,
Jadi bisa ada banyak cells sekaligus yang diubah (misal dengan copas) dan
yang berubah hanya di kolom C (di preview nya, kolom C adalah persentase).
> pada event change milik worksheet diberi kode VBA berikut :
dim rng as range,lRow as long
if not intersect( target,range("c:c") is nothing then 'cek yang
berubah beririsan dengan kolom C
application.enableevents=false 'cegah Excel untuk responsif
terhadap perilaku
on error resume next 'lewati error yang terjadi
for each rng in intersect( target,range("c:c") 'di setiap cells
yang berubah di kolom C
lrow=rng.row 'simpan baris
cells(lrow,4).value=cells(lrow,2).value*cells(lrow,3).value 'isi
kolom D
if err.number=0 then 'kolom D terisi dengan baik ?
cells(lrow,2).value=cells(lrow,2).value-cells(lrow,4).value 'isi kolom B
endif 'selesai cek kolom D terisi dengan baik
err.clear 'hapus error yang terjadi
next rng 'ke range yang berubah berikutnya
on error goto 0 'kembalikan setting trap error ke default
application.enableevents=true 'excel boleh responsif lagi
endif 'selesai cek
Wassalamu'alaikum wr wb
Kid
2015-11-26 22:07 GMT+07:00 Edo_Hanggoro@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Assalamualaikum.
>
>
> Dear All
>
> Mau tanya bagaimana cara membuat kode VBA bahwa untuk setiap pengisian
> atau perubahan nilai di setiap baris di kolom C akan menghasilkan nilai di
> setiap baris yang ada di kolom D berupa perkalian dari baris di kolom A
> dikali dengan baris di kolom C . Sedangkan nilai yang ada di baris di kolom
> B sendiri akan berkurang menjadi nilai dari kolom B yang awal dikurangi
> dengan nilai yg ada di baris kolom D.
>
>
> Untuk lebih jelasnya, saya lampirkan filenya.
>
>
> Terima kasih
>
>
> Edo
>
>
>
>
Thu Nov 26, 2015 6:21 pm (PST) . Posted by:
"Edo Hanggoro" edo_hanggoro
Assalamualikum wr. wb.
Dear Mr. Kid,
Terima kasih atas bantuannya.
Salam
Edo
On Thursday, November 26, 2015 11:47 PM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Wa'alaikumussalam wr wb
Hai Edo,
Jadi bisa ada banyak cells sekaligus yang diubah (misal dengan copas) dan yang berubah hanya di kolom C (di preview nya, kolom C adalah persentase).
> pada event change milik worksheet diberi kode VBA berikut :
dim rng as range,lRow as long
if not intersect( target,range("c:c") is nothing then 'cek yang berubah beririsan dengan kolom C
application.enableevents=false 'cegah Excel untuk responsif terhadap perilaku
on error resume next 'lewati error yang terjadi
for each rng in intersect( target,range("c:c") 'di setiap cells yang berubah di kolom C
lrow=rng.row 'simpan baris
cells(lrow,4).value=cells(lrow,2).value*cells(lrow,3).value 'isi kolom D
if err.number=0 then 'kolom D terisi dengan baik ?
cells(lrow,2).value=cells(lrow,2).value-cells(lrow,4).value 'isi kolom B
endif 'selesai cek kolom D terisi dengan baik
err.clear 'hapus error yang terjadi
next rng 'ke range yang berubah berikutnya
on error goto 0 'kembalikan setting trap error ke default
application.enableevents=true 'excel boleh responsif lagi
endif 'selesai cek
Wassalamu'alaikum wr wb
Kid
2015-11-26 22:07 GMT+07:00 Edo_Hanggoro@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Assalamualaikum..
Dear All
Mau tanya bagaimana cara membuat kode VBA bahwa untuk setiap pengisian atauperubahan nilai di setiap baris di kolom C akan menghasilkan nilai di setiapbaris yang ada di kolom D berupa perkalian dari baris di kolom A dikali dengan baris di kolom C .Sedangkan nilai yang ada di baris di kolom B sendiri akan berkurang menjadinilai dari kolom B yang awal dikurangi dengan nilai yg ada di baris kolom D.
Untuk lebih jelasnya, saya lampirkan filenya.
Terima kasih
Edo
#yiv4770050844 #yiv4770050844 -- #yiv4770050844ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv4770050844 #yiv4770050844ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv4770050844 #yiv4770050844ygrp-mkp #yiv4770050844hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv4770050844 #yiv4770050844ygrp-mkp #yiv4770050844ads {margin-bottom:10px;}#yiv4770050844 #yiv4770050844ygrp-mkp .yiv4770050844ad {padding:0 0;}#yiv4770050844 #yiv4770050844ygrp-mkp .yiv4770050844ad p {margin:0;}#yiv4770050844 #yiv4770050844ygrp-mkp .yiv4770050844ad a {color:#0000ff;text-decoration:none;}#yiv4770050844 #yiv4770050844ygrp-sponsor #yiv4770050844ygrp-lc {font-family:Arial;}#yiv4770050844 #yiv4770050844ygrp-sponsor #yiv4770050844ygrp-lc #yiv4770050844hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv4770050844 #yiv4770050844ygrp-sponsor #yiv4770050844ygrp-lc .yiv4770050844ad {margin-bottom:10px;padding:0 0;}#yiv4770050844 #yiv4770050844actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv4770050844 #yiv4770050844activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv4770050844 #yiv4770050844activity span {font-weight:700;}#yiv4770050844 #yiv4770050844activity span:first-child {text-transform:uppercase;}#yiv4770050844 #yiv4770050844activity span a {color:#5085b6;text-decoration:none;}#yiv4770050844 #yiv4770050844activity span span {color:#ff7900;}#yiv4770050844 #yiv4770050844activity span .yiv4770050844underline {text-decoration:underline;}#yiv4770050844 .yiv4770050844attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv4770050844 .yiv4770050844attach div a {text-decoration:none;}#yiv4770050844 .yiv4770050844attach img {border:none;padding-right:5px;}#yiv4770050844 .yiv4770050844attach label {display:block;margin-bottom:5px;}#yiv4770050844 .yiv4770050844attach label a {text-decoration:none;}#yiv4770050844 blockquote {margin:0 0 0 4px;}#yiv4770050844 .yiv4770050844bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv4770050844 .yiv4770050844bold a {text-decoration:none;}#yiv4770050844 dd.yiv4770050844last p a {font-family:Verdana;font-weight:700;}#yiv4770050844 dd.yiv4770050844last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv4770050844 dd.yiv4770050844last p span.yiv4770050844yshortcuts {margin-right:0;}#yiv4770050844 div.yiv4770050844attach-table div div a {text-decoration:none;}#yiv4770050844 div.yiv4770050844attach-table {width:400px;}#yiv4770050844 div.yiv4770050844file-title a, #yiv4770050844 div.yiv4770050844file-title a:active, #yiv4770050844 div.yiv4770050844file-title a:hover, #yiv4770050844 div.yiv4770050844file-title a:visited {text-decoration:none;}#yiv4770050844 div.yiv4770050844photo-title a, #yiv4770050844 div.yiv4770050844photo-title a:active, #yiv4770050844 div.yiv4770050844photo-title a:hover, #yiv4770050844 div.yiv4770050844photo-title a:visited {text-decoration:none;}#yiv4770050844 div#yiv4770050844ygrp-mlmsg #yiv4770050844ygrp-msg p a span.yiv4770050844yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv4770050844 .yiv4770050844green {color:#628c2a;}#yiv4770050844 .yiv4770050844MsoNormal {margin:0 0 0 0;}#yiv4770050844 o {font-size:0;}#yiv4770050844 #yiv4770050844photos div {float:left;width:72px;}#yiv4770050844 #yiv4770050844photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv4770050844 #yiv4770050844photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv4770050844 #yiv4770050844reco-category {font-size:77%;}#yiv4770050844 #yiv4770050844reco-desc {font-size:77%;}#yiv4770050844 .yiv4770050844replbq {margin:4px;}#yiv4770050844 #yiv4770050844ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv4770050844 #yiv4770050844ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv4770050844 #yiv4770050844ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv4770050844 #yiv4770050844ygrp-mlmsg select, #yiv4770050844 input, #yiv4770050844 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv4770050844 #yiv4770050844ygrp-mlmsg pre, #yiv4770050844 code {font:115% monospace;}#yiv4770050844 #yiv4770050844ygrp-mlmsg * {line-height:1.22em;}#yiv4770050844 #yiv4770050844ygrp-mlmsg #yiv4770050844logo {padding-bottom:10px;}#yiv4770050844 #yiv4770050844ygrp-msg p a {font-family:Verdana;}#yiv4770050844 #yiv4770050844ygrp-msg p#yiv4770050844attach-count span {color:#1E66AE;font-weight:700;}#yiv4770050844 #yiv4770050844ygrp-reco #yiv4770050844reco-head {color:#ff7900;font-weight:700;}#yiv4770050844 #yiv4770050844ygrp-reco {margin-bottom:20px;padding:0px;}#yiv4770050844 #yiv4770050844ygrp-sponsor #yiv4770050844ov li a {font-size:130%;text-decoration:none;}#yiv4770050844 #yiv4770050844ygrp-sponsor #yiv4770050844ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv4770050844 #yiv4770050844ygrp-sponsor #yiv4770050844ov ul {margin:0;padding:0 0 0 8px;}#yiv4770050844 #yiv4770050844ygrp-text {font-family:Georgia;}#yiv4770050844 #yiv4770050844ygrp-text p {margin:0 0 1em 0;}#yiv4770050844 #yiv4770050844ygrp-text tt {font-size:120%;}#yiv4770050844 #yiv4770050844ygrp-vital ul li:last-child {border-right:none !important;}#yiv4770050844
Dear Mr. Kid,
Terima kasih atas bantuannya.
Salam
Edo
On Thursday, November 26, 2015 11:47 PM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Wa'alaikumussalam wr wb
Hai Edo,
Jadi bisa ada banyak cells sekaligus yang diubah (misal dengan copas) dan yang berubah hanya di kolom C (di preview nya, kolom C adalah persentase).
> pada event change milik worksheet diberi kode VBA berikut :
dim rng as range,lRow as long
if not intersect( target,range("c:c") is nothing then 'cek yang berubah beririsan dengan kolom C
application.enableevents=false 'cegah Excel untuk responsif terhadap perilaku
on error resume next 'lewati error yang terjadi
for each rng in intersect( target,range("c:c") 'di setiap cells yang berubah di kolom C
lrow=rng.row 'simpan baris
cells(lrow,4).value=cells(lrow,2).value*cells(lrow,3).value 'isi kolom D
if err.number=0 then 'kolom D terisi dengan baik ?
cells(lrow,2).value=cells(lrow,2).value-cells(lrow,4).value 'isi kolom B
endif 'selesai cek kolom D terisi dengan baik
err.clear 'hapus error yang terjadi
next rng 'ke range yang berubah berikutnya
on error goto 0 'kembalikan setting trap error ke default
application.enableevents=true 'excel boleh responsif lagi
endif 'selesai cek
Wassalamu'alaikum wr wb
Kid
2015-11-26 22:07 GMT+07:00 Edo_Hanggoro@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Assalamualaikum.
Dear All
Mau tanya bagaimana cara membuat kode VBA bahwa untuk setiap pengisian atauperubahan nilai di setiap baris di kolom C akan menghasilkan nilai di setiapbaris yang ada di kolom D berupa perkalian dari baris di kolom A dikali dengan baris di kolom C .Sedangkan nilai yang ada di baris di kolom B sendiri akan berkurang menjadinilai dari kolom B yang awal dikurangi dengan nilai yg ada di baris kolom D.
Untuk lebih jelasnya, saya lampirkan filenya.
Terima kasih
Edo
#yiv4770050844 #yiv4770050844 -- #yiv4770050844ygrp-
Thu Nov 26, 2015 9:15 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Yudi,
Tidak boleh pakai Adv Filter maupun Pivot Table ya... :(
Kalau begitu, sort sheet ALL berdasar kolom N secara Ascending atau apapun
yang penting tanggal di N terurut ascending, entah per grup nama atau per
grup apapun atau tanpa grup sekalipun.
di sheet hasil, record pertama hasil :
kolom A diberi array formula :
=INDEX(ALL!$AC$5:$AC$458,MATCH(1,(COUNTIFS($A$3:$A3,ALL!$AC$5:$AC$458,$B$3:$B3,ALL!$N$5:$N$458)=0)*(ALL!$N$5:$N$458<>"")*(ALL!$AC$5:$AC$458<>""),0))
kolom B diberi array formula :
=INDEX(ALL!$N$5:$N$458,MATCH(1,(COUNTIFS($A$3:$A3,ALL!$AC$5:$AC$458,$B$3:$B3,ALL!$N$5:$N$458)=0)*(ALL!$N$5:$N$458<>"")*(ALL!$AC$5:$AC$458<>""),0))
Semakin banyak jumlah record data di sheet ALL (mungkin sekitar 80ribu akan
mulai terasa) dan semakin banyak cells berformula tersebut di sheet hasil,
maka proses kalkulasi Excel akan terasa melambat, padahal tidak demikian.
Tampak melamban dikarenakan proses yang harus dikalkulasi berlipat-lipat
banyaknya seiring bertambahnya jumlah record (bukan kenaikan linear).
Jika ingin sedikit lebih cepat, buat kolom bantu (misal insert 1 kolom
sebelum A).
Di kolom A diberi array formula :
=MATCH(1,(COUNTIFS($B$3:$B3,ALL!$AC$5:$AC$458,$C$3:$C3,ALL!$N$5:$N$458)=0)*(ALL!$N$5:$N$458<>"")*(ALL!$AC$5:$AC$458<>""),0)
di kolom B diberi formula :
=INDEX(ALL!$AC$5:$AC$458,$A3)
di kolom C diberi formula :
=INDEX(ALL!$N$5:$N$458,$A3)
*** jika regional setting komputer setempat adalah Indonesian, ganti
karakter koma dalam formula menjadi titik koma
Formula di kolom selainnya sudah ada di email yang lalu-lalu dari mas Nang
Agus ya...
Jika ingin memahami apa yang dilakukan si array formula, pecah-pecah
formulanya seperti yang ada disini
<http://excel-mr-kid.blogspot.co.id/2011/03/formula-penyusun-data-unique-dan.html>
.
Jika tidak suka dengan proses sort manual nya, ubah array formula di atas
dengan konsep yang ada disini
<http://excel-mr-kid.blogspot.co.id/2011/04/formula-penyusun-data-unique-yang.html>
dan kalkulasi Excel akan semakin lebih cepat terasa lambat seiring kenaikan
jumlah record data dan baris hasil.
Regards,
Kid.
2015-11-26 15:23 GMT+07:00 Sri Wahyudi SWahyudi@pacbrands.com.au
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear Master Kid,
> Terimakasih atas ke ikutannya,
>
> Mohon pencerahan kembali,
>
> Adakah formula untuk menarik data value untuk cel pada kolom A (user) dan
> value untuk cell pda kolom B dari sheet sebelumnya (ALL) selain menggunakan
> advance filter & pivot table?
>
>
>
> Regards
>
> Yudi
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* Thursday, 26 November 2015 10:55
> *To:* BeExcel <belajar-excel@yahoogroups.com>
> *Subject:* Re: [belajar-excel] Penjumlahan request
>
>
>
>
>
> Walau sudah OK menurut penanya, tetep ikutan ah...
>
>
> Pinjam formula mas Nang, yang ini saja : (yang satunya lagi disesuaikan
> sendiri ya)
> =SUMPRODUCT((A4=ALL!$AC$5:$AC$458)*('Hasil yang di inginkan'!
> B4=ALL!$N$5:$N$458))
>
> atau
> =SUMPRODUCT((*A4*=*ALL!$AC$5:$AC$458*)*(*B4*=*ALL!$N$5:$N$458*))
>
>
>
> Ketika record datanya banyak sekali (misal lebih dari 100ribu atau
> terkadang belum sampai 100ribu juga mulai terasa dikomputer tertentu),
> SumProduct akan terasa berat dikalkulasi karena ada proses komputasi array.
> Artinya, sumproduct akan mengambil seluruh data yang dirujuk terlebih dulu
> (sebagai array), kemudian dikomputasi satu per satu, baru di-sum.
>
> Yang sedikit lebih efisien adalah CountIFs (untuk kasus di atas targetnya
> adalah menghasilkan jumlah cacah data yang sesuai kriteria).
> =CountIFs( *ALL!$AC$5:$AC$458* , *A4* , *ALL!$N$5:$N$458* , *B4* )
>
>
>
> Regards,
>
> Kid
>
>
>
> 2015-11-26 5:45 GMT+07:00 Nang Agus nangagus@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
>
> Dear Sri Wahyudi,
>
> Coba di C4 dimasukkan formula:
> =SUMPRODUCT((A4=ALL!$AC$5:$AC$458)*('Hasil yang di
> inginkan'!B4=ALL!$N$5:$N$458))
>
> sedangkan di D4 dimasukkan formula
> =SUMPRODUCT((A4=ALL!$AC$5:$AC$458)*('Hasil yang di
> inginkan'!B4=ALL!$W$5:$W$458))
>
> Salam
>
> NangAgus
>
>
>
> 2015-11-25 18:56 GMT+07:00 Sri Wahyudi SWahyudi@pacbrands.com.au
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Dear Master2
>
> Mohon bantuannya untuk menyelesaikan kasus excel saya,
>
>
>
> Saya ingin melihat summary dari jumlah Item/BOM yang di request dan
> jumlah item/BOM yang dihasilkan, berdasarkan tanggal dan nama usernya,
> sepert file terlampir,
>
> atas kurang dan lebihnya mohon maaf
>
>
>
> Regards
>
> Yudi
>
>
>
>
>
>
>
Tidak boleh pakai Adv Filter maupun Pivot Table ya... :(
Kalau begitu, sort sheet ALL berdasar kolom N secara Ascending atau apapun
yang penting tanggal di N terurut ascending, entah per grup nama atau per
grup apapun atau tanpa grup sekalipun.
di sheet hasil, record pertama hasil :
kolom A diberi array formula :
=INDEX(ALL!$AC$5:$AC$458,MATCH(1,(COUNTIFS($A$3:$A3,ALL!$AC$5:$AC$458,$B$3:$B3,ALL!$N$5:$N$458)=0)*(ALL!$N$5:$N$458<>"")*(ALL!$AC$5:$AC$458<>""),0))
kolom B diberi array formula :
=INDEX(ALL!$N$5:$N$458,MATCH(1,(COUNTIFS($A$3:$A3,ALL!$AC$5:$AC$458,$B$3:$B3,ALL!$N$5:$N$458)=0)*(ALL!$N$5:$N$458<>"")*(ALL!$AC$5:$AC$458<>""),0))
Semakin banyak jumlah record data di sheet ALL (mungkin sekitar 80ribu akan
mulai terasa) dan semakin banyak cells berformula tersebut di sheet hasil,
maka proses kalkulasi Excel akan terasa melambat, padahal tidak demikian.
Tampak melamban dikarenakan proses yang harus dikalkulasi berlipat-lipat
banyaknya seiring bertambahnya jumlah record (bukan kenaikan linear).
Jika ingin sedikit lebih cepat, buat kolom bantu (misal insert 1 kolom
sebelum A).
Di kolom A diberi array formula :
=MATCH(1,(COUNTIFS($B$3:$B3,ALL!$AC$5:$AC$458,$C$3:$C3,ALL!$N$5:$N$458)=0)*(ALL!$N$5:$N$458<>"")*(ALL!$AC$5:$AC$458<>""),0)
di kolom B diberi formula :
=INDEX(ALL!$AC$5:$AC$458,$A3)
di kolom C diberi formula :
=INDEX(ALL!$N$5:$N$458,$A3)
*** jika regional setting komputer setempat adalah Indonesian, ganti
karakter koma dalam formula menjadi titik koma
Formula di kolom selainnya sudah ada di email yang lalu-lalu dari mas Nang
Agus ya...
Jika ingin memahami apa yang dilakukan si array formula, pecah-pecah
formulanya seperti yang ada disini
<http://excel-mr-kid.blogspot.co.id/2011/03/formula-penyusun-data-unique-dan.html>
.
Jika tidak suka dengan proses sort manual nya, ubah array formula di atas
dengan konsep yang ada disini
<http://excel-mr-kid.blogspot.co.id/2011/04/formula-penyusun-data-unique-yang.html>
dan kalkulasi Excel akan semakin lebih cepat terasa lambat seiring kenaikan
jumlah record data dan baris hasil.
Regards,
Kid.
2015-11-26 15:23 GMT+07:00 Sri Wahyudi SWahyudi@pacbrands.com.au
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear Master Kid,
> Terimakasih atas ke ikutannya,
>
> Mohon pencerahan kembali,
>
> Adakah formula untuk menarik data value untuk cel pada kolom A (user) dan
> value untuk cell pda kolom B dari sheet sebelumnya (ALL) selain menggunakan
> advance filter & pivot table?
>
>
>
> Regards
>
> Yudi
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* Thursday, 26 November 2015 10:55
> *To:* BeExcel <belajar-excel@yahoogroups.com>
> *Subject:* Re: [belajar-excel] Penjumlahan request
>
>
>
>
>
> Walau sudah OK menurut penanya, tetep ikutan ah...
>
>
> Pinjam formula mas Nang, yang ini saja : (yang satunya lagi disesuaikan
> sendiri ya)
> =SUMPRODUCT((A4=ALL!$AC$5:$AC$458)*('Hasil yang di inginkan'!
> B4=ALL!$N$5:$N$458))
>
> atau
> =SUMPRODUCT((*A4*=*ALL!$AC$5:$AC$458*)*(*B4*=*ALL!$N$5:$N$458*))
>
>
>
> Ketika record datanya banyak sekali (misal lebih dari 100ribu atau
> terkadang belum sampai 100ribu juga mulai terasa dikomputer tertentu),
> SumProduct akan terasa berat dikalkulasi karena ada proses komputasi array.
> Artinya, sumproduct akan mengambil seluruh data yang dirujuk terlebih dulu
> (sebagai array), kemudian dikomputasi satu per satu, baru di-sum.
>
> Yang sedikit lebih efisien adalah CountIFs (untuk kasus di atas targetnya
> adalah menghasilkan jumlah cacah data yang sesuai kriteria).
> =CountIFs( *ALL!$AC$5:$AC$458* , *A4* , *ALL!$N$5:$N$458* , *B4* )
>
>
>
> Regards,
>
> Kid
>
>
>
> 2015-11-26 5:45 GMT+07:00 Nang Agus nangagus@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
>
> Dear Sri Wahyudi,
>
> Coba di C4 dimasukkan formula:
> =SUMPRODUCT((A4=ALL!$AC$5:$AC$458)*('Hasil yang di
> inginkan'!B4=ALL!$N$5:$N$458))
>
> sedangkan di D4 dimasukkan formula
> =SUMPRODUCT((A4=ALL!$AC$5:$AC$458)*('Hasil yang di
> inginkan'!B4=ALL!$W$5:$W$458))
>
> Salam
>
> NangAgus
>
>
>
> 2015-11-25 18:56 GMT+07:00 Sri Wahyudi SWahyudi@pacbrands.com.au
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Dear Master2
>
> Mohon bantuannya untuk menyelesaikan kasus excel saya,
>
>
>
> Saya ingin melihat summary dari jumlah Item/BOM yang di request dan
> jumlah item/BOM yang dihasilkan, berdasarkan tanggal dan nama usernya,
> sepert file terlampir,
>
> atas kurang dan lebihnya mohon maaf
>
>
>
> Regards
>
> Yudi
>
>
>
>
>
>
>
Thu Nov 26, 2015 10:12 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam wr wb
yaa.... mas Toby lagi gak mau atau gak sempet membuatkan script nya....
0. saya sedang mencoba membuat form input data namun ketika di coba menjadi
not responding kesalahannya dimana ya ?
>> coba periksa semua prosedur di dalam workbook, jika ada proses menulis
ke suatu worksheet yang worksheet tersebut dipasangi event change, maka
proses menulisnya harus berbentuk begini :
application.enableevents=false
'baris-baris untuk menulis ke worksheets
application.enableevents=true
1. no urut otomatis dan tampil ti TB1
>> Asumsinya nomor baris adalah nomor record baru di suatu tabel (misal di
sheet Rekap), dan header tabelnya hanya 1 baris, serta tidak ada baris
kosong diantara dua record data, buat jadi begini :
a. hapus semua cells diatas header, dikanan tabel, dan di bawah tabel
b. periksa semua script dalam userform, dan hapus semua baris yang tujuan
menulis suatu nilai ke TB1
c. buat event initialize di userform, kemudian tambahkan baris ini :
(header tabel di sheet rekap mulai di A4)
tb1.text=sheets("rekap").range("a4").currentregion.rows.count
d. jika diuserform ada tombol save atau new form atau clear form atau yang
semacamnya, tambahkan juga baris poin c di event click setiap tombol-tombol
itu (di preview tidak bisa lihat VBA, jadi ada userform namanya apa juga
tidak tahu. Ada userform apa saja juga tidak tahu).
2. tanggal muncul di TB2
>> Jika tanggalnya pasti tanggal hari ini, maka lakukan hal ini :
a1. periksa semua script dalam userform, dan hapus semua baris yang
tujuan menulis suatu nilai ke TB2
b1. di event initialize userform, event click tombol save, new form,
atau clear form beri baris kode :
tb2.text=format(date , "YYYY-MM-DD")
>> Jika tanggalnya tidak pasti hari ini, berarti butuh control seperti
calendar. Di event click si calendar diisi begini : (pilih salah satu
kondisi yang sesuai keadaan setempat, dan sesuaikan nama objectnya juga)
a2. ketika calendar (misal bernama oCalendar) menjadi object di dalam
userform yang sama dengan TB2 :
tb2.text = format(oCalendar.value, "YYYY-MM-DD")
b2. ketika calendar (misal bernama oCalendar) berada di userform yang
berbeda dengan TB2 (misal di klik sesuatu muncul userform berisi calendar)
dan userform yang berisi TB2 bernama myForm, maka di event click si
calendar diisi begini :
myForm.TB2.text = format(oCalendar.value, "YYYY-MM-DD")
*** jika ada event lain di dalam userform yang menulis ke TB2 dengan
nilai dari calendar, ubah juga menjadi seperti a2 atau b2
3. TB9 nilainya sama dengan TB2 dan TB10 sama dengan TB3 seperti link gitu
>> untuk TB9 yang nilainya sama dengan TB2, bisa dengan salah satu cara
berikut : (pilih salah satu)
a. di nomor 2 di atas, tambahkan baris yang sama, tetapi untuk menulis
ke TB9 (yang di nomor 2 itu kan baru nulis ke TB2 doink)
b. di event change milik TB2, beri baris kode berikut :
tb9.text=tb2.text
>> untuk TB10 yang nilainya sama dengan TB3, di event change milik TB3
diberi baris kode :
tb10.text=tb3.text
4. tampilan listbox gagal terus begitu dengan nomor urut
>> jika listbox menampilkan record yang ada di sheet rekap, begini :
a. set properti listbox supaya bisa menerima banyak kolom. Bila perlu
properti columnheads di set true
b. di event initialize userform, event click tombol save, new form, atau
clear form beri baris kode : (misal listbox bernama lstRekap)
dim rng as range
lstrekap.rowsource=vbnullstring
set rng=sheets("rekap").range("a4").currentregion.offset(1)
if rng.rows.count>1 then
set rng=rng.resize(rng.rows.count-1)
rng.name="_dtRekap_" 'buat nama range
lstrekap.rowsource="_dtRekap_"
endif
5. ingin buat tombol edit agar kalo ada kesalahan bisa di edit langsung di
user form
>> ya dibuat saja... kalau mau diletakkan dalam worksheet, insert activex
control commandbutton atau insert shape atau insert form2 control button,
lalu isi dengan script untuk memanggil userform edit datanya.
6. kadang muncul pesan seperti di SS FORM
>> wuah... apalagi ini SS FORM... saya ndak mudeng... mungkin bisa lebih
jelas...
>> kalau form error yang biasanya ada tulisannya error runtime, berarti ada
baris kode yang kliru atau masih ada object yang aktif bekerja saat akan
ditutup. Mungkin form
>> minta disave, silakan tekan yes kalau mau di-save
>> security macro, silakan di enable supaya bisa jalan
>> data connection, silakan di enable supaya data connection bisa dijalankan
>> circular references, silakan diperbaiki cells berformula yang merujuk ke
dirinya sendiri secara langsung atau tidak langsung
>> update links, silakan diupdate kalau memang sumber data yang di-link ada
>> gagal refresh query table atau connections, silakan diperbaiki bunyi
query ataupun malah definisi connection nya
>> minta password, sila diisi passwordnya
>> tidak bisa di-save, ya jangan disave atau save as jadi file lain
>> pesan di shared dan script VBA tidak bisa dijalankan, ya terima saja,
atau jangan di shared workbook
>> file corrupt, dicoba repair, moga-moga tidak apes
>> peringatan adanya personal data, ya di cancel dulu, terus ke Excel
options -> trust center -> klik trust center -> privacy atau semacamnya ->
hilangkan centang dari remove doc blabla on save gitu -> terus ok sampai ke
worksheet dan coba save lagi
>> peringatan bahwa status file sudah tidak read only lagi, bisa pilih
write atau apa saja yang ada disitu
apa lagi ya formnya... setelah diingat-ingat kok gak ada yang SS FORM ya...
embuh lah... moga-moga ada di salah satu diatas, yang menjadi si Excel
terkesan cerewet...
7. file ini saya tiru dari download-an file yang saya contoh berjalan baik
tapi punya saya error terus
>> hmmm... mungkin nirunya tidak ikhlas sepenuh hati kale.... kalo sepenuh
hati, biasanya akan diawali memahami setiap baris kode dari yang ditiru,
sehingga bisa meniru dengan pas sesuai kebutuhan.
;)
maap ya kalo ada kliru-klirunya...
selamat mencoba
Wassalamu'alaikum wr wb
Kid
2015-11-26 8:45 GMT+07:00 imam cahyo yuwono chyywn@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Assalamualaikum Wr. Wb.
> dear para expert.
> saya sedang mencoba membuat form input data namun ketika di coba menjadi
> not responding kesalahannya dimana ya ? adapun keinginan saya yang belum
> dapat saya pecahkan adalah :
> 1. no urut otomatis dan tampil ti TB1
> 2. tanggal muncul di TB2
> 3. TB9 nilainya sama dengan TB2 dan TB10 sama dengan TB3 seperti link gitu
> 4. tampilan listbox gagal terus begitu dengan nomor urut
> 5 ingin buat tombol edit agar kalo ada kesalahan bisa di edit langsung di
> user form
> 6. kadang muncul pesan seperti di SS FORM
> file ini saya tiru dari download-an file yang saya contoh berjalan baik
> tapi punya saya error terus mohon bantuan solusinya
> terima kasih
> Wasallamualaikum Wr. Wb.
>
>
>
yaa.... mas Toby lagi gak mau atau gak sempet membuatkan script nya....
0. saya sedang mencoba membuat form input data namun ketika di coba menjadi
not responding kesalahannya dimana ya ?
>> coba periksa semua prosedur di dalam workbook, jika ada proses menulis
ke suatu worksheet yang worksheet tersebut dipasangi event change, maka
proses menulisnya harus berbentuk begini :
application.enableevents=false
'baris-baris untuk menulis ke worksheets
application.enableevents=true
1. no urut otomatis dan tampil ti TB1
>> Asumsinya nomor baris adalah nomor record baru di suatu tabel (misal di
sheet Rekap), dan header tabelnya hanya 1 baris, serta tidak ada baris
kosong diantara dua record data, buat jadi begini :
a. hapus semua cells diatas header, dikanan tabel, dan di bawah tabel
b. periksa semua script dalam userform, dan hapus semua baris yang tujuan
menulis suatu nilai ke TB1
c. buat event initialize di userform, kemudian tambahkan baris ini :
(header tabel di sheet rekap mulai di A4)
tb1.text=sheets("rekap").range("a4").currentregion.rows.count
d. jika diuserform ada tombol save atau new form atau clear form atau yang
semacamnya, tambahkan juga baris poin c di event click setiap tombol-tombol
itu (di preview tidak bisa lihat VBA, jadi ada userform namanya apa juga
tidak tahu. Ada userform apa saja juga tidak tahu).
2. tanggal muncul di TB2
>> Jika tanggalnya pasti tanggal hari ini, maka lakukan hal ini :
a1. periksa semua script dalam userform, dan hapus semua baris yang
tujuan menulis suatu nilai ke TB2
b1. di event initialize userform, event click tombol save, new form,
atau clear form beri baris kode :
tb2.text=format(date , "YYYY-MM-DD")
>> Jika tanggalnya tidak pasti hari ini, berarti butuh control seperti
calendar. Di event click si calendar diisi begini : (pilih salah satu
kondisi yang sesuai keadaan setempat, dan sesuaikan nama objectnya juga)
a2. ketika calendar (misal bernama oCalendar) menjadi object di dalam
userform yang sama dengan TB2 :
tb2.text = format(oCalendar.value, "YYYY-MM-DD")
b2. ketika calendar (misal bernama oCalendar) berada di userform yang
berbeda dengan TB2 (misal di klik sesuatu muncul userform berisi calendar)
dan userform yang berisi TB2 bernama myForm, maka di event click si
calendar diisi begini :
myForm.TB2.text = format(oCalendar.value, "YYYY-MM-DD")
*** jika ada event lain di dalam userform yang menulis ke TB2 dengan
nilai dari calendar, ubah juga menjadi seperti a2 atau b2
3. TB9 nilainya sama dengan TB2 dan TB10 sama dengan TB3 seperti link gitu
>> untuk TB9 yang nilainya sama dengan TB2, bisa dengan salah satu cara
berikut : (pilih salah satu)
a. di nomor 2 di atas, tambahkan baris yang sama, tetapi untuk menulis
ke TB9 (yang di nomor 2 itu kan baru nulis ke TB2 doink)
b. di event change milik TB2, beri baris kode berikut :
tb9.text=tb2.text
>> untuk TB10 yang nilainya sama dengan TB3, di event change milik TB3
diberi baris kode :
tb10.text=tb3.text
4. tampilan listbox gagal terus begitu dengan nomor urut
>> jika listbox menampilkan record yang ada di sheet rekap, begini :
a. set properti listbox supaya bisa menerima banyak kolom. Bila perlu
properti columnheads di set true
b. di event initialize userform, event click tombol save, new form, atau
clear form beri baris kode : (misal listbox bernama lstRekap)
dim rng as range
lstrekap.rowsource=vbnullstring
set rng=sheets("rekap").range("a4").currentregion.offset(1)
if rng.rows.count>1 then
set rng=rng.resize(rng.rows.count-1)
rng.name="_dtRekap_" 'buat nama range
lstrekap.rowsource="_dtRekap_"
endif
5. ingin buat tombol edit agar kalo ada kesalahan bisa di edit langsung di
user form
>> ya dibuat saja... kalau mau diletakkan dalam worksheet, insert activex
control commandbutton atau insert shape atau insert form2 control button,
lalu isi dengan script untuk memanggil userform edit datanya.
6. kadang muncul pesan seperti di SS FORM
>> wuah... apalagi ini SS FORM... saya ndak mudeng... mungkin bisa lebih
jelas...
>> kalau form error yang biasanya ada tulisannya error runtime, berarti ada
baris kode yang kliru atau masih ada object yang aktif bekerja saat akan
ditutup. Mungkin form
>> minta disave, silakan tekan yes kalau mau di-save
>> security macro, silakan di enable supaya bisa jalan
>> data connection, silakan di enable supaya data connection bisa dijalankan
>> circular references, silakan diperbaiki cells berformula yang merujuk ke
dirinya sendiri secara langsung atau tidak langsung
>> update links, silakan diupdate kalau memang sumber data yang di-link ada
>> gagal refresh query table atau connections, silakan diperbaiki bunyi
query ataupun malah definisi connection nya
>> minta password, sila diisi passwordnya
>> tidak bisa di-save, ya jangan disave atau save as jadi file lain
>> pesan di shared dan script VBA tidak bisa dijalankan, ya terima saja,
atau jangan di shared workbook
>> file corrupt, dicoba repair, moga-moga tidak apes
>> peringatan adanya personal data, ya di cancel dulu, terus ke Excel
options -> trust center -> klik trust center -> privacy atau semacamnya ->
hilangkan centang dari remove doc blabla on save gitu -> terus ok sampai ke
worksheet dan coba save lagi
>> peringatan bahwa status file sudah tidak read only lagi, bisa pilih
write atau apa saja yang ada disitu
apa lagi ya formnya... setelah diingat-ingat kok gak ada yang SS FORM ya...
embuh lah... moga-moga ada di salah satu diatas, yang menjadi si Excel
terkesan cerewet...
7. file ini saya tiru dari download-an file yang saya contoh berjalan baik
tapi punya saya error terus
>> hmmm... mungkin nirunya tidak ikhlas sepenuh hati kale.... kalo sepenuh
hati, biasanya akan diawali memahami setiap baris kode dari yang ditiru,
sehingga bisa meniru dengan pas sesuai kebutuhan.
;)
maap ya kalo ada kliru-klirunya...
selamat mencoba
Wassalamu'alaikum wr wb
Kid
2015-11-26 8:45 GMT+07:00 imam cahyo yuwono chyywn@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Assalamualaikum Wr. Wb.
> dear para expert.
> saya sedang mencoba membuat form input data namun ketika di coba menjadi
> not responding kesalahannya dimana ya ? adapun keinginan saya yang belum
> dapat saya pecahkan adalah :
> 1. no urut otomatis dan tampil ti TB1
> 2. tanggal muncul di TB2
> 3. TB9 nilainya sama dengan TB2 dan TB10 sama dengan TB3 seperti link gitu
> 4. tampilan listbox gagal terus begitu dengan nomor urut
> 5 ingin buat tombol edit agar kalo ada kesalahan bisa di edit langsung di
> user form
> 6. kadang muncul pesan seperti di SS FORM
> file ini saya tiru dari download-an file yang saya contoh berjalan baik
> tapi punya saya error terus mohon bantuan solusinya
> terima kasih
> Wasallamualaikum Wr. Wb.
>
>
>
Thu Nov 26, 2015 4:28 pm (PST) . Posted by:
"Dede Sulaeman"
Dear Mr Kid,
File lampiran yang lalu adalah sebagai contoh dari form asli, sedangkan form asli sudah dibakukan sehingga tidak dapat untuk dirubah.
Apakah macro memungkinkan bekerja dengan form seprti itu (bekerja saat outline dipilih 2,3,dan4)
Note: form Asli sebenarnya mencapai level 4
Salam,
DD
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 26 November 2015 11:19
To: BeExcel
Subject: Re: [belajar-excel] Hide Row jika Cell Blank
Wa'alaikumussalam wr wb
Hai DD,
Boleh tahu kenapa tidak pakai Excel Pivot Table ?
Wassalamu'alaikum wr wb
Kid
2015-11-26 10:52 GMT+07:00 'Dede Sulaeman' pmaho_log4@pinusmerahabadi.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear BeExceller,
Assalamu'alaikum Wr Wb...
Mohon koreksinya trhadap sricpt macro pada file terlampir.
Harapannya adalah pada saat saya klik Group OutLine no 2 dan 3, maka cell kosong (Blank) terhidden otomatis.
Wassalamu'alaikum Wr Wb...
Salam,
DD
File lampiran yang lalu adalah sebagai contoh dari form asli, sedangkan form asli sudah dibakukan sehingga tidak dapat untuk dirubah.
Apakah macro memungkinkan bekerja dengan form seprti itu (bekerja saat outline dipilih 2,3,dan4)
Note: form Asli sebenarnya mencapai level 4
Salam,
DD
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 26 November 2015 11:19
To: BeExcel
Subject: Re: [belajar-excel] Hide Row jika Cell Blank
Wa'alaikumussalam wr wb
Hai DD,
Boleh tahu kenapa tidak pakai Excel Pivot Table ?
Wassalamu'alaikum wr wb
Kid
2015-11-26 10:52 GMT+07:00 'Dede Sulaeman' pmaho_log4@pinusmerahabadi.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear BeExceller,
Assalamu'alaikum Wr Wb...
Mohon koreksinya trhadap sricpt macro pada file terlampir.
Harapannya adalah pada saat saya klik Group OutLine no 2 dan 3, maka cell kosong (Blank) terhidden otomatis.
Wassalamu'alaikum Wr Wb...
Salam,
DD
Thu Nov 26, 2015 4:46 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai DD,
hmm...
maaf ya, nambah nanyanya gpp kan ya...
1. sheet ini sebagai salah satu output untuk melihat-lihat data atau
sebagai area input data ?
2. kenapa memilih outline ? apa tujuan awalnya, sehingga memilih
menggunakan fitur outline ?
3. apa saja yang bisa dilakukan user terhadap outline tersebut ?
Bukan masalah bisa atau tidak bisa, tetapi diperkirakan ada yang tidak pas
antara apa yang Anda inginkan dengan menfaat outline itu sendiri. Jadi,
kasus ini bukan sekedar bisa hide blank cells yang bisa diatur dengan hide
row. Pokok masalahnya justru bukan diproses hide/unhide nya.
btw, bisa jadi dugaan saya yang tersebut di atas justru keliru. Akhirnya,
malah jadi kebanyakan bertanya daripada urun solusi. maaf ya.
pertanyaan pertama tentang penggunaan pivot table di email lalu bukanlah
saran untuk menggunakan pivot table, tetapi lebih mengarah ke batasan
struktur dan memastikan tujuan utama kasus yang menyebabkan penghindaran
pemanfaatan proses yang lebih mudah dan lebih tepat guna.
sedangkan rangkaian pertanyaan yang ini akan mengarah kemana ya...
wakakaka... mungkin karena kid lagi iseng...
Wassalam,
Kid
2015-11-27 7:23 GMT+07:00 'Dede Sulaeman' pmaho_log4@pinusmerahabadi.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear Mr Kid,
>
>
>
> File lampiran yang lalu adalah sebagai contoh dari form asli, sedangkan
> form asli sudah dibakukan sehingga tidak dapat untuk dirubah.
>
> Apakah macro memungkinkan bekerja dengan form seprti itu (bekerja saat
> outline dipilih 2,3,dan4)
>
>
>
> Note: form Asli sebenarnya mencapai level 4
>
>
>
> Salam,
>
> DD
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* 26 November 2015 11:19
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Hide Row jika Cell Blank
>
>
>
>
>
> Wa'alaikumussalam wr wb
>
> Hai DD,
>
> Boleh tahu kenapa tidak pakai Excel Pivot Table ?
>
> Wassalamu'alaikum wr wb
>
> Kid
>
>
>
>
>
> 2015-11-26 10:52 GMT+07:00 'Dede Sulaeman'
> pmaho_log4@pinusmerahabadi.co.id [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
>
> Dear BeExceller,
>
>
>
> Assalamu'alaikum Wr Wb...
>
>
>
> Mohon koreksinya trhadap sricpt macro pada file terlampir.
>
> Harapannya adalah pada saat saya klik Group OutLine no 2 dan 3, maka cell
> kosong (Blank) terhidden otomatis.
>
>
>
>
>
> Wassalamu'alaikum Wr Wb...
>
> Salam,
>
> DD
>
>
>
>
>
hmm...
maaf ya, nambah nanyanya gpp kan ya...
1. sheet ini sebagai salah satu output untuk melihat-lihat data atau
sebagai area input data ?
2. kenapa memilih outline ? apa tujuan awalnya, sehingga memilih
menggunakan fitur outline ?
3. apa saja yang bisa dilakukan user terhadap outline tersebut ?
Bukan masalah bisa atau tidak bisa, tetapi diperkirakan ada yang tidak pas
antara apa yang Anda inginkan dengan menfaat outline itu sendiri. Jadi,
kasus ini bukan sekedar bisa hide blank cells yang bisa diatur dengan hide
row. Pokok masalahnya justru bukan diproses hide/unhide nya.
btw, bisa jadi dugaan saya yang tersebut di atas justru keliru. Akhirnya,
malah jadi kebanyakan bertanya daripada urun solusi. maaf ya.
pertanyaan pertama tentang penggunaan pivot table di email lalu bukanlah
saran untuk menggunakan pivot table, tetapi lebih mengarah ke batasan
struktur dan memastikan tujuan utama kasus yang menyebabkan penghindaran
pemanfaatan proses yang lebih mudah dan lebih tepat guna.
sedangkan rangkaian pertanyaan yang ini akan mengarah kemana ya...
wakakaka... mungkin karena kid lagi iseng...
Wassalam,
Kid
2015-11-27 7:23 GMT+07:00 'Dede Sulaeman' pmaho_log4@pinusmerahabadi.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear Mr Kid,
>
>
>
> File lampiran yang lalu adalah sebagai contoh dari form asli, sedangkan
> form asli sudah dibakukan sehingga tidak dapat untuk dirubah.
>
> Apakah macro memungkinkan bekerja dengan form seprti itu (bekerja saat
> outline dipilih 2,3,dan4)
>
>
>
> Note: form Asli sebenarnya mencapai level 4
>
>
>
> Salam,
>
> DD
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* 26 November 2015 11:19
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Hide Row jika Cell Blank
>
>
>
>
>
> Wa'alaikumussalam wr wb
>
> Hai DD,
>
> Boleh tahu kenapa tidak pakai Excel Pivot Table ?
>
> Wassalamu'alaikum wr wb
>
> Kid
>
>
>
>
>
> 2015-11-26 10:52 GMT+07:00 'Dede Sulaeman'
> pmaho_log4@pinusmerahabadi.co.id [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
>
> Dear BeExceller,
>
>
>
> Assalamu'alaikum Wr Wb...
>
>
>
> Mohon koreksinya trhadap sricpt macro pada file terlampir.
>
> Harapannya adalah pada saat saya klik Group OutLine no 2 dan 3, maka cell
> kosong (Blank) terhidden otomatis.
>
>
>
>
>
> Wassalamu'alaikum Wr Wb...
>
> Salam,
>
> DD
>
>
>
>
>
Thu Nov 26, 2015 5:16 pm (PST) . Posted by:
"Dede Sulaeman"
Dear : Mr. Kid
Untuk pertanyaan :
No.1 data hanya dilihat dan tidak diinput
No.2 memilih outline karena file sudah berat dan untuk melihat cell yang ada isinya lebih simple dibanding pivot, dikarenakan form sudah baku dan memilih dengan outline lebih mudah untuk yang awam menggunakan excel ^_^.
No.3 yang dilakukan user hanya memilih outline number saja dan angka di cell yang terlihat hanya ada angkanya, karena Row terlalu banyak sehingga lebih mudah user melihat angka dengan menggunakan outline.
Mohon Bantuannya para suhu ^_^
Salam,
DD
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 27 November 2015 07:46
To: BeExcel
Subject: Re: [belajar-excel] Hide Row jika Cell Blank
Hai DD,
hmm...
maaf ya, nambah nanyanya gpp kan ya...
1. sheet ini sebagai salah satu output untuk melihat-lihat data atau sebagai area input data ?
2. kenapa memilih outline ? apa tujuan awalnya, sehingga memilih menggunakan fitur outline ?
3. apa saja yang bisa dilakukan user terhadap outline tersebut ?
Bukan masalah bisa atau tidak bisa, tetapi diperkirakan ada yang tidak pas antara apa yang Anda inginkan dengan menfaat outline itu sendiri. Jadi, kasus ini bukan sekedar bisa hide blank cells yang bisa diatur dengan hide row. Pokok masalahnya justru bukan diproses hide/unhide nya.
btw, bisa jadi dugaan saya yang tersebut di atas justru keliru. Akhirnya, malah jadi kebanyakan bertanya daripada urun solusi. maaf ya.
pertanyaan pertama tentang penggunaan pivot table di email lalu bukanlah saran untuk menggunakan pivot table, tetapi lebih mengarah ke batasan struktur dan memastikan tujuan utama kasus yang menyebabkan penghindaran pemanfaatan proses yang lebih mudah dan lebih tepat guna.
sedangkan rangkaian pertanyaan yang ini akan mengarah kemana ya... wakakaka... mungkin karena kid lagi iseng...
Wassalam,
Kid
2015-11-27 7:23 GMT+07:00 'Dede Sulaeman' pmaho_log4@pinusmerahabadi.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear Mr Kid,
File lampiran yang lalu adalah sebagai contoh dari form asli, sedangkan form asli sudah dibakukan sehingga tidak dapat untuk dirubah.
Apakah macro memungkinkan bekerja dengan form seprti itu (bekerja saat outline dipilih 2,3,dan4)
Note: form Asli sebenarnya mencapai level 4
Salam,
DD
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 26 November 2015 11:19
To: BeExcel
Subject: Re: [belajar-excel] Hide Row jika Cell Blank
Wa'alaikumussalam wr wb
Hai DD,
Boleh tahu kenapa tidak pakai Excel Pivot Table ?
Wassalamu'alaikum wr wb
Kid
2015-11-26 10:52 GMT+07:00 'Dede Sulaeman' pmaho_log4@pinusmerahabadi.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear BeExceller,
Assalamu'alaikum Wr Wb...
Mohon koreksinya trhadap sricpt macro pada file terlampir.
Harapannya adalah pada saat saya klik Group OutLine no 2 dan 3, maka cell kosong (Blank) terhidden otomatis.
Wassalamu'alaikum Wr Wb...
Salam,
DD
Untuk pertanyaan :
No.1 data hanya dilihat dan tidak diinput
No.2 memilih outline karena file sudah berat dan untuk melihat cell yang ada isinya lebih simple dibanding pivot, dikarenakan form sudah baku dan memilih dengan outline lebih mudah untuk yang awam menggunakan excel ^_^.
No.3 yang dilakukan user hanya memilih outline number saja dan angka di cell yang terlihat hanya ada angkanya, karena Row terlalu banyak sehingga lebih mudah user melihat angka dengan menggunakan outline.
Mohon Bantuannya para suhu ^_^
Salam,
DD
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 27 November 2015 07:46
To: BeExcel
Subject: Re: [belajar-excel] Hide Row jika Cell Blank
Hai DD,
hmm...
maaf ya, nambah nanyanya gpp kan ya...
1. sheet ini sebagai salah satu output untuk melihat-lihat data atau sebagai area input data ?
2. kenapa memilih outline ? apa tujuan awalnya, sehingga memilih menggunakan fitur outline ?
3. apa saja yang bisa dilakukan user terhadap outline tersebut ?
Bukan masalah bisa atau tidak bisa, tetapi diperkirakan ada yang tidak pas antara apa yang Anda inginkan dengan menfaat outline itu sendiri. Jadi, kasus ini bukan sekedar bisa hide blank cells yang bisa diatur dengan hide row. Pokok masalahnya justru bukan diproses hide/unhide nya.
btw, bisa jadi dugaan saya yang tersebut di atas justru keliru. Akhirnya, malah jadi kebanyakan bertanya daripada urun solusi. maaf ya.
pertanyaan pertama tentang penggunaan pivot table di email lalu bukanlah saran untuk menggunakan pivot table, tetapi lebih mengarah ke batasan struktur dan memastikan tujuan utama kasus yang menyebabkan penghindaran pemanfaatan proses yang lebih mudah dan lebih tepat guna.
sedangkan rangkaian pertanyaan yang ini akan mengarah kemana ya... wakakaka... mungkin karena kid lagi iseng...
Wassalam,
Kid
2015-11-27 7:23 GMT+07:00 'Dede Sulaeman' pmaho_log4@pinusmerahabadi.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear Mr Kid,
File lampiran yang lalu adalah sebagai contoh dari form asli, sedangkan form asli sudah dibakukan sehingga tidak dapat untuk dirubah.
Apakah macro memungkinkan bekerja dengan form seprti itu (bekerja saat outline dipilih 2,3,dan4)
Note: form Asli sebenarnya mencapai level 4
Salam,
DD
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 26 November 2015 11:19
To: BeExcel
Subject: Re: [belajar-excel] Hide Row jika Cell Blank
Wa'alaikumussalam wr wb
Hai DD,
Boleh tahu kenapa tidak pakai Excel Pivot Table ?
Wassalamu'alaikum wr wb
Kid
2015-11-26 10:52 GMT+07:00 'Dede Sulaeman' pmaho_log4@pinusmerahabadi.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear BeExceller,
Assalamu'alaikum Wr Wb...
Mohon koreksinya trhadap sricpt macro pada file terlampir.
Harapannya adalah pada saat saya klik Group OutLine no 2 dan 3, maka cell kosong (Blank) terhidden otomatis.
Wassalamu'alaikum Wr Wb...
Salam,
DD
Thu Nov 26, 2015 6:39 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
hmmm...
No.1 data hanya dilihat dan tidak diinput
No.3 yang dilakukan user hanya memilih outline number saja dan angka di
cell yang terlihat hanya ada angkanya
Coba begini :
1. disebuah cells bantu diberi formula =Now()
lalu di atur format number custom diisi ;;; (3 bijik titik koma).
letak cells bantu dalam sheet output tersebut adalah bebas alias dimana
saja.
Kalau ingin lebih nyaman, jangan di area yang dikenai outline dan bila
perlu di-hide kolom atau barisnya.
2. semua event milik worksheet tersebut, yang bukan event calculate, diberi
tambahan baris kode :
> di baris pertama setelah baris deklarasi variabel di setiap
prosedur event
application.enableevents=false
> di baris terakhir sebelum end sub di setiap prosedur event
application.enableevents=true
3. di event calculate milik si worksheet, diisi baris kode berikut :
Asumsi :
a. nama object dari worksheet bernama 'Sheet1' (di preview, tab
sheet nya bertuliskan begitu) adalah Sheet1 (biasanya, sheet pertama yang
masih ori peletakannya, akan diberi object name Sheet1) -> sesuaikan dengan
keadaan setempat
b. kolom kuncinya adalah kolom C, misal range c1:c17 (di preview,
data terakhir di c16, lalu dilewatkan 1) -> sesuaikan dengan keadaan
setempat.
c. kriteria yang di-hide adalah yang blank cells dan bukan yang
berisi nullstring alias hasil "" di formula
if activesheet.name=sheet1.name then 'yang dikalkulasi adalah
sheet yang aktif [sesuaikan dengan keadaan setempat]
on error resume next 'abaikan error
application.enableevents=false 'turnoff responsif excel
terhadap suatu tindakan
range("c1:c17").specialcells(xlcelltypeblanks).entirerow.hidden=true
'hide yang sesuai kriteria
application.enableevents=true 'turnon responsif excel
terhadap suatu tindakan
err.clear 'hapus error
on error goto 0 'kembalikan trap error ke default setting
nya
endif
Selamat mencoba.
Wassalamu'alaikum wr wb
Kid
2015-11-27 8:02 GMT+07:00 'Dede Sulaeman' pmaho_log4@pinusmerahabadi.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear : Mr. Kid
>
>
>
> Untuk pertanyaan :
>
> No.1 data hanya dilihat dan tidak diinput
>
> No.2 memilih outline karena file sudah berat dan untuk melihat cell yang
> ada isinya lebih simple dibanding pivot, dikarenakan form sudah baku dan
> memilih dengan outline lebih mudah untuk yang awam menggunakan excel ^_^.
>
> No.3 yang dilakukan user hanya memilih outline number saja dan angka di
> cell yang terlihat hanya ada angkanya, karena Row terlalu banyak sehingga
> lebih mudah user melihat angka dengan menggunakan outline.
>
>
>
> Mohon Bantuannya para suhu ^_^
>
>
>
> Salam,
>
> DD
>
>
>
>
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* 27 November 2015 07:46
>
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Hide Row jika Cell Blank
>
>
>
>
>
> Hai DD,
>
> hmm...
>
> maaf ya, nambah nanyanya gpp kan ya...
>
> 1. sheet ini sebagai salah satu output untuk melihat-lihat data atau
> sebagai area input data ?
>
> 2. kenapa memilih outline ? apa tujuan awalnya, sehingga memilih
> menggunakan fitur outline ?
>
> 3. apa saja yang bisa dilakukan user terhadap outline tersebut ?
>
>
>
> Bukan masalah bisa atau tidak bisa, tetapi diperkirakan ada yang tidak pas
> antara apa yang Anda inginkan dengan menfaat outline itu sendiri. Jadi,
> kasus ini bukan sekedar bisa hide blank cells yang bisa diatur dengan hide
> row. Pokok masalahnya justru bukan diproses hide/unhide nya.
>
> btw, bisa jadi dugaan saya yang tersebut di atas justru keliru. Akhirnya,
> malah jadi kebanyakan bertanya daripada urun solusi. maaf ya.
>
> pertanyaan pertama tentang penggunaan pivot table di email lalu bukanlah
> saran untuk menggunakan pivot table, tetapi lebih mengarah ke batasan
> struktur dan memastikan tujuan utama kasus yang menyebabkan penghindaran
> pemanfaatan proses yang lebih mudah dan lebih tepat guna.
>
> sedangkan rangkaian pertanyaan yang ini akan mengarah kemana ya...
> wakakaka... mungkin karena kid lagi iseng...
>
>
>
>
>
> Wassalam,
>
> Kid
>
>
>
>
>
> 2015-11-27 7:23 GMT+07:00 'Dede Sulaeman' pmaho_log4@pinusmerahabadi.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Dear Mr Kid,
>
>
>
> File lampiran yang lalu adalah sebagai contoh dari form asli, sedangkan
> form asli sudah dibakukan sehingga tidak dapat untuk dirubah.
>
> Apakah macro memungkinkan bekerja dengan form seprti itu (bekerja saat
> outline dipilih 2,3,dan4)
>
>
>
> Note: form Asli sebenarnya mencapai level 4
>
>
>
> Salam,
>
> DD
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* 26 November 2015 11:19
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Hide Row jika Cell Blank
>
>
>
>
>
> Wa'alaikumussalam wr wb
>
> Hai DD,
>
> Boleh tahu kenapa tidak pakai Excel Pivot Table ?
>
> Wassalamu'alaikum wr wb
>
> Kid
>
>
>
>
>
> 2015-11-26 10:52 GMT+07:00 'Dede Sulaeman'
> pmaho_log4@pinusmerahabadi.co.id [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
>
> Dear BeExceller,
>
>
>
> Assalamu'alaikum Wr Wb...
>
>
>
> Mohon koreksinya trhadap sricpt macro pada file terlampir.
>
> Harapannya adalah pada saat saya klik Group OutLine no 2 dan 3, maka cell
> kosong (Blank) terhidden otomatis.
>
>
>
>
>
> Wassalamu'alaikum Wr Wb...
>
> Salam,
>
> DD
>
>
>
>
>
>
>
No.1 data hanya dilihat dan tidak diinput
No.3 yang dilakukan user hanya memilih outline number saja dan angka di
cell yang terlihat hanya ada angkanya
Coba begini :
1. disebuah cells bantu diberi formula =Now()
lalu di atur format number custom diisi ;;; (3 bijik titik koma).
letak cells bantu dalam sheet output tersebut adalah bebas alias dimana
saja.
Kalau ingin lebih nyaman, jangan di area yang dikenai outline dan bila
perlu di-hide kolom atau barisnya.
2. semua event milik worksheet tersebut, yang bukan event calculate, diberi
tambahan baris kode :
> di baris pertama setelah baris deklarasi variabel di setiap
prosedur event
application.enableevents=false
> di baris terakhir sebelum end sub di setiap prosedur event
application.enableevents=true
3. di event calculate milik si worksheet, diisi baris kode berikut :
Asumsi :
a. nama object dari worksheet bernama 'Sheet1' (di preview, tab
sheet nya bertuliskan begitu) adalah Sheet1 (biasanya, sheet pertama yang
masih ori peletakannya, akan diberi object name Sheet1) -> sesuaikan dengan
keadaan setempat
b. kolom kuncinya adalah kolom C, misal range c1:c17 (di preview,
data terakhir di c16, lalu dilewatkan 1) -> sesuaikan dengan keadaan
setempat.
c. kriteria yang di-hide adalah yang blank cells dan bukan yang
berisi nullstring alias hasil "" di formula
if activesheet.name=sheet1.name then 'yang dikalkulasi adalah
sheet yang aktif [sesuaikan dengan keadaan setempat]
on error resume next 'abaikan error
application.enableevents=false 'turnoff responsif excel
terhadap suatu tindakan
range("c1:c17").specialcells(xlcelltypeblanks).entirerow.hidden=true
'hide yang sesuai kriteria
application.enableevents=true 'turnon responsif excel
terhadap suatu tindakan
err.clear 'hapus error
on error goto 0 'kembalikan trap error ke default setting
nya
endif
Selamat mencoba.
Wassalamu'alaikum wr wb
Kid
2015-11-27 8:02 GMT+07:00 'Dede Sulaeman' pmaho_log4@pinusmerahabadi.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear : Mr. Kid
>
>
>
> Untuk pertanyaan :
>
> No.1 data hanya dilihat dan tidak diinput
>
> No.2 memilih outline karena file sudah berat dan untuk melihat cell yang
> ada isinya lebih simple dibanding pivot, dikarenakan form sudah baku dan
> memilih dengan outline lebih mudah untuk yang awam menggunakan excel ^_^.
>
> No.3 yang dilakukan user hanya memilih outline number saja dan angka di
> cell yang terlihat hanya ada angkanya, karena Row terlalu banyak sehingga
> lebih mudah user melihat angka dengan menggunakan outline.
>
>
>
> Mohon Bantuannya para suhu ^_^
>
>
>
> Salam,
>
> DD
>
>
>
>
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* 27 November 2015 07:46
>
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Hide Row jika Cell Blank
>
>
>
>
>
> Hai DD,
>
> hmm...
>
> maaf ya, nambah nanyanya gpp kan ya...
>
> 1. sheet ini sebagai salah satu output untuk melihat-lihat data atau
> sebagai area input data ?
>
> 2. kenapa memilih outline ? apa tujuan awalnya, sehingga memilih
> menggunakan fitur outline ?
>
> 3. apa saja yang bisa dilakukan user terhadap outline tersebut ?
>
>
>
> Bukan masalah bisa atau tidak bisa, tetapi diperkirakan ada yang tidak pas
> antara apa yang Anda inginkan dengan menfaat outline itu sendiri. Jadi,
> kasus ini bukan sekedar bisa hide blank cells yang bisa diatur dengan hide
> row. Pokok masalahnya justru bukan diproses hide/unhide nya.
>
> btw, bisa jadi dugaan saya yang tersebut di atas justru keliru. Akhirnya,
> malah jadi kebanyakan bertanya daripada urun solusi. maaf ya.
>
> pertanyaan pertama tentang penggunaan pivot table di email lalu bukanlah
> saran untuk menggunakan pivot table, tetapi lebih mengarah ke batasan
> struktur dan memastikan tujuan utama kasus yang menyebabkan penghindaran
> pemanfaatan proses yang lebih mudah dan lebih tepat guna.
>
> sedangkan rangkaian pertanyaan yang ini akan mengarah kemana ya...
> wakakaka... mungkin karena kid lagi iseng...
>
>
>
>
>
> Wassalam,
>
> Kid
>
>
>
>
>
> 2015-11-27 7:23 GMT+07:00 'Dede Sulaeman' pmaho_log4@pinusmerahabadi.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Dear Mr Kid,
>
>
>
> File lampiran yang lalu adalah sebagai contoh dari form asli, sedangkan
> form asli sudah dibakukan sehingga tidak dapat untuk dirubah.
>
> Apakah macro memungkinkan bekerja dengan form seprti itu (bekerja saat
> outline dipilih 2,3,dan4)
>
>
>
> Note: form Asli sebenarnya mencapai level 4
>
>
>
> Salam,
>
> DD
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* 26 November 2015 11:19
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Hide Row jika Cell Blank
>
>
>
>
>
> Wa'alaikumussalam wr wb
>
> Hai DD,
>
> Boleh tahu kenapa tidak pakai Excel Pivot Table ?
>
> Wassalamu'alaikum wr wb
>
> Kid
>
>
>
>
>
> 2015-11-26 10:52 GMT+07:00 'Dede Sulaeman'
> pmaho_log4@pinusmerahabadi.co.id [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
>
> Dear BeExceller,
>
>
>
> Assalamu'alaikum Wr Wb...
>
>
>
> Mohon koreksinya trhadap sricpt macro pada file terlampir.
>
> Harapannya adalah pada saat saya klik Group OutLine no 2 dan 3, maka cell
> kosong (Blank) terhidden otomatis.
>
>
>
>
>
> Wassalamu'alaikum Wr Wb...
>
> Salam,
>
> DD
>
>
>
>
>
>
>
Thu Nov 26, 2015 6:22 pm (PST) . Posted by:
"Riki" ricky45chiesa
Dear Masters,
Mohon solusi, gabungkan grafik tipe stock dengan tipe line, karena keterangan dari excel sendiri tidak bisa digabung.
Coba pakai line manual tapi sering geser sendiri, terlebih datanya bila di buka di PC berbeda.
Kira-kira ada solusi lain?
Contoh terlampir, monggo
Trims
Riki
--- Mods ---
File lampiran yang melebihi 250KB dilepas dari email. Silakan penanya melampirkan ulang file lampiran yang diusahakan berisi data contoh maksimal 250KB dengan cara me-reply email ini.
----------------
Mohon solusi, gabungkan grafik tipe stock dengan tipe line, karena keterangan dari excel sendiri tidak bisa digabung.
Coba pakai line manual tapi sering geser sendiri, terlebih datanya bila di buka di PC berbeda.
Kira-kira ada solusi lain?
Contoh terlampir, monggo
Trims
Riki
--- Mods ---
File lampiran yang melebihi 250KB dilepas dari email. Silakan penanya melampirkan ulang file lampiran yang diusahakan berisi data contoh maksimal 250KB dengan cara me-reply email ini.
------------
============================================================
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