Kết quả 1 đến 2 của 2

Chủ đề: Tô đậm một từ trong một chuỗi ở một cột cho trước

  1. #1
    leotran Guest

  2. #2
    Trích dẫn Gửi bởi bonamana
    Chào cả nhà.
    Em có một cột chứa từ cần in đậm, giờ em muốn in đậm từ đó ở trong một chuỗi thì làm như thế nào ạ. Em cảm ơn.
    đại khái thì phải dùng VBA , cũng chỉ xác định được 80%


    Mã:
    Public Sub hello()
    Dim arr, r As Long, lPos As Long
    Application.ScreenUpdating = False
    With Sheet1
        arr = .Range("A1:B" & .[A65000].End(xlUp).Row).Value
        '.Range("B1:B" & UBound(arr)).Characters.Font.Bold = False
        For r = 1 To UBound(arr) Step 1
            If Right(arr(r, 1), 1) = "N" Then arr(r, 1) = Left(arr(r, 1), Len(arr(r, 1)) - 1)
            If Left(LCase(arr(r, 1)), 3) = "be " Then arr(r, 1) = Mid(arr(r, 1), 4)
            lPos = InStr(1, LCase(arr(r, 2)), LCase(arr(r, 1)))
            If lPos > 0 Then
                .Range("B" & r).Characters(lPos, Len(arr(r, 1))).Font.Bold = True
            End If
        Next
    End With
    Application.ScreenUpdating = True
    End Sub

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •