prosedur ini ditulis di Module milik *Sheet *yg comments-nya mo di - Show /
Hide*
*Sub Show_Comments_Bersyarat()
Dim Cmnt As Comment
For Each Cmnt In Me.Comments
If InStr(LCase(Cmnt.Text), "jan 10 - nop 10") > 0 Then
Cmnt.Visible = True
End If
Next Cmnt
End Sub
2010/6/21 Jarjit Aco <[email protected]>
>
> Aloow XL-Mania,
>
> di cell b7 ada comment :
> "Jan 10 - Nop 10
> Feb 10 - Des 10
> Mei 10 - Feb 11"
> di cell b11 :
> " Feb 10 - Des 10
> Jun 10 - Mar 11"
> di cell b15 :
> "Jan 10 - Nop 10
> Apr 10 - Jan 11
> Mei 10 - Feb 11"
>
> Aq ingin menampilkan semua comment yang ada teks "Jan 10 - Nop 10", yaitu
> comment yang ada di cell b7 dan b15 saja.
>
> Thank's B4
>
>
