Cách tự đông bôi đậm ký tự

[tien810535]

Em có nhiều hàng, mỗi hàng có ký tự " công ty " trong đó, giờ muốn làm sao để bôi đạm ký tự này mà các ký tự khác vẫn để nghuyên ạ

 

[BuiQuangThuan]

Em có nhiều hàng, mỗi hàng có ký tự " công ty " trong đó, giờ muốn làm sao để bôi đạm ký tự này mà các ký tự khác vẫn để nghuyên ạ

Có chức năng ctrl + H đó

 

[tien810535]

Có chức năng ctrl + H đó

tìm xong làm sao bôi đậm ký tự đó bác

 

[BuiQuangThuan]

tìm xong làm sao bôi đậm ký tự đó bác

Có chỗ tìm kiếm xong format đó bạn

 

[Tình nghĩa giang hồ]

Hồi trước mình cũng có nhờ hỗ trợ vụ này rồi, không chỉ đậm nhạt, in nghiêng mà màu sắc cũng đều làm làm được nhé. Mà bạn cần hàm thì mình nghĩ không làm được, chỉ có thể VBA.

Hỗ trợ nối dữ liệu giữ nguyên bản sắc

Em chào anh chị, em có vấn đề này nhờ anh chị giúp đỡ. Em có 3 cột dữ liệu: dữ liệu 1, kiểu nối, dữ liệu 2. Em mong muốn dữ liệu có định dạng gì (in đậm, in nghiêng) và màu sắc (đỏ, cam vàng....). Khi kết hợp lại thì giữ nguyên, kiểu dạng hòa nhập mà không hòa tan đó anh chị. Trường hợp, nếu...

www.giaiphapexcel.com

 

[tien810535]

Có chỗ tìm kiếm xong format đó bạn

nó lại bôi đậm hết tất cả ký tự trong hàng đó bạn à, mình chỉ muốn bôi đậm cái từ tìm kiếm

 

[Hoàng Tuấn 868]

Em có nhiều hàng, mỗi hàng có ký tự " công ty " trong đó, giờ muốn làm sao để bôi đạm ký tự này mà các ký tự khác vẫn để nghuyên ạ

Việc này VBA làm được nhưng cần xem cấu trúc file thế nào.

 

[bebo021999]

Dùng VBA nhé bạn. Vì cửa sổ soạn thảo không cho phép nhập tiếng Việt có dấu, nên bạn nhập chữ "công ty" vào 1 ô điều kiện nào đó (trong file ví dụ mình dùng ô P3)
Chuột phải vào tên sheet, View Code, Insert/ module 1, dán đoạn code phía dưới vào
Tạo 1 nút bấm "TÔ ĐẬM" , và gán code cho nó (chuột phải, assign macro, chỉ vào tên của module "công ty", chọn OK)
Bây giờ bạn quét chọn vùng dữ liệu muốn tô màu, sao đó click và nút "TÔ ĐẬM"
Lưu file dạng .xlsm

Option Explicit
Sub congty()
Dim f, dk As String, c As String
dk = Range("P3").Value
Set f = Selection.Find(what:=dk, lookat:=xlPart)
If Not f Is Nothing Then
    c = f.Address
    Do
        Set f = Selection.FindNext(f)
        f.Characters(InStr(1, f, dk, vbTextCompare), Len(dk)).Font.Bold = True
    Loop While Not f Is Nothing And f.Address <> c
End If
End Sub

 

[HeSanbi]

@tien810535 bạn có thể dùng hàm

Tìm kiếm, định dạng phông và tô màu chuỗi với hàm UDF Excel

TÌM KIẾM, ĐỊNH DẠNG PHÔNG VÀ TÔ MÀU CHUỖI TÌM ĐƯỢC với Hàm S_Find và S_Find2 S_Find - Tìm kiếm và định dạng trực tiếp tại ô chứa giá trị S_Find2 - Mang giá trị đến một vùng mới sau đó tìm kiếm và định dạng (Vì Excel không cho phép định dạng phông thành phần chuỗi tại một ô...

www.giaiphapexcel.com