Sửa lại code để lấy từ khóa từ word sang excel

vc_đi chơi

Thành viên hoạt động
Tham gia ngày
21 Tháng chín 2019
Bài viết
109
Được thích
24
Điểm
20
Tuổi
29
Nhờ Anh chị và các bạn giúp mình Sửa lại code lấy từ khóa [key] từ word sang excel để soạn thảo văn bản.
Bài này đã mở rộng ở chủ đề: https://www.giaiphapexcel.com/diendan/threads/code-lấy-từ-khóa-từ-word-sang-excel-bị-thiếu.145110/page-4#post-942101
Tôi xin được phép ngắn gọn lại một chủ đề mới, Xin được giúp đỡ.
Foder của tôi gồm 02 file chứa trong một folder: một file excel và một file word.
File Word là File_Mau có chứa các từ khóa dạng [*****] để lấy sang cột B thuộc Sheet (Data) trong file Excel bằng cách chạy -> Sub ChuongTrinh.
Tôi nhờ giúp đỡ tôi để từ khóa [key] được lấy sang excel thỏa mãn điều kiện:
1*) Thứ nhất: từ khóa trong file excel lấy từ word sang được sắp xếp theo trình tự trang word từ đầu đến -> cuối trang, trên cùng một dòng thì theo chiều từ trái -> qua phải.
2*). Thứ hai: khi chèn thêm từ khóa vào word và chạy -> Sub ChuongTrinh để lấy thêm [key] mới vừa được chèn trong word thì nội dung cũ trong cột C ứng với từ khóa ( trước khi chạy > Sub ChuongTrinh) trong cột B thuộc sheet(Data) sẽ không bị thay đổi tức là các từ khóa [key] cũ ứng với nội dung cũ sẽ không bị mất đi khi chèn thêm từ khóa mới vào trong file Word_Mau và đồng thời khi xóa từ khóa trong file wrod đi và chạy -> Sub ChuongTrinh thì từ khóa bị xóa và nội dung tương ứng với từ khóa đó trong file excel cũng bị xóa.
Hiện tại thì code đã lấy từ khóa từ excel sang word nhưng chưa được sắp xếp theo điều kiện thứ nhất.
Tôi mong được giúp đỡ, xin cảm ơn!
 

File đính kèm

Lần chỉnh sửa cuối:

hieuxd

Thành viên tích cực
Tham gia ngày
27 Tháng năm 2009
Bài viết
846
Được thích
1,142
Điểm
860
Nơi ở
Hà Nội
Nhờ Anh chị và các bạn giúp mình Sửa lại code lấy từ khóa [key] từ word sang excel để soạn thảo văn bản.
Bài này đã mở rộng ở chủ đề: https://www.giaiphapexcel.com/diendan/threads/code-lấy-từ-khóa-từ-word-sang-excel-bị-thiếu.145110/page-4#post-942101
Tôi xin được phép ngắn gọn lại một chủ đề mới, Xin được giúp đỡ.
Foder của tôi gồm 02 file chứa trong một folder: một file excel và một file word.
File Word là File_Mau có chứa các từ khóa dạng [*****] để lấy sang cột B thuộc Sheet (Data) trong file Excel bằng cách chạy -> Sub ChuongTrinh.
Tôi nhờ giúp đỡ tôi để từ khóa [key] được lấy sang excel thỏa mãn điều kiện:
1*) Thứ nhất: từ khóa trong file excel lấy từ word sang được sắp xếp theo trình tự trang word từ đầu đến -> cuối trang, trên cùng một dòng thì theo chiều từ trái -> qua phải.
2*). Thứ hai: khi chèn thêm từ khóa vào word và chạy -> Sub ChuongTrinh để lấy thêm [key] mới vừa được chèn trong word thì nội dung cũ trong cột C ứng với từ khóa ( trước khi chạy > Sub ChuongTrinh) trong cột B thuộc sheet(Data) sẽ không bị thay đổi tức là các từ khóa [key] cũ ứng với nội dung cũ sẽ không bị mất đi khi chèn thêm từ khóa mới vào trong file Word_Mau và đồng thời khi xóa từ khóa trong file wrod đi và chạy -> Sub ChuongTrinh thì từ khóa bị xóa và nội dung tương ứng với từ khóa đó trong file excel cũng bị xóa.
Hiện tại thì code đã lấy từ khóa từ excel sang word nhưng chưa được sắp xếp theo điều kiện thứ nhất.
Tôi mong được giúp đỡ, xin cảm ơn!
Bằng cách này hay cách khác để cho thỏa cả 2 điều kiện là được, vấn đề nào khó chưa dùng VBA được thì ta tạm quay sang dùng hàm có sắn trong Excel:
b1: Trước khi chạy Sub chuongTrinh bạn Copy sheet Data sang Sheet Mới và đổi tên là DataUpdated
b2: Xóa hết dữ liệu các dòng trong Data (Từ dòng 3 trở xuống)
b3: Chạy Sub ChuongTrinh Được [key] thỏa mãn điều kiện 1 và một phần điều kiện 2 (đã lấy theo thứ tự từ trên xuống dưới, Từ Trái qua phải và lấy duy nhất
b4: Cập nhật dữ liệu đã nhập ở sheet DataUpdated (ví dụ bằng hàm Vlookup: =VLOOKUP(B3;DataUpdated!$B$3:$C$14;2;0) cho Sheet Data)
b5: các bước tiếp của bạn, nhập nội dung cho key mới chưa có nội dung
Mong ngày gần nhất được gặp lại 2 tác giả Code!
Từ các bước trên mình nghĩ sẽ có bạn viết được Code để thay thế cho dùng hàm
Mình chỉ biết lái xe chứ không sản xuất xe và sửa xe nhé
 

File đính kèm

Lần chỉnh sửa cuối:

vc_đi chơi

Thành viên hoạt động
Tham gia ngày
21 Tháng chín 2019
Bài viết
109
Được thích
24
Điểm
20
Tuổi
29
Bằng cách này hay cách khác để cho thỏa cả 2 điều kiện là được, vấn đề nào khó chưa dùng VBA được thì ta tạm quay sang dùng hàm có sắn trong Excel:
b1: Trước khi chạy Sub chuongTrinh bạn Copy sheet Data sang Sheet Mới và đổi tên là DataUpdated
b2: Xóa hết dữ liệu các dòng trong Data (Từ dòng 3 trở xuống)
b3: Chạy Sub ChuongTrinh Được [key] thỏa mãn điều kiện 1 và một phần điều kiện 2 (đã lấy theo thứ tự từ trên xuống dưới, Từ Trái qua phải và lấy duy nhất
b4: Cập nhật dữ liệu đã nhập ở sheet DataUpdated (ví dụ bằng hàm Vlookup: =VLOOKUP(B3;DataUpdated!$B$3:$C$14;2;0) cho Sheet Data)
b5: các bước tiếp của bạn, nhập nội dung cho key mới chưa có nội dung
Mong ngày gần nhất được gặp lại 2 tác giả Code!
Từ các bước trên mình nghĩ sẽ có bạn viết được Code để thay thế cho dùng hàm
Mình chỉ biết lái xe chứ không sản xuất xe và sửa xe nhé
Cảm ơn anh! để em xem ạ!
 
Top Bottom