Coba salin prosedur berikut :
public function CommentText( rng as range ) as string
on error resume next
application.volatile true
commenttext=rng.resize(1,1).comment.text
err.clear
on error goto 0
end function
A1 adalah cell ber comment
pada sebarang cell tulis formula
=commenttext( a1)
Wassalam,
Kid.
2013/1/14 Mardi <[email protected]>
> **
>
>
> Terima Kasih pak hendrik ,****
>
> Jadi tambah satu ilmu baru lagi saya , Yang jadi angan-angan saya misalkan
> di cell A1 ada comment “Mardi menghayal” . Nah di cell B1 ada formula atau
> apa yang menyebutkan “=comment A1” atau sebagai value cell . Biar bisa kita
> hitung “Mardi menghayal “nya berapa kali dari A1 sampai A100 .****
>
> Terima Kasih****
>
> ** **
>
> Salam,****
>
> mardi****
>
> *From:* [email protected] [mailto:
> [email protected]] *On Behalf Of *hendrik karnadi
> *Sent:* 13 Januari 2013 13:47
> *To:* [email protected]
> *Subject:* Re: [belajar-excel] tampilkan comment Excel ke sebuah cell****
>
> ** **
>
> ****
>
> Kalau pake macro sederhana, bisa dibuat code seperti ini,
> mis: mau menambah komentar di sel A1
>
> *Sub AddComment()
> Range("A1").AddComment "ini komentar pake macro"
> End Sub*****
>
> ** **
>
> Salam,****
>
> Hendrik Karnadi****
>
> ** **
> ------------------------------
>
> *From:* Mardi <[email protected]>
> *To:* [email protected]
> *Sent:* Sunday, 13 January 2013, 13:05
> *Subject:* [belajar-excel] tampilkan comment Excel ke sebuah cell****
>
> ** **
>
> ****
>
> Selamat siang Be exceller,****
>
> ****
>
> Saya punya angan-angan untuk menampilkan Comment ke sebuah cell dengan
> formula atau apa . Kira-kira apakah mungkin angan-angan saya bisa terwujud
> .Sekiranya bisa mohon bantuannya dari rekan be exceller dan master-master
> semuanya.****
>
> Terima kasih sebelumnya,****
>
> ****
>
> Salam****
>
> mardi****
>
> ** **
>
> ****
>
>
>
