Tìm/Thay thế trong bình luận Excel

Tìm/Thay thế trong bình luận Excel

Chắc chắn sẽ bắt buộc phải có đề xuất mô-đun để thay thế một đoạn văn bản cụ thể được tìm thấy trong các nhận xét của các ô ĐƯỢC CHỌN bằng các ô được đề xuất.

Cảm ơn trước!

Trân trọng, Faraz A Qureshi


Trả lời:

Hãy thử macro này...

Tìm kiếm phụReplaceInComments()
Làm mờ ô dưới dạng phạm vi, C dưới dạng nhận xét, Ctext dưới dạng chuỗi
Dim TextToFind dưới dạng chuỗi, thay thế bằng chuỗi
TextToFind = "văn bản cũ"
Thay thếWith = "văn bản mới"
Khi xảy ra lỗi Tiếp tục tiếp theo
Đối với mỗi C trong ActiveSheet.Comments
Nếu không giao nhau (C.Parent, Selection) thì không có gì
Đặt ô = C.Parent
Ctext = C.Văn bản
Nếu Left(Ctext, 1) = UCase(Left(Ctext, 1)) Thì Mid(ReplaceWith, 1, 1) = UCase(Left(ReplaceWith, 1))
C.Xóa
Cell.AddComment.Text Thay thế(Ctext, TextToFind, RestoreWith, , , vbTextCompare)
Kết thúc nếu
Kế tiếp
Kết thúc phụ

Đảm bảo bạn chỉ định văn bản của mình cho các biến TextToFind và AlternativeWith, thay thế các ví dụ của tôi về "văn bản cũ" và "văn bản mới" bằng văn bản thực tế của bạn. Lưu ý rằng mã phải xử lý chính xác chữ cái viết hoa ở đầu câu; nghĩa là, nếu TextToFind bắt đầu bằng chữ in hoa thì văn bản Thay thế bằng sẽ được thay đổi sao cho chữ cái đầu tiên của nó là chữ hoa (phần còn lại của văn bản sẽ giữ nguyên chính xác như bạn nhập).

LƯU Ý: Vui lòng đánh dấu tin nhắn hoặc nhiều tin nhắn (có, bạn có thể đánh dấu nhiều tin nhắn) trả lời câu hỏi của bạn là "Trả lời" để người khác biết câu hỏi của bạn đã được giải quyết.

Trả lời:

Đoạn mã sau kiểm tra từng ô đã chọn để đảm bảo chúng có nhận xét, sau đó tìm và thay thế văn bản cụ thể trong nhận xét. Hy vọng tôi đã giải thích chính xác câu hỏi của bạn.

'Ví dụ: giả sử các bình luận có chứa "Bình luận cũ của tôi"
'Mã thay thế "Cũ" bằng "Mới" trong mỗi bình luận.

Sub Thay thếInComment()

Dim rngCel As Range

Cho Mỗi rngCel Trong Lựa Chọn
Về Lỗi Tiếp tục Tiếp theo 'Lỗi nếu không có bình luận
Nếu rngCel.Comment.Text <> "" Thì 'Kiểm tra ô không có nhận xét
rngCel.Comment.Text Text:=Thay thế(rngCel.Comment.Text, "Cũ", "Mới")
Kết thúc nếu
Khi có lỗi Chuyển tới 0
rngCel tiếp theo

Kết thúc phụ

Trân trọng, OssieMac

Comments

Post a Comment

Popular posts from this blog

Macro Đã bật Excel bị hỏng khi sử dụng Excel> Chia sẻ> Email> Gửi dưới dạng tệp đính kèm

Macro Đã bật Excel bị hỏng khi sử dụng Excel> Chia sẻ> Email> Gửi dưới dạng tệp đính kèm Macro Đã bật Excel bị hỏng khi sử dụng Excel> Chia sẻ> Email (O365)> Gửi dưới dạng tệp đính kèm. Khi người nhận mở tệp - bị hỏng. Nếu gửi bằng tùy chọn bên dưới - không có vấn đề gì. 1. Đóng Excel đã bật Macro 2. Outlook> Email mới 3. Đính kèm / Sao chép tệp và gửi Câu trả lời: Xin chào Dipayan Dasgupta, Cảm ơn bài đăng của bạn trong Cộng đồng Microsoft. Rất tiếc, câu hỏi của bạn nằm ngoài phạm vi hỗ trợ của chúng tôi. Để nhận được câu trả lời chi tiết, toàn diện và chuyên nghiệp hơn, chúng tôi khuyên bạn nên đặt câu hỏi trong cộng đồng Technet . Vui lòng đăng lại nếu bạn cần hỗ trợ thêm. Trân trọng, Lynn Sun | Chuyên gia hỗ trợ cộng đồng của Microsoft ----------------------- * Hãy cẩn thận với những kẻ lừa đảo đăng số hỗ trợ giả mạo tại đây. * Vui lòng Đánh dấu và Bình chọn câu trả lời này nếu nó hữu ích, vì nó sẽ có lợi cho nhiều thành viên cộng đồng hơn đọc ...
Read more

Microsoft excel - Tạo công thức trong đó dữ liệu từ các tab / Bảng tính khác nhau có thể được đồng bộ hóa dựa trên một ô trên bảng tính

Microsoft excel - Tạo công thức trong đó dữ liệu từ các tab / Bảng tính khác nhau có thể được đồng bộ hóa dựa trên một ô trên bảng tính Xin chào! Tôi có một bảng tính gồm nhiều tab có tên hàng / cột giống hệt nhau (ví dụ: một tab có dữ liệu cho mọi thành phố lớn ở Hoa Kỳ) Những gì tôi đang tìm cách làm là thêm một tab khác vào tài liệu excel có thể thu thập dữ liệu từ một trong các tab của thành phố lớn. Nếu tôi muốn thu thập dữ liệu từ cột B (ví dụ) trong một trong các tab, có thể chỉ cần nhập tên tab vào một ô (hoặc tạo danh sách cuộn xuống) và kết hợp ô đó như một phần của công thức để xác định không tab nào để thu thập dữ liệu. Cảm ơn nhiều! Câu trả lời: Xin chào, Vui lòng kiểm tra liên kết sau nó có thể giúp bạn. https: //analysistabs.com/excel-vba/copy-data-fr ... nếu điều đó không hiệu quả với bạn, vui lòng chia sẻ cho bạn công việc Excel trên oneDrive và gửi cho tôi liên kết để tôi có thể hướng dẫn bạn chi tiết Trân trọng, Engr. Muhammad bị kẹt Câu trả lời: Yêu cầ...
Read more

Làm mới danh sách SharePoint đã xuất không thành công trong Excel 2013 khi hoạt động với Excel 2010

Làm mới danh sách SharePoint đã xuất không thành công trong Excel 2013 khi hoạt động với Excel 2010 Trường hợp đơn giản là tôi đã xuất danh sách SharePoint sang Excel 2013. Danh sách này nhập tốt vào Excel, nhưng khi nhấp chuột phải, chọn Làm mới, tôi nhận được thông báo "Không thể thiết lập kết nối đến trang SharePoint. Để đồng bộ hóa hoặc làm mới bảng của bạn , bạn phải có khả năng kết nối với trang SharePoint." Điều này hoạt động tốt với Excel 2010. Rõ ràng tôi có quyền truy cập vào trang web vì tôi đang kết nối với nó để thực hiện xuất. Trả lời: Xin chào,   Đối với các vấn đề liên quan đến Excel WebQuery, vấn đề của bạn sẽ được giải quyết tốt nhất trong diễn đàn Excel IT Pro. Hãy tham khảo liên kết sau để đăng truy vấn của bạn: http://social.technet.microsoft.com/Forums/office/en-US/home?forum=excel   Nếu có bất kỳ câu hỏi nào khác liên quan đến các sản phẩm Office, bạn luôn có thể trả lời và tôi rất sẵn lòng hỗ trợ bạn.   Cảm ơn Trả lời: Bạn đã ...
Read more