Untuk karakteristik font, seperti :
Bold, Italic, Underline, Strikethrough, Superscript, Subscript, Size, Name
hanya bisa di-set dengan VBA sub procedure
Untuk warna dan atau penggantian isi, bisa melalui function yang bisa digunakan dalam Excel Formula yang menulis ke cells lain.
Jadi, pada kasus ini, buat dulu template tulisan di cells hasil, misal di X1 : (lengkap formatnya, di-bold dan sebagainya [semua karakteristik font selain warna])
yang akan diganti LAGI iseng.
lalu di Y1, bisa dipasang formula :
=FormatChars(X1,""," lagi","Kid") -> setiap item dalam formula bisa menggunakan hasil formula lain seperti biasanya
atau di X2 ada format tulisan hasil :
Kelebihan/Kekurangan Angka Kredit yang harus dicapai untuk kenaikan pangkat.
lalu ada kriteria jika nilai di J2=1 adalah Kelebihan diwarna biru, selainnya adalah Kekurangan diwarna merah :
formula di X2 :
=FormatChars(X2,""," angka", if( j2=1,"Kelebihan","Kekurangan") , if(j2=1,"0,0,255","255,0,0") )
Syntax function FormatChars bisa dilihat di VB Editor dalam file terlampir.
secara umum, untuk digunakan dalam excel formula :
=FormatChars( cells yang akan diganti isinya , teks batas awal , teks batas akhir , teks pengganti , warna dalam format rgb delimiter koma -> RGB( nilai RED , nilai GREEN, nilai BLUE )
Regards,
Kid