Mọi người giúp em bôi đen 1 đoạn ký tự trùng nặp trong 1 cột của bảng excel với

[phamngocque]

Em đang làm 1 bảng excel 2007 khá lớn, trong đó muốn in đậm 1 đoạn ký tự giống nhau có trong rất nhiều cột cũng như dòng mà không biết làm thế nào. Ai biết cách chỉ dùm em với, chứ ctrl+B thủ công thì chắc mấy ngày chả xong. Thank mọi người, ai biết chỉ em gửi vào hòm thư phamngocque87@gmail.com. Em cám ơn mọi người nhiều!

 

[VMH0307]

Bạn gửi file đính kèm và nêu rõ nhu cầu trong đó lên diễn đàn mọi người cùng hỗ trợ, inbox làm gì cho mất công.

 

[phamngocque]

Đây là file excel, em cần in đậm dòng chữ Hiện trạng: Thiết bị vẫn đang sử dụng và hoạt động bình thường, trong cột D, thank

 

[vanle33]

Đây là file excel, em cần in đậm dòng chữ Hiện trạng: Thiết bị vẫn đang sử dụng và hoạt động bình thường, trong cột D, thank

Bạn tham khảo code ở đây
http://www.giaiphapexcel.com/forum/...ịnh-dạng-text-có-xuống-dòng-trong-cùng-1-cell
và http://www.giaiphapexcel.com/forum/...sang-chữ-nghiêng-trong-cung-một-chuỗi-văn-bản.
Phải chỉnh sửa code ở 1 trong 2 link ở trên để thỏa mãn yêu cầu của bạn.

 

[phamngocque]

Mọi người giúp em làm luôn được không, liên quan đến code chắc em phải đọc từ từ mới làm được. Mà file này em cần gấp, Sorry và thank mọi người.

 

[VMH0307]

Bạn sử dụng code sau:
[GPECODE=vb]
Sub MyBolt()
Dim Strg, Strlen As String, i As Integer
Dim StarAdd
On Error Resume Next


Strg = Sheet1.Range("A1").Value
Strlen = Len(Strg)
Cells.Find(What:=Strg, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
StartAdd = ActiveCell.Address


'Application.ScreenUpdating = False
Mystart:
For i = 1 To Len(ActiveCell.Value)
If ActiveCell.Characters(i, Strlen).Text = Strg Then
ActiveCell.Characters(i, Strlen).Font.FontStyle = "Bold"
Exit For
End If
Next

Cells.FindNext(After:=ActiveCell).Activate
If ActiveCell.Address = StartAdd Then
MsgBox "Hoan thanh"
'Application.ScreenUpdating = True
Exit Sub
End If

GoTo Mystart
End Sub
[/GPECODE]
Bạn điền thông tin dòng chữ cần tô đậm (ở đây là: Hiện trạng:....) vào ô A1
và cho chạy code trên.
(tham khảo thêm file đính kèm)