Note: The other languages of the website are Google-translated. Back to English

Làm thế nào để đánh dấu văn bản cụ thể trong một ô dựa trên văn bản khác?

Trong Excel, chúng ta có thể dễ dàng đánh dấu các ô dựa trên một văn bản cụ thể, nhưng ở đây, tôi muốn đánh dấu một văn bản cụ thể trong một ô để làm cho nó nổi bật chứ không phải toàn bộ ô. Điều này có thể là một rắc rối cho hầu hết chúng ta. Bài viết này, tôi sẽ nói về một số thủ thuật để giải quyết công việc này trong Excel.


Đánh dấu một hoặc nhiều văn bản cụ thể trong nhiều ô bằng mã VBA

Ví dụ: tôi có một loạt các chuỗi văn bản và bây giờ, tôi muốn đánh dấu văn bản cụ thể “bầu trời”Trong các ô này để nhận được kết quả như sau ảnh chụp màn hình được hiển thị:

Để chỉ đánh dấu một phần văn bản trong một ô, mã VBA sau có thể giúp bạn.

1. Chọn các ô mà bạn muốn đánh dấu văn bản cụ thể, sau đó nhấn giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Mô-đun Cửa sổ.

Mã VBA: Đánh dấu một phần văn bản trong một ô:

Sub HighlightStrings()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim Rng As Range
Dim cFnd As String
Dim xTmp As String
Dim x As Long
Dim m As Long
Dim y As Long
cFnd = InputBox("Enter the text string to highlight")
y = Len(cFnd)
For Each Rng In Selection
  With Rng
    m = UBound(Split(Rng.Value, cFnd))
    If m > 0 Then
      xTmp = ""
      For x = 0 To m - 1
        xTmp = xTmp & Split(Rng.Value, cFnd)(x)
        .Characters(Start:=Len(xTmp) + 1, Length:=y).Font.ColorIndex = 3
        xTmp = xTmp & cFnd
      Next
    End If
  End With
Next Rng
Application.ScreenUpdating = True
End Sub

3. Sau đó nhấn F5 để chạy mã này và một hộp nhắc sẽ bật ra để nhắc bạn nhập văn bản mà bạn chỉ muốn đánh dấu, xem ảnh chụp màn hình:

4. Và sau đó nhấp vào OK , tất cả văn bản bạn chỉ định chỉ được đánh dấu trong các ô, xem ảnh chụp màn hình:

Lời khuyên: Nếu bạn cần đánh dấu nhiều từ khóa từ các chuỗi văn bản, vui lòng áp dụng mã dưới đây:
Mã VBA: Đánh dấu nhiều từ khóa từ chuỗi văn bản:
Sub HighlightStrings()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim Rng As Range
Dim cFnd As String
Dim xTmp As String
Dim x As Long
Dim m As Long
Dim y As Long
Dim xFNum As Integer
Dim xArrFnd As Variant
Dim xStr As String
cFnd = InputBox("Please enter the text, separate them by comma:")
If Len(cFnd) < 1 Then Exit Sub
xArrFnd = Split(cFnd, ",")
For Each Rng In Selection
With Rng
For xFNum = 0 To UBound(xArrFnd)
xStr = xArrFnd(xFNum)
y = Len(xStr)
m = UBound(Split(Rng.Value, xStr))
If m > 0 Then
xTmp = ""
For x = 0 To m - 1
xTmp = xTmp & Split(Rng.Value, xStr)(x)
.Characters(Start:=Len(xTmp) + 1, Length:=y).Font.ColorIndex = 3
xTmp = xTmp & xStr
Next
End If
Next xFNum
End With
Next Rng
Application.ScreenUpdating = True
End Sub

Sau đó, trong hộp bật ra, vui lòng nhập các từ khóa bạn muốn đánh dấu, (phân tách các từ bằng dấu phẩy), xem ảnh chụp màn hình:

Và sau đó, nhấp vào OK , các từ được chỉ định đã được đánh dấu cùng một lúc, xem ảnh chụp màn hình:

Chú thích: Các mã trên có phân biệt chữ hoa chữ thường.


Đánh dấu một hoặc nhiều văn bản cụ thể trong nhiều ô bằng một tính năng tuyệt vời

Nếu bạn không quen thuộc với mã trong Excel, ở đây, tôi sẽ giới thiệu một công cụ dễ dàng - Kutools cho Excel, Với khả Đánh dấu từ khóa , bạn có thể đánh dấu một hoặc nhiều từ khóa cụ thể cùng một lúc trong các ô.

LƯU ÝĐể áp dụng những Đánh dấu từ khóa , trước tiên, bạn nên tải xuống Kutools cho Excel, và sau đó áp dụng các tính năng một cách nhanh chóng và dễ dàng.

Sau khi cài đặt Kutools cho Excel, vui lòng làm như sau:

1. Nhấp chuột Kutools > bản văn > Đánh dấu từ khóa, xem ảnh chụp màn hình:

2. Trong Đánh dấu từ khóa hộp thoại, vui lòng thực hiện các thao tác sau:

  • Chọn phạm vi dữ liệu mà bạn muốn sử dụng từ Phạm vi hộp văn bản;
  • Chọn các ô chứa từ khóa mà bạn muốn đánh dấu, bạn cũng có thể nhập các từ khóa theo cách thủ công (phân tách bằng dấu phẩy) vào Từ khóa hộp văn bản
  • Cuối cùng, bạn nên chỉ định màu phông chữ để làm nổi bật văn bản bằng cách chọn Đánh dấu màu từ khóa Lựa chọn. (Để tô màu toàn bộ các ô có chứa từ khóa, hãy chọn Đánh dấu màu nội dung ô không bắt buộc)

3. Sau đó nhấn vào Ok , tất cả các văn bản được chỉ định đã được đánh dấu như hình ảnh chụp màn hình bên dưới:

Chú thích: Tính năng này không phân biệt chữ hoa chữ thường, nếu bạn muốn tô sáng văn bản có phân biệt chữ hoa chữ thường, vui lòng kiểm tra Trường hợp trận đấu trong Đánh dấu từ khóa hộp thoại.


Đánh dấu văn bản cụ thể trong một ô dựa trên văn bản khác với mã VBA

Đây là một tình huống khác, tôi có hai cột trong đó cột đầu tiên chứa các chuỗi văn bản và cột thứ hai là văn bản cụ thể, bây giờ, tôi cần đánh dấu văn bản tương đối trong cột đầu tiên dựa trên văn bản cụ thể trong cột thứ hai cho mỗi hàng.

1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Mô-đun Cửa sổ.

Mã VBA: Đánh dấu một phần văn bản trong ô dựa trên văn bản khác:

Sub highlight()
'Updateby Extendoffice
    Dim xStr As String
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xChar As String
    Dim I As Long
    Dim J As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
LInput:
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "not support multiple columns"
        GoTo LInput
    End If
    If xRg.Columns.Count <> 2 Then
        MsgBox "the selected range can only contain two columns "
        GoTo LInput
    End If
    For I = 0 To xRg.Rows.Count - 1
        xStr = xRg.Range("B1").Offset(I, 0).Value
        With xRg.Range("A1").Offset(I, 0)
            .Font.ColorIndex = 1
            For J = 1 To Len(.Text)
                If Mid(.Text, J, Len(xStr)) = xStr Then .Characters(J, Len(xStr)).Font.ColorIndex = 3
            Next
        End With
    Next I
End Sub

3. Sau khi dán mã và nhấn F5 để chạy nó, một hộp nhắc sẽ bật ra để nhắc bạn chọn phạm vi dữ liệu chứa cả chuỗi văn bản và văn bản cụ thể mà bạn muốn đánh dấu và dựa trên, xem ảnh chụp màn hình:

4. Và sau đó nhấp vào OK , tất cả văn bản tương ứng trong cột đầu tiên dựa trên văn bản cụ thể trong cột thứ hai đã được tô màu đỏ như ảnh chụp màn hình sau:


Các bài viết tương đối hơn:

  • Phần chữ in đậm khi nối hai cột trong Excel
  • Trong trang tính Excel, sau khi nối hai giá trị ô với công thức, bạn có thể thấy nó sẽ không in đậm phần văn bản trong ô công thức kết hợp. Điều này đôi khi có thể gây khó chịu, làm thế nào bạn có thể tô đậm một phần văn bản khi nối hai cột trong Excel?
  • Nối các cột ô và giữ màu văn bản trong Excel
  • Như chúng ta đã biết, trong khi nối hoặc kết hợp các cột ô thành một cột, định dạng ô (chẳng hạn như màu phông chữ văn bản, định dạng số, v.v.) sẽ bị mất. Bài viết này, tôi sẽ giới thiệu một số thủ thuật để kết hợp các cột ô thành một và giữ màu văn bản dễ dàng nhất có thể trong Excel.
  • Hiển thị văn bản cụ thể dựa trên giá trị trong cột khác
  • Giả sử, tôi có một danh sách các số, bây giờ, tôi muốn hiển thị một số văn bản cụ thể trong một cột khác dựa trên các số cột này. Ví dụ: nếu số ô nằm trong khoảng 1-100, tôi muốn văn bản “Giảm” được hiển thị trong ô liền kề, nếu số nằm trong khoảng 101-200, văn bản “Ổn định” được hiển thị và nếu số lớn hơn 200 , một văn bản "Tăng" được hiển thị như ảnh chụp màn hình sau. Để giải quyết tác vụ này trong Excel, các công thức sau trong bài viết này có thể giúp bạn.
  • Tính tổng các ô với văn bản và số trong Excel
  • Ví dụ: tôi có một danh sách các giá trị chứa chuỗi số và chuỗi văn bản, bây giờ, tôi muốn chỉ tính tổng các số dựa trên cùng một văn bản, hãy xem ảnh chụp màn hình sau. Thông thường, bạn không thể tính tổng các giá trị trong danh sách với chuỗi văn bản một cách trực tiếp, sau đây, tôi sẽ giới thiệu cho bạn một số công thức để giải quyết công việc này.

Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
officetab dưới cùng
Nhận xét (39)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn rất nhiều vì mẹo và macro của bạn. Tôi không thể tưởng tượng mình sẽ làm gì nếu không có chúng.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã kiểm tra cả hai mã đã cho trong excel 2016 nhưng không hoạt động.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã sử dụng Excel365. VBA đầu tiên không hoạt động. Điều thứ hai không thể làm nổi bật các từ khóa chính xác tức là không hoạt động quá
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn!!!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi gặp lỗi và khi tôi gỡ lỗi, nó làm nổi bật phần này m = UBound (Split (Rng.Value, cFnd))
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Nó rất hiệu quả đối với tôi, cảm ơn bạn đã chia sẻ điều này với thế giới.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bất cứ ai có thể giúp tôi cho một mã để "sao chép những từ được đánh dấu trong một cột khác".
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm thế nào tôi có thể làm cho mã này hoạt động nhưng nó được đánh dấu bằng màu khác với màu đỏ?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào bạn,
Nếu bạn muốn tô sáng văn bản bằng màu khác, bạn chỉ cần thay đổi số chỉ mục màu 3 thành số chỉ mục màu khác trong tập lệnh dưới đây:
.Characters (Start: = Len (xTmp) + 1, Length: = y) .Font.ColorIndex = 3

Hãy thử nó. Cảm ơn bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào bạn,
Với cùng một macro, tôi muốn đánh dấu một số văn bản khác với màu khác, ví dụ: Màu xanh lá cây, vui lòng giúp tôi điều này
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Sukumar,
Xin lỗi, không thể giải quyết vấn đề của bạn.
Vui lòng bình luận ở đây nếu bất kỳ khác có giải pháp.
Cảm ơn bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn vì "Đánh dấu một văn bản cụ thể trong nhiều ô với mã VBA" Nó hoạt động rất tốt. Bạn vui lòng giải thích:
dòng 18 xTmp = xTmp & Split (Rng.Value, cFnd) (x)
Tại sao idoes "(x)" phải xuất hiện ở vị trí của nó? Giá trị của x có được truyền vào hàm Split dưới dạng đối số có tên không có tên không? Tôi thực sự muốn hiểu khái niệm này. Cảm ơn sự giúp đỡ của bạn và chức năng này. Tôi đã học được điều gì đó mà tôi không biết.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
chào, tôi nhận thấy rằng đây là trường hợp đèn cao sáng. Tôi có thể thay đổi ở đâu mà nó sẽ viết cao chữ casese dưới và trên trong từ mong muốn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, lolster,

Trong hai mã trên, bạn muốn xác định mã nào có phân biệt chữ hoa chữ thường?
Chúng tôi sẽ sửa đổi mã cho bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tôi muốn hỏi cùng một câu hỏi để đánh dấu cả chữ thường và chữ hoa, trong trường hợp dưới đây:

"tìm và đánh dấu từ khóa1, từ khóa2 và từ khóa3 trong tất cả các chuỗi văn bản khi một chuỗi chứa nhiều hơn một trong các từ khóa này (tất cả chúng phải được đánh dấu trong chuỗi văn bản cụ thể)"
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Sub HighlightStrings ()
Application.ScreenUpdating = Sai
Dim Rng Như Phạm vi
Dim cFnd dưới dạng chuỗi
Dim xTmp dưới dạng chuỗi
Dim x As Long
Dim m As Long
Mờ y Như Long
Dim xFNum dưới dạng số nguyên
Dim xArrFnd dưới dạng biến thể
Làm mờ xStr dưới dạng chuỗi
cFnd = InputBox ("Vui lòng nhập văn bản, phân tách chúng bằng dấu phẩy:")
If Len (cFnd) <1 Then Exit Sub
xArrFnd = Tách (cFnd, ",")
Đối với mỗi Rng được lựa chọn
Với Rng
Đối với xFNum = 0 Đến UBound (xArrFnd)
xStr = xArrFnd (xFNum)
y = Len (xStr)
m = UBound (Tách (Rng.Value, xStr))
Nếu m> 0 Thì
xTmp = ""
Đối với x = 0 Đến m - 1
xTmp = xTmp & Split (Rng.Value, xStr) (x)
.Characters (Start: = Len (xTmp) + 1, Length: = y) .Font.ColorIndex = 3
xTmp = xTmp & xStr
Sau
Cuối Nếu
XFNum tiếp theo
Kết thúc với
Rng tiếp theo
Application.ScreenUpdating = True
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào , Mahendra
Nếu bạn muốn mã không phân biệt chữ hoa chữ thường, vui lòng áp dụng mã dưới đây:
Sub HighlightStrings()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim Rng As Range
Dim cFnd As String
Dim xTmp As String
Dim x As Long
Dim m As Long
Dim y As Long
Dim xFNum As Integer
Dim xArrFnd As Variant
Dim xStr As String
cFnd = InputBox("Please enter the text, separate them by comma:")
If Len(cFnd) < 1 Then Exit Sub
xArrFnd = Split(UCase(cFnd), ",")
For Each Rng In Selection
With Rng
For xFNum = 0 To UBound(xArrFnd)
xStr = xArrFnd(xFNum)
y = Len(xStr)
m = UBound(Split(UCase(Rng.Value), UCase(xStr)))
If m > 0 Then
xTmp = ""
For x = 0 To m - 1
xTmp = xTmp & Split(UCase(Rng.Value), UCase(xStr))(x)
.Characters(Start:=Len(xTmp) + 1, Length:=y).Font.ColorIndex = 3
xTmp = xTmp & xStr
Next
End If
Next xFNum
End With
Next Rng
Application.ScreenUpdating = True
End Sub


Xin vui lòng có một thử, hy vọng nó có thể giúp bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có cách nào để tạo mã VBA đầu tiên theo cách hoạt động với danh sách từ khóa cố định mà không có hộp quảng cáo không? Ví dụ: tôi luôn muốn tìm và đánh dấu từ khóa1, từ khóa2 và từ khóa3 trong tất cả các chuỗi văn bản khi một chuỗi chứa nhiều hơn một trong các từ khóa này (tất cả chúng phải được đánh dấu trong chuỗi văn bản cụ thể). Và có thể làm cho từ khóa1 và từ khóa2 màu đỏ nhưng từ khóa thứ ba chỉ in đậm không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Arturs,

Để đánh dấu nhiều từ khóa từ một ô, mã vba sau có thể giúp bạn: (bạn nên phân tách các từ bằng dấu chấm phẩy trong hộp nhập hiện ra)

Sub HighlightStrings ()
Application.ScreenUpdating = Sai
Dim Rng Như Phạm vi
Dim cFnd dưới dạng chuỗi
Dim xTmp dưới dạng chuỗi
Dim x As Long
Dim m As Long
Mờ y Như Long
Dim xFNum dưới dạng số nguyên
Dim xArrFnd dưới dạng biến thể
Làm mờ xStr dưới dạng chuỗi
cFnd = InputBox ("Vui lòng nhập văn bản, phân tách chúng bằng dấu chấm phẩy:")
If Len (cFnd) <1 Then Exit Sub
xArrFnd = Tách (cFnd, ";")
Đối với mỗi Rng được lựa chọn
Với Rng
Đối với xFNum = 0 Đến UBound (xArrFnd)
xStr = xArrFnd (xFNum)
y = Len (xStr)
m = UBound (Tách (Rng.Value, xStr))
Nếu m> 0 Thì
xTmp = ""
Đối với x = 0 Đến m - 1
xTmp = xTmp & Split (Rng.Value, xStr) (x)
.Characters (Start: = Len (xTmp) + 1, Length: = y) .Font.ColorIndex = 3
xTmp = xTmp & xStr
Sau
Cuối Nếu
XFNum tiếp theo
Kết thúc với
Rng tiếp theo
Application.ScreenUpdating = True
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Skyyang! Tôi thấy rằng sẽ có lỗi nếu chạy mã - nó không thể chỉ định từ sau dấu hai chấm. Bạn có bất kỳ đề xuất để cải thiện nó? Cám ơn rất nhiều!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, IvyCY,
Nếu bạn muốn chỉ định các từ bằng dấu hai chấm, bạn chỉ cần thay đổi biểu tượng dấu chấm phẩy thành dấu hai chấm, vui lòng áp dụng mã sau:

Sub HighlightStrings ()
Application.ScreenUpdating = Sai
Dim Rng Như Phạm vi
Dim cFnd dưới dạng chuỗi
Dim xTmp dưới dạng chuỗi
Dim x As Long
Dim m As Long
Mờ y Như Long
Dim xFNum dưới dạng số nguyên
Dim xArrFnd dưới dạng biến thể
Làm mờ xStr dưới dạng chuỗi
cFnd = InputBox ("Vui lòng nhập văn bản, phân tách chúng bằng dấu hai chấm:")
If Len (cFnd) <1 Then Exit Sub
xArrFnd = Tách (cFnd, ":")
Đối với mỗi Rng được lựa chọn
Với Rng
Đối với xFNum = 0 Đến UBound (xArrFnd)
xStr = xArrFnd (xFNum)
y = Len (xStr)
m = UBound (Tách (Rng.Value, xStr))
Nếu m> 0 Thì
xTmp = ""
Đối với x = 0 Đến m - 1
xTmp = xTmp & Split (Rng.Value, xStr) (x)
.Characters (Start: = Len (xTmp) + 1, Length: = y) .Font.ColorIndex = 3
xTmp = xTmp & xStr
Sau
Cuối Nếu
XFNum tiếp theo
Kết thúc với
Rng tiếp theo
Application.ScreenUpdating = True
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn đã trả lời, skyyang!

Nhưng nó vẫn không hoạt động.
Có lẽ câu hỏi của tôi khá khó hiểu. Một ví dụ có thể làm cho nó rõ ràng hơn.
Ví dụ: một trong những từ khóa của tôi là "bảo vệ". Văn bản trong các ô có thể được hiển thị là "Các cách của chúng tôi để giải quyết vấn đề: bảo vệ và blablabla ..." Có thể có khoảng cách giữa ":" và "bảo vệ" vì định dạng của văn bản không phải lúc nào cũng giống nhau. Ở đây, từ khóa "bảo vệ" không thể được đánh dấu bằng các mã trên. Đó chính là vấn đề.

Tôi đã thử nhiều lần nhưng không thành công. Tôi cũng đã xem xét việc loại bỏ dấu chấm câu trong các ô, nhưng nó sẽ ảnh hưởng đến khả năng hiểu của văn bản. Vì vậy, tôi đã đặt câu hỏi. Mong bạn không phiền lòng.

Cảm ơn bạn rất nhiều!

Trân trọng kính chào!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có cách nào để loại bỏ tất cả những từ được đánh dấu đó không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Ace,
Để xóa văn bản dựa trên một ô cột khác, mã vba dưới đây có thể giúp bạn, hãy thử nó.
Sub DeleteStr ()
Làm mờ xStr dưới dạng chuỗi
Dim xRg theo phạm vi
Làm mờ xTxt dưới dạng chuỗi
Dim xCell As Range
Làm mờ xChar thành chuỗi
Dim i As Long
Dim J As Long
On Error Resume Next
Nếu ActiveWindow.RangeSelection.Count> 1 Thì
xTxt = ActiveWindow.RangeSelection.AddressLocal
Khác
xTxt = ActiveSheet.UsedRange.AddressLocal
Cuối Nếu
Đầu vào:
Đặt xRg = Application.InputBox ("vui lòng chọn dải dữ liệu:", "Kutools cho Excel", xTxt,,,,, 8)
Nếu xRg không có gì thì thoát Sub
Nếu xRg.Areas.Count> 1 Thì
MsgBox "không hỗ trợ nhiều cột"
GoTo LInput
Cuối Nếu
Nếu xRg.Columns.Count <> 2 Thì
MsgBox "phạm vi đã chọn chỉ có thể chứa hai cột"
GoTo LInput
Cuối Nếu
Đối với i = 0 Đến xRg.Rows.Count - 1
xStr = xRg.Range ("B1"). Khoảng cách (i, 0). Giá trị
Với xRg.Range ("A1"). Offset (i, 0)
.Font.Color Index = 1
Đối với J = 1 Tới Len (.Text)
Nếu Mid (.Text, J, Len (xStr)) = xStr Thì
.Characters (J, Len (xStr)). Xóa
Cuối Nếu
Sau
Kết thúc với
Tiếp theo
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
HI
Tôi là khách truy cập thường xuyên của trang web của bạn. Trang web của bạn rất hữu ích cho tôi. Mã này thay đổi màu phông chữ. Tôi muốn đánh dấu các từ cụ thể (ví dụ: Chèn, trống) trên nền màu vàng. Tôi muốn làm nổi bật điều này. Không chỉ là một màu chữ. Kịp các công việc tuyệt vời!!! Cảm ơn nhiều.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Madhusudhanan,
Có thể không có cách nào trực tiếp để đánh dấu một phần văn bản trong ô có màu nền trong trang tính Excel.
Nếu bạn có phương pháp hay khác, hãy bình luận tại đây.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
tôi gặp lỗi thời gian chạy '13', nhập không khớp khi tôi chạy tập lệnh. bất kỳ đề xuất?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi gặp vấn đề tương tự; Tôi thấy rằng một trong những cột của tôi là công thức và nó đang tìm kiếm trong đó, đó là thứ gây ra lỗi 13. Đã chọn một công thức phạm vi wihtout có chứa văn bản để đánh dấu và nó đã hoạt động.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào,
bất cứ ai có thể giúp tôi với những điều sau đây

Các ô của tôi trong Cột "G" chứa văn bản từ Cột Z đến AN, không bắt buộc Cột g chứa tất cả văn bản từ Z đến AN.

Công việc của tôi ở đây là Đánh dấu văn bản trong Cột G nếu nó không có sẵn trong bất kỳ Cột Z - AN nào

Ví dụ: Ô G1 chứa (Xin chào ông, tôi đang làm tốt) nhưng Văn bản "Thưa ông" không tồn tại trong Cột "Z1" thành "AN1"

Vì vậy, tôi cần đánh dấu dòng chữ "Sir"
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, có ai giúp tôi cái này với. tôi muốn đánh dấu Số cụ thể trong Ô trong cùng một câu. for Ex: "2 days leave scansion" trong câu này muốn tô sáng con số.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào,
Xin bất kỳ ai giúp tôi. Tôi muốn làm nổi bật con số cụ thể trong cùng một câu. Đối với ví dụ: "2 ngày nghỉ phép" chỉ muốn đánh dấu "2" trong câu.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Điều này rất hữu ích, cảm ơn rất nhiều!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tuyệt vời. cảm ơn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Ồ! Cảm ơn bạn!
Không có bình luận nào được đăng ở đây
Tải thêm
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL