Đổi tên hàng loạt mà không làm mất định dạng của dòng

[a10]

Mình có file đi kèm. Mình muốn đổi hàng loạt các từ "Số hộ chiếu" thành "Số chứng minh thư" trong toàn bộ Sheet. Tuy nhiên khi mình đồi hàng loạt thì vướng ở chỗ
ví dụ dòng :
Cao Thanh Hãi, sinh năm: 1963, số hộ chiếu: 191084646, cấp ngày: 10/06/1986, nơi cấp: Công an Bình Trị Thiên
===> Đúng (Chữ "Cao Thanh Hãi" đậm nghiêng còn các chữ tiếp theo nghiêng)
Nhưng sau khi chuyển đổi hàng loạt "Số hộ chiếu" thành "Số chứng minh thư" trong Sheet thì nó lại đổi hết toàn bộ dòng đó là đậm nghiêng hết:
Cao Thanh Hãi, sinh năm: 1963, số chứng minh thư: 191084646, cấp ngày: 10/06/1986, nơi cấp: Công an Bình Trị Thiên
===> Sai (Toàn bộ chữ bị chuyển sang đậm nghiêng hết)
Vậy có cách nào đổi mà không làm ảnh hưởng tới định dạng của bảng tính gì k các bác
Rất mong các bác chỉ giáo.
cảm ơn các bạn và cảm ơn diễn đàn

 

[vu_tuan_manh_linh]

Quét vùng chọn rồi chạy đoạn code sau nhé!!

Sub Run_DD()
Dim Cll As Range
For Each Cll In Selection
    With Cll.Characters(Start:=1, Length:=InStr(1, Cll.Formula, ", sinh") - 1).Font
        .FontStyle = "Bold Italic"
    End With
    With Cll.Characters(Start:=InStr(1, Cll.Formula, ", sinh"), Length:=Len(Cll.Formula) - InStr(1, Cll.Formula, ", sinh")).Font
        .FontStyle = "  Italic"
    End With
Next
End Sub
Sub

 

[a10]

Cảm ơn bạn. Nhưng bạn có thể hướng dẫn mình cụ thế hơn 1 chút được k?
- Code này cho vào đâu? Làm thế nào để cho nó vào để chạy được trong excel?
- Đổi tên xong mới chạy cái code này hay là chạy code này xong mới đổi tên hàng loạt?
Rất mong bạn cũng như a e nào biết thì giúp đỡ mình

Quét vùng chọn rồi chạy đoạn code sau nhé!!

Sub Run_DD()
Dim Cll As Range
For Each Cll In Selection
    With Cll.Characters(Start:=1, Length:=InStr(1, Cll.Formula, ", sinh") - 1).Font
        .FontStyle = "Bold Italic"
    End With
    With Cll.Characters(Start:=InStr(1, Cll.Formula, ", sinh"), Length:=Len(Cll.Formula) - InStr(1, Cll.Formula, ", sinh")).Font
        .FontStyle = "  Italic"
    End With
Next
End Sub
Sub

 

[vu_tuan_manh_linh]

Cảm ơn bạn. Nhưng bạn có thể hướng dẫn mình cụ thế hơn 1 chút được k?
- Code này cho vào đâu? Làm thế nào để cho nó vào để chạy được trong excel?
- Đổi tên xong mới chạy cái code này hay là chạy code này xong mới đổi tên hàng loạt?
Rất mong bạn cũng như a e nào biết thì giúp đỡ mình

Đương nhiên điều bạn đang hỏi nhiều vô số trên diễn đàn!! Bạn nên chủ động tìm kiếm, mọi người rất ngại nhắc lại!!

 

[phucbugis]

Cảm ơn bạn. Nhưng bạn có thể hướng dẫn mình cụ thế hơn 1 chút được k?
- Code này cho vào đâu? Làm thế nào để cho nó vào để chạy được trong excel?
- Đổi tên xong mới chạy cái code này hay là chạy code này xong mới đổi tên hàng loạt?
Rất mong bạn cũng như a e nào biết thì giúp đỡ mình

code đó được đưa vào cửa sổ VBAProject,

bạn chèn đoạn đó bằng cách:
- nhấn tổ hợp phím Alt+F11
- chọn menu Insert _ Module _ copy đoạn code đó vào cửa sổ bên phải.

- Tại sheet Quyen1, chọn ô A3, click tổ hợp phím Alt+F8, chọn Macro có Name là Run_DD -> click Run để xem kết quả.

Link: https://www.mediafire.com/?7f5l42buyyvkr41

 

[a10]

Mình đã làm được r, rất cảm ơn các bạn