9 Messages
Digest #3645
1b
Re: tambahan fungsi pada penggunaan table excel [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
2c
Re: Bls: [belajar-excel] mindahin dari horizontal ke vertikal by "Lukman Setiawan" jalanmawar2_blok3
Messages
Mon Nov 16, 2015 3:07 am (PST) . Posted by:
"odong nando"
dear all,
ahirnya setelah sekian lama, saya mengerti cara copas skrip even change punya si sheet yang di buat bos kid... hehe...tapi setelah pelaksanaan saya jadi bingung karena tidak sesuai dengan yang di harapkan.
seharusnya kondisinya :1. bila, pada kolom J di isi (input) maka kolom A:I baris sebelumnya akan tercopy kebaris yang baru dan pada saat penginputan pada kolom K baris yang sama maka kolom A:J tidak berubah
2. bila pada kolom K di isi (input) maka kolom A:J baris sebelumnya akan tercopy kebaris yang baru.3. bila awal penginputan baris terletak antara kolom A:I maka kondisi di atas tidak berlaku
agar lebih jelas makan saya lampirkan percobaan yang telah saya buat
br,
odong nando
Pada Kamis, 22 Januari 2015 19:33, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
oouw....
Jika ingin menggunakan VBA, mulailah dari sini dan secara bertahap ke bahasan berikutnya.
Jika sudah mulai mempelajarinya sampai seri 005 saja, maka bagian kalimat berbnyi :
Script pada event change milik si sheet :
akan mengarahkan Anda untuk ke-VBE, lalu ke object sheet yang akan digunakan melalui frame object explorer dalam VBA Project tersebut, kemudian membuat prosedur event yang bernama Change, barulah didalam prosedur event yang terbentuk (dibuatkan oleh VBE) bisa diisi baris-baris program yang berbunyi :
with target
if .count=1 then
if .column=10 then '(kolom J adalah kolom ke-10)
if len(.offset(1).value)=0 then 'kolom J baris berikutnya yang diubah adalah cell kosong -> inputan record baru saja
application.enableevents=false
'proses disini. barisnya target adalah baris record baru. butuh ambil data di baris sebelumnya yang baru
range("a1:i1").offset( .row - 1 ).value = range("a1:i1").offset( .row - 2 ).value
application.enableevents=true
endif
endif
endif
end with
Wassalam,
Kid
2015-01-22 21:57 GMT+11:00 odong nando odongnando@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
mohon maaf bos kid...saya bingung.... thx,
odong nando
Pada Kamis, 22 Januari 2015 17:42, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
File lampirannya ndak ada macro nya tuh.
Kalau mau buat sendiri, berikut kira-kira bunyinya :
Script pada event change milik si sheet :
with target
if .count=1 then
if .column=10 then '(kolom J adalah kolom ke-10)
if len(.offset(1).value)=0 then 'kolom J baris berikutnya yang diubah adalah cell kosong -> inputan record baru saja
application.enableevents=false
'proses disini. barisnya target adalah baris record baru. butuh ambil data di baris sebelumnya yang baru
range("a1:i1").offset( .row - 1 ).value = range("a1:i1").offset( .row - 2 ).value
application.enableevents=true
endif
endif
endif
end with
Wassalam,
Kid.
On Thu, Jan 22, 2015 at 9:29 PM, odong nando odongnando@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
bos kid,makro ny eror, apa saya salah pake makronya ya...?mohon di periksa bos kid.baru coba ngopi mackro neh...udah salah... hehehe....
thx,
odong nando
Pada Rabu, 21 Januari 2015 19:03, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Otomasi (Macro) di libre office atau star office bukan dengan VBA. Star Office dengan Star Basic. Mirip VBA tetapi full OOP. Jadi, pengguna VBA yang tidak terbiasa untuk menulis lengkap nama object beserta properti atau methods yang akan digunakan biasanya akan mengawali usaha pembuatan otomasi di star atau libre dengan susah payah. Tetapi, jika sungguh-sungguh terus berusaha untuk memahami dan mulai memanfaatkan object dalam pemrograman (termasuk untuk otomasi atau macro), maka akan terasa banyak kemudahan dalam menyusun script yang full OOP.
Wassalam,
Kid.
On Wed, Jan 21, 2015 at 10:52 PM, odong nando odongnando@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
hehe....iya, bnr bos kid...
sy mo coba dengan VBA, tp kira2 berfungsi di OS Ubuntu dengan open office or libre office, ga ya bos kid ?
thx,
odong nando
Pada Rabu, 21 Januari 2015 18:31, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Hilangkan saja IF nya.
=M2
Bagaimana ?
On Wed, Jan 21, 2015 at 10:21 PM, odong nando odongnando@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
maaf bos kid,
saya coba dengan yang formula, tapi masih berkendala, saat nilai idr or usd hanya diisi salah satu nya ja maka yang timbul adalah nilai sebelumnya, seperti terlampir...tolong pencerahannya bos kid. thx,
odong nando
Pada Rabu, 21 Januari 2015 17:14, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
aih.. 5 hari belum ada yang reply ya....
Hai Odong,
Biasanya, data seperti kasus ini dibagi menjadi 2 buah tabel, yaitu tabel invoice dan tabel item invoice.
Tabel invoice berisi unique invoice beserta keterangan umum invoice, yaitu kolom A sampai i. Jadi, jika ada 3 invoice, maka tabel ini hanya berisi 3 record meskipun setiap invoice memiliki banyak items.
Tabel item invoice berisi seluruh item setiap invoice, yaitu kolom A dan kolom J sampai N disusun berurutan (kolom A berisi nomor invoice seperti kolom A yang ada di kasus, kolom B berisi data seperti kolom J yang ada di kasus, dst). Dengan demikian, pengisian kolom J sampai N akan ditambahi beban mengisi 1 kolom saja.
btw,
Pada kondisi dibuat ndak biasa, seperti tabel item invoice yang disertai keterangan tentang invoicenya pada kasus ini, maka bisa dengan 2 cara :
1. menggunakan kolom-kolom berformula dikanan tabel.
>> jadi tabel yang ada (misal sekarang ada 14 kolom) akan ditambahi 14 kolom baru lagi (dalam tabel yang sama), yang recordnya adalah hasil formula IF sederhana agar komputasi tidak berat.
>> inputan user di 14 kolom pertama dalam tabel yang telah dimodifikasi ini akan ada cell kosong di kolom A sampai i ketika user hanya mengisi di kolom J sampai N.
>> formula di 14 kolom baru yang berisi formula IF akan menyusun bentuk tabel utuhnya.
2. dengan VBA memanfaatkan event change milik sheet yang ditempati si tabel.
>> susunan script akan tergantung karakteristik penginputan data
>> contoh : input dilakukan dengan cara entry data per record (tidak ada copas banyak record) dan penyalinan dipicu oleh inputan di kolom J, dengan header data pasti sebaris di baris 1 Excel dan record dimulai dari A2.
Script pada event change milik si sheet :
with target
if .count=1 then
if .column=10 then '(kolom J adalah kolom ke-10)
if len(.offset(1).value)=0 then 'kolom J baris berikutnya yang diubah adalah cell kosong -> inputan record baru saja
application.enableevents=false
'proses disini. barisnya target adalah baris record baru. butuh ambil data di baris sebelumnya yang baru
range("a1:i1").offset( .row - 1 ).value = range("a1:i1").offset( .row - 2 ).value
application.enableevents=true
endif
endif
endif
end with
*** menuju ke baris 10 dari baris 1 adalah offset dari baris 1 sebanyak 9 baris alias 10 - 1 baris -> sebabnya .row - 1
*** menuju baris 9 atau 1 baris sebelum baris 10 dari baris 1 adalah offset dari baris 1 sebanyak 8 baris alias 10 - 2 -> sebabnya .row-2
Kira-kira demikian.
Wassalam,
Kid.
2015-01-21 20:12 GMT+11:00 odong nando odongnando@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
dear all,
saya ingin menanyakan tentang table excel, adakah cara menggunakan table excel agar lebih kompak dan lebih dinamis lg.
utk lebih jelas bisa lihat contoh terlampir thx,
odong nando
#yiv1581532192 #yiv1581532192 -- #yiv1581532192ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv1581532192 #yiv1581532192ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv1581532192 #yiv1581532192ygrp-mkp #yiv1581532192hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv1581532192 #yiv1581532192ygrp-mkp #yiv1581532192ads {margin-bottom:10px;}#yiv1581532192 #yiv1581532192ygrp-mkp .yiv1581532192ad {padding:0 0;}#yiv1581532192 #yiv1581532192ygrp-mkp .yiv1581532192ad p {margin:0;}#yiv1581532192 #yiv1581532192ygrp-mkp .yiv1581532192ad a {color:#0000ff;text-decoration:none;}#yiv1581532192 #yiv1581532192ygrp-sponsor #yiv1581532192ygrp-lc {font-family:Arial;}#yiv1581532192 #yiv1581532192ygrp-sponsor #yiv1581532192ygrp-lc #yiv1581532192hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv1581532192 #yiv1581532192ygrp-sponsor #yiv1581532192ygrp-lc .yiv1581532192ad {margin-bottom:10px;padding:0 0;}#yiv1581532192 #yiv1581532192actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv1581532192 #yiv1581532192activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv1581532192 #yiv1581532192activity span {font-weight:700;}#yiv1581532192 #yiv1581532192activity span:first-child {text-transform:uppercase;}#yiv1581532192 #yiv1581532192activity span a {color:#5085b6;text-decoration:none;}#yiv1581532192 #yiv1581532192activity span span {color:#ff7900;}#yiv1581532192 #yiv1581532192activity span .yiv1581532192underline {text-decoration:underline;}#yiv1581532192 .yiv1581532192attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv1581532192 .yiv1581532192attach div a {text-decoration:none;}#yiv1581532192 .yiv1581532192attach img {border:none;padding-right:5px;}#yiv1581532192 .yiv1581532192attach label {display:block;margin-bottom:5px;}#yiv1581532192 .yiv1581532192attach label a {text-decoration:none;}#yiv1581532192 blockquote {margin:0 0 0 4px;}#yiv1581532192 .yiv1581532192bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv1581532192 .yiv1581532192bold a {text-decoration:none;}#yiv1581532192 dd.yiv1581532192last p a {font-family:Verdana;font-weight:700;}#yiv1581532192 dd.yiv1581532192last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv1581532192 dd.yiv1581532192last p span.yiv1581532192yshortcuts {margin-right:0;}#yiv1581532192 div.yiv1581532192attach-table div div a {text-decoration:none;}#yiv1581532192 div.yiv1581532192attach-table {width:400px;}#yiv1581532192 div.yiv1581532192file-title a, #yiv1581532192 div.yiv1581532192file-title a:active, #yiv1581532192 div.yiv1581532192file-title a:hover, #yiv1581532192 div.yiv1581532192file-title a:visited {text-decoration:none;}#yiv1581532192 div.yiv1581532192photo-title a, #yiv1581532192 div.yiv1581532192photo-title a:active, #yiv1581532192 div.yiv1581532192photo-title a:hover, #yiv1581532192 div.yiv1581532192photo-title a:visited {text-decoration:none;}#yiv1581532192 div#yiv1581532192ygrp-mlmsg #yiv1581532192ygrp-msg p a span.yiv1581532192yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv1581532192 .yiv1581532192green {color:#628c2a;}#yiv1581532192 .yiv1581532192MsoNormal {margin:0 0 0 0;}#yiv1581532192 o {font-size:0;}#yiv1581532192 #yiv1581532192photos div {float:left;width:72px;}#yiv1581532192 #yiv1581532192photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv1581532192 #yiv1581532192photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv1581532192 #yiv1581532192reco-category {font-size:77%;}#yiv1581532192 #yiv1581532192reco-desc {font-size:77%;}#yiv1581532192 .yiv1581532192replbq {margin:4px;}#yiv1581532192 #yiv1581532192ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv1581532192 #yiv1581532192ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv1581532192 #yiv1581532192ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv1581532192 #yiv1581532192ygrp-mlmsg select, #yiv1581532192 input, #yiv1581532192 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv1581532192 #yiv1581532192ygrp-mlmsg pre, #yiv1581532192 code {font:115% monospace;}#yiv1581532192 #yiv1581532192ygrp-mlmsg * {line-height:1.22em;}#yiv1581532192 #yiv1581532192ygrp-mlmsg #yiv1581532192logo {padding-bottom:10px;}#yiv1581532192 #yiv1581532192ygrp-msg p a {font-family:Verdana;}#yiv1581532192 #yiv1581532192ygrp-msg p#yiv1581532192attach-count span {color:#1E66AE;font-weight:700;}#yiv1581532192 #yiv1581532192ygrp-reco #yiv1581532192reco-head {color:#ff7900;font-weight:700;}#yiv1581532192 #yiv1581532192ygrp-reco {margin-bottom:20px;padding:0px;}#yiv1581532192 #yiv1581532192ygrp-sponsor #yiv1581532192ov li a {font-size:130%;text-decoration:none;}#yiv1581532192 #yiv1581532192ygrp-sponsor #yiv1581532192ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv1581532192 #yiv1581532192ygrp-sponsor #yiv1581532192ov ul {margin:0;padding:0 0 0 8px;}#yiv1581532192 #yiv1581532192ygrp-text {font-family:Georgia;}#yiv1581532192 #yiv1581532192ygrp-text p {margin:0 0 1em 0;}#yiv1581532192 #yiv1581532192ygrp-text tt {font-size:120%;}#yiv1581532192 #yiv1581532192ygrp-vital ul li:last-child {border-right:none !important;}#yiv1581532192
ahirnya setelah sekian lama, saya mengerti cara copas skrip even change punya si sheet yang di buat bos kid... hehe...tapi setelah pelaksanaan saya jadi bingung karena tidak sesuai dengan yang di harapkan.
seharusnya kondisinya :1. bila, pada kolom J di isi (input) maka kolom A:I baris sebelumnya akan tercopy kebaris yang baru dan pada saat penginputan pada kolom K baris yang sama maka kolom A:J tidak berubah
2. bila pada kolom K di isi (input) maka kolom A:J baris sebelumnya akan tercopy kebaris yang baru.3. bila awal penginputan baris terletak antara kolom A:I maka kondisi di atas tidak berlaku
agar lebih jelas makan saya lampirkan percobaan yang telah saya buat
br,
odong nando
Pada Kamis, 22 Januari 2015 19:33, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
oouw....
Jika ingin menggunakan VBA, mulailah dari sini dan secara bertahap ke bahasan berikutnya.
Jika sudah mulai mempelajarinya sampai seri 005 saja, maka bagian kalimat berbnyi :
Script pada event change milik si sheet :
akan mengarahkan Anda untuk ke-VBE, lalu ke object sheet yang akan digunakan melalui frame object explorer dalam VBA Project tersebut, kemudian membuat prosedur event yang bernama Change, barulah didalam prosedur event yang terbentuk (dibuatkan oleh VBE) bisa diisi baris-baris program yang berbunyi :
with target
if .count=1 then
if .column=10 then '(kolom J adalah kolom ke-10)
if len(.offset(1).value)=0 then 'kolom J baris berikutnya yang diubah adalah cell kosong -> inputan record baru saja
application.enableevents=false
'proses disini. barisnya target adalah baris record baru. butuh ambil data di baris sebelumnya yang baru
range("a1:i1").offset( .row - 1 ).value = range("a1:i1").offset( .row - 2 ).value
application.enableevents=true
endif
endif
endif
end with
Wassalam,
Kid
2015-01-22 21:57 GMT+11:00 odong nando odongnando@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
mohon maaf bos kid...saya bingung.... thx,
odong nando
Pada Kamis, 22 Januari 2015 17:42, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
File lampirannya ndak ada macro nya tuh.
Kalau mau buat sendiri, berikut kira-kira bunyinya :
Script pada event change milik si sheet :
with target
if .count=1 then
if .column=10 then '(kolom J adalah kolom ke-10)
if len(.offset(1).value)=0 then 'kolom J baris berikutnya yang diubah adalah cell kosong -> inputan record baru saja
application.enableevents=false
'proses disini. barisnya target adalah baris record baru. butuh ambil data di baris sebelumnya yang baru
range("a1:i1").offset( .row - 1 ).value = range("a1:i1").offset( .row - 2 ).value
application.enableevents=true
endif
endif
endif
end with
Wassalam,
Kid.
On Thu, Jan 22, 2015 at 9:29 PM, odong nando odongnando@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
bos kid,makro ny eror, apa saya salah pake makronya ya...?mohon di periksa bos kid.baru coba ngopi mackro neh...udah salah... hehehe....
thx,
odong nando
Pada Rabu, 21 Januari 2015 19:03, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Otomasi (Macro) di libre office atau star office bukan dengan VBA. Star Office dengan Star Basic. Mirip VBA tetapi full OOP. Jadi, pengguna VBA yang tidak terbiasa untuk menulis lengkap nama object beserta properti atau methods yang akan digunakan biasanya akan mengawali usaha pembuatan otomasi di star atau libre dengan susah payah. Tetapi, jika sungguh-sungguh terus berusaha untuk memahami dan mulai memanfaatkan object dalam pemrograman (termasuk untuk otomasi atau macro), maka akan terasa banyak kemudahan dalam menyusun script yang full OOP.
Wassalam,
Kid.
On Wed, Jan 21, 2015 at 10:52 PM, odong nando odongnando@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
hehe....iya, bnr bos kid...
sy mo coba dengan VBA, tp kira2 berfungsi di OS Ubuntu dengan open office or libre office, ga ya bos kid ?
thx,
odong nando
Pada Rabu, 21 Januari 2015 18:31, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Hilangkan saja IF nya.
=M2
Bagaimana ?
On Wed, Jan 21, 2015 at 10:21 PM, odong nando odongnando@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
maaf bos kid,
saya coba dengan yang formula, tapi masih berkendala, saat nilai idr or usd hanya diisi salah satu nya ja maka yang timbul adalah nilai sebelumnya, seperti terlampir...tolong pencerahannya bos kid. thx,
odong nando
Pada Rabu, 21 Januari 2015 17:14, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
aih.. 5 hari belum ada yang reply ya....
Hai Odong,
Biasanya, data seperti kasus ini dibagi menjadi 2 buah tabel, yaitu tabel invoice dan tabel item invoice.
Tabel invoice berisi unique invoice beserta keterangan umum invoice, yaitu kolom A sampai i. Jadi, jika ada 3 invoice, maka tabel ini hanya berisi 3 record meskipun setiap invoice memiliki banyak items.
Tabel item invoice berisi seluruh item setiap invoice, yaitu kolom A dan kolom J sampai N disusun berurutan (kolom A berisi nomor invoice seperti kolom A yang ada di kasus, kolom B berisi data seperti kolom J yang ada di kasus, dst). Dengan demikian, pengisian kolom J sampai N akan ditambahi beban mengisi 1 kolom saja.
btw,
Pada kondisi dibuat ndak biasa, seperti tabel item invoice yang disertai keterangan tentang invoicenya pada kasus ini, maka bisa dengan 2 cara :
1. menggunakan kolom-kolom berformula dikanan tabel.
>> jadi tabel yang ada (misal sekarang ada 14 kolom) akan ditambahi 14 kolom baru lagi (dalam tabel yang sama), yang recordnya adalah hasil formula IF sederhana agar komputasi tidak berat.
>> inputan user di 14 kolom pertama dalam tabel yang telah dimodifikasi ini akan ada cell kosong di kolom A sampai i ketika user hanya mengisi di kolom J sampai N.
>> formula di 14 kolom baru yang berisi formula IF akan menyusun bentuk tabel utuhnya.
2. dengan VBA memanfaatkan event change milik sheet yang ditempati si tabel.
>> susunan script akan tergantung karakteristik penginputan data
>> contoh : input dilakukan dengan cara entry data per record (tidak ada copas banyak record) dan penyalinan dipicu oleh inputan di kolom J, dengan header data pasti sebaris di baris 1 Excel dan record dimulai dari A2.
Script pada event change milik si sheet :
with target
if .count=1 then
if .column=10 then '(kolom J adalah kolom ke-10)
if len(.offset(1).value)=0 then 'kolom J baris berikutnya yang diubah adalah cell kosong -> inputan record baru saja
application.enableevents=false
'proses disini. barisnya target adalah baris record baru. butuh ambil data di baris sebelumnya yang baru
range("a1:i1").offset( .row - 1 ).value = range("a1:i1").offset( .row - 2 ).value
application.enableevents=true
endif
endif
endif
end with
*** menuju ke baris 10 dari baris 1 adalah offset dari baris 1 sebanyak 9 baris alias 10 - 1 baris -> sebabnya .row - 1
*** menuju baris 9 atau 1 baris sebelum baris 10 dari baris 1 adalah offset dari baris 1 sebanyak 8 baris alias 10 - 2 -> sebabnya .row-2
Kira-kira demikian.
Wassalam,
Kid.
2015-01-21 20:12 GMT+11:00 odong nando odongnando@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
dear all,
saya ingin menanyakan tentang table excel, adakah cara menggunakan table excel agar lebih kompak dan lebih dinamis lg.
utk lebih jelas bisa lihat contoh terlampir thx,
odong nando
#yiv1581532192 #yiv1581532192 -- #yiv1581532192ygrp-
Tue Nov 17, 2015 12:12 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Odong,
Event change milik worksheet bisa dipergunakan. Langkah pertama adalah
memeriksa cells yang berubah sesuai kondisi yang Anda tentukan atau tidak.
Pemeriksaan kondisi dapat dilakukan dengan nested blok IF (coretan
conditional dimulai dari sini
<http://b-excel.blogspot.co.id/2013/08/belajarvba-008-blok-if.html>).
Urutan pemeriksaan :
1. jumlah cells yang berubah adalah 1 cell saja alias bukan akibat copas
banyak cells --> target berisi 1 cell
2. baris Excel dari cell yang berubah > baris Excel header tabel
3. baris Excel yang berubah <= baris Excel terakhir table + 1 (1 adalah
baris baru)
4. kolom Excel yang berubah adalah kolom tertentu
Pada nomor 4 ini akan berupa if elseif else atau select case, karena :
a. pemeriksaan pertama adalah kolom Excel bernomor kolom sekian milik kolom
J, diikuti *proses yang dilakukan* jika benar bahwa cell yang berubah di
kolom J.
b. pemeriksaan kedua adalah kolom Excel bernomor kolom sekian milik kolom
K, diikuti *proses yang dilakukan* jika benar bahwa cell yang berubah di
kolom K
c. pemeriksaan ketiga adalah kolom Excel bernomor diantara nomor kolom
milik A dan nomor kolom milik i, yang diikuti *proses yang dilakukan* jika
benar bahwa cell yang berubah ada diantara hal tersebut.
Bagian *proses yang dilakukan* adalah berupa urutan tindakan berikut :
> dari cell yang berubah -> offset 1 baris ke atas (kebaris sebelumnya) ->
offset ke kolom awal yang akan di-copy -> di resize sebanyak 1 baris dan N
kolom yang dibutuhkan (N disesuaikan dengan kondisi a,b, atau c) -> di-Copy
> dari cell yang berubah -> offset ke kolom awal lokasi paste -> paste
special values dan formatnya
Selamat mencoba
Wassalam,
Kid
2015-11-16 18:07 GMT+07:00 odong nando odongnando@yahoo.com [belajar-excel]
<belajar-excel@yahoogroups.com>:
>
>
> dear all,
>
> ahirnya setelah sekian lama, saya mengerti cara copas skrip even change
> punya si sheet yang di buat bos kid... hehe...
> tapi setelah pelaksanaan saya jadi bingung karena tidak sesuai dengan yang
> di harapkan.
>
> seharusnya kondisinya :
> 1. bila, pada kolom J di isi (input) maka kolom A:I baris sebelumnya akan
> tercopy kebaris yang baru dan pada saat penginputan pada kolom K baris yang
> sama maka kolom A:J tidak berubah
> 2. bila pada kolom K di isi (input) maka kolom A:J baris sebelumnya akan
> tercopy kebaris yang baru.
> 3. bila awal penginputan baris terletak antara kolom A:I maka kondisi di
> atas tidak berlaku
>
> agar lebih jelas makan saya lampirkan percobaan yang telah saya buat
>
> br,
>
> odong nando
>
>
>
> Pada Kamis, 22 Januari 2015 19:33, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> oouw....
>
> Jika ingin menggunakan VBA, mulailah dari sini
> <http://b-excel.blogspot.com/2013/06/belajarvba-000-kenalan.html> dan
> secara bertahap ke bahasan berikutnya.
> Jika sudah mulai mempelajarinya sampai seri 005 saja, maka bagian kalimat
> berbnyi :
> *Script pada event change milik si sheet :*
> akan mengarahkan Anda untuk ke-VBE, lalu ke object sheet yang akan
> digunakan melalui frame object explorer dalam VBA Project tersebut,
> kemudian membuat prosedur event yang bernama Change, barulah didalam
> prosedur event yang terbentuk (dibuatkan oleh VBE) bisa diisi baris-baris
> program yang berbunyi :
> with target
> if .count=1 then
> if .column=10 then '(kolom J adalah kolom ke-10)
> if len(.offset(1).value)=0 then 'kolom J baris berikutnya
> yang diubah adalah cell kosong -> inputan record baru saja
> application.enableevents=false
>
> 'proses disini. barisnya target adalah baris record baru.
> butuh ambil data di baris sebelumnya yang baru
> range("a1:i1").offset( .row - 1 ).value =
> range("a1:i1").offset( .row - 2 ).value
> application.enableevents=true
> endif
> endif
> endif
> end with
>
> Wassalam,
> Kid
>
>
>
> 2015-01-22 21:57 GMT+11:00 odong nando odongnando@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> mohon maaf bos kid...saya bingung....
>
>
>
>
>
> *thx, odong nando*
>
>
> Pada Kamis, 22 Januari 2015 17:42, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> File lampirannya ndak ada macro nya tuh.
>
> Kalau mau buat sendiri, berikut kira-kira bunyinya :
> *Script pada event change milik si sheet :*
> with target
> if .count=1 then
> if .column=10 then '(kolom J adalah kolom ke-10)
> if len(.offset(1).value)=0 then 'kolom J baris berikutnya
> yang diubah adalah cell kosong -> inputan record baru saja
> application.enableevents=false
>
> 'proses disini. barisnya target adalah baris record baru.
> butuh ambil data di baris sebelumnya yang baru
> range("a1:i1").offset( .row - 1 ).value =
> range("a1:i1").offset( .row - 2 ).value
> application.enableevents=true
> endif
> endif
> endif
> end with
>
> Wassalam,
> Kid.
>
>
>
> On Thu, Jan 22, 2015 at 9:29 PM, odong nando odongnando@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> bos kid,
> makro ny eror, apa saya salah pake makronya ya...?
> mohon di periksa bos kid.
> baru coba ngopi mackro neh...udah salah... hehehe....
>
>
>
>
>
> *thx, odong nando*
>
>
> Pada Rabu, 21 Januari 2015 19:03, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Otomasi (Macro) di libre office atau star office bukan dengan VBA. Star
> Office dengan Star Basic. Mirip VBA tetapi full OOP. Jadi, pengguna VBA
> yang tidak terbiasa untuk menulis lengkap nama object beserta properti atau
> methods yang akan digunakan biasanya akan mengawali usaha pembuatan otomasi
> di star atau libre dengan susah payah. Tetapi, jika sungguh-sungguh terus
> berusaha untuk memahami dan mulai memanfaatkan object dalam pemrograman
> (termasuk untuk otomasi atau macro), maka akan terasa banyak kemudahan
> dalam menyusun script yang full OOP.
>
> Wassalam,
> Kid.
>
>
> On Wed, Jan 21, 2015 at 10:52 PM, odong nando odongnando@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> hehe....
> iya, bnr bos kid...
>
> sy mo coba dengan VBA, tp kira2 berfungsi di OS Ubuntu dengan open office
> or libre office, ga ya bos kid ?
>
>
>
>
>
> *thx, odong nando*
>
>
> Pada Rabu, 21 Januari 2015 18:31, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Hilangkan saja IF nya.
> =M2
> Bagaimana ?
>
>
> On Wed, Jan 21, 2015 at 10:21 PM, odong nando odongnando@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> maaf bos kid,
>
> saya coba dengan yang formula, tapi masih berkendala, saat nilai idr or
> usd hanya diisi salah satu nya ja maka yang timbul adalah nilai sebelumnya,
> seperti terlampir...
> tolong pencerahannya bos kid.
>
>
>
>
>
> *thx, odong nando*
>
>
> Pada Rabu, 21 Januari 2015 17:14, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
>
>
> aih.. 5 hari belum ada yang reply ya....
>
> Hai Odong,
>
> Biasanya, data seperti kasus ini dibagi menjadi 2 buah tabel, yaitu tabel
> invoice dan tabel item invoice.
> Tabel invoice berisi unique invoice beserta keterangan umum invoice, yaitu
> kolom A sampai i. Jadi, jika ada 3 invoice, maka tabel ini hanya berisi 3
> record meskipun setiap invoice memiliki banyak items.
> Tabel item invoice berisi seluruh item setiap invoice, yaitu kolom A dan
> kolom J sampai N disusun berurutan (kolom A berisi nomor invoice seperti
> kolom A yang ada di kasus, kolom B berisi data seperti kolom J yang ada di
> kasus, dst). Dengan demikian, pengisian kolom J sampai N akan ditambahi
> beban mengisi 1 kolom saja.
>
> btw,
> Pada kondisi dibuat ndak biasa, seperti tabel item invoice yang disertai
> keterangan tentang invoicenya pada kasus ini, maka bisa dengan 2 cara :
> 1. menggunakan kolom-kolom berformula dikanan tabel.
> >> jadi tabel yang ada (misal sekarang ada 14 kolom) akan ditambahi 14
> kolom baru lagi (dalam tabel yang sama), yang recordnya adalah hasil
> formula IF sederhana agar komputasi tidak berat.
> >> inputan user di 14 kolom pertama dalam tabel yang telah dimodifikasi
> ini akan ada cell kosong di kolom A sampai i ketika user hanya mengisi di
> kolom J sampai N.
> >> formula di 14 kolom baru yang berisi formula IF akan menyusun bentuk
> tabel utuhnya.
>
> 2. dengan VBA memanfaatkan event change milik sheet yang ditempati si
> tabel.
> >> susunan script akan tergantung karakteristik penginputan data
> >> contoh : input dilakukan dengan cara entry data per record (tidak ada
> copas banyak record) dan penyalinan dipicu oleh inputan di kolom J, dengan
> header data pasti sebaris di baris 1 Excel dan record dimulai dari A2.
> Script pada event change milik si sheet :
> with target
> if .count=1 then
> if .column=10 then '(kolom J adalah kolom ke-10)
> if len(.offset(1).value)=0 then 'kolom J baris berikutnya
> yang diubah adalah cell kosong -> inputan record baru saja
> application.enableevents=false
>
> 'proses disini. barisnya target adalah baris record baru.
> butuh ambil data di baris sebelumnya yang baru
> range("a1:i1").offset( .row - 1 ).value =
> range("a1:i1").offset( .row - 2 ).value
> application.enableevents=true
> endif
> endif
> endif
> end with
>
> *** menuju ke baris 10 dari baris 1 adalah offset dari baris 1 sebanyak 9
> baris alias 10 - 1 baris -> sebabnya .row - 1
> *** menuju baris 9 atau 1 baris sebelum baris 10 dari baris 1 adalah
> offset dari baris 1 sebanyak 8 baris alias 10 - 2 -> sebabnya .row-2
>
> Kira-kira demikian.
>
> Wassalam,
> Kid.
>
>
>
> 2015-01-21 20:12 GMT+11:00 odong nando odongnando@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
>
>
> dear all,
>
> saya ingin menanyakan tentang table excel, adakah cara menggunakan table
> excel agar lebih kompak dan lebih dinamis lg.
>
> utk lebih jelas bisa lihat contoh terlampir
>
>
>
>
>
> *thx, odong nando*
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
Event change milik worksheet bisa dipergunakan. Langkah pertama adalah
memeriksa cells yang berubah sesuai kondisi yang Anda tentukan atau tidak.
Pemeriksaan kondisi dapat dilakukan dengan nested blok IF (coretan
conditional dimulai dari sini
<http://b-excel.blogspot.co.id/2013/08/belajarvba-008-blok-if.html>).
Urutan pemeriksaan :
1. jumlah cells yang berubah adalah 1 cell saja alias bukan akibat copas
banyak cells --> target berisi 1 cell
2. baris Excel dari cell yang berubah > baris Excel header tabel
3. baris Excel yang berubah <= baris Excel terakhir table + 1 (1 adalah
baris baru)
4. kolom Excel yang berubah adalah kolom tertentu
Pada nomor 4 ini akan berupa if elseif else atau select case, karena :
a. pemeriksaan pertama adalah kolom Excel bernomor kolom sekian milik kolom
J, diikuti *proses yang dilakukan* jika benar bahwa cell yang berubah di
kolom J.
b. pemeriksaan kedua adalah kolom Excel bernomor kolom sekian milik kolom
K, diikuti *proses yang dilakukan* jika benar bahwa cell yang berubah di
kolom K
c. pemeriksaan ketiga adalah kolom Excel bernomor diantara nomor kolom
milik A dan nomor kolom milik i, yang diikuti *proses yang dilakukan* jika
benar bahwa cell yang berubah ada diantara hal tersebut.
Bagian *proses yang dilakukan* adalah berupa urutan tindakan berikut :
> dari cell yang berubah -> offset 1 baris ke atas (kebaris sebelumnya) ->
offset ke kolom awal yang akan di-copy -> di resize sebanyak 1 baris dan N
kolom yang dibutuhkan (N disesuaikan dengan kondisi a,b, atau c) -> di-Copy
> dari cell yang berubah -> offset ke kolom awal lokasi paste -> paste
special values dan formatnya
Selamat mencoba
Wassalam,
Kid
2015-11-16 18:07 GMT+07:00 odong nando odongnando@yahoo.com [belajar-excel]
<belajar-excel@yahoogroups.com>:
>
>
> dear all,
>
> ahirnya setelah sekian lama, saya mengerti cara copas skrip even change
> punya si sheet yang di buat bos kid... hehe...
> tapi setelah pelaksanaan saya jadi bingung karena tidak sesuai dengan yang
> di harapkan.
>
> seharusnya kondisinya :
> 1. bila, pada kolom J di isi (input) maka kolom A:I baris sebelumnya akan
> tercopy kebaris yang baru dan pada saat penginputan pada kolom K baris yang
> sama maka kolom A:J tidak berubah
> 2. bila pada kolom K di isi (input) maka kolom A:J baris sebelumnya akan
> tercopy kebaris yang baru.
> 3. bila awal penginputan baris terletak antara kolom A:I maka kondisi di
> atas tidak berlaku
>
> agar lebih jelas makan saya lampirkan percobaan yang telah saya buat
>
> br,
>
> odong nando
>
>
>
> Pada Kamis, 22 Januari 2015 19:33, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> oouw....
>
> Jika ingin menggunakan VBA, mulailah dari sini
> <http://b-excel.blogspot.com/2013/06/belajarvba-000-kenalan.html> dan
> secara bertahap ke bahasan berikutnya.
> Jika sudah mulai mempelajarinya sampai seri 005 saja, maka bagian kalimat
> berbnyi :
> *Script pada event change milik si sheet :*
> akan mengarahkan Anda untuk ke-VBE, lalu ke object sheet yang akan
> digunakan melalui frame object explorer dalam VBA Project tersebut,
> kemudian membuat prosedur event yang bernama Change, barulah didalam
> prosedur event yang terbentuk (dibuatkan oleh VBE) bisa diisi baris-baris
> program yang berbunyi :
> with target
> if .count=1 then
> if .column=10 then '(kolom J adalah kolom ke-10)
> if len(.offset(1).value)=0 then 'kolom J baris berikutnya
> yang diubah adalah cell kosong -> inputan record baru saja
> application.enableevents=false
>
> 'proses disini. barisnya target adalah baris record baru.
> butuh ambil data di baris sebelumnya yang baru
> range("a1:i1").offset( .row - 1 ).value =
> range("a1:i1").offset( .row - 2 ).value
> application.enableevents=true
> endif
> endif
> endif
> end with
>
> Wassalam,
> Kid
>
>
>
> 2015-01-22 21:57 GMT+11:00 odong nando odongnando@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> mohon maaf bos kid...saya bingung....
>
>
>
>
>
> *thx, odong nando*
>
>
> Pada Kamis, 22 Januari 2015 17:42, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> File lampirannya ndak ada macro nya tuh.
>
> Kalau mau buat sendiri, berikut kira-kira bunyinya :
> *Script pada event change milik si sheet :*
> with target
> if .count=1 then
> if .column=10 then '(kolom J adalah kolom ke-10)
> if len(.offset(1).value)=0 then 'kolom J baris berikutnya
> yang diubah adalah cell kosong -> inputan record baru saja
> application.enableevents=false
>
> 'proses disini. barisnya target adalah baris record baru.
> butuh ambil data di baris sebelumnya yang baru
> range("a1:i1").offset( .row - 1 ).value =
> range("a1:i1").offset( .row - 2 ).value
> application.enableevents=true
> endif
> endif
> endif
> end with
>
> Wassalam,
> Kid.
>
>
>
> On Thu, Jan 22, 2015 at 9:29 PM, odong nando odongnando@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> bos kid,
> makro ny eror, apa saya salah pake makronya ya...?
> mohon di periksa bos kid.
> baru coba ngopi mackro neh...udah salah... hehehe....
>
>
>
>
>
> *thx, odong nando*
>
>
> Pada Rabu, 21 Januari 2015 19:03, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Otomasi (Macro) di libre office atau star office bukan dengan VBA. Star
> Office dengan Star Basic. Mirip VBA tetapi full OOP. Jadi, pengguna VBA
> yang tidak terbiasa untuk menulis lengkap nama object beserta properti atau
> methods yang akan digunakan biasanya akan mengawali usaha pembuatan otomasi
> di star atau libre dengan susah payah. Tetapi, jika sungguh-sungguh terus
> berusaha untuk memahami dan mulai memanfaatkan object dalam pemrograman
> (termasuk untuk otomasi atau macro), maka akan terasa banyak kemudahan
> dalam menyusun script yang full OOP.
>
> Wassalam,
> Kid.
>
>
> On Wed, Jan 21, 2015 at 10:52 PM, odong nando odongnando@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> hehe....
> iya, bnr bos kid...
>
> sy mo coba dengan VBA, tp kira2 berfungsi di OS Ubuntu dengan open office
> or libre office, ga ya bos kid ?
>
>
>
>
>
> *thx, odong nando*
>
>
> Pada Rabu, 21 Januari 2015 18:31, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Hilangkan saja IF nya.
> =M2
> Bagaimana ?
>
>
> On Wed, Jan 21, 2015 at 10:21 PM, odong nando odongnando@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> maaf bos kid,
>
> saya coba dengan yang formula, tapi masih berkendala, saat nilai idr or
> usd hanya diisi salah satu nya ja maka yang timbul adalah nilai sebelumnya,
> seperti terlampir...
> tolong pencerahannya bos kid.
>
>
>
>
>
> *thx, odong nando*
>
>
> Pada Rabu, 21 Januari 2015 17:14, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
>
>
> aih.. 5 hari belum ada yang reply ya....
>
> Hai Odong,
>
> Biasanya, data seperti kasus ini dibagi menjadi 2 buah tabel, yaitu tabel
> invoice dan tabel item invoice.
> Tabel invoice berisi unique invoice beserta keterangan umum invoice, yaitu
> kolom A sampai i. Jadi, jika ada 3 invoice, maka tabel ini hanya berisi 3
> record meskipun setiap invoice memiliki banyak items.
> Tabel item invoice berisi seluruh item setiap invoice, yaitu kolom A dan
> kolom J sampai N disusun berurutan (kolom A berisi nomor invoice seperti
> kolom A yang ada di kasus, kolom B berisi data seperti kolom J yang ada di
> kasus, dst). Dengan demikian, pengisian kolom J sampai N akan ditambahi
> beban mengisi 1 kolom saja.
>
> btw,
> Pada kondisi dibuat ndak biasa, seperti tabel item invoice yang disertai
> keterangan tentang invoicenya pada kasus ini, maka bisa dengan 2 cara :
> 1. menggunakan kolom-kolom berformula dikanan tabel.
> >> jadi tabel yang ada (misal sekarang ada 14 kolom) akan ditambahi 14
> kolom baru lagi (dalam tabel yang sama), yang recordnya adalah hasil
> formula IF sederhana agar komputasi tidak berat.
> >> inputan user di 14 kolom pertama dalam tabel yang telah dimodifikasi
> ini akan ada cell kosong di kolom A sampai i ketika user hanya mengisi di
> kolom J sampai N.
> >> formula di 14 kolom baru yang berisi formula IF akan menyusun bentuk
> tabel utuhnya.
>
> 2. dengan VBA memanfaatkan event change milik sheet yang ditempati si
> tabel.
> >> susunan script akan tergantung karakteristik penginputan data
> >> contoh : input dilakukan dengan cara entry data per record (tidak ada
> copas banyak record) dan penyalinan dipicu oleh inputan di kolom J, dengan
> header data pasti sebaris di baris 1 Excel dan record dimulai dari A2.
> Script pada event change milik si sheet :
> with target
> if .count=1 then
> if .column=10 then '(kolom J adalah kolom ke-10)
> if len(.offset(1).value)=0 then 'kolom J baris berikutnya
> yang diubah adalah cell kosong -> inputan record baru saja
> application.enableevents=false
>
> 'proses disini. barisnya target adalah baris record baru.
> butuh ambil data di baris sebelumnya yang baru
> range("a1:i1").offset( .row - 1 ).value =
> range("a1:i1").offset( .row - 2 ).value
> application.enableevents=true
> endif
> endif
> endif
> end with
>
> *** menuju ke baris 10 dari baris 1 adalah offset dari baris 1 sebanyak 9
> baris alias 10 - 1 baris -> sebabnya .row - 1
> *** menuju baris 9 atau 1 baris sebelum baris 10 dari baris 1 adalah
> offset dari baris 1 sebanyak 8 baris alias 10 - 2 -> sebabnya .row-2
>
> Kira-kira demikian.
>
> Wassalam,
> Kid.
>
>
>
> 2015-01-21 20:12 GMT+11:00 odong nando odongnando@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
>
>
> dear all,
>
> saya ingin menanyakan tentang table excel, adakah cara menggunakan table
> excel agar lebih kompak dan lebih dinamis lg.
>
> utk lebih jelas bisa lihat contoh terlampir
>
>
>
>
>
> *thx, odong nando*
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
Tue Nov 17, 2015 1:34 am (PST) . Posted by:
"odong nando"
jiaahhh....bos kid,kan baru bisa copas script nya ajah...puzing dah... br,
odong nando
Pada Selasa, 17 November 2015 15:12, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Hai Odong,
Event change milik worksheet bisa dipergunakan. Langkah pertama adalah memeriksa cells yang berubah sesuai kondisi yang Anda tentukan atau tidak. Pemeriksaan kondisi dapat dilakukan dengan nested blok IF (coretan conditional dimulai dari sini).
Urutan pemeriksaan :
1. jumlah cells yang berubah adalah 1 cell saja alias bukan akibat copas banyak cells --> target berisi 1 cell
2. baris Excel dari cell yang berubah > baris Excel header tabel
3. baris Excel yang berubah <= baris Excel terakhir table + 1 (1 adalah baris baru)
4. kolom Excel yang berubah adalah kolom tertentu
Pada nomor 4 ini akan berupa if elseif else atau select case, karena :
a. pemeriksaan pertama adalah kolom Excel bernomor kolom sekian milik kolom J, diikuti proses yang dilakukan jika benar bahwa cell yang berubah di kolom J.
b. pemeriksaan kedua adalah kolom Excel bernomor kolom sekian milik kolom K, diikuti proses yang dilakukan jika benar bahwa cell yang berubah di kolom K
c. pemeriksaan ketiga adalah kolom Excel bernomor diantara nomor kolom milik A dan nomor kolom milik i, yang diikuti proses yang dilakukan jika benar bahwa cell yang berubah ada diantara hal tersebut.
Bagian proses yang dilakukan adalah berupa urutan tindakan berikut :
> dari cell yang berubah -> offset 1 baris ke atas (kebaris sebelumnya) -> offset ke kolom awal yang akan di-copy -> di resize sebanyak 1 baris dan N kolom yang dibutuhkan (N disesuaikan dengan kondisi a,b, atau c) -> di-Copy
> dari cell yang berubah -> offset ke kolom awal lokasi paste -> paste special values dan formatnya
Selamat mencoba
Wassalam,
Kid
2015-11-16 18:07 GMT+07:00 odong nando odongnando@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
dear all,
ahirnya setelah sekian lama, saya mengerti cara copas skrip even change punya si sheet yang di buat bos kid... hehe...tapi setelah pelaksanaan saya jadi bingung karena tidak sesuai dengan yang di harapkan.
seharusnya kondisinya :1. bila, pada kolom J di isi (input) maka kolom A:I baris sebelumnya akan tercopy kebaris yang baru dan pada saat penginputan pada kolom K baris yang sama maka kolom A:J tidak berubah
2. bila pada kolom K di isi (input) maka kolom A:J baris sebelumnya akan tercopy kebaris yang baru.3. bila awal penginputan baris terletak antara kolom A:I maka kondisi di atas tidak berlaku
agar lebih jelas makan saya lampirkan percobaan yang telah saya buat
br,
odong nando
Pada Kamis, 22 Januari 2015 19:33, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
oouw....
Jika ingin menggunakan VBA, mulailah dari sini dan secara bertahap ke bahasan berikutnya.
Jika sudah mulai mempelajarinya sampai seri 005 saja, maka bagian kalimat berbnyi :
Script pada event change milik si sheet :
akan mengarahkan Anda untuk ke-VBE, lalu ke object sheet yang akan digunakan melalui frame object explorer dalam VBA Project tersebut, kemudian membuat prosedur event yang bernama Change, barulah didalam prosedur event yang terbentuk (dibuatkan oleh VBE) bisa diisi baris-baris program yang berbunyi :
with target
if .count=1 then
if .column=10 then '(kolom J adalah kolom ke-10)
if len(.offset(1).value)=0 then 'kolom J baris berikutnya yang diubah adalah cell kosong -> inputan record baru saja
application.enableevents=false
'proses disini. barisnya target adalah baris record baru. butuh ambil data di baris sebelumnya yang baru
range("a1:i1").offset( .row - 1 ).value = range("a1:i1").offset( .row - 2 ).value
application.enableevents=true
endif
endif
endif
end with
Wassalam,
Kid
2015-01-22 21:57 GMT+11:00 odong nando odongnando@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
mohon maaf bos kid...saya bingung.... thx,
odong nando
Pada Kamis, 22 Januari 2015 17:42, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
File lampirannya ndak ada macro nya tuh.
Kalau mau buat sendiri, berikut kira-kira bunyinya :
Script pada event change milik si sheet :
with target
if .count=1 then
if .column=10 then '(kolom J adalah kolom ke-10)
if len(.offset(1).value)=0 then 'kolom J baris berikutnya yang diubah adalah cell kosong -> inputan record baru saja
application.enableevents=false
'proses disini. barisnya target adalah baris record baru. butuh ambil data di baris sebelumnya yang baru
range("a1:i1").offset( .row - 1 ).value = range("a1:i1").offset( .row - 2 ).value
application.enableevents=true
endif
endif
endif
end with
Wassalam,
Kid.
On Thu, Jan 22, 2015 at 9:29 PM, odong nando odongnando@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
bos kid,makro ny eror, apa saya salah pake makronya ya...?mohon di periksa bos kid.baru coba ngopi mackro neh...udah salah... hehehe....
thx,
odong nando
Pada Rabu, 21 Januari 2015 19:03, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Otomasi (Macro) di libre office atau star office bukan dengan VBA. Star Office dengan Star Basic. Mirip VBA tetapi full OOP. Jadi, pengguna VBA yang tidak terbiasa untuk menulis lengkap nama object beserta properti atau methods yang akan digunakan biasanya akan mengawali usaha pembuatan otomasi di star atau libre dengan susah payah. Tetapi, jika sungguh-sungguh terus berusaha untuk memahami dan mulai memanfaatkan object dalam pemrograman (termasuk untuk otomasi atau macro), maka akan terasa banyak kemudahan dalam menyusun script yang full OOP.
Wassalam,
Kid.
On Wed, Jan 21, 2015 at 10:52 PM, odong nando odongnando@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
hehe....iya, bnr bos kid...
sy mo coba dengan VBA, tp kira2 berfungsi di OS Ubuntu dengan open office or libre office, ga ya bos kid ?
thx,
odong nando
Pada Rabu, 21 Januari 2015 18:31, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Hilangkan saja IF nya.
=M2
Bagaimana ?
On Wed, Jan 21, 2015 at 10:21 PM, odong nando odongnando@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
maaf bos kid,
saya coba dengan yang formula, tapi masih berkendala, saat nilai idr or usd hanya diisi salah satu nya ja maka yang timbul adalah nilai sebelumnya, seperti terlampir...tolong pencerahannya bos kid. thx,
odong nando
Pada Rabu, 21 Januari 2015 17:14, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
aih.. 5 hari belum ada yang reply ya....
Hai Odong,
Biasanya, data seperti kasus ini dibagi menjadi 2 buah tabel, yaitu tabel invoice dan tabel item invoice.
Tabel invoice berisi unique invoice beserta keterangan umum invoice, yaitu kolom A sampai i. Jadi, jika ada 3 invoice, maka tabel ini hanya berisi 3 record meskipun setiap invoice memiliki banyak items.
Tabel item invoice berisi seluruh item setiap invoice, yaitu kolom A dan kolom J sampai N disusun berurutan (kolom A berisi nomor invoice seperti kolom A yang ada di kasus, kolom B berisi data seperti kolom J yang ada di kasus, dst). Dengan demikian, pengisian kolom J sampai N akan ditambahi beban mengisi 1 kolom saja.
btw,
Pada kondisi dibuat ndak biasa, seperti tabel item invoice yang disertai keterangan tentang invoicenya pada kasus ini, maka bisa dengan 2 cara :
1. menggunakan kolom-kolom berformula dikanan tabel.
>> jadi tabel yang ada (misal sekarang ada 14 kolom) akan ditambahi 14 kolom baru lagi (dalam tabel yang sama), yang recordnya adalah hasil formula IF sederhana agar komputasi tidak berat.
>> inputan user di 14 kolom pertama dalam tabel yang telah dimodifikasi ini akan ada cell kosong di kolom A sampai i ketika user hanya mengisi di kolom J sampai N.
>> formula di 14 kolom baru yang berisi formula IF akan menyusun bentuk tabel utuhnya.
2. dengan VBA memanfaatkan event change milik sheet yang ditempati si tabel.
>> susunan script akan tergantung karakteristik penginputan data
>> contoh : input dilakukan dengan cara entry data per record (tidak ada copas banyak record) dan penyalinan dipicu oleh inputan di kolom J, dengan header data pasti sebaris di baris 1 Excel dan record dimulai dari A2.
Script pada event change milik si sheet :
with target
if .count=1 then
if .column=10 then '(kolom J adalah kolom ke-10)
if len(.offset(1).value)=0 then 'kolom J baris berikutnya yang diubah adalah cell kosong -> inputan record baru saja
application.enableevents=false
'proses disini. barisnya target adalah baris record baru. butuh ambil data di baris sebelumnya yang baru
range("a1:i1").offset( .row - 1 ).value = range("a1:i1").offset( .row - 2 ).value
application.enableevents=true
endif
endif
endif
end with
*** menuju ke baris 10 dari baris 1 adalah offset dari baris 1 sebanyak 9 baris alias 10 - 1 baris -> sebabnya .row - 1
*** menuju baris 9 atau 1 baris sebelum baris 10 dari baris 1 adalah offset dari baris 1 sebanyak 8 baris alias 10 - 2 -> sebabnya .row-2
Kira-kira demikian.
Wassalam,
Kid.
2015-01-21 20:12 GMT+11:00 odong nando odongnando@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
dear all,
saya ingin menanyakan tentang table excel, adakah cara menggunakan table excel agar lebih kompak dan lebih dinamis lg.
utk lebih jelas bisa lihat contoh terlampir thx,
odong nando
#yiv1282397478 #yiv1282397478 -- #yiv1282397478ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv1282397478 #yiv1282397478ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv1282397478 #yiv1282397478ygrp-mkp #yiv1282397478hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv1282397478 #yiv1282397478ygrp-mkp #yiv1282397478ads {margin-bottom:10px;}#yiv1282397478 #yiv1282397478ygrp-mkp .yiv1282397478ad {padding:0 0;}#yiv1282397478 #yiv1282397478ygrp-mkp .yiv1282397478ad p {margin:0;}#yiv1282397478 #yiv1282397478ygrp-mkp .yiv1282397478ad a {color:#0000ff;text-decoration:none;}#yiv1282397478 #yiv1282397478ygrp-sponsor #yiv1282397478ygrp-lc {font-family:Arial;}#yiv1282397478 #yiv1282397478ygrp-sponsor #yiv1282397478ygrp-lc #yiv1282397478hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv1282397478 #yiv1282397478ygrp-sponsor #yiv1282397478ygrp-lc .yiv1282397478ad {margin-bottom:10px;padding:0 0;}#yiv1282397478 #yiv1282397478actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv1282397478 #yiv1282397478activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv1282397478 #yiv1282397478activity span {font-weight:700;}#yiv1282397478 #yiv1282397478activity span:first-child {text-transform:uppercase;}#yiv1282397478 #yiv1282397478activity span a {color:#5085b6;text-decoration:none;}#yiv1282397478 #yiv1282397478activity span span {color:#ff7900;}#yiv1282397478 #yiv1282397478activity span .yiv1282397478underline {text-decoration:underline;}#yiv1282397478 .yiv1282397478attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv1282397478 .yiv1282397478attach div a {text-decoration:none;}#yiv1282397478 .yiv1282397478attach img {border:none;padding-right:5px;}#yiv1282397478 .yiv1282397478attach label {display:block;margin-bottom:5px;}#yiv1282397478 .yiv1282397478attach label a {text-decoration:none;}#yiv1282397478 blockquote {margin:0 0 0 4px;}#yiv1282397478 .yiv1282397478bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv1282397478 .yiv1282397478bold a {text-decoration:none;}#yiv1282397478 dd.yiv1282397478last p a {font-family:Verdana;font-weight:700;}#yiv1282397478 dd.yiv1282397478last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv1282397478 dd.yiv1282397478last p span.yiv1282397478yshortcuts {margin-right:0;}#yiv1282397478 div.yiv1282397478attach-table div div a {text-decoration:none;}#yiv1282397478 div.yiv1282397478attach-table {width:400px;}#yiv1282397478 div.yiv1282397478file-title a, #yiv1282397478 div.yiv1282397478file-title a:active, #yiv1282397478 div.yiv1282397478file-title a:hover, #yiv1282397478 div.yiv1282397478file-title a:visited {text-decoration:none;}#yiv1282397478 div.yiv1282397478photo-title a, #yiv1282397478 div.yiv1282397478photo-title a:active, #yiv1282397478 div.yiv1282397478photo-title a:hover, #yiv1282397478 div.yiv1282397478photo-title a:visited {text-decoration:none;}#yiv1282397478 div#yiv1282397478ygrp-mlmsg #yiv1282397478ygrp-msg p a span.yiv1282397478yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv1282397478 .yiv1282397478green {color:#628c2a;}#yiv1282397478 .yiv1282397478MsoNormal {margin:0 0 0 0;}#yiv1282397478 o {font-size:0;}#yiv1282397478 #yiv1282397478photos div {float:left;width:72px;}#yiv1282397478 #yiv1282397478photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv1282397478 #yiv1282397478photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv1282397478 #yiv1282397478reco-category {font-size:77%;}#yiv1282397478 #yiv1282397478reco-desc {font-size:77%;}#yiv1282397478 .yiv1282397478replbq {margin:4px;}#yiv1282397478 #yiv1282397478ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv1282397478 #yiv1282397478ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv1282397478 #yiv1282397478ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv1282397478 #yiv1282397478ygrp-mlmsg select, #yiv1282397478 input, #yiv1282397478 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv1282397478 #yiv1282397478ygrp-mlmsg pre, #yiv1282397478 code {font:115% monospace;}#yiv1282397478 #yiv1282397478ygrp-mlmsg * {line-height:1.22em;}#yiv1282397478 #yiv1282397478ygrp-mlmsg #yiv1282397478logo {padding-bottom:10px;}#yiv1282397478 #yiv1282397478ygrp-msg p a {font-family:Verdana;}#yiv1282397478 #yiv1282397478ygrp-msg p#yiv1282397478attach-count span {color:#1E66AE;font-weight:700;}#yiv1282397478 #yiv1282397478ygrp-reco #yiv1282397478reco-head {color:#ff7900;font-weight:700;}#yiv1282397478 #yiv1282397478ygrp-reco {margin-bottom:20px;padding:0px;}#yiv1282397478 #yiv1282397478ygrp-sponsor #yiv1282397478ov li a {font-size:130%;text-decoration:none;}#yiv1282397478 #yiv1282397478ygrp-sponsor #yiv1282397478ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv1282397478 #yiv1282397478ygrp-sponsor #yiv1282397478ov ul {margin:0;padding:0 0 0 8px;}#yiv1282397478 #yiv1282397478ygrp-text {font-family:Georgia;}#yiv1282397478 #yiv1282397478ygrp-text p {margin:0 0 1em 0;}#yiv1282397478 #yiv1282397478ygrp-text tt {font-size:120%;}#yiv1282397478 #yiv1282397478ygrp-vital ul li:last-child {border-right:none !important;}#yiv1282397478
odong nando
Pada Selasa, 17 November 2015 15:12, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Hai Odong,
Event change milik worksheet bisa dipergunakan. Langkah pertama adalah memeriksa cells yang berubah sesuai kondisi yang Anda tentukan atau tidak. Pemeriksaan kondisi dapat dilakukan dengan nested blok IF (coretan conditional dimulai dari sini).
Urutan pemeriksaan :
1. jumlah cells yang berubah adalah 1 cell saja alias bukan akibat copas banyak cells --> target berisi 1 cell
2. baris Excel dari cell yang berubah > baris Excel header tabel
3. baris Excel yang berubah <= baris Excel terakhir table + 1 (1 adalah baris baru)
4. kolom Excel yang berubah adalah kolom tertentu
Pada nomor 4 ini akan berupa if elseif else atau select case, karena :
a. pemeriksaan pertama adalah kolom Excel bernomor kolom sekian milik kolom J, diikuti proses yang dilakukan jika benar bahwa cell yang berubah di kolom J.
b. pemeriksaan kedua adalah kolom Excel bernomor kolom sekian milik kolom K, diikuti proses yang dilakukan jika benar bahwa cell yang berubah di kolom K
c. pemeriksaan ketiga adalah kolom Excel bernomor diantara nomor kolom milik A dan nomor kolom milik i, yang diikuti proses yang dilakukan jika benar bahwa cell yang berubah ada diantara hal tersebut.
Bagian proses yang dilakukan adalah berupa urutan tindakan berikut :
> dari cell yang berubah -> offset 1 baris ke atas (kebaris sebelumnya) -> offset ke kolom awal yang akan di-copy -> di resize sebanyak 1 baris dan N kolom yang dibutuhkan (N disesuaikan dengan kondisi a,b, atau c) -> di-Copy
> dari cell yang berubah -> offset ke kolom awal lokasi paste -> paste special values dan formatnya
Selamat mencoba
Wassalam,
Kid
2015-11-16 18:07 GMT+07:00 odong nando odongnando@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
dear all,
ahirnya setelah sekian lama, saya mengerti cara copas skrip even change punya si sheet yang di buat bos kid... hehe...tapi setelah pelaksanaan saya jadi bingung karena tidak sesuai dengan yang di harapkan.
seharusnya kondisinya :1. bila, pada kolom J di isi (input) maka kolom A:I baris sebelumnya akan tercopy kebaris yang baru dan pada saat penginputan pada kolom K baris yang sama maka kolom A:J tidak berubah
2. bila pada kolom K di isi (input) maka kolom A:J baris sebelumnya akan tercopy kebaris yang baru.3. bila awal penginputan baris terletak antara kolom A:I maka kondisi di atas tidak berlaku
agar lebih jelas makan saya lampirkan percobaan yang telah saya buat
br,
odong nando
Pada Kamis, 22 Januari 2015 19:33, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
oouw....
Jika ingin menggunakan VBA, mulailah dari sini dan secara bertahap ke bahasan berikutnya.
Jika sudah mulai mempelajarinya sampai seri 005 saja, maka bagian kalimat berbnyi :
Script pada event change milik si sheet :
akan mengarahkan Anda untuk ke-VBE, lalu ke object sheet yang akan digunakan melalui frame object explorer dalam VBA Project tersebut, kemudian membuat prosedur event yang bernama Change, barulah didalam prosedur event yang terbentuk (dibuatkan oleh VBE) bisa diisi baris-baris program yang berbunyi :
with target
if .count=1 then
if .column=10 then '(kolom J adalah kolom ke-10)
if len(.offset(1).value)=0 then 'kolom J baris berikutnya yang diubah adalah cell kosong -> inputan record baru saja
application.enableevents=false
'proses disini. barisnya target adalah baris record baru. butuh ambil data di baris sebelumnya yang baru
range("a1:i1").offset( .row - 1 ).value = range("a1:i1").offset( .row - 2 ).value
application.enableevents=true
endif
endif
endif
end with
Wassalam,
Kid
2015-01-22 21:57 GMT+11:00 odong nando odongnando@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
mohon maaf bos kid...saya bingung.... thx,
odong nando
Pada Kamis, 22 Januari 2015 17:42, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
File lampirannya ndak ada macro nya tuh.
Kalau mau buat sendiri, berikut kira-kira bunyinya :
Script pada event change milik si sheet :
with target
if .count=1 then
if .column=10 then '(kolom J adalah kolom ke-10)
if len(.offset(1).value)=0 then 'kolom J baris berikutnya yang diubah adalah cell kosong -> inputan record baru saja
application.enableevents=false
'proses disini. barisnya target adalah baris record baru. butuh ambil data di baris sebelumnya yang baru
range("a1:i1").offset( .row - 1 ).value = range("a1:i1").offset( .row - 2 ).value
application.enableevents=true
endif
endif
endif
end with
Wassalam,
Kid.
On Thu, Jan 22, 2015 at 9:29 PM, odong nando odongnando@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
bos kid,makro ny eror, apa saya salah pake makronya ya...?mohon di periksa bos kid.baru coba ngopi mackro neh...udah salah... hehehe....
thx,
odong nando
Pada Rabu, 21 Januari 2015 19:03, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Otomasi (Macro) di libre office atau star office bukan dengan VBA. Star Office dengan Star Basic. Mirip VBA tetapi full OOP. Jadi, pengguna VBA yang tidak terbiasa untuk menulis lengkap nama object beserta properti atau methods yang akan digunakan biasanya akan mengawali usaha pembuatan otomasi di star atau libre dengan susah payah. Tetapi, jika sungguh-sungguh terus berusaha untuk memahami dan mulai memanfaatkan object dalam pemrograman (termasuk untuk otomasi atau macro), maka akan terasa banyak kemudahan dalam menyusun script yang full OOP.
Wassalam,
Kid.
On Wed, Jan 21, 2015 at 10:52 PM, odong nando odongnando@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
hehe....iya, bnr bos kid...
sy mo coba dengan VBA, tp kira2 berfungsi di OS Ubuntu dengan open office or libre office, ga ya bos kid ?
thx,
odong nando
Pada Rabu, 21 Januari 2015 18:31, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Hilangkan saja IF nya.
=M2
Bagaimana ?
On Wed, Jan 21, 2015 at 10:21 PM, odong nando odongnando@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
maaf bos kid,
saya coba dengan yang formula, tapi masih berkendala, saat nilai idr or usd hanya diisi salah satu nya ja maka yang timbul adalah nilai sebelumnya, seperti terlampir...tolong pencerahannya bos kid. thx,
odong nando
Pada Rabu, 21 Januari 2015 17:14, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
aih.. 5 hari belum ada yang reply ya....
Hai Odong,
Biasanya, data seperti kasus ini dibagi menjadi 2 buah tabel, yaitu tabel invoice dan tabel item invoice.
Tabel invoice berisi unique invoice beserta keterangan umum invoice, yaitu kolom A sampai i. Jadi, jika ada 3 invoice, maka tabel ini hanya berisi 3 record meskipun setiap invoice memiliki banyak items.
Tabel item invoice berisi seluruh item setiap invoice, yaitu kolom A dan kolom J sampai N disusun berurutan (kolom A berisi nomor invoice seperti kolom A yang ada di kasus, kolom B berisi data seperti kolom J yang ada di kasus, dst). Dengan demikian, pengisian kolom J sampai N akan ditambahi beban mengisi 1 kolom saja.
btw,
Pada kondisi dibuat ndak biasa, seperti tabel item invoice yang disertai keterangan tentang invoicenya pada kasus ini, maka bisa dengan 2 cara :
1. menggunakan kolom-kolom berformula dikanan tabel.
>> jadi tabel yang ada (misal sekarang ada 14 kolom) akan ditambahi 14 kolom baru lagi (dalam tabel yang sama), yang recordnya adalah hasil formula IF sederhana agar komputasi tidak berat.
>> inputan user di 14 kolom pertama dalam tabel yang telah dimodifikasi ini akan ada cell kosong di kolom A sampai i ketika user hanya mengisi di kolom J sampai N.
>> formula di 14 kolom baru yang berisi formula IF akan menyusun bentuk tabel utuhnya.
2. dengan VBA memanfaatkan event change milik sheet yang ditempati si tabel.
>> susunan script akan tergantung karakteristik penginputan data
>> contoh : input dilakukan dengan cara entry data per record (tidak ada copas banyak record) dan penyalinan dipicu oleh inputan di kolom J, dengan header data pasti sebaris di baris 1 Excel dan record dimulai dari A2.
Script pada event change milik si sheet :
with target
if .count=1 then
if .column=10 then '(kolom J adalah kolom ke-10)
if len(.offset(1).value)=0 then 'kolom J baris berikutnya yang diubah adalah cell kosong -> inputan record baru saja
application.enableevents=false
'proses disini. barisnya target adalah baris record baru. butuh ambil data di baris sebelumnya yang baru
range("a1:i1").offset( .row - 1 ).value = range("a1:i1").offset( .row - 2 ).value
application.enableevents=true
endif
endif
endif
end with
*** menuju ke baris 10 dari baris 1 adalah offset dari baris 1 sebanyak 9 baris alias 10 - 1 baris -> sebabnya .row - 1
*** menuju baris 9 atau 1 baris sebelum baris 10 dari baris 1 adalah offset dari baris 1 sebanyak 8 baris alias 10 - 2 -> sebabnya .row-2
Kira-kira demikian.
Wassalam,
Kid.
2015-01-21 20:12 GMT+11:00 odong nando odongnando@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
dear all,
saya ingin menanyakan tentang table excel, adakah cara menggunakan table excel agar lebih kompak dan lebih dinamis lg.
utk lebih jelas bisa lihat contoh terlampir thx,
odong nando
#yiv1282397478 #yiv1282397478 -- #yiv1282397478ygrp-
Tue Nov 17, 2015 1:40 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Kalo gitu mulai belajar gak copas lagi...
;p
2015-11-17 16:31 GMT+07:00 odong nando odongnando@yahoo.com [belajar-excel]
<belajar-excel@yahoogroups.com>:
>
>
> jiaahhh....bos kid,
> kan baru bisa copas script nya ajah...[image: *'@^@||| pusing]
> puzing dah...[image: *'@^@||| pusing][image: *'@^@||| pusing]
>
> br,
>
> odong nando
>
>
>
> Pada Selasa, 17 November 2015 15:12, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Hai Odong,
>
> Event change milik worksheet bisa dipergunakan. Langkah pertama adalah
> memeriksa cells yang berubah sesuai kondisi yang Anda tentukan atau tidak.
> Pemeriksaan kondisi dapat dilakukan dengan nested blok IF (coretan
> conditional dimulai dari sini
> <http://b-excel.blogspot.co.id/2013/08/belajarvba-008-blok-if.html>).
>
> Urutan pemeriksaan :
> 1. jumlah cells yang berubah adalah 1 cell saja alias bukan akibat copas
> banyak cells --> target berisi 1 cell
> 2. baris Excel dari cell yang berubah > baris Excel header tabel
> 3. baris Excel yang berubah <= baris Excel terakhir table + 1 (1 adalah
> baris baru)
> 4. kolom Excel yang berubah adalah kolom tertentu
>
> Pada nomor 4 ini akan berupa if elseif else atau select case, karena :
> a. pemeriksaan pertama adalah kolom Excel bernomor kolom sekian milik
> kolom J, diikuti *proses yang dilakukan* jika benar bahwa cell yang
> berubah di kolom J.
> b. pemeriksaan kedua adalah kolom Excel bernomor kolom sekian milik kolom
> K, diikuti *proses yang dilakukan* jika benar bahwa cell yang berubah di
> kolom K
> c. pemeriksaan ketiga adalah kolom Excel bernomor diantara nomor kolom
> milik A dan nomor kolom milik i, yang diikuti *proses yang dilakukan*
> jika benar bahwa cell yang berubah ada diantara hal tersebut.
>
> Bagian *proses yang dilakukan* adalah berupa urutan tindakan berikut :
> > dari cell yang berubah -> offset 1 baris ke atas (kebaris sebelumnya) ->
> offset ke kolom awal yang akan di-copy -> di resize sebanyak 1 baris dan N
> kolom yang dibutuhkan (N disesuaikan dengan kondisi a,b, atau c) -> di-Copy
> > dari cell yang berubah -> offset ke kolom awal lokasi paste -> paste
> special values dan formatnya
>
> Selamat mencoba
>
> Wassalam,
> Kid
>
>
>
> 2015-11-16 18:07 GMT+07:00 odong nando odongnando@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> dear all,
>
> ahirnya setelah sekian lama, saya mengerti cara copas skrip even change
> punya si sheet yang di buat bos kid... hehe...
> tapi setelah pelaksanaan saya jadi bingung karena tidak sesuai dengan yang
> di harapkan.
>
> seharusnya kondisinya :
> 1. bila, pada kolom J di isi (input) maka kolom A:I baris sebelumnya akan
> tercopy kebaris yang baru dan pada saat penginputan pada kolom K baris yang
> sama maka kolom A:J tidak berubah
> 2. bila pada kolom K di isi (input) maka kolom A:J baris sebelumnya akan
> tercopy kebaris yang baru.
> 3. bila awal penginputan baris terletak antara kolom A:I maka kondisi di
> atas tidak berlaku
>
> agar lebih jelas makan saya lampirkan percobaan yang telah saya buat
>
> br,
>
> odong nando
>
>
>
> Pada Kamis, 22 Januari 2015 19:33, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> oouw....
>
> Jika ingin menggunakan VBA, mulailah dari sini
> <http://b-excel.blogspot.com/2013/06/belajarvba-000-kenalan.html> dan
> secara bertahap ke bahasan berikutnya.
> Jika sudah mulai mempelajarinya sampai seri 005 saja, maka bagian kalimat
> berbnyi :
> *Script pada event change milik si sheet :*
> akan mengarahkan Anda untuk ke-VBE, lalu ke object sheet yang akan
> digunakan melalui frame object explorer dalam VBA Project tersebut,
> kemudian membuat prosedur event yang bernama Change, barulah didalam
> prosedur event yang terbentuk (dibuatkan oleh VBE) bisa diisi baris-baris
> program yang berbunyi :
> with target
> if .count=1 then
> if .column=10 then '(kolom J adalah kolom ke-10)
> if len(.offset(1).value)=0 then 'kolom J baris berikutnya
> yang diubah adalah cell kosong -> inputan record baru saja
> application.enableevents=false
>
> 'proses disini. barisnya target adalah baris record baru.
> butuh ambil data di baris sebelumnya yang baru
> range("a1:i1").offset( .row - 1 ).value =
> range("a1:i1").offset( .row - 2 ).value
> application.enableevents=true
> endif
> endif
> endif
> end with
>
> Wassalam,
> Kid
>
>
>
> 2015-01-22 21:57 GMT+11:00 odong nando odongnando@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> mohon maaf bos kid...saya bingung....
>
>
>
>
>
> *thx, odong nando*
>
>
> Pada Kamis, 22 Januari 2015 17:42, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> File lampirannya ndak ada macro nya tuh.
>
> Kalau mau buat sendiri, berikut kira-kira bunyinya :
> *Script pada event change milik si sheet :*
> with target
> if .count=1 then
> if .column=10 then '(kolom J adalah kolom ke-10)
> if len(.offset(1).value)=0 then 'kolom J baris berikutnya
> yang diubah adalah cell kosong -> inputan record baru saja
> application.enableevents=false
>
> 'proses disini. barisnya target adalah baris record baru.
> butuh ambil data di baris sebelumnya yang baru
> range("a1:i1").offset( .row - 1 ).value =
> range("a1:i1").offset( .row - 2 ).value
> application.enableevents=true
> endif
> endif
> endif
> end with
>
> Wassalam,
> Kid.
>
>
>
> On Thu, Jan 22, 2015 at 9:29 PM, odong nando odongnando@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> bos kid,
> makro ny eror, apa saya salah pake makronya ya...?
> mohon di periksa bos kid.
> baru coba ngopi mackro neh...udah salah... hehehe....
>
>
>
>
>
> *thx, odong nando*
>
>
> Pada Rabu, 21 Januari 2015 19:03, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Otomasi (Macro) di libre office atau star office bukan dengan VBA. Star
> Office dengan Star Basic. Mirip VBA tetapi full OOP. Jadi, pengguna VBA
> yang tidak terbiasa untuk menulis lengkap nama object beserta properti atau
> methods yang akan digunakan biasanya akan mengawali usaha pembuatan otomasi
> di star atau libre dengan susah payah. Tetapi, jika sungguh-sungguh terus
> berusaha untuk memahami dan mulai memanfaatkan object dalam pemrograman
> (termasuk untuk otomasi atau macro), maka akan terasa banyak kemudahan
> dalam menyusun script yang full OOP.
>
> Wassalam,
> Kid.
>
>
> On Wed, Jan 21, 2015 at 10:52 PM, odong nando odongnando@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> hehe....
> iya, bnr bos kid...
>
> sy mo coba dengan VBA, tp kira2 berfungsi di OS Ubuntu dengan open office
> or libre office, ga ya bos kid ?
>
>
>
>
>
> *thx, odong nando*
>
>
> Pada Rabu, 21 Januari 2015 18:31, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Hilangkan saja IF nya.
> =M2
> Bagaimana ?
>
>
> On Wed, Jan 21, 2015 at 10:21 PM, odong nando odongnando@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> maaf bos kid,
>
> saya coba dengan yang formula, tapi masih berkendala, saat nilai idr or
> usd hanya diisi salah satu nya ja maka yang timbul adalah nilai sebelumnya,
> seperti terlampir...
> tolong pencerahannya bos kid.
>
>
>
>
>
> *thx, odong nando*
>
>
> Pada Rabu, 21 Januari 2015 17:14, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
>
>
> aih.. 5 hari belum ada yang reply ya....
>
> Hai Odong,
>
> Biasanya, data seperti kasus ini dibagi menjadi 2 buah tabel, yaitu tabel
> invoice dan tabel item invoice.
> Tabel invoice berisi unique invoice beserta keterangan umum invoice, yaitu
> kolom A sampai i. Jadi, jika ada 3 invoice, maka tabel ini hanya berisi 3
> record meskipun setiap invoice memiliki banyak items.
> Tabel item invoice berisi seluruh item setiap invoice, yaitu kolom A dan
> kolom J sampai N disusun berurutan (kolom A berisi nomor invoice seperti
> kolom A yang ada di kasus, kolom B berisi data seperti kolom J yang ada di
> kasus, dst). Dengan demikian, pengisian kolom J sampai N akan ditambahi
> beban mengisi 1 kolom saja.
>
> btw,
> Pada kondisi dibuat ndak biasa, seperti tabel item invoice yang disertai
> keterangan tentang invoicenya pada kasus ini, maka bisa dengan 2 cara :
> 1. menggunakan kolom-kolom berformula dikanan tabel.
> >> jadi tabel yang ada (misal sekarang ada 14 kolom) akan ditambahi 14
> kolom baru lagi (dalam tabel yang sama), yang recordnya adalah hasil
> formula IF sederhana agar komputasi tidak berat.
> >> inputan user di 14 kolom pertama dalam tabel yang telah dimodifikasi
> ini akan ada cell kosong di kolom A sampai i ketika user hanya mengisi di
> kolom J sampai N.
> >> formula di 14 kolom baru yang berisi formula IF akan menyusun bentuk
> tabel utuhnya.
>
> 2. dengan VBA memanfaatkan event change milik sheet yang ditempati si
> tabel.
> >> susunan script akan tergantung karakteristik penginputan data
> >> contoh : input dilakukan dengan cara entry data per record (tidak ada
> copas banyak record) dan penyalinan dipicu oleh inputan di kolom J, dengan
> header data pasti sebaris di baris 1 Excel dan record dimulai dari A2.
> Script pada event change milik si sheet :
> with target
> if .count=1 then
> if .column=10 then '(kolom J adalah kolom ke-10)
> if len(.offset(1).value)=0 then 'kolom J baris berikutnya
> yang diubah adalah cell kosong -> inputan record baru saja
> application.enableevents=false
>
> 'proses disini. barisnya target adalah baris record baru.
> butuh ambil data di baris sebelumnya yang baru
> range("a1:i1").offset( .row - 1 ).value =
> range("a1:i1").offset( .row - 2 ).value
> application.enableevents=true
> endif
> endif
> endif
> end with
>
> *** menuju ke baris 10 dari baris 1 adalah offset dari baris 1 sebanyak 9
> baris alias 10 - 1 baris -> sebabnya .row - 1
> *** menuju baris 9 atau 1 baris sebelum baris 10 dari baris 1 adalah
> offset dari baris 1 sebanyak 8 baris alias 10 - 2 -> sebabnya .row-2
>
> Kira-kira demikian.
>
> Wassalam,
> Kid.
>
>
>
> 2015-01-21 20:12 GMT+11:00 odong nando odongnando@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
>
>
> dear all,
>
> saya ingin menanyakan tentang table excel, adakah cara menggunakan table
> excel agar lebih kompak dan lebih dinamis lg.
>
> utk lebih jelas bisa lihat contoh terlampir
>
>
>
>
>
> *thx, odong nando*
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
;p
2015-11-17 16:31 GMT+07:00 odong nando odongnando@yahoo.com [belajar-excel]
<belajar-excel@yahoogroups.com>:
>
>
> jiaahhh....bos kid,
> kan baru bisa copas script nya ajah...[image: *'@^@||| pusing]
> puzing dah...[image: *'@^@||| pusing][image: *'@^@||| pusing]
>
> br,
>
> odong nando
>
>
>
> Pada Selasa, 17 November 2015 15:12, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Hai Odong,
>
> Event change milik worksheet bisa dipergunakan. Langkah pertama adalah
> memeriksa cells yang berubah sesuai kondisi yang Anda tentukan atau tidak.
> Pemeriksaan kondisi dapat dilakukan dengan nested blok IF (coretan
> conditional dimulai dari sini
> <http://b-excel.blogspot.co.id/2013/08/belajarvba-008-blok-if.html>).
>
> Urutan pemeriksaan :
> 1. jumlah cells yang berubah adalah 1 cell saja alias bukan akibat copas
> banyak cells --> target berisi 1 cell
> 2. baris Excel dari cell yang berubah > baris Excel header tabel
> 3. baris Excel yang berubah <= baris Excel terakhir table + 1 (1 adalah
> baris baru)
> 4. kolom Excel yang berubah adalah kolom tertentu
>
> Pada nomor 4 ini akan berupa if elseif else atau select case, karena :
> a. pemeriksaan pertama adalah kolom Excel bernomor kolom sekian milik
> kolom J, diikuti *proses yang dilakukan* jika benar bahwa cell yang
> berubah di kolom J.
> b. pemeriksaan kedua adalah kolom Excel bernomor kolom sekian milik kolom
> K, diikuti *proses yang dilakukan* jika benar bahwa cell yang berubah di
> kolom K
> c. pemeriksaan ketiga adalah kolom Excel bernomor diantara nomor kolom
> milik A dan nomor kolom milik i, yang diikuti *proses yang dilakukan*
> jika benar bahwa cell yang berubah ada diantara hal tersebut.
>
> Bagian *proses yang dilakukan* adalah berupa urutan tindakan berikut :
> > dari cell yang berubah -> offset 1 baris ke atas (kebaris sebelumnya) ->
> offset ke kolom awal yang akan di-copy -> di resize sebanyak 1 baris dan N
> kolom yang dibutuhkan (N disesuaikan dengan kondisi a,b, atau c) -> di-Copy
> > dari cell yang berubah -> offset ke kolom awal lokasi paste -> paste
> special values dan formatnya
>
> Selamat mencoba
>
> Wassalam,
> Kid
>
>
>
> 2015-11-16 18:07 GMT+07:00 odong nando odongnando@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> dear all,
>
> ahirnya setelah sekian lama, saya mengerti cara copas skrip even change
> punya si sheet yang di buat bos kid... hehe...
> tapi setelah pelaksanaan saya jadi bingung karena tidak sesuai dengan yang
> di harapkan.
>
> seharusnya kondisinya :
> 1. bila, pada kolom J di isi (input) maka kolom A:I baris sebelumnya akan
> tercopy kebaris yang baru dan pada saat penginputan pada kolom K baris yang
> sama maka kolom A:J tidak berubah
> 2. bila pada kolom K di isi (input) maka kolom A:J baris sebelumnya akan
> tercopy kebaris yang baru.
> 3. bila awal penginputan baris terletak antara kolom A:I maka kondisi di
> atas tidak berlaku
>
> agar lebih jelas makan saya lampirkan percobaan yang telah saya buat
>
> br,
>
> odong nando
>
>
>
> Pada Kamis, 22 Januari 2015 19:33, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> oouw....
>
> Jika ingin menggunakan VBA, mulailah dari sini
> <http://b-excel.blogspot.com/2013/06/belajarvba-000-kenalan.html> dan
> secara bertahap ke bahasan berikutnya.
> Jika sudah mulai mempelajarinya sampai seri 005 saja, maka bagian kalimat
> berbnyi :
> *Script pada event change milik si sheet :*
> akan mengarahkan Anda untuk ke-VBE, lalu ke object sheet yang akan
> digunakan melalui frame object explorer dalam VBA Project tersebut,
> kemudian membuat prosedur event yang bernama Change, barulah didalam
> prosedur event yang terbentuk (dibuatkan oleh VBE) bisa diisi baris-baris
> program yang berbunyi :
> with target
> if .count=1 then
> if .column=10 then '(kolom J adalah kolom ke-10)
> if len(.offset(1).value)=0 then 'kolom J baris berikutnya
> yang diubah adalah cell kosong -> inputan record baru saja
> application.enableevents=false
>
> 'proses disini. barisnya target adalah baris record baru.
> butuh ambil data di baris sebelumnya yang baru
> range("a1:i1").offset( .row - 1 ).value =
> range("a1:i1").offset( .row - 2 ).value
> application.enableevents=true
> endif
> endif
> endif
> end with
>
> Wassalam,
> Kid
>
>
>
> 2015-01-22 21:57 GMT+11:00 odong nando odongnando@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> mohon maaf bos kid...saya bingung....
>
>
>
>
>
> *thx, odong nando*
>
>
> Pada Kamis, 22 Januari 2015 17:42, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> File lampirannya ndak ada macro nya tuh.
>
> Kalau mau buat sendiri, berikut kira-kira bunyinya :
> *Script pada event change milik si sheet :*
> with target
> if .count=1 then
> if .column=10 then '(kolom J adalah kolom ke-10)
> if len(.offset(1).value)=0 then 'kolom J baris berikutnya
> yang diubah adalah cell kosong -> inputan record baru saja
> application.enableevents=false
>
> 'proses disini. barisnya target adalah baris record baru.
> butuh ambil data di baris sebelumnya yang baru
> range("a1:i1").offset( .row - 1 ).value =
> range("a1:i1").offset( .row - 2 ).value
> application.enableevents=true
> endif
> endif
> endif
> end with
>
> Wassalam,
> Kid.
>
>
>
> On Thu, Jan 22, 2015 at 9:29 PM, odong nando odongnando@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> bos kid,
> makro ny eror, apa saya salah pake makronya ya...?
> mohon di periksa bos kid.
> baru coba ngopi mackro neh...udah salah... hehehe....
>
>
>
>
>
> *thx, odong nando*
>
>
> Pada Rabu, 21 Januari 2015 19:03, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Otomasi (Macro) di libre office atau star office bukan dengan VBA. Star
> Office dengan Star Basic. Mirip VBA tetapi full OOP. Jadi, pengguna VBA
> yang tidak terbiasa untuk menulis lengkap nama object beserta properti atau
> methods yang akan digunakan biasanya akan mengawali usaha pembuatan otomasi
> di star atau libre dengan susah payah. Tetapi, jika sungguh-sungguh terus
> berusaha untuk memahami dan mulai memanfaatkan object dalam pemrograman
> (termasuk untuk otomasi atau macro), maka akan terasa banyak kemudahan
> dalam menyusun script yang full OOP.
>
> Wassalam,
> Kid.
>
>
> On Wed, Jan 21, 2015 at 10:52 PM, odong nando odongnando@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> hehe....
> iya, bnr bos kid...
>
> sy mo coba dengan VBA, tp kira2 berfungsi di OS Ubuntu dengan open office
> or libre office, ga ya bos kid ?
>
>
>
>
>
> *thx, odong nando*
>
>
> Pada Rabu, 21 Januari 2015 18:31, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Hilangkan saja IF nya.
> =M2
> Bagaimana ?
>
>
> On Wed, Jan 21, 2015 at 10:21 PM, odong nando odongnando@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> maaf bos kid,
>
> saya coba dengan yang formula, tapi masih berkendala, saat nilai idr or
> usd hanya diisi salah satu nya ja maka yang timbul adalah nilai sebelumnya,
> seperti terlampir...
> tolong pencerahannya bos kid.
>
>
>
>
>
> *thx, odong nando*
>
>
> Pada Rabu, 21 Januari 2015 17:14, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
>
>
> aih.. 5 hari belum ada yang reply ya....
>
> Hai Odong,
>
> Biasanya, data seperti kasus ini dibagi menjadi 2 buah tabel, yaitu tabel
> invoice dan tabel item invoice.
> Tabel invoice berisi unique invoice beserta keterangan umum invoice, yaitu
> kolom A sampai i. Jadi, jika ada 3 invoice, maka tabel ini hanya berisi 3
> record meskipun setiap invoice memiliki banyak items.
> Tabel item invoice berisi seluruh item setiap invoice, yaitu kolom A dan
> kolom J sampai N disusun berurutan (kolom A berisi nomor invoice seperti
> kolom A yang ada di kasus, kolom B berisi data seperti kolom J yang ada di
> kasus, dst). Dengan demikian, pengisian kolom J sampai N akan ditambahi
> beban mengisi 1 kolom saja.
>
> btw,
> Pada kondisi dibuat ndak biasa, seperti tabel item invoice yang disertai
> keterangan tentang invoicenya pada kasus ini, maka bisa dengan 2 cara :
> 1. menggunakan kolom-kolom berformula dikanan tabel.
> >> jadi tabel yang ada (misal sekarang ada 14 kolom) akan ditambahi 14
> kolom baru lagi (dalam tabel yang sama), yang recordnya adalah hasil
> formula IF sederhana agar komputasi tidak berat.
> >> inputan user di 14 kolom pertama dalam tabel yang telah dimodifikasi
> ini akan ada cell kosong di kolom A sampai i ketika user hanya mengisi di
> kolom J sampai N.
> >> formula di 14 kolom baru yang berisi formula IF akan menyusun bentuk
> tabel utuhnya.
>
> 2. dengan VBA memanfaatkan event change milik sheet yang ditempati si
> tabel.
> >> susunan script akan tergantung karakteristik penginputan data
> >> contoh : input dilakukan dengan cara entry data per record (tidak ada
> copas banyak record) dan penyalinan dipicu oleh inputan di kolom J, dengan
> header data pasti sebaris di baris 1 Excel dan record dimulai dari A2.
> Script pada event change milik si sheet :
> with target
> if .count=1 then
> if .column=10 then '(kolom J adalah kolom ke-10)
> if len(.offset(1).value)=0 then 'kolom J baris berikutnya
> yang diubah adalah cell kosong -> inputan record baru saja
> application.enableevents=false
>
> 'proses disini. barisnya target adalah baris record baru.
> butuh ambil data di baris sebelumnya yang baru
> range("a1:i1").offset( .row - 1 ).value =
> range("a1:i1").offset( .row - 2 ).value
> application.enableevents=true
> endif
> endif
> endif
> end with
>
> *** menuju ke baris 10 dari baris 1 adalah offset dari baris 1 sebanyak 9
> baris alias 10 - 1 baris -> sebabnya .row - 1
> *** menuju baris 9 atau 1 baris sebelum baris 10 dari baris 1 adalah
> offset dari baris 1 sebanyak 8 baris alias 10 - 2 -> sebabnya .row-2
>
> Kira-kira demikian.
>
> Wassalam,
> Kid.
>
>
>
> 2015-01-21 20:12 GMT+11:00 odong nando odongnando@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
>
>
> dear all,
>
> saya ingin menanyakan tentang table excel, adakah cara menggunakan table
> excel agar lebih kompak dan lebih dinamis lg.
>
> utk lebih jelas bisa lihat contoh terlampir
>
>
>
>
>
> *thx, odong nando*
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
Mon Nov 16, 2015 10:14 pm (PST) . Posted by:
"Lukman Setiawan" jalanmawar2_blok3
Assalamualaikum para suhu excel
Salam kenal saya pengguna baru excel, saya mau konsultasi mengenai cara mengambil data dari horizontal ke vertikal
data terlampir
Terima Kasih,Lukman
Salam kenal saya pengguna baru excel, saya mau konsultasi mengenai cara mengambil data dari horizontal ke vertikal
data terlampir
Terima Kasih,Lukman
Mon Nov 16, 2015 11:28 pm (PST) . Posted by:
"odong nando"
yoo lukman,
sblm ada master yang jawab, mungkin bisa di coba untuk fungsi sumproduct, masukan formula :
=SUMPRODUCT( ( entry!$C$5:$CV$5 = Sheet 2 ! G5 ) * ( entry! $B$6 :$B$29 = Sheet2 ! D5 ) * entry ! $C$6:$CV$29)
pada cell H5.ganti karakter titik koma ";" menjadi koma "," bila regional setting komputer anda english. br,
odong nando
Pada Selasa, 17 November 2015 13:14, "Lukman Setiawan jalanmawar2_blok3@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Assalamualaikum para suhu excel
Salam kenal saya pengguna baru excel, saya mau konsultasi mengenai cara mengambil data dari horizontal ke vertikal
data terlampir
Terima Kasih,Lukman
#yiv2948896460 #yiv2948896460 -- #yiv2948896460ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv2948896460 #yiv2948896460ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv2948896460 #yiv2948896460ygrp-mkp #yiv2948896460hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv2948896460 #yiv2948896460ygrp-mkp #yiv2948896460ads {margin-bottom:10px;}#yiv2948896460 #yiv2948896460ygrp-mkp .yiv2948896460ad {padding:0 0;}#yiv2948896460 #yiv2948896460ygrp-mkp .yiv2948896460ad p {margin:0;}#yiv2948896460 #yiv2948896460ygrp-mkp .yiv2948896460ad a {color:#0000ff;text-decoration:none;}#yiv2948896460 #yiv2948896460ygrp-sponsor #yiv2948896460ygrp-lc {font-family:Arial;}#yiv2948896460 #yiv2948896460ygrp-sponsor #yiv2948896460ygrp-lc #yiv2948896460hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv2948896460 #yiv2948896460ygrp-sponsor #yiv2948896460ygrp-lc .yiv2948896460ad {margin-bottom:10px;padding:0 0;}#yiv2948896460 #yiv2948896460actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv2948896460 #yiv2948896460activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv2948896460 #yiv2948896460activity span {font-weight:700;}#yiv2948896460 #yiv2948896460activity span:first-child {text-transform:uppercase;}#yiv2948896460 #yiv2948896460activity span a {color:#5085b6;text-decoration:none;}#yiv2948896460 #yiv2948896460activity span span {color:#ff7900;}#yiv2948896460 #yiv2948896460activity span .yiv2948896460underline {text-decoration:underline;}#yiv2948896460 .yiv2948896460attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv2948896460 .yiv2948896460attach div a {text-decoration:none;}#yiv2948896460 .yiv2948896460attach img {border:none;padding-right:5px;}#yiv2948896460 .yiv2948896460attach label {display:block;margin-bottom:5px;}#yiv2948896460 .yiv2948896460attach label a {text-decoration:none;}#yiv2948896460 blockquote {margin:0 0 0 4px;}#yiv2948896460 .yiv2948896460bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv2948896460 .yiv2948896460bold a {text-decoration:none;}#yiv2948896460 dd.yiv2948896460last p a {font-family:Verdana;font-weight:700;}#yiv2948896460 dd.yiv2948896460last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv2948896460 dd.yiv2948896460last p span.yiv2948896460yshortcuts {margin-right:0;}#yiv2948896460 div.yiv2948896460attach-table div div a {text-decoration:none;}#yiv2948896460 div.yiv2948896460attach-table {width:400px;}#yiv2948896460 div.yiv2948896460file-title a, #yiv2948896460 div.yiv2948896460file-title a:active, #yiv2948896460 div.yiv2948896460file-title a:hover, #yiv2948896460 div.yiv2948896460file-title a:visited {text-decoration:none;}#yiv2948896460 div.yiv2948896460photo-title a, #yiv2948896460 div.yiv2948896460photo-title a:active, #yiv2948896460 div.yiv2948896460photo-title a:hover, #yiv2948896460 div.yiv2948896460photo-title a:visited {text-decoration:none;}#yiv2948896460 div#yiv2948896460ygrp-mlmsg #yiv2948896460ygrp-msg p a span.yiv2948896460yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv2948896460 .yiv2948896460green {color:#628c2a;}#yiv2948896460 .yiv2948896460MsoNormal {margin:0 0 0 0;}#yiv2948896460 o {font-size:0;}#yiv2948896460 #yiv2948896460photos div {float:left;width:72px;}#yiv2948896460 #yiv2948896460photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv2948896460 #yiv2948896460photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv2948896460 #yiv2948896460reco-category {font-size:77%;}#yiv2948896460 #yiv2948896460reco-desc {font-size:77%;}#yiv2948896460 .yiv2948896460replbq {margin:4px;}#yiv2948896460 #yiv2948896460ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv2948896460 #yiv2948896460ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv2948896460 #yiv2948896460ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv2948896460 #yiv2948896460ygrp-mlmsg select, #yiv2948896460 input, #yiv2948896460 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv2948896460 #yiv2948896460ygrp-mlmsg pre, #yiv2948896460 code {font:115% monospace;}#yiv2948896460 #yiv2948896460ygrp-mlmsg * {line-height:1.22em;}#yiv2948896460 #yiv2948896460ygrp-mlmsg #yiv2948896460logo {padding-bottom:10px;}#yiv2948896460 #yiv2948896460ygrp-msg p a {font-family:Verdana;}#yiv2948896460 #yiv2948896460ygrp-msg p#yiv2948896460attach-count span {color:#1E66AE;font-weight:700;}#yiv2948896460 #yiv2948896460ygrp-reco #yiv2948896460reco-head {color:#ff7900;font-weight:700;}#yiv2948896460 #yiv2948896460ygrp-reco {margin-bottom:20px;padding:0px;}#yiv2948896460 #yiv2948896460ygrp-sponsor #yiv2948896460ov li a {font-size:130%;text-decoration:none;}#yiv2948896460 #yiv2948896460ygrp-sponsor #yiv2948896460ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv2948896460 #yiv2948896460ygrp-sponsor #yiv2948896460ov ul {margin:0;padding:0 0 0 8px;}#yiv2948896460 #yiv2948896460ygrp-text {font-family:Georgia;}#yiv2948896460 #yiv2948896460ygrp-text p {margin:0 0 1em 0;}#yiv2948896460 #yiv2948896460ygrp-text tt {font-size:120%;}#yiv2948896460 #yiv2948896460ygrp-vital ul li:last-child {border-right:none !important;}#yiv2948896460
sblm ada master yang jawab, mungkin bisa di coba untuk fungsi sumproduct, masukan formula :
=SUMPRODUCT( ( entry!$C$5:$CV$5 = Sheet 2 ! G5 ) * ( entry! $B$6 :$B$29 = Sheet2 ! D5 ) * entry ! $C$6:$CV$29)
pada cell H5.ganti karakter titik koma ";" menjadi koma "," bila regional setting komputer anda english. br,
odong nando
Pada Selasa, 17 November 2015 13:14, "Lukman Setiawan jalanmawar2_blok3@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Assalamualaikum para suhu excel
Salam kenal saya pengguna baru excel, saya mau konsultasi mengenai cara mengambil data dari horizontal ke vertikal
data terlampir
Terima Kasih,Lukman
#yiv2948896460 #yiv2948896460 -- #yiv2948896460ygrp-
Mon Nov 16, 2015 11:49 pm (PST) . Posted by:
"Lukman Setiawan" jalanmawar2_blok3
Dear Mas odong nando
Terima Kasih atas bantuannya, sungguh sangat membantu
Salam HangatLukman
On Tuesday, November 17, 2015 2:28 PM, "odong nando odongnando@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
yoo lukman,
sblm ada master yang jawab, mungkin bisa di coba untuk fungsi sumproduct, masukan formula :
=SUMPRODUCT( ( entry!$C$5:$CV$5 = Sheet 2 ! G5 ) * ( entry! $B$6 :$B$29 = Sheet2 ! D5 ) * entry ! $C$6:$CV$29)
pada cell H5.ganti karakter titik koma ";" menjadi koma "," bila regional setting komputer anda english. br,
odong nando
Pada Selasa, 17 November 2015 13:14, "Lukman Setiawan jalanmawar2_blok3@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Assalamualaikum para suhu excel
Salam kenal saya pengguna baru excel, saya mau konsultasi mengenai cara mengambil data dari horizontal ke vertikal
data terlampir
Terima Kasih,Lukman
#yiv3697651243 #yiv3697651243 -- #yiv3697651243ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv3697651243 #yiv3697651243ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv3697651243 #yiv3697651243ygrp-mkp #yiv3697651243hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv3697651243 #yiv3697651243ygrp-mkp #yiv3697651243ads {margin-bottom:10px;}#yiv3697651243 #yiv3697651243ygrp-mkp .yiv3697651243ad {padding:0 0;}#yiv3697651243 #yiv3697651243ygrp-mkp .yiv3697651243ad p {margin:0;}#yiv3697651243 #yiv3697651243ygrp-mkp .yiv3697651243ad a {color:#0000ff;text-decoration:none;}#yiv3697651243 #yiv3697651243ygrp-sponsor #yiv3697651243ygrp-lc {font-family:Arial;}#yiv3697651243 #yiv3697651243ygrp-sponsor #yiv3697651243ygrp-lc #yiv3697651243hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv3697651243 #yiv3697651243ygrp-sponsor #yiv3697651243ygrp-lc .yiv3697651243ad {margin-bottom:10px;padding:0 0;}#yiv3697651243 #yiv3697651243actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv3697651243 #yiv3697651243activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv3697651243 #yiv3697651243activity span {font-weight:700;}#yiv3697651243 #yiv3697651243activity span:first-child {text-transform:uppercase;}#yiv3697651243 #yiv3697651243activity span a {color:#5085b6;text-decoration:none;}#yiv3697651243 #yiv3697651243activity span span {color:#ff7900;}#yiv3697651243 #yiv3697651243activity span .yiv3697651243underline {text-decoration:underline;}#yiv3697651243 .yiv3697651243attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv3697651243 .yiv3697651243attach div a {text-decoration:none;}#yiv3697651243 .yiv3697651243attach img {border:none;padding-right:5px;}#yiv3697651243 .yiv3697651243attach label {display:block;margin-bottom:5px;}#yiv3697651243 .yiv3697651243attach label a {text-decoration:none;}#yiv3697651243 blockquote {margin:0 0 0 4px;}#yiv3697651243 .yiv3697651243bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv3697651243 .yiv3697651243bold a {text-decoration:none;}#yiv3697651243 dd.yiv3697651243last p a {font-family:Verdana;font-weight:700;}#yiv3697651243 dd.yiv3697651243last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv3697651243 dd.yiv3697651243last p span.yiv3697651243yshortcuts {margin-right:0;}#yiv3697651243 div.yiv3697651243attach-table div div a {text-decoration:none;}#yiv3697651243 div.yiv3697651243attach-table {width:400px;}#yiv3697651243 div.yiv3697651243file-title a, #yiv3697651243 div.yiv3697651243file-title a:active, #yiv3697651243 div.yiv3697651243file-title a:hover, #yiv3697651243 div.yiv3697651243file-title a:visited {text-decoration:none;}#yiv3697651243 div.yiv3697651243photo-title a, #yiv3697651243 div.yiv3697651243photo-title a:active, #yiv3697651243 div.yiv3697651243photo-title a:hover, #yiv3697651243 div.yiv3697651243photo-title a:visited {text-decoration:none;}#yiv3697651243 div#yiv3697651243ygrp-mlmsg #yiv3697651243ygrp-msg p a span.yiv3697651243yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv3697651243 .yiv3697651243green {color:#628c2a;}#yiv3697651243 .yiv3697651243MsoNormal {margin:0 0 0 0;}#yiv3697651243 o {font-size:0;}#yiv3697651243 #yiv3697651243photos div {float:left;width:72px;}#yiv3697651243 #yiv3697651243photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv3697651243 #yiv3697651243photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv3697651243 #yiv3697651243reco-category {font-size:77%;}#yiv3697651243 #yiv3697651243reco-desc {font-size:77%;}#yiv3697651243 .yiv3697651243replbq {margin:4px;}#yiv3697651243 #yiv3697651243ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv3697651243 #yiv3697651243ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv3697651243 #yiv3697651243ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv3697651243 #yiv3697651243ygrp-mlmsg select, #yiv3697651243 input, #yiv3697651243 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv3697651243 #yiv3697651243ygrp-mlmsg pre, #yiv3697651243 code {font:115% monospace;}#yiv3697651243 #yiv3697651243ygrp-mlmsg * {line-height:1.22em;}#yiv3697651243 #yiv3697651243ygrp-mlmsg #yiv3697651243logo {padding-bottom:10px;}#yiv3697651243 #yiv3697651243ygrp-msg p a {font-family:Verdana;}#yiv3697651243 #yiv3697651243ygrp-msg p#yiv3697651243attach-count span {color:#1E66AE;font-weight:700;}#yiv3697651243 #yiv3697651243ygrp-reco #yiv3697651243reco-head {color:#ff7900;font-weight:700;}#yiv3697651243 #yiv3697651243ygrp-reco {margin-bottom:20px;padding:0px;}#yiv3697651243 #yiv3697651243ygrp-sponsor #yiv3697651243ov li a {font-size:130%;text-decoration:none;}#yiv3697651243 #yiv3697651243ygrp-sponsor #yiv3697651243ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv3697651243 #yiv3697651243ygrp-sponsor #yiv3697651243ov ul {margin:0;padding:0 0 0 8px;}#yiv3697651243 #yiv3697651243ygrp-text {font-family:Georgia;}#yiv3697651243 #yiv3697651243ygrp-text p {margin:0 0 1em 0;}#yiv3697651243 #yiv3697651243ygrp-text tt {font-size:120%;}#yiv3697651243 #yiv3697651243ygrp-vital ul li:last-child {border-right:none !important;}#yiv3697651243
Terima Kasih atas bantuannya, sungguh sangat membantu
Salam HangatLukman
On Tuesday, November 17, 2015 2:28 PM, "odong nando odongnando@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
yoo lukman,
sblm ada master yang jawab, mungkin bisa di coba untuk fungsi sumproduct, masukan formula :
=SUMPRODUCT( ( entry!$C$5:$CV$5 = Sheet 2 ! G5 ) * ( entry! $B$6 :$B$29 = Sheet2 ! D5 ) * entry ! $C$6:$CV$29)
pada cell H5.ganti karakter titik koma ";" menjadi koma "," bila regional setting komputer anda english. br,
odong nando
Pada Selasa, 17 November 2015 13:14, "Lukman Setiawan jalanmawar2_blok3@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Assalamualaikum para suhu excel
Salam kenal saya pengguna baru excel, saya mau konsultasi mengenai cara mengambil data dari horizontal ke vertikal
data terlampir
Terima Kasih,Lukman
#yiv3697651243 #yiv3697651243 -- #yiv3697651243ygrp-
Tue Nov 17, 2015 12:08 am (PST) . Posted by:
"odong nando"
sebetulnya banyak jalan menuju roma, begitu juga di excel, ada beberapa cara untuk memecahkan masalah, bila formula sebelumnya memakai sumproduct, ini ada lagi pakai index
=INDEX ( entry!$C$7 : $CV$30; MATCH( D5;entry!$B$7 :$B$30;0); MATCH(G5; entry ! $C$5: $CV$5;0 ) )
bila sumproduct akan terus menjumlahkan dengan sesuai kriteria namun di formula gabungan index dan match ini tidak, dan dalam penggunaan sumproduct data yang akan di tarik / dijumlahkan tidak boleh selain numerik, apa bila ada akan menghasilkan #value! , namun dalam penggunaan gabungan formula index match tidak berpengaruh, namun tidak bisa menjumlahkan bila terdapat 2 tanggal dan 2 tempat yang sama dalam penginputan.
silakan di coba-coba dan di bandingkan. br,
odong nando
Pada Selasa, 17 November 2015 14:49, "Lukman Setiawan jalanmawar2_blok3@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Dear Mas odong nando
Terima Kasih atas bantuannya, sungguh sangat membantu
Salam HangatLukman
On Tuesday, November 17, 2015 2:28 PM, "odong nando odongnando@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
yoo lukman,
sblm ada master yang jawab, mungkin bisa di coba untuk fungsi sumproduct, masukan formula :
=SUMPRODUCT( ( entry!$C$5:$CV$5 = Sheet 2 ! G5 ) * ( entry! $B$6 :$B$29 = Sheet2 ! D5 ) * entry ! $C$6:$CV$29)
pada cell H5.ganti karakter titik koma ";" menjadi koma "," bila regional setting komputer anda english. br,
odong nando
Pada Selasa, 17 November 2015 13:14, "Lukman Setiawan jalanmawar2_blok3@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Assalamualaikum para suhu excel
Salam kenal saya pengguna baru excel, saya mau konsultasi mengenai cara mengambil data dari horizontal ke vertikal
data terlampir
Terima Kasih,Lukman
#yiv5837627752 #yiv5837627752 -- #yiv5837627752ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv5837627752 #yiv5837627752ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv5837627752 #yiv5837627752ygrp-mkp #yiv5837627752hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv5837627752 #yiv5837627752ygrp-mkp #yiv5837627752ads {margin-bottom:10px;}#yiv5837627752 #yiv5837627752ygrp-mkp .yiv5837627752ad {padding:0 0;}#yiv5837627752 #yiv5837627752ygrp-mkp .yiv5837627752ad p {margin:0;}#yiv5837627752 #yiv5837627752ygrp-mkp .yiv5837627752ad a {color:#0000ff;text-decoration:none;}#yiv5837627752 #yiv5837627752ygrp-sponsor #yiv5837627752ygrp-lc {font-family:Arial;}#yiv5837627752 #yiv5837627752ygrp-sponsor #yiv5837627752ygrp-lc #yiv5837627752hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv5837627752 #yiv5837627752ygrp-sponsor #yiv5837627752ygrp-lc .yiv5837627752ad {margin-bottom:10px;padding:0 0;}#yiv5837627752 #yiv5837627752actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv5837627752 #yiv5837627752activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv5837627752 #yiv5837627752activity span {font-weight:700;}#yiv5837627752 #yiv5837627752activity span:first-child {text-transform:uppercase;}#yiv5837627752 #yiv5837627752activity span a {color:#5085b6;text-decoration:none;}#yiv5837627752 #yiv5837627752activity span span {color:#ff7900;}#yiv5837627752 #yiv5837627752activity span .yiv5837627752underline {text-decoration:underline;}#yiv5837627752 .yiv5837627752attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv5837627752 .yiv5837627752attach div a {text-decoration:none;}#yiv5837627752 .yiv5837627752attach img {border:none;padding-right:5px;}#yiv5837627752 .yiv5837627752attach label {display:block;margin-bottom:5px;}#yiv5837627752 .yiv5837627752attach label a {text-decoration:none;}#yiv5837627752 blockquote {margin:0 0 0 4px;}#yiv5837627752 .yiv5837627752bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv5837627752 .yiv5837627752bold a {text-decoration:none;}#yiv5837627752 dd.yiv5837627752last p a {font-family:Verdana;font-weight:700;}#yiv5837627752 dd.yiv5837627752last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv5837627752 dd.yiv5837627752last p span.yiv5837627752yshortcuts {margin-right:0;}#yiv5837627752 div.yiv5837627752attach-table div div a {text-decoration:none;}#yiv5837627752 div.yiv5837627752attach-table {width:400px;}#yiv5837627752 div.yiv5837627752file-title a, #yiv5837627752 div.yiv5837627752file-title a:active, #yiv5837627752 div.yiv5837627752file-title a:hover, #yiv5837627752 div.yiv5837627752file-title a:visited {text-decoration:none;}#yiv5837627752 div.yiv5837627752photo-title a, #yiv5837627752 div.yiv5837627752photo-title a:active, #yiv5837627752 div.yiv5837627752photo-title a:hover, #yiv5837627752 div.yiv5837627752photo-title a:visited {text-decoration:none;}#yiv5837627752 div#yiv5837627752ygrp-mlmsg #yiv5837627752ygrp-msg p a span.yiv5837627752yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv5837627752 .yiv5837627752green {color:#628c2a;}#yiv5837627752 .yiv5837627752MsoNormal {margin:0 0 0 0;}#yiv5837627752 o {font-size:0;}#yiv5837627752 #yiv5837627752photos div {float:left;width:72px;}#yiv5837627752 #yiv5837627752photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv5837627752 #yiv5837627752photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv5837627752 #yiv5837627752reco-category {font-size:77%;}#yiv5837627752 #yiv5837627752reco-desc {font-size:77%;}#yiv5837627752 .yiv5837627752replbq {margin:4px;}#yiv5837627752 #yiv5837627752ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv5837627752 #yiv5837627752ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv5837627752 #yiv5837627752ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv5837627752 #yiv5837627752ygrp-mlmsg select, #yiv5837627752 input, #yiv5837627752 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv5837627752 #yiv5837627752ygrp-mlmsg pre, #yiv5837627752 code {font:115% monospace;}#yiv5837627752 #yiv5837627752ygrp-mlmsg * {line-height:1.22em;}#yiv5837627752 #yiv5837627752ygrp-mlmsg #yiv5837627752logo {padding-bottom:10px;}#yiv5837627752 #yiv5837627752ygrp-msg p a {font-family:Verdana;}#yiv5837627752 #yiv5837627752ygrp-msg p#yiv5837627752attach-count span {color:#1E66AE;font-weight:700;}#yiv5837627752 #yiv5837627752ygrp-reco #yiv5837627752reco-head {color:#ff7900;font-weight:700;}#yiv5837627752 #yiv5837627752ygrp-reco {margin-bottom:20px;padding:0px;}#yiv5837627752 #yiv5837627752ygrp-sponsor #yiv5837627752ov li a {font-size:130%;text-decoration:none;}#yiv5837627752 #yiv5837627752ygrp-sponsor #yiv5837627752ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv5837627752 #yiv5837627752ygrp-sponsor #yiv5837627752ov ul {margin:0;padding:0 0 0 8px;}#yiv5837627752 #yiv5837627752ygrp-text {font-family:Georgia;}#yiv5837627752 #yiv5837627752ygrp-text p {margin:0 0 1em 0;}#yiv5837627752 #yiv5837627752ygrp-text tt {font-size:120%;}#yiv5837627752 #yiv5837627752ygrp-vital ul li:last-child {border-right:none !important;}#yiv5837627752
=INDEX ( entry!$C$7 : $CV$30; MATCH( D5;entry!$B$7 :$B$30;0); MATCH(G5; entry ! $C$5: $CV$5;0 ) )
bila sumproduct akan terus menjumlahkan dengan sesuai kriteria namun di formula gabungan index dan match ini tidak, dan dalam penggunaan sumproduct data yang akan di tarik / dijumlahkan tidak boleh selain numerik, apa bila ada akan menghasilkan #value! , namun dalam penggunaan gabungan formula index match tidak berpengaruh, namun tidak bisa menjumlahkan bila terdapat 2 tanggal dan 2 tempat yang sama dalam penginputan.
silakan di coba-coba dan di bandingkan. br,
odong nando
Pada Selasa, 17 November 2015 14:49, "Lukman Setiawan jalanmawar2_blok3@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Dear Mas odong nando
Terima Kasih atas bantuannya, sungguh sangat membantu
Salam HangatLukman
On Tuesday, November 17, 2015 2:28 PM, "odong nando odongnando@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
yoo lukman,
sblm ada master yang jawab, mungkin bisa di coba untuk fungsi sumproduct, masukan formula :
=SUMPRODUCT( ( entry!$C$5:$CV$5 = Sheet 2 ! G5 ) * ( entry! $B$6 :$B$29 = Sheet2 ! D5 ) * entry ! $C$6:$CV$29)
pada cell H5.ganti karakter titik koma ";" menjadi koma "," bila regional setting komputer anda english. br,
odong nando
Pada Selasa, 17 November 2015 13:14, "Lukman Setiawan jalanmawar2_blok3@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Assalamualaikum para suhu excel
Salam kenal saya pengguna baru excel, saya mau konsultasi mengenai cara mengambil data dari horizontal ke vertikal
data terlampir
Terima Kasih,Lukman
#yiv5837627752 #yiv5837627752 -- #yiv5837627752ygrp-
Tue Nov 17, 2015 1:37 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
hmmm...
belum ada konfirmasinya...
jadi dianggap saja pakai :
Sheet2.Range("k" & Baris + i - 1).Value = Sheet1.Range("M" & 11 + i).Value
Sheet2.Range("L" & Baris + i - 1).Value = Sheet1.Range("N" & 11 + i).Value
Sheet2.Range("m" & Baris + i - 1).Value = Sheet1.Range("O" & 11 + i).Value
Pinjam script yang sudah dicopas dan diubah oleh mas Nang yang sudah
disesuaikan untuk baris-baris kode diatas agar ada penulisan di kolom L dan
M :
1. deklarasi variabel yang berbunyi :
Dim Baris, totalBaris As Long
akan menghasilkan variabel bernama Baris memiliki type Variant dan variabel
bernama totalBaris bertipe Long.
Dilihat dari nilai yang dimasukkan ke dalam variabel Baris, maka
dimaksudkan agar variabel Baris menampung nilai bertipe numerik Long. Oleh
sebab itu, sebaiknya baris deklarasi ini diubah menjadi :
Dim Baris as Long, totalBaris As Long
begitu juga untuk baris yang berbunyi :
Dim jumlah, i As Integer
diubah menjadi :
Dim jumlah as integer, i As Integer
2. dilihat dari kehadiran blok loop dengan For Next, tampaknya object
Sheet1 sebagai sumber data dan Sheet2 sebagai lokasi penulisan. Sumber data
banyak baris ada di C12 sampai O19 berdasar baris script :
Application.CountA(Sheet1.Range("C12:C19"))
dan
Sheet1.Range("O" & 11 + i).Value = ""
dengan informasi pokok yang berlaku untuk semua baris tersebut disimpan di
R6,D6,P3:P4 berdasar :
Sheet1.Range("R6").Value = ""
Sheet1.Range("D6").Value = ""
Sheet1.Range("P3").Value = ""
Sheet1.Range("P4").Value = ""
3. Penulisan data baru dilakukan di baris kosong pertama berdasar :
Baris = Sheet2.Cells(totalBaris, 1).End(xlUp).Row + 1
dan pada kolom A sampai M berdasar :
Sheet2.Range("A" & Baris + i - 1).Value = "=ROW()-2"
sampai baris
Sheet2.Range("m" & Baris + i - 1).Value = Sheet1.Range("O" & 11 +
i).Value
dengan 'k' sudah diperbaiki menjadi 'm'.
Kolom A diisi formula pembentuk nomor urut berbunyi : =ROW()-2
Kolom B:E diisi dari range berurutan R6,D6,P3:P4
Kolom F:M diisi dari range C:D dan J:O
4. Jumlah baris penulisan adalah sebanyak data di Sheet1 dan disimpan dalam
variabel bernama jumlah berdasar baris kode :
jumlah = Application.CountA(Sheet1.Range("C12:C19"))
5. Cell awal penulisan di kolom A pada nomor baris yang disimpan oleh
variabel bernama Baris berdasar kode :
Baris = Sheet2.Cells(totalBaris, 1).End(xlUp).Row + 1
Dari 5 hal di atas, maka script bisa juga disusun sebagai berikut :
'deklarasi variabel kerja
dim Baris as Long 'diubah menjadi penyimpan baris terakhir area penulisan
dim jumlah as integer 'variabel jumlah baris input C12:C19 diubah *menjadi
nomor baris Excel terakhir di area input*
'simpan nilai-nilai perujuk area data
jumlah = Application.CountA(Sheet1.Range("C12:C19")) + 11 'karena countA
mulai 12, baris terakhir = 12 + hasil countA - 1
Baris = Sheet2.Cells(totalBaris, 1).End(xlUp).Row + 1
'bekerja di sheet inputan (Sheet1)
with sheet1
'tulis data untuk :
'Kolom A diisi formula pembentuk nomor urut berbunyi : =ROW()-2
'Kolom B:E diisi dari range berurutan R6,D6,P3:P4
sheet2.range("a1:e1").offset(Baris).value = _
array( "=ROW()-2", .range("r6").value, .range("d6").value, .
range("p3").value, .range("p4").value )
'copas untuk : Kolom F:M diisi dari range C:D dan J:O
.range("c12:d" & jumlah & ",j12:o" & jumlah ).copy 'copy ke
clipboard (coretannya disini
<http://b-excel.blogspot.co.id/2013/09/belajarvba-011-range-01-berdasar-alamat.html>
)
sheet2.range("F1").offset(Baris).pastespecial
xlpastevaluesandnumberformats 'paste values n number format
end with
*** Untuk yang berminat saja...
Pada suatu output, kasus seperti ini biasanya akan ada kolom-kolom
komputasi seperti melakukan sum atau me-lookup ke suatu tabel referensi.
Misalkan akan diberi formula sum terhadap kolom H:M (misal, F:G yang
berasal dari C:D dan terpisah dari J:O adalah keys baris dan J:O adalah
numerik nilai sesuatu). Formula sum untuk baris 123 akan berbunyi :
=Sum(H123:M123)
Jika disusun sebagai baris kode, akan menjadi :
range_di_baris_123.formula="=Sum(H123:M123)"
jika angka 123 disimpan dalam variabel bernama iRow, maka baris kode
menjadi :
range_di_baris_123.formula="=Sum(H" & irow & ":" & "M" & irow & ")"
atau
range_di_baris_123.formula="=Sum(H" & irow & ":M" & irow & ")"
Pada kasus diatas,
A. variabel irow berisi nilai Baris+1
maka bunyi baris kode untuk kasus diatas adalah :
range_di_baris_123.formula="=Sum(H" & Baris+1 & ":M" & Baris+1 & ")"
B. range_di_baris_123 adalah cell pertama penulisan, misal pada kolom N
(setelah kolom M) yang diperluas sebanyak jumlah baris yang ditulis alias
nilai jumlah-11 (ingat, di atas sana, jumlah sudah ditambah 11. Jadi jumlah
baris input = hasil counta alias -11 nya).
maka bunyi baris kode untuk kasus diatas adalah hasil A yang disesuaiakan
object range nya menjadi :
sheet2.range("N1").offset(Baris).resize(jumlah-11).formula="=Sum(H" &
Baris+1 & ":M" & Baris+1 & ")"
Hasil B ini diletakkan tepat sebelum baris End With.
Wassalam,
Kid
2015-11-16 14:44 GMT+07:00 Mr. Kid <mr.nmkid@gmail.com>:
> Wa'alaikumussalam wr wb
>
> Boleh bertanya sedikit kan ya...
> Bagian ini :
> Sheet2.Range("k" & Baris + i - 1).Value = Sheet1.Range("M" & 11 + i).Value
> Sheet2.Range("k" & Baris + i - 1).Value = Sheet1.Range("N" & 11 + i).Value
> Sheet2.Range("k" & Baris + i - 1).Value = Sheet1.Range("O" & 11 + i).Value
> Apakah memang ditujukan untuk mengambil nilai dari Sheet1.Range("O" & 11 +
> i).Value saja ?
>
> atau harusnya :
> Sheet2.Range("k" & Baris + i - 1).Value = Sheet1.Range("M" & 11 + i).Value
> Sheet2.Range("L" & Baris + i - 1).Value = Sheet1.Range("N" & 11 + i).Value
> Sheet2.Range("m" & Baris + i - 1).Value = Sheet1.Range("O" & 11 + i).Value
> kah ?
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
> 2015-11-16 13:34 GMT+07:00 Nang Agus nangagus@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>>
>>
>> Asalamualaikum warahmatullah.
>> Coba diubah menjadi begini:
>> Sub Inputdata()
>> Dim Baris, totalBaris As Long
>> Dim jumlah, i As Integer
>> totalBaris = Sheet2.Cells.Rows.Count
>> jumlah = Application.CountA(Sheet1.Range("C12:C19"))
>> Baris = Sheet2.Cells(totalBaris, 1).End(xlUp).Row + 1
>> For i = 1 To jumlah
>> Sheet2.Range("A" & Baris + i - 1).Value = "=ROW()-2"
>> Sheet2.Range("B" & Baris + i - 1).Value = Sheet1.Range("R6").Value
>> Sheet2.Range("C" & Baris + i - 1).Value = Sheet1.Range("D6").Value
>> Sheet2.Range("D" & Baris + i - 1).Value = Sheet1.Range("P3").Value
>> Sheet2.Range("E" & Baris + i - 1).Value = Sheet1.Range("P4").Value
>> Sheet2.Range("F" & Baris + i - 1).Value = Sheet1.Range("C" & 11 + i).Value
>> Sheet2.Range("G" & Baris + i - 1).Value = Sheet1.Range("D" & 11 + i).Value
>> Sheet2.Range("H" & Baris + i - 1).Value = Sheet1.Range("J" & 11 + i).Value
>> Sheet2.Range("i" & Baris + i - 1).Value = Sheet1.Range("K" & 11 + i).Value
>> Sheet2.Range("j" & Baris + i - 1).Value = Sheet1.Range("L" & 11 + i).Value
>> Sheet2.Range("k" & Baris + i - 1).Value = Sheet1.Range("M" & 11 + i).Value
>> Sheet2.Range("k" & Baris + i - 1).Value = Sheet1.Range("N" & 11 + i).Value
>> Sheet2.Range("k" & Baris + i - 1).Value = Sheet1.Range("O" & 11 + i).Value
>>
>> Sheet1.Range("C" & 11 + i).Value = ""
>> Sheet1.Range("D" & 11 + i).Value = ""
>> Sheet1.Range("J" & 11 + i).Value = ""
>> Sheet1.Range("K" & 11 + i).Value = ""
>> Sheet1.Range("L" & 11 + i).Value = ""
>> Sheet1.Range("M" & 11 + i).Value = ""
>> Sheet1.Range("N" & 11 + i).Value = ""
>> Sheet1.Range("O" & 11 + i).Value = ""
>> Next i
>> MsgBox "Data sudah masuk database"
>>
>> Sheet1.Range("R6").Value = ""
>> Sheet1.Range("D6").Value = ""
>> Sheet1.Range("P3").Value = ""
>> Sheet1.Range("P4").Value = ""
>>
>> End Sub
>>
>> diubah sesuai dengan keadaan setempat.
>> sebenarnya cekrip masih dapat disingkat, silahkan range diubah menjadi
>> cell.
>> wasalamualaikum warahmatullah
>>
>> 2015-11-13 15:37 GMT+07:00 faiq_arafi@yahoo.co.id [belajar-excel] <
>> belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> aswr
>>>
>>> perkenalkan nama saya muhammad (ahmad). yth admin mohon pencerahannya,
>>> saya sedang otak atik faktur untuk usaha kecil kecil keluarga, rencana saya
>>> faktur yang dibuat maka data inputan faktur akan langsung tercopy di sheet
>>> lain. tapi saat ini saya hanya dapat mengcopykan item barang baris pertama
>>> saja sedangkan yang lainnya tidak. mohon bantuannya. terima kasih. wswr
>>>
>>>
>>
>>
>
>
belum ada konfirmasinya...
jadi dianggap saja pakai :
Sheet2.Range("k" & Baris + i - 1).Value = Sheet1.Range("M" & 11 + i).Value
Sheet2.Range("L" & Baris + i - 1).Value = Sheet1.Range("N" & 11 + i).Value
Sheet2.Range("m" & Baris + i - 1).Value = Sheet1.Range("O" & 11 + i).Value
Pinjam script yang sudah dicopas dan diubah oleh mas Nang yang sudah
disesuaikan untuk baris-baris kode diatas agar ada penulisan di kolom L dan
M :
1. deklarasi variabel yang berbunyi :
Dim Baris, totalBaris As Long
akan menghasilkan variabel bernama Baris memiliki type Variant dan variabel
bernama totalBaris bertipe Long.
Dilihat dari nilai yang dimasukkan ke dalam variabel Baris, maka
dimaksudkan agar variabel Baris menampung nilai bertipe numerik Long. Oleh
sebab itu, sebaiknya baris deklarasi ini diubah menjadi :
Dim Baris as Long, totalBaris As Long
begitu juga untuk baris yang berbunyi :
Dim jumlah, i As Integer
diubah menjadi :
Dim jumlah as integer, i As Integer
2. dilihat dari kehadiran blok loop dengan For Next, tampaknya object
Sheet1 sebagai sumber data dan Sheet2 sebagai lokasi penulisan. Sumber data
banyak baris ada di C12 sampai O19 berdasar baris script :
Application.CountA(Sheet1.Range("C12:C19"))
dan
Sheet1.Range("O" & 11 + i).Value = ""
dengan informasi pokok yang berlaku untuk semua baris tersebut disimpan di
R6,D6,P3:P4 berdasar :
Sheet1.Range("R6").Value = ""
Sheet1.Range("D6").Value = ""
Sheet1.Range("P3").Value = ""
Sheet1.Range("P4").Value = ""
3. Penulisan data baru dilakukan di baris kosong pertama berdasar :
Baris = Sheet2.Cells(totalBaris, 1).End(xlUp).Row + 1
dan pada kolom A sampai M berdasar :
Sheet2.Range("A" & Baris + i - 1).Value = "=ROW()-2"
sampai baris
Sheet2.Range("m" & Baris + i - 1).Value = Sheet1.Range("O" & 11 +
i).Value
dengan 'k' sudah diperbaiki menjadi 'm'.
Kolom A diisi formula pembentuk nomor urut berbunyi : =ROW()-2
Kolom B:E diisi dari range berurutan R6,D6,P3:P4
Kolom F:M diisi dari range C:D dan J:O
4. Jumlah baris penulisan adalah sebanyak data di Sheet1 dan disimpan dalam
variabel bernama jumlah berdasar baris kode :
jumlah = Application.CountA(Sheet1.Range("C12:C19"))
5. Cell awal penulisan di kolom A pada nomor baris yang disimpan oleh
variabel bernama Baris berdasar kode :
Baris = Sheet2.Cells(totalBaris, 1).End(xlUp).Row + 1
Dari 5 hal di atas, maka script bisa juga disusun sebagai berikut :
'deklarasi variabel kerja
dim Baris as Long 'diubah menjadi penyimpan baris terakhir area penulisan
dim jumlah as integer 'variabel jumlah baris input C12:C19 diubah *menjadi
nomor baris Excel terakhir di area input*
'simpan nilai-nilai perujuk area data
jumlah = Application.CountA(Sheet1.Range("C12:C19")) + 11 'karena countA
mulai 12, baris terakhir = 12 + hasil countA - 1
Baris = Sheet2.Cells(totalBaris, 1).End(xlUp).Row + 1
'bekerja di sheet inputan (Sheet1)
with sheet1
'tulis data untuk :
'Kolom A diisi formula pembentuk nomor urut berbunyi : =ROW()-2
'Kolom B:E diisi dari range berurutan R6,D6,P3:P4
sheet2.range("a1:e1").offset(Baris).value = _
array( "=ROW()-2", .range("r6").value, .range("d6").value, .
range("p3").value, .range("p4").value )
'copas untuk : Kolom F:M diisi dari range C:D dan J:O
.range("c12:d" & jumlah & ",j12:o" & jumlah ).copy 'copy ke
clipboard (coretannya disini
<http://b-excel.blogspot.co.id/2013/09/belajarvba-011-range-01-berdasar-alamat.html>
)
sheet2.range("F1").offset(Baris).pastespecial
xlpastevaluesandnumberformats 'paste values n number format
end with
*** Untuk yang berminat saja...
Pada suatu output, kasus seperti ini biasanya akan ada kolom-kolom
komputasi seperti melakukan sum atau me-lookup ke suatu tabel referensi.
Misalkan akan diberi formula sum terhadap kolom H:M (misal, F:G yang
berasal dari C:D dan terpisah dari J:O adalah keys baris dan J:O adalah
numerik nilai sesuatu). Formula sum untuk baris 123 akan berbunyi :
=Sum(H123:M123)
Jika disusun sebagai baris kode, akan menjadi :
range_di_baris_123.formula="=Sum(H123:M123)"
jika angka 123 disimpan dalam variabel bernama iRow, maka baris kode
menjadi :
range_di_baris_123.formula="=Sum(H" & irow & ":" & "M" & irow & ")"
atau
range_di_baris_123.formula="=Sum(H" & irow & ":M" & irow & ")"
Pada kasus diatas,
A. variabel irow berisi nilai Baris+1
maka bunyi baris kode untuk kasus diatas adalah :
range_di_baris_123.formula="=Sum(H" & Baris+1 & ":M" & Baris+1 & ")"
B. range_di_baris_123 adalah cell pertama penulisan, misal pada kolom N
(setelah kolom M) yang diperluas sebanyak jumlah baris yang ditulis alias
nilai jumlah-11 (ingat, di atas sana, jumlah sudah ditambah 11. Jadi jumlah
baris input = hasil counta alias -11 nya).
maka bunyi baris kode untuk kasus diatas adalah hasil A yang disesuaiakan
object range nya menjadi :
sheet2.range("N1").offset(Baris).resize(jumlah-11).formula="=Sum(H" &
Baris+1 & ":M" & Baris+1 & ")"
Hasil B ini diletakkan tepat sebelum baris End With.
Wassalam,
Kid
2015-11-16 14:44 GMT+07:00 Mr. Kid <mr.nmkid@gmail.com>:
> Wa'alaikumussalam wr wb
>
> Boleh bertanya sedikit kan ya...
> Bagian ini :
> Sheet2.Range("k" & Baris + i - 1).Value = Sheet1.Range("M" & 11 + i).Value
> Sheet2.Range("k" & Baris + i - 1).Value = Sheet1.Range("N" & 11 + i).Value
> Sheet2.Range("k" & Baris + i - 1).Value = Sheet1.Range("O" & 11 + i).Value
> Apakah memang ditujukan untuk mengambil nilai dari Sheet1.Range("O" & 11 +
> i).Value saja ?
>
> atau harusnya :
> Sheet2.Range("k" & Baris + i - 1).Value = Sheet1.Range("M" & 11 + i).Value
> Sheet2.Range("L" & Baris + i - 1).Value = Sheet1.Range("N" & 11 + i).Value
> Sheet2.Range("m" & Baris + i - 1).Value = Sheet1.Range("O" & 11 + i).Value
> kah ?
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
> 2015-11-16 13:34 GMT+07:00 Nang Agus nangagus@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>>
>>
>> Asalamualaikum warahmatullah.
>> Coba diubah menjadi begini:
>> Sub Inputdata()
>> Dim Baris, totalBaris As Long
>> Dim jumlah, i As Integer
>> totalBaris = Sheet2.Cells.Rows.Count
>> jumlah = Application.CountA(Sheet1.Range("C12:C19"))
>> Baris = Sheet2.Cells(totalBaris, 1).End(xlUp).Row + 1
>> For i = 1 To jumlah
>> Sheet2.Range("A" & Baris + i - 1).Value = "=ROW()-2"
>> Sheet2.Range("B" & Baris + i - 1).Value = Sheet1.Range("R6").Value
>> Sheet2.Range("C" & Baris + i - 1).Value = Sheet1.Range("D6").Value
>> Sheet2.Range("D" & Baris + i - 1).Value = Sheet1.Range("P3").Value
>> Sheet2.Range("E" & Baris + i - 1).Value = Sheet1.Range("P4").Value
>> Sheet2.Range("F" & Baris + i - 1).Value = Sheet1.Range("C" & 11 + i).Value
>> Sheet2.Range("G" & Baris + i - 1).Value = Sheet1.Range("D" & 11 + i).Value
>> Sheet2.Range("H" & Baris + i - 1).Value = Sheet1.Range("J" & 11 + i).Value
>> Sheet2.Range("i" & Baris + i - 1).Value = Sheet1.Range("K" & 11 + i).Value
>> Sheet2.Range("j" & Baris + i - 1).Value = Sheet1.Range("L" & 11 + i).Value
>> Sheet2.Range("k" & Baris + i - 1).Value = Sheet1.Range("M" & 11 + i).Value
>> Sheet2.Range("k" & Baris + i - 1).Value = Sheet1.Range("N" & 11 + i).Value
>> Sheet2.Range("k" & Baris + i - 1).Value = Sheet1.Range("O" & 11 + i).Value
>>
>> Sheet1.Range("C" & 11 + i).Value = ""
>> Sheet1.Range("D" & 11 + i).Value = ""
>> Sheet1.Range("J" & 11 + i).Value = ""
>> Sheet1.Range("K" & 11 + i).Value = ""
>> Sheet1.Range("L" & 11 + i).Value = ""
>> Sheet1.Range("M" & 11 + i).Value = ""
>> Sheet1.Range("N" & 11 + i).Value = ""
>> Sheet1.Range("O" & 11 + i).Value = ""
>> Next i
>> MsgBox "Data sudah masuk database"
>>
>> Sheet1.Range("R6").Value = ""
>> Sheet1.Range("D6").Value = ""
>> Sheet1.Range("P3").Value = ""
>> Sheet1.Range("P4").Value = ""
>>
>> End Sub
>>
>> diubah sesuai dengan keadaan setempat.
>> sebenarnya cekrip masih dapat disingkat, silahkan range diubah menjadi
>> cell.
>> wasalamualaikum warahmatullah
>>
>> 2015-11-13 15:37 GMT+07:00 faiq_arafi@yahoo.co.id [belajar-excel] <
>> belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> aswr
>>>
>>> perkenalkan nama saya muhammad (ahmad). yth admin mohon pencerahannya,
>>> saya sedang otak atik faktur untuk usaha kecil kecil keluarga, rencana saya
>>> faktur yang dibuat maka data inputan faktur akan langsung tercopy di sheet
>>> lain. tapi saat ini saya hanya dapat mengcopykan item barang baris pertama
>>> saja sedangkan yang lainnya tidak. mohon bantuannya. terima kasih. wswr
>>>
>>>
>>
>>
>
>
============================================================
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