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
125
Được thích
27
Điểm
20
Tuổi
30
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
852
Được thích
1,164
Đ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
125
Được thích
27
Điểm
20
Tuổi
30
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 ạ!
 

hieuxd

Thành viên tích cực
Tham gia ngày
27 Tháng năm 2009
Bài viết
852
Được thích
1,164
Điểm
860
Nơi ở
Hà Nội
Cảm ơn anh! để em xem ạ!
Để ứng dụng rộng thì trong một thư mục nên có nhiều file mẫu. Ví dụ mẫu hợp đồng ; mẫu đối chiếu công nợ; mẫu bàn giao, mẫu nghiệm thu, mẫu nhập kho, xuất kho. File excel cũng phải nhiều hơn 2 sheet. Sheet Data phải khai thác được dữ liệu sẵn có trong các sheet khác. Các fille mẫu dùng chung Data duy nhất. Mình đã ứng dụng soạn theo hướng excel word 5 năm rồi. Giờ bỏ nghề ít dùng
 
Top Bottom