Terima kasih. Kode-nya Mbak Siti sangat bermanfaat
--- On Mon, 8/15/11, STDEV(i) <[email protected]> wrote: From: STDEV(i) <[email protected]> Subject: Re: [belajar-excel] Mengcopy Text Tebal Saja To: [email protected] Date: Monday, August 15, 2011, 2:35 PM 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 IntegerDim 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
