koreksi pada VBA code nya:
ada variable z yg seharusnya tidak dipergunakan, sebaiknya dihapus saja,
setelah dikoreksi harusnya spt ini
Cara makro ini mendeteksi kata tebal, hanya dilihat *karakter petama* tiap
kata;
jika karakter pertama dlm suatu kata = BOLD, maka kata tsb dianggap BOLD.
Function KataTebal(Rng As Range)
Dim r As Integer, n As Integer
Dim i As Integer, k As Integer
Dim s As String, Ars(), ArKt
For r = 1 To Rng.Rows.Count
ArKt = Split(Trim(Rng(r, 1).Text), " ")
For i = 0 To UBound(ArKt)
k = InStr(1, Rng(r, 1).Text, ArKt(i))
If Rng(r, 1).Characters(k, 1).Font.Bold Then
n = n + 1
ReDim Preserve Ars(1 To n)
Ars(n) = ArKt(i)
End If
Next i
Next r
KataTebal = WorksheetFunction.Transpose(Ars)
End Function
2011/8/15 STDEV(i) <[email protected]>
> gampang...
> *=KataTebal(B2:B5)*
> array formula ditulis sekaligus di 5 CELLS sekolom (atau sebanyak data yg
> akan muncul) secara SEKALI GUS
>
