hai Fendi,
Coba buat sebuah script terhadap perubahan posisi cel pada sheet yang
dikehendaki, dalam hal ini berarti harus dipilih event selection change
pada sheet 2
lakukan pengujian apakah Target cel tersebut hanya 1 cel saja atau tidak,
kira2 scriptnya seperti
if target.cells.count = 1 then
lakukan juga pengujian terhadap posisi baris dan kolom cel tersebut, untuk
yang ini kira2 scriptnya akan berbunyi
if target.row = nomor_baris_cel_yang_telah_ditentukan and target.column >=
nomor_kolom_awal and target.column <= nomor_kolom_akhir then
jika ingin menyingkat maka setiap object Target bisa dikumpulkan dengan
script yang berbunyi With Target sehingga penulisan scriptnya akan lebih
singkat
Karena koment akan mengambil nilai berdasarkan posisi cel aktif dimana yang
berubah adalah nilai kolomnya, maka diperlukan sebuah variabel untuk
menyimpan nilai kolom tersebut,
untuk ini perlu dideklarasikan sebuah variabel dengan tipe data Integer,
kira2 bunyi scriptnya akan seperti Dim nama_variablenya as Integer
Lalu nilai dari cel di sheet sebelah yang akan dimasukkan ke dalam koment
perlu disimpan ke dalam sebuah variabel yang bertipe String, untuk ini anda
harus mendeklarasikan sebuah variebel, bunyi scriptnya kira2 akan menjadi
Dim nama_variabelnya as String
Setelah tersedia sebuah wadah untuk menyimpan nilai teks komentnya, yang
harus dilakukan adalah mengambil nilainya berdasarkan posisi baris dan
kolom di sheet 1
kira2 scriptnya akan berbunyi: nama_variabel_string =
sheets("nama_sheetnya").cells(
nomor_barisnya_diambil_dari_nilai_indeks_kolom_di_atas , 2).value
nilai 2 di atas dikarenakan posisi data berada di kolom B
Posisi baris dan kolom untuk komen sudah, Teks untuk koment juga sudah,
saatnya memasukkan koment tersebut ke comment box
Tetapi sebelumnya, setiap koment yang ada harus disembunyikan dulu dengan
perintah application.displaycommentindicator = xlnoindicator
Sekarang saatnya memasukan koment-nya ke dalam comment box
Jika sebelumnya sudah fokus bekerja pada cel yang menjadi Target, maka yang
diperlukan adalah menambahkan koment baru, scripnya akan berbunyi seperti
ini:
.addcomment , perhatikan ada 1 buah titik di depan yang menandakan bahwa
kegiatan tersebut milik dari objek yang sudah ditentukan sebelumnya, Jika
sebelumnya nama objek tidak ditentukan terlebih dahulu maka di depan titik
tersebut harus dimasukan nama objeknya yaitu si Target tadi
Lalu, isi comment box dengan variabel bertipe String yang tadi sudah kita
siapkan dan sudah diisi nilainya, scriptnya akan menjadi seperti ini
.comment.text nama_variabelnya
Sekarang tampilkan komennya dengan perintah .comment.visible = true
Oia.. jaga2 saja supaya error yang ada tidak muncul, maka perlu ditambahkan
perintah untuk mengabaikan error dengan script On Error Resume Next tepat 1
baris di atas perintah menyembunyikan koment yang sudah ada.
Kira2 begitu alur ceritanya.. mudah2an tidak membuat bingung..
Wassalam,
-Miss Jan Raisin-
Pada 4 Maret 2014 10.14, Fendi S <[email protected]> menulis:
>
>
> Kepada para master excell.
> Saya kesulitan dalam memberi comen secara otomatis pada sel tertentu.
> Kepada para master mohon kiranya memberi solusi. Terima kasih sebelumnya.
> (file terlmpir
>
>
>
