Hai Ratri,
*** imho, subject email pada posting berikutnya tidak perlu semuanya huruf
kapital, karena huruf kapital pada sebuah kalimat dalam dunia maya sering
diartikan sedang membentak...
Misal :
a. dimiliki sebuah listvew dengan nama lvw,
b. memiliki headers,
c. jumlah kolom dalam lvw ada 3 kolom,
d. jumlah list item dalam lvw ada 7 baris.
1. Mari kenali control object listview
*lvw.columnheaders(1)
lvw.columnheaders(2)
lvw.columnheaders(3) *
lvw.listitems(1)
lvw.listitems(1).listsubitems(1)
lvw.listitems(1).listsubitems(2)
lvw.listitems(2)
lvw.listitems(2).listsubitems(1)
lvw.listitems(2).listsubitems(2)
lvw.listitems(3)
lvw.listitems(3).listsubitems(1)
lvw.listitems(3).listsubitems(2)
lvw.listitems(4)
lvw.listitems(4).listsubitems(1)
lvw.listitems(4).listsubitems(2)
lvw.listitems(5)
lvw.listitems(5).listsubitems(1)
lvw.listitems(5).listsubitems(2)
lvw.listitems(6)
lvw.listitems(6).listsubitems(1)
lvw.listitems(6).listsubitems(2)
lvw.listitems(7)
lvw.listitems(7).listsubitems(1)
lvw.listitems(7).listsubitems(2)
>> jadi,
a. columnheaders adalah base 1 (kolom ke-1 diberi nilai indeks bernilai 1)
b. baris data pada kolom ke-1 diakses dengan properti listitems yang
diikuti dengan indeks baris
c. baris pada listview adalah base 1 (baris ke-1 diberi nilai indeks
bernilai 1)
d. subitems dalam listview dimulai dari kolom ke-2 dan menggunakan base 1
(subitem ke-1 yang ada di kolom ke-2 diberi nilai indeks 1)
e. seluruh nilai indeks yang relatif terhadap setiap properti
(columnheaders, listitems, listsubitems) dimulai dari 1 dan seterusnya
2. edit header listview lvw
>> ganti text header kolom ke-2 menjadi 'Kid'
*lvw.columnheaders(2).text="Kid"*
3. edit baris ke-3 pada kolom ke 1 menjadi 'Kid baris ke-3'
>> berarti pada lvw.listitems(3)
lvw.listitems(3).text ="Kid baris ke-3"
4. edit baris ke-7 pada kolom ke 3 menjadi 'Kid baris ke-6 kolom 3'
>> berarti pada subitems ke-2 karena pada kolom ke-3
>> berarti pada baris ke-7 menggunakan lvw.listitems(7).listsubitems(2)
lvw.listitems(7).listsubitems(2).text="Kid baris ke-6 kolom 3"
5. edit baris ke-3 pada kolom ke 1 menjadi 'Kid baris ke-3' dan edit baris
ke-7 pada kolom ke 3 menjadi 'Kid baris ke-6 kolom 3'
>> seperti nomor 3 dan 4 tapi dilakukan pada sebuah event
lvw.listitems(3).text ="Kid baris ke-3"
lvw.listitems(7).listsubitems(2).text="Kid baris ke-6 kolom 3"
6. edit baris 3 sampai 5 pada kolom ke-1 agar berisi nomor id dari 13
sampai 15
>> berarti pakai lvw.listitems(3) sampai lvw.listitems(5) dan yang berubah
adalah nomor indeks nya, yaitu dari 3 sampai 5
>> teks isian adalah 13 sampai 15, berarti setara dengan komputasi
matematis 10 ditambah dengan nomor indeks nya
dim *lidx *as long
for *lidx *=3 to 5
lvw.listitems( *lidx *).text = 10 + *lidx *
next *lidx *
7. edit baris ke 1 sampai ke 7 pada kolom ke-3 dengan suatu nilai numerik
dari 1000 sampai 7000
>> kolom ke-3 berarti listsubitems ke-2 pada indeks mulai dari 1 sampai 7
>> berarti, menggunakan lvw.listitems(*1*).listsubitems(2) sampai
lvw.listitems(*7*).listsubitems(2)
>> teks pengisinya adalah 1000 sampai 7000 (komputasi matematis nomor
indeks dikali 1000)
dim *lidx *as long
for *lidx *=1 to 7
lvw.listitems( *lidx *).listsubitems(2) .text =
*lidx * 1000 *
next *lidx *
8. ternyata, nomor 7 di atas pengen diganti menjadi seluruh baris yang ada
dalam listview
>> jumlah seluruh baris yang ada dalam listview adalah* lvw.listitems.count*
>> kolom ke-3 berarti listsubitems ke-2 pada indeks mulai dari 1 sampai *
lvw.listitems.count*
>> berarti, menggunakan lvw.listitems(*1*).listsubitems(2) sampai
lvw.listitems( * lvw.listitems.count *).listsubitems(2)
>> teks pengisinya adalah 1000, 2000, dan seterusnya mengikuti nomor indeks
(komputasi matematis nomor indeks dikali 1000)
dim *lidx *as long
for *lidx *=1 to *lvw.listitems.count*
lvw.listitems( *lidx *).listsubitems(2) .text =
*lidx * 1000 *
next *lidx *
9. eh nomor 9 itu bisa muncul error kalo gak ada baris apapun dalam
listview, gimana dong ??? bingung nih... sampai hampir putus asa error
mulu...
>> sebelum blok perulangan (loop) dengan statement for next, dilakukan
pemeriksaan terhadap jumlah baris yang ada dalam listview
>> jumlah baris dalam listview adalah ..... (apa hayo... masih perlu
ditulis disini ? jiaaahhh)
>> blok loop boleh dikerjakan kalau jumlah baris dalam listview harus lebih
dari 0
dim *lidx *as long
if *lvw.listitems.count *> 0 then
for *lidx *=1 to *lvw.listitems.count*
lvw.listitems( *lidx *).listsubitems(2) .text =
*lidx * 1000 *
next *lidx *
endif
10. le.... yang simbah pengen ganti itu cuman baris 1,2,5 sama 7 tok til...
kolomnya yang kolom ke-2, diisi dengan teks status berbunyi 'OK'. Piye le...
>> nyuwun pangapunten mbah....
>> simbah kedah maos bab for each next rumiyen mbah...
>> mangkeh, cekrip ipun kados mekaten :
dim *vidx *as *variant*
for each *vidx *in array( 1, 2, 5, 7 )
lvw.listitems( *vidx *).listsubitems(1).text = "OK"
next vidx
simbah : "kok error terus le..."
tole : "lha simbah sampun maos bab for each next dereng mbah ?"
simbah : "uwis, ning tulisane bab kuwi kok blawur ya... huruf e dadi gedrik
kabeh tur dadi loro-loro kabeh..."
tole : (membatin) "ya iyalah... lah bacanya gak pake kacamata... wis jan...
sing waras ngalah wae lah"
;)
sepertinya 10 item cukup buat acara edit-editan kan ya...
moga-moga ada yang berbaik hati memasang 10 item diatas menjadi sebuah file
ya... (maaf, gak sempet... harus siap-siap berangkat)
Wassalam,
Kid.
2014-03-11 20:14 GMT+07:00 Ratri Risyanto <[email protected]>:
>
>
> Hallo All Master Excel,
>
>
> Bagaimana cara edit listview / edit subitem listview / editlabel subitem
> listview? (pada subitem tertentu, atau beberapa, atau semuanya)
> Tolong beri contoh code-nya, dan berikan penjelasannya.
> Atas perhatiannya, Terima kasih.
>
> Hs,
>
> Ratri Risyanto
>
>
>
