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

Làm thế nào để in đậm tất cả các từ cụ thể trong một phạm vi ô?

doc in đậm văn bản cụ thể 1

Trong Excel, Tìm và Thay thế hàm có thể giúp chúng tôi tìm bất kỳ văn bản cụ thể nào và in đậm hoặc bất kỳ định dạng nào khác cho toàn bộ ô. Tuy nhiên, bạn đã bao giờ cố gắng chỉ in đậm văn bản cụ thể trong các ô chứ không phải toàn bộ ô như ảnh chụp màn hình dưới đây được hiển thị:

In đậm tất cả các từ cụ thể trong một dải ô có mã VBA


mũi tên màu xanh bong bóng bên phải In đậm tất cả các từ cụ thể trong một dải ô có mã VBA

Mã VBA sau có thể giúp bạn chỉ in đậm văn bản cụ thể trong nội dung ô, vui lòng thực hiện như sau:

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: Tô đậm văn bản cụ thể trong một phạm vi ô

Sub FindAndBold()
'Updateby Extendoffice 20160711
    Dim xFind As String
    Dim xCell As Range
    Dim xTxtRg As Range
    Dim xCount As Long
    Dim xLen As Integer
    Dim xStart As Integer
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    On Error Resume Next
    Set xTxtRg = Application.Intersect(xRg.SpecialCells(xlCellTypeConstants, xlTextValues), xRg)
    If xTxtRg Is Nothing Then
        MsgBox "There are no cells with text"
        Exit Sub
    End If
    xFind = Trim(Application.InputBox("What do you want to BOLD?", "Kutools for Excel", , , , , , 2))
    If xFind = "" Then
        MsgBox "No text was listed", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xLen = Len(xFind)
    For Each xCell In xTxtRg
        xStart = InStr(xCell.Value, xFind)
        Do While xStart > 0
            xCell.Characters(xStart, xLen).Font.Bold = True
            xCount = xCount + 1
            xStart = InStr(xStart + xLen, xCell.Value, xFind)
        Loop
    Next
    If xCount > 0 Then
        MsgBox "number of " & CStr(xCount) & " text be bolded!", vbInformation, "Kutools for Excel"
    Else
        MsgBox "Not find the specific text!", vbInformation, "Kutools for Excel"
    End If
End Sub

3. Sau đó nhấn F5 để chạy mã này và một hộp nhắc xuất hiện để nhắc bạn chọn phạm vi dữ liệu mà bạn muốn in đậm, xem ảnh chụp màn hình:

doc in đậm văn bản cụ thể 2

4. Và sau đó nhấp vào OK, một hộp khác sẽ bật ra để nhắc bạn nhập văn bản cụ thể mà bạn chỉ muốn in đậm trong ô, xem ảnh chụp màn hình:

doc in đậm văn bản cụ thể 3

5. Sau khi nhập văn bản, vui lòng nhấp vào OK và tất cả văn bản bạn chỉ định đã được in đậm trong phạm vi đã chọn, xem ảnh chụp màn hình:

doc in đậm văn bản cụ thể 4


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 (9)
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
VBA này có thể được sửa đổi để in đậm nhiều văn bản, chẳng hạn như "KTE", "KTO" và "KTW" 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, Eric,

Có thể mã VBA sau đây có thể giúp bạn in đậm nhiều ô cụ thể, vui lòng áp dụng mã dưới đây.
Sub FindAndBold ()
Dim I As Long
Dim xFind As String
Dim xCell As Range
Dim xTxtRg dưới dạng phạm vi
Dim xCount As Long
Dim xLen dưới dạng số nguyên
Dim xStart dưới dạng số nguyên
Làm mờ xRg theo phạm vi, xRgTìm theo phạm vi
Làm mờ xTxt dưới dạng chuỗi
Dim xArr () As String
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
Đặ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
On Error Resume Next
Đặt xTxtRg = Application.Intersect (xRg.SpecialCells (xlCellTypeConstants, xlTextValues), xRg)
Nếu xTxtRg không có gì thì
MsgBox "Không có ô nào có văn bản"
Thoát Sub
Cuối Nếu
Đặt xRgFind = Application.InputBox ("Chọn các ô văn bản bạn muốn in đậm", "Kutools cho Excel",,,,,, 8)
Nếu xRgFind không có gì thì
MsgBox "Không có văn bản nào được liệt kê", vbInformation, "Kutools cho Excel"
Thoát Sub
Cuối Nếu
ReDim xArr (xRgFind.Count - 1)
Đối với I = 0 Đến (xRgFind.Count - 1)
xArr (I) = xRgFind (I + 1)
Sau
Đối với mỗi xCell Trong xTxtRg
Đối với I = 0 Đến UBound (xArr)
xFind = Trim (xArr (I))
xStart = InStr (xCell.Value, xFind)
xLen = Len (xFind)
Thực hiện trong khi xStart> 0
xCell.Characters (xStart, xLen) .Font.Bold = True
xCount = xCount + 1
xStart = InStr (xStart + xLen, xCell.Value, xFind)
Vòng lặp
Sau
Sau
Nếu xCount> 0 Thì
MsgBox "số lượng" & CStr (xCount) & "văn bản được in đậm!", VbInformation, "Kutools cho Excel"
Khác
MsgBox "Không tìm thấy văn bản cụ thể!", VbInformation, "Kutools cho Excel"
Cuối Nếu
End Sub

Hy vọng nó có thể giúp bạ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
nếu tôi chỉ muốn in đậm chuỗi G-AD, nó không hoạt động nếu tôi có trong ô G-AD và G-AD-bla-bla-bla của mình (G-AD này không nên được làm ĐẬM)
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, bạn có thể giúp tôi về điểm xuất sắc của tôi được không?
Nếu tìm thấy "1º" trong ô có nhiều dòng, hãy in đậm dò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, có thể tìm kiếm nhiều văn bản và in đậm văn bản đó CỘNG cho dòng ô đó. (Tôi có 1 ô với 5 dòng, tôi muốn in đậm dòng nếu tìm thấy "1º", nếu phần còn lại như "2º" "3º", "số + º" chỉ in đậm số.)

Nhu cầu khác là:
Nếu tìm thấy "1º", hãy in đậm dò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 đã cố gắng chạy mã này và chỉ gặp lỗi ... "Lỗi biên dịch: Sai số đối số hoặc gán thuộc tính không hợp lệ". Dưới đây là hình ảnh của thông báo lỗi và điểm ngắt của mã.
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, Sherry,
Tôi không thể xem ảnh chụp màn hình của bạn, vui lòng tải lên lại.
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 nhận được lần nhấn cửa sổ bật lên đầu tiên được nhưng sau đó không nhận được cửa sổ bật lên thứ hai để nhập từ?
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! Làm việc tuyệt vời!
Không có bình luận nào được đăng ở đây
Để 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