Soạn thảo văn bản Word từ Excel (2 người xem)

[TrungChinhs]

Trong khi soạn thảo văn bản trên Word nhiều khi ta mơ ước nó liên kết được với dữ liệu có sẵn từ Excel. Mặc dù trên Word có sẵn chức năng này nhưng không phải ai cũng biết; mà có biết thì cũng ngại sử dụng vì nó tương đối phức tạp và chạy rất ì ạch...

Từ những kiến thức học được trên GPE tôi làm một file Excel để hỗ trợ soạn thảo văn bản soạn thảo trên Word. Qua sử dụng thấy rất hiệu quả nên Post lên chia xẻ với các bạn coi như là một món quà mừng sinh nhật GPE lần thứ 7.

Hướng dẫn sử dụng:
1. Tải về một thư mục nào đó (tùy ý).

2. Trong thư mục này có File Word mẫu ví dụ là "To trinh thu hoi dat" (mọi chỉnh sửa đều phải thực hiện trên file mẫu này).

3. Trong thư mục này có File DaTa Exel - Word File này là dùng để soạn thảo các nội dung cần chèn vào File Word mẫu để tạo nên file văn bản mà bạn mong muốn.

4. File văn bản sẽ được tự động tạo ra trong thư mục chữa file mẫu. File mẫu là tên file nằm ở dòng đầu tiên của cột C (trong ví dụ có 2 File, muốn tạo file theo mẫu nào thì bạn copy dòng đó dán lên trên). Tên file tạo ra là tên ở dòng đầu tiên của cột.

5. Khi muốn tạo 1 file văn bản nào thì bạn đặt con trỏ vào cột chứa nội dung của văn bản đó và nhấn Ctrl + W

6. Khi muốn muốn tạo nhiều văn bản (theo số cột có dữ liệu) thì bạn đặt con trỏ vào cột C và nhấn Ctrl + W

Cái này thích hợp với việc soạn thảo văn bản theo đề cương, theo mẫu và sản xuất hàng loạt như soạn thảo hợp đồng, biên bản nghiệm thu, báo cáo tuần, tháng...

Bạn quan sát kỹ File Word mẫu và dữ liệu các cột bên Exel để vận dụng vào tình huống cụ thể của bạn.

P/s Trường hợp không muốn lấy số lẻ sau dấu phảy (vd muốn 20 thay vì 20,0) hoặc không muốn dấu phân cách (vd 1000 thay vì 1.000) thì các bạn nhập thêm dấu gạch dưới trước dữ liệu để biến thành dạng Text (Vd _20 hoặc _1000)

Lúc đầu thì thấy hơi rắc rối nhưng bạn cứ thử xem. Khi đã biết cách làm thì bạn sẽ thấy nó lợi hại như thế nào ?


Chúc các bạn thành công và đạt hiệu quả cao trong công việc.

 

[vietducnbt]

Thật tuyệt đúng việc mà em đang quan tâm. sẽ nghiên cứu kỹ hơn.

 

[datvba]

Chú TrungChinhs ơi, con áp dụng cái file của chú vào việc tạo mẫu, ứng dụng rất tốt cho công việc. Nhưng có 1 vấn đề là : làm sao để bỏ dấu , phân cách hàng ngàn của số. Vì khi nhập liệu đôi khi lại cần số dưới dạng number, đôi khi cần số dưới dạng text.
Ví dụ: CMND cần để 123456789 thì nó lại 123,456,789. Vậy để sửa lại thì phải làm thế nào vậy chú. Mong chú giúp đỡ.

 

[TrungChinhs]

Chú TrungChinhs ơi, con áp dụng cái file của chú vào việc tạo mẫu, ứng dụng rất tốt cho công việc. Nhưng có 1 vấn đề là : làm sao để bỏ dấu , phân cách hàng ngàn của số. Vì khi nhập liệu đôi khi lại cần số dưới dạng number, đôi khi cần số dưới dạng text.
Ví dụ: CMND cần để 123456789 thì nó lại 123,456,789. Vậy để sửa lại thì phải làm thế nào vậy chú. Mong chú giúp đỡ.

File lần trước, do tôi không Test trước khi gửi nên có tí trục trặc là không in được hàng loạt file Word theo số cột bên Excel, tôi đã sửa lại File tại bài 1. Thành thật xin lỗi các bạn.

 

[datvba]

Chú ơi, con vẫn còn gặp vấn đề về dấu phân cách. Vì file của con sử dụng cùng lúc 2 dạng số:
VD : Chứng minh nhân dân thì ko sử dụng phân cách; còn diện tích đất thì cần dấu phân cách.
Như vậy, nếu sử dụng tùy chọn C3 thì nó vẫn cho ra dữ liệu cùng 1 loại. Còn gửi kèm file để chú xem qua ạ.

 

[TrungChinhs]

Chú ơi, con vẫn còn gặp vấn đề về dấu phân cách. Vì file của con sử dụng cùng lúc 2 dạng số:
VD : Chứng minh nhân dân thì ko sử dụng phân cách; còn diện tích đất thì cần dấu phân cách.
Như vậy, nếu sử dụng tùy chọn C3 thì nó vẫn cho ra dữ liệu cùng 1 loại. Còn gửi kèm file để chú xem qua ạ.

Chú đã sửa lại file ở bài 1. Con tải lại file và xem hướng dẫn ở phần P/s nha. Có gì chưa ổn thông báo cho chú biết.

 

[datvba]

Vẫn còn chú ơi.
1. Tạo file chỉ có hiệu lực ở dòng c5 or d5 khi nhấn Ctrl W (những dòng khác từ c6 đến c9 không tác dụng)

à, còn 1 cái nữa chú: Chú add cho con thêm vài hàng cột C (phần tạo file) luôn nhe chú (trong file chỉ có từ c5-c9 để tạo file). Con cám ơn chú ạ.

 

[thuyhuong91]

giúp e với
e không biết cách tạo văn bản trong excel

 

[nhdphong]

bác ơi, có cách nào tự động mở luôn file word vừa tạo ra không

 

[TrungChinhs]

bác ơi, có cách nào tự động mở luôn file word vừa tạo ra không

Đương nhiên là được nhưng muộn rồi, mai xem sửa lại code, bạn chịu khó chờ nhé.

 

[nhdphong]

Cảm ơn bác, nhờ bác giúp mình vấn đề này

 

[TrungChinhs]

Bạn vào code đánh dấu nháy vào 2 câu lệnh này kết quả sẽ như ý của bạn (nếu muốn trở lại như cũ thì lại xóa dấu nháy đi).

Sub Replace_Word_Excel()
........
.......
[SIZE=5][COLOR=#ff0000][B]'           [/B][/COLOR][/SIZE][COLOR=#0000cd][B] .Documents(ThisWorkbook.Path & "\" & Cells(5, j + 3) & ".doc").Close (True)[/B][/COLOR]
        Next
[SIZE=5][COLOR=#ff0000][B]'        [/B][/COLOR][/SIZE][COLOR=#0000cd][B].Quit[/B][/COLOR]
    End With
End Sub

 

[nhdphong]

Thành công rồi, cảm ơn bạn nha. Nhưng mình có thêm 1 ý tưởng là mình sẽ gán lệnh tạo file word cho từng nút lệnh, chỉ cần nhấp vào nút lệnh là sẽ tạo ra 1 file word tương ứng mà ko cần phải để con trỏ chuột vào cột cần tạo, ko biết như thế có đc ko nhỉ

 

[TrungChinhs]

Thành công rồi, cảm ơn bạn nha. Nhưng mình có thêm 1 ý tưởng là mình sẽ gán lệnh tạo file word cho từng nút lệnh, chỉ cần nhấp vào nút lệnh là sẽ tạo ra 1 file word tương ứng mà ko cần phải để con trỏ chuột vào cột cần tạo, ko biết như thế có đc ko nhỉ

Chắc chắn là được.
Bạn đã nghe chuyện 1 nhà bác học khoét trên cánh cửa 2 lỗ: lỗ to cho con chó, lỗ nhỏ cho con mèo ?
Hãy thử để biết phương án nào là tối ưu.

 

[nhdphong]

Chắc chắn là được.
Bạn đã nghe chuyện 1 nhà bác học khoét trên cánh cửa 2 lỗ: lỗ to cho con chó, lỗ nhỏ cho con mèo ?
Hãy thử để biết phương án nào là tối ưu.

Mình hiểu ý của bạn, nhưng ở đây là mình muốn tạo 1 cái form, trong form đó sẽ có 3 nút lệnh, mỗi nút tương ứng với 1 lệnh tạo file word, trình bày như thế sẽ đẹp hơn, bạn có thể giúp mình vấn đề này đc ko

 

[nhdphong]

haha mình đã làm đc rồi, phải nói là quá tuyệt )

 

[nhdphong]

Bạn ơi cho mình hỏi, sao từ thay thế là 1 con số thì nó ko bắt qua bên word đc zậy, nếu thay = 1 đoạn text thì lại đc

 

[TrungChinhs]

Bạn ơi cho mình hỏi, sao từ thay thế là 1 con số thì nó ko bắt qua bên word đc zậy, nếu thay = 1 đoạn text thì lại đc

Bạn cho ví dụ cụ thể xem nó như thế nào ?

 

[nhdphong]

Nếu thay CMND là 1 chuỗi text thì lại đc, còn con số thi ko đc, khó hiểu

 

[TrungChinhs]

Nếu thay CMND là 1 chuỗi text thì lại đc, còn con số thi ko đc, khó hiểu

Bạn xem lại bài 1. Thắc mắc của bạn đã được nói rõ ở phần P/s

 

[nhdphong]

hix, để dấu phẩy phía trước thì ko vấn đề gì rồi,vấn đề đặt ra ở đây là 1 chuỗi công thức kìa

 

[TrungChinhs]

Ý của bạn là ô có dầu "=" vd =123456 ?
File ở bài 1 tôi test: bên Excel =123456 bên Word là 123456.

 

[bingoo511]

Sub Replace_Word_Excel()    Application.ScreenUpdating = False
    On Error Resume Next
    Sheets("DaTa_In").[d5].Resize(10000, 250).ClearContents
    With CreateObject("Word.Application")
        .Visible = True
        Scl = 1
        Ecl = [d5].Resize(, 200).SpecialCells(2).Cells.Count
        file = [c5]
        If Selection.Column > 3 Then
            Scl = Selection.Column - 3
            Ecl = Scl
        End If
        For j = Scl To Ecl
            Doc = .Documents.Open(ThisWorkbook.Path & "\" & file & ".doc")
            .Documents(ThisWorkbook.Path & "\" & file & ".doc").SaveAs Filename:=ThisWorkbook.Path & "\" & Cells(5, j + 3) & ".doc"
            For Each cls In Range([c10], [c65000].End(3))
                If cls(1, j + 1) > 1000000000 Then
                    .Selection.Find.Execute cls, , , , , , , , , Sheets("DaTa").Range(cls(1, j + 1).Address(0, 0)), 2
                ElseIf cls > 0 Then
                    Sheets("DaTa_In").Range(cls(1, j + 1).Address(0, 0)) = "=IF(TYPE(FIXED(DaTa!RC,1))=16,DaTa!RC,FIXED(DaTa!RC,1))"
                    .Selection.Find.Execute cls, , , , , , , , , Sheets("DaTa_In").Range(cls(1, j + 1).Address(0, 0)), 2
                End If
            Next
            .Selection.Find.Execute "_", , , , , , , , , "", 2
            .Documents(ThisWorkbook.Path & "\" & Cells(5, j + 3) & ".doc").Close (True)
        Next
        .Quit
    End With
End Sub

Bác có thể giải thích em về CODE của Macro này không!? Em muốn ứng dụng vào file của em mà không hiểu hết được...

tks

 

[nhdphong]

bạn ơi cho mình hỏi, code của bạn có thể xuất luôn dữ liệu từ excel sang excel không vậy

 

[thanhphuccd]

Ban Trung Chinhs ơi, bạn có thể chỉnh cho có thể xuất từ excel sang word một đoạn văn bản dài hơn một chút k? Xin cảm ơn

quần áo trẻ em | quan ao tre em | quần áo sơ sinh | quần áo bé trai | quần áo bé gái | bodysuit carter | quan ao so sinh | quan ao tre em nhap khau

 

[vson.itvn]

Bác có thể nói rõ hơn về cách làm được không em cũng đang có vấn đề cần tới phương án này bác nghiên cứu giúp: http://www.giaiphapexcel.com/forum/...nh-trộn-dữ-liệu-sang-word&p=599815#post599815

 

[kid_duatre]

Bài viết của bạn rất hữu ích, nhưng vì biểu mẫu mình cần thuộc loại khác nên bạn có thể hướng dẫn mình cách làm file excel và liên kết nó với word liên kết dữ liệu từng phần với bảng dữ liệu, đặt tên văn bản word theo nội dung nhập liệu tại cột...) nếu có hướng dẫn chi tiết cách làm cái bảng excel của bạn thì mình rất cảm ơn...bạn có thể gửi vào mail kidduatre123@gmail.com cho mình được không?

 

[TrungChinhs]

Phím Ctr+W tôi nói tại bài 1 là phím nóng tôi tự gán để chạy code, bạn có thể thay đổi tùy ý (chẳng liên quan gì đến các phím nóng khác của Microsoff).

Còn việc muốn lưu file mới tạo vào thư mục nào thì bạn có thể sửa lại code để chỉ định. Trong ví dụ này tôi chọn lưu file mới tạo vào thư mục chứa file gốc bằng câu lệnh .SaveAs Filename:=ThisWorkbook.Path & "\"

 

[kid_duatre]

Phím Ctr+W tôi nói tại bài 1 là phím nóng tôi tự gán để chạy code, bạn có thể thay đổi tùy ý (chẳng liên quan gì đến các phím nóng khác của Microsoff).

Còn việc muốn lưu file mới tạo vào thư mục nào thì bạn có thể sửa lại code để chỉ định. Trong ví dụ này tôi chọn lưu file mới tạo vào thư mục chứa file gốc bằng câu lệnh .SaveAs Filename:=ThisWorkbook.Path & "\"

Cảm ơn bạn...ý mình khác cơ...mình đính kèm cái file ví dụ...bạn giúp mình tí nhé...mình rất cảm ơn!!!!
Nghĩa là thế này:
1. Mình có 1 bảng Excel chứa nội dung...
2. Mình có vài 3 -4 cái mẫu ( Báo cáo, Tờ trình...v..v...) cần xài chung cái nội dung đó. (Có cái mình muốn lưu dưới dạng Báo cáo, có cái mình muốn lưu dưới dạng Tờ Trình… hoặc có cái mình muốn lưu cả 2).
3. Vậy:
- Làm sao để lựa chọn lưu dưới dạng nào (Báo cáo/Tờ trình hay cả hai).
- Cái tên văn bản tạo thành có thêm phần mở rộng ( địa chỉ/ hoặc 1 cái cột nào đó do mình chỉ định).
Nếu được mong bạn chỉ giáo…hoặc làm giúp cho mình trên cái VD đó luôn.
Nếu bạn làm giúp trên cái ví dụ; thì khi mình thay đổi vị trí các cột từ A=> B=>C…v…v.. theo yêu cầu riêng của từng bảng thì cấu trúc câu lệnh bạn tạo có bị sai không? Hay nó tự động chuyển…Cảm ơn bạn nhiều…

Sao đang nghiên cứu liên kết dữ liệu excel và word thì bạn lại lan sang phím tắt "ctrl w" làm gì?
RỔ đây bạn https://www.google.com.vn/?gfe_rd=c...Hướng+dẫn+liên+kết+dữ+liệu+giữa+excel+và+word

bạn ơi Ctrl + W là phím tắt do chủ thớt tạo ra trên Bài 1 cho mọi người sử dụng...Và cái nội dung của nó là cái mình hướng tới hì mình là mình đang rất cần cái đó. hì hì (Tất nhiên mình ko biết tí gì về VBA và Lập trình cả bạn nhé...hì) Cái rổ bạn cho mình mình xem qua hết rồi...cái mình cần chỉ có ở chủ thớt này thôi vì chủ thớt viết code nên nó rất quý và hiếm...Biết là có nhiều cao thủ có thể viết được nhưng chưa thấy ai share và giúp như chủ thớt cả...
Còn mà phải đi tập huấn thêm về VBA chắc mình ko thể đi được...
*Cái mình muốn là thế này:
1. Mình có 1 bảng Excel chứa nội dung...
2. Mình có vài 3 -4 cái mẫu ( Báo cáo, Tờ trình...v..v...) cần xài chung cái nội dung đó.
3. Vậy làm sao để khi lựa chọn xuất ra file word theo cái mẫu nào ở mục (2) và cái tên file VB tạo ra được tự động đặt theo một cột nào đấy trong excel như cái VD trên mình gửi trên diễn đàn đó.

 

[babyheomoi]

Vấn đề này mình cũng đang quan tâm. Mình hay xài mail merge. Tuy nhiên nó hơi bất tiện và lâu hơn. Điểm khác ở đây là:
1. File chủ thớt tham chiếu theo hàng ngang.
2. Xài mailmerge lại làm theo hàng dọc
mình sẽ nghiên cứu để ứng dụng vào công việc và sẽ hỏi thêm chủ topic.
Thanks vì sáng kiến này rất bổ ích

 

[huyrua]

Bác có nick yahoo hay gmail cho cháu xin vì cháu đang tạo file giống như vậy mà không biết bị lỗi gì, chú cho nick để mà cháu liên hệ hỏi cách làm của bác.
Mong bác giúp đỡ

 

[TrungChinhs]

Soạn thảo văn bản Word từ Excel Phiên bản mới.

Chương trình "Soạn thảo văn bản Word từ Excel" Phiên bản mới 2015 tôi đã viết lại và có hướng dẫn sử dụng tại Trang chủ của chương trình. Những vấn đề mà các bạn hỏi gần đây được sự giúp đỡ của quangHai và ndu tôi đã cố gắng tự động hóa trong Phiên bản 2015 nên thời gian vừa qua tôi đã không trả lời các bạn đối với phiên bản cũ.

Bạn nào quan tâm thì tải về và nghiên cứu kỹ ví dụ để ứng dụng vào công việc cụ thể của mình.

Có gì cần hỏi thêm thì gửi bài lên diễn đàn (không gửi tin nhắn hoặc Mail riêng).

 

[huyrua]

cháu nhờ bác Trungchinhs và các anh,chị trên GPE hướng dẫn về chuyên đề Soạn thảo EW

Cháu đọc và nghiên cứu file " SOAN THAO EW" phiên bản 2015 của bác, cháu có đôi chút vấn đề muốn nhờ bác hướng dẫn như sau:
-Cháu có thể đưa 1 file word mẫu của cháu vào file của chú và đặt tên là File_Goc được không vậy bác. và vì công việc cháu phải làm với rất nhiều file word tạo sẳn, cháu có thể ứng dụng được trên file của bác không?
-Trong file của bác có nhiều cột nhập dữ liệu vào, cháu có thể chỉ sử dụng 1 cột để nhập liệu vào không bác?
- và Trong cột Key trong sheet Data, cháu có thể thay đổi dữ liệu đó và thêm Row dữ liệu mới vào cho phù hợp với từng mẫu word không bác?
Cháu có mấy vấn đề rất mong bác và các anh chị, bạn trên GPE giúp đỡ
Chân Thành cảm on!

 

[TrungChinhs]

Cháu đọc và nghiên cứu file " SOAN THAO EW" phiên bản 2015 của bác, cháu có đôi chút vấn đề muốn nhờ bác hướng dẫn như sau:
-Cháu có thể đưa 1 file word mẫu của cháu vào file của chú và đặt tên là File_Goc được không vậy bác. và vì công việc cháu phải làm với rất nhiều file word tạo sẳn, cháu có thể ứng dụng được trên file của bác không?
-Trong file của bác có nhiều cột nhập dữ liệu vào, cháu có thể chỉ sử dụng 1 cột để nhập liệu vào không bác?
- và Trong cột Key trong sheet Data, cháu có thể thay đổi dữ liệu đó và thêm Row dữ liệu mới vào cho phù hợp với từng mẫu word không bác?
Cháu có mấy vấn đề rất mong bác và các anh chị, bạn trên GPE giúp đỡ
Chân Thành cảm on!

Các vấn đề bạn hỏi tôi đã hướng dẫn rồi mà.
- Ý 1: đương nhiên phải làm như ý bạn, file word của tôi chỉ là ví dụ để mọi người xem cách làm cụ thể. Khi bạn đã hiểu thì xoá bỏ nó đi.
- Ý 2: bạn dùng bao nhiêu cột cũng được nhưng không được nhiều hơn 250 cột.
- Ý 3: cách tạo key tự động chính là phần vừa được nâng cấp. Phiên bản trước hoàn toàn làm thủ công như cách bạn hỏi. Vì vậy hãy chỉnh file goc như thế nào đó để máy tự động tạo key tới mức tối đa. Trường hợp đặc biệt thì mới làm thủ công.

lưu ý: việc tạo key bổ sung bằng thủ công chỉ thực hiện sau khi máy đã tạo xong key. Nếu tạo trước sẽ bị máy xoá.

 

[vi_tieu_bao]

Thanks bác TrungChinh rất nhiều, nhưng bác có thể chia sẻ pass xem code được ko ạ? file e down về xem code marco bị hỏi pass ạ?

 

[TrungChinhs]

Thanks bác TrungChinh rất nhiều, nhưng bác có thể chia sẻ pass xem code được ko ạ? file e down về xem code marco bị hỏi pass ạ?

Xin lỗi, quên chưa bỏ khóa.
Các bạn tải lại File này nha (có chỉnh sửa chút xíu)

 

[huyrua]

Cháu chào bác Trungchinhs! chúc bác ngày đầu tuần thật vui vẻ, hạnh phúc thật nhiều may mắn và càng thành công trong công việc.
Cháu xem phiên bản 2015 mà chưa thật hiểu sâu về phiên bản này nên cháu quay về phiên bản lúc trước của bác.Cháu có vài chỗ không hiểu, mong Bác có thể giúp cháu hiểu được:
Một là ý nghĩa các code có kí hiệu như " Scl", "cls", " ecl" không bác?
Hai là với 1 phần đoạn code như sau:
If cls(1, J + 1) > 1000000000 Then
.Selection.Find.Execute cls, , , , , , , , , Sheets("Ho so tin dung").Range(cls(1, j + 1).Address(0, 0)), 2
' ElseIf cls > 0 Then
' Sheets("Ho so tin dung_In").Range(cls(1, J + 1).Address(0, 0)) = "=IF(TYPE(FIXED(Ho so tin dung!RC,1))=16,Ho so tin dung!RC,FIXED(Ho so tin dung!RC,1))"
' .Selection.Find.Execute cls, , , , , , , , , Sheets("Ho so tin dung_In").Range(cls(1, J + 1).Address(0, 0)), 2
' End If
Next
.Selection.Find.Execute "_", , , , , , , , , "", 2
' .Documents(ThisWorkbook.Path & "\" & Cells(5, j + 3) & ".doc").Close (True)
Next
' .Quit
với dữ liệu của cháu thì cháu chỉ thay đổi tên Sheet cho đúng với tên sheet của dữ liệu của cháu thôi, các code kia cháu không thay đổi, vậy có ảnh hưởng gì không bác?
Ba là: cháu tạo 1 userform trong đó có vài command button để thực hiện click vào sẽ mở ra file word báo cáo, cháu gắn code giống như của chú, và cháu tạo nút lệnh bên ngoài trên sheet, nút lệnh chạy marco mở form cháu đã tạo thì chương trình chạy tốt nhưng khi cháu Save lại ứng dụng để thoát ra ngoài thị bị báo lỗi không save được, hệ thống báo lỗi marco vb project gì đó cháu chọn Yes thì dữ liệu save mà khi cháu vào ứng dụng trở lại thì form cháu tạo bị mất, không biết trong lúc soạn thảo cháu có thiếu sót ở phần tạo code cho form hay modul hay chạy kèm theo 1 chương trình gì không. Cháu không biết tải file đành nói lý thuyết mong bác thông cảm.
Cháu chân thành cảm ơn bác trước
cháu kính chào!

 

[TrungChinhs]

Cháu chào bác Trungchinhs! chúc bác ngày đầu tuần thật vui vẻ, hạnh phúc thật nhiều may mắn và càng thành công trong công việc.
Cháu xem phiên bản 2015 mà chưa thật hiểu sâu về phiên bản này nên cháu quay về phiên bản lúc trước của bác.Cháu có vài chỗ không hiểu, mong Bác có thể giúp cháu hiểu được:
Một là ý nghĩa các code có kí hiệu như "Scl", "cls", "ecl" không bác?
.......

"Scl", "cls", " ecl" là tên biến tôi tự đặt thôi bạn à

S là viết tắt của từ Start; cl là viết tắt của từ column; "Scl" là cột bắt đầu. Tương tự E là viết tắt của từ End; "ecl" là cột kết thúc. "cls" là viết tắt của từ Cells. Nhìn chung tên biến chỉ là cách viết của từng người.

Do phiên bản cũ có rất nhiều hạn chế nên tôi đã viết lại phiên bản 2015. Bạn xem code mới dễ hiểu hơn vì trong đó tôi có ghi chú cho từng dòng lệnh và sử dụng phiên bản mới tiện dụng hơn nhiều.

Lưu ý: Mặc định của trương trình này là khi thoát sẽ không lưu để tránh tác động của người dùng. Nếu muốn lưu lại thì bạn phải nhấn nút Save trước khi thoát.

 

[huyrua]

Cháu chào bác trungchinhs!
Cháu rất muốn học code phiên bản 2015 mới của bác nhưng do cháu đang làm dở dang phiên bản củ nên cố gắng đeo cho hiểu.Mong bác thông cảm.
Cháu có đoạn code này:
Range("C1").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Application.ScreenUpdating = False
On Error Resume Next
Sheets("Ho so tin dung_In").[d5].Resize(10000, 250).ClearContents
With CreateObject("Word.Application")
.Visible = True
Scl = 1
Ecl = [D128]
File = [c128]
' If Selection.Column > 3 Then
' Scl = Selection.Column - 3
' Ecl = Scl
' End If
For j = Scl To Ecl
Doc = .Documents.Open(ThisWorkbook.Path & "\Hoso\" & File & ".doc")
.Documents(ThisWorkbook.Path & "\Hoso\" & File & ".doc").SaveAs Filename:=ThisWorkbook.Path & "\Nhatky\" & Cells(128, j + 3) & ".doc"
For Each cls In Range([c250], [c65000].End(3))
' If cls(1, J + 1) > 1000000000 Then
.Selection.Find.Execute cls, , , , , , , , , Sheets("Ho so tin dung").Range(cls(1, j + 1).Address(0, 0)), 2
' ElseIf cls > 0 Then
' Sheets("Ho so tin dung_In").Range(cls(1, J + 1).Address(0, 0)) = "=IF(TYPE(FIXED(Ho so tin dung!RC,1))=16,Ho so tin dung!RC,FIXED(Ho so tin dung!RC,1))"
' .Selection.Find.Execute cls, , , , , , , , , Sheets("Ho so tin dung_In").Range(cls(1, J + 1).Address(0, 0)), 2
' End If
Next
.Selection.Find.Execute "_", , , , , , , , , "", 2
' .Documents(ThisWorkbook.Path & "\" & Cells(5, j + 3) & ".doc").Close (True)
Next
' .Quit
End With
End Sub
Do cháu tải file lên định nhờ bác kiểm tra dùm nhưng cháu bấm phần tải file nhưng không có tín hiệu gì để cháu tải được nên đành sử dụng cách này, mong bác thông cảm.
Với dữ liệu trên sheet của cháu như sau: cháu kể ô từ cột B đến Cột D, cột A bỏ trống, cột C dòng 1 dữ liệu C1 là now(), với code như trên thì dữ liệu của cháu bắt đầu từ row số 5; row 3 và 4 thì bỏ trống, row 2 cột C và D lần lượt là Từ bị thay thế và Từ được thay thế.
Khi run cháu bị lỗi đoạn code scl = 1.
Mong bác giúp đỡ cháu, cháu không hiểu scl bắt đầu từ Cột A hay là cột nào hả Bác?
Trân trọng cảm ơn bác giúp đỡ.

 

[huyrua]

Bác trungchinhs hướng dấn cho cháu hiểu đoạn code scl=1 (Sao scl= không phải là 2, 3, hay 4?)
và đoạn code
' If Selection.Column > 3 Then
' Scl = Selection.Column - 3
' Ecl = Scl
' End If
For j = Scl To Ecl
Số >3 có nghĩa gì hả bác

 

[TrungChinhs]

Bác trungchinhs hướng dấn cho cháu hiểu đoạn code scl=1 (Sao scl= không phải là 2, 3, hay 4?)
và đoạn code
' If Selection.Column > 3 Then
' Scl = Selection.Column - 3
' Ecl = Scl
' End If
For j = Scl To Ecl
Số >3 có nghĩa gì hả bác

Tôi đang dùng ipat, không xem được code nên không nhớ rõ nhưng nhìn vào tên biến thì đoán là scl = 1 có nghĩa là biến cột bắt đầu từ 1.

Số 3 ở đây có nhĩa là cột thứ 3 tức cột c

 

[huyrua]

Vậy khi nào bác trungchinhs có lên máy tính, cháu nhờ bác xem dùm cháu lập code như vậy có sai sót chỗ nào không nha bác. scl=1 và ecl=3 nghĩa là scl bắt từ tính từ cột A được xem là cột 1 và ecl=3 tức là cột C, vậy biến sẽ chạy từ cột A cho đến cột C hả gì bác? vậy cột D của cháu có dữ liệu mà nằm ngoài khoảng di chuyển của biến nay bị lỗi không bác.

 

[huyrua]

Vậy khi nào bác trungchinhs có lên máy tính, cháu nhờ bác xem dùm cháu lập code như vậy có sai sót chỗ nào không nha bác. scl=1 và ecl=3 nghĩa là scl bắt từ tính từ cột A được xem là cột 1 và ecl=3 tức là cột C, vậy biến sẽ chạy từ cột A cho đến cột C hả gì bác? vậy cột D của cháu có dữ liệu mà nằm ngoài khoảng di chuyển của biến nay bị lỗi không bác.

 

[huyrua]

Bác Trungchinhs sẵn dịp bác cho cháu hỏi về phiên bản 2015 của bác luôn nha, cháu đã xem qua nhưng có 1 vài chỗ cháu đọc hướng dẫn mà không hiểu.
1. Cháu đưa file word của cháu vào thư mục và đặt tên là file_goc, vậy cháu đưa 1 lúc nhiều file word khác nhau vào vậy đặt tên thế nào hả bác?
2. Cháu chọn ctrl shift w thì chương trình của bác tạo ra 2 file: 1 file tên là file_mau và 1 file word có dữ liệu chèn vào nếu vậy thì chỉ in được 1 file word thoi, cháu muốn in ra 1 lượt nhiều mẫu word khác nhau thì phải làm sao hả bác?
3. cách tạo key cháu chưa hiểu, cháu đặt key mới sau khi cháu đưa file word có phần mềm bôi chữ đỏ hay sao bác? và cách đặt Key có kí hiệu như thế nào hả bác? đặt trong [] và có dấu cách " _ " hay sao bác?
4.File word tạo ra nằm trong thư mục, bác có thể giúp cháu code cho file word đó hiển thị trên màn hình để xem và in không bác?
Cháu thấy Phiên bản 2015 của bác rất hay mà cháu chưa hiểu sâu mấy vấn đề trên dù có đọc kỹ hướng dẫn của bác.
Chân trọng cám ơn sự nhiệt tình của bác giúp đỡ cháu.

 

[huyrua]

Chào bác trungchinhs!
Cháu xem lại phiên bản 2015 thấy rất hay và dễ sử dụng, nhưng qua đó cháu thấy có thắc mắc như sau:
1. Khi cháu đưa 1 file word gốc vào đặt tên file là file_goc sao đó cháu bấm Ctrl shift w thì chương trình tạo 2 file là file_ mau va file có dữ liệu của mẫu đó,và trong sheet data sẽ sinh ra key mới trong cột key, xong sau đó cháu nhập vào dữ liệu mềm có thông tin khác vào xong cháu chon ctrl shift w thì dữ liệu tạo ra dữ liệu củ chứ không lấy dữ liệu mới mà cháu nhập vào, xin bác hướng dẫn giúp cháu hiểu.
2. Khi mình đưa nhiều mẫu word vào làm file gốc, dữ liệu mẫu ra thành nhiều cột, cháu thấy chương trình chỉ tạo và cập nhật key chỉ duy nhất 1 cột không cập nhật key cho nhiều cột dữ liệu khác nhau.
Xin bác giúp đỡ cháu hiểu rõ nhé bác. cám ơn bác nhiều.

 

[huyrua]

Bác Trungchinhs và anh chị và các bạn trên diễn đàn GPE xem dùm cháu viết code có bị lỗi gì không khi save lại file thì báo lỗi như sau:
The follwing features can not be save in marco free workbooks
.Vb project
The save a file with these features, clicks No, and then choose a marco-enable file type in the file type list
Ton continue saving as a marco free workbook click yes
Yes No help
Mong các bác, anh chị và các bạn trên GPE giúp đỡ.
Trân trọng cám ơn!

 

[TrungChinhs]

Chào bác trungchinhs!
Cháu xem lại phiên bản 2015 thấy rất hay và dễ sử dụng, nhưng qua đó cháu thấy có thắc mắc như sau:
1. Khi cháu đưa 1 file word gốc vào đặt tên file là file_goc sao đó cháu bấm Ctrl shift w thì chương trình tạo 2 file là file_ mau va file có dữ liệu của mẫu đó,và trong sheet data sẽ sinh ra key mới trong cột key, xong sau đó cháu nhập vào dữ liệu mềm có thông tin khác vào xong cháu chon ctrl shift w thì dữ liệu tạo ra dữ liệu củ chứ không lấy dữ liệu mới mà cháu nhập vào, xin bác hướng dẫn giúp cháu hiểu.
2. Khi mình đưa nhiều mẫu word vào làm file gốc, dữ liệu mẫu ra thành nhiều cột, cháu thấy chương trình chỉ tạo và cập nhật key chỉ duy nhất 1 cột không cập nhật key cho nhiều cột dữ liệu khác nhau.
Xin bác giúp đỡ cháu hiểu rõ nhé bác. cám ơn bác nhiều.

Những thắc mắc của bạn đã có trong hướng dẫn sử dụng. Hãy đọc kỹ và làm theo.

1. Muốn tạo báo cáo theo dữ liệu cột nào thì trong Data bạn phải đặt tên File tại cột đó (ô màu xám) và bên trang chủ bạn phải chọn lại tên File trước khi nhân lệnh chạy chương trình.

2. Mỗi chương trình chỉ tạo được một mẫu và chỉ có một cột key duy nhất. Muốn có nhiều mẫu thì bạn phải tạo nhiều thư muc như đã hướng dẫn.

 

[TrungChinhs]

Bác Trungchinhs và anh chị và các bạn trên diễn đàn GPE xem dùm cháu viết code có bị lỗi gì không khi save lại file thì báo lỗi như sau:
The follwing features can not be save in marco free workbooks
.Vb project
The save a file with these features, clicks No, and then choose a marco-enable file type in the file type list
Ton continue saving as a marco free workbook click yes
Yes No help
Mong các bác, anh chị và các bạn trên GPE giúp đỡ.
Trân trọng cám ơn!

Tiếng anh tôi không biết, Bạn không gửi File lên nên tôi cũng chẳng biết lỗi gì mà giúp ?

 

[vi_tieu_bao]

Thanks bác TrungChinhs, cá nhân em thấy file cũ là quá tuyệt với nhu cầu của em rồi, nhưng có 1 vài thắc mắc hơi dài dòng nên em giải thích trong file đính kèm cho dễ hình dung. mong bác xem giúp có ý kiến ah.

cảm ơn bác nhiều.

 

[huyrua]

Chào bác trungchinhs!
Bác cho cháu hỏi chỗ đoan code của phiên bản củ của bác như sau:
Sheets("DaTa_In").[d5].Resize(10000, 250).ClearContents
Phần chữ cháu tô màu đỏ, bác hướng dẫn giúp cháu hiểu chữ "_In" là code viết tắt hay là Data_In là tên của 1 sheet hả bác?
và bác cho cháu hỏi nếu là tên sheet thì cháu phải tạo thêm 1 sheet data_In như đoạn code sau hả bác?
Sheets("DaTa_In").Range(cls(1, j + 1).Address(0, 0)) = "=IF(TYPE(FIXED(DaTa!RC,1))=16,DaTa!RC,FIXED(DaTa!RC,1))"
.Selection.Find.Execute cls, , , , , , , , , Sheets("DaTa_In").Range(cls(1, j + 1).Address(0, 0)), 2
nếu thiếu đoạn code trên có ảnh hưởng gì không bác? bác giúp cháu hiểu ý nghĩa đoạn code trên có ý nghĩa của nó nhé bác.
Trân trọng chào bác

 

[huyrua]

Chào bác trungchinhs!
Bác cho cháu hỏi chỗ đoan code của phiên bản củ của bác như sau:
Sheets("DaTa_In").[d5].Resize(10000, 250).ClearContents
Phần chữ cháu tô màu đỏ, bác hướng dẫn giúp cháu hiểu chữ "_In" là code viết tắt hay là Data_In là tên của 1 sheet hả bác?
và bác cho cháu hỏi nếu là tên sheet thì cháu phải tạo thêm 1 sheet data_In như đoạn code sau hả bác?
Sheets("DaTa_In").Range(cls(1, j + 1).Address(0, 0)) = "=IF(TYPE(FIXED(DaTa!RC,1))=16,DaTa!RC,FIXED(DaTa! RC,1))"
.Selection.Find.Execute cls, , , , , , , , , Sheets("DaTa_In").Range(cls(1, j + 1).Address(0, 0)), 2
nếu thiếu đoạn code trên có ảnh hưởng gì không bác? bác giúp cháu hiểu ý nghĩa đoạn code trên có ý nghĩa của nó nhé bác.
Trân trọng chào bác

 

[TrungChinhs]

Chào bác trungchinhs!
Bác cho cháu hỏi chỗ đoan code của phiên bản củ của bác như sau:
Sheets("DaTa_In").[d5].Resize(10000, 250).ClearContents
Phần chữ cháu tô màu đỏ, bác hướng dẫn giúp cháu hiểu chữ "_In" là code viết tắt hay là Data_In là tên của 1 sheet hả bác?
và bác cho cháu hỏi nếu là tên sheet thì cháu phải tạo thêm 1 sheet data_In như đoạn code sau hả bác?
Sheets("DaTa_In").Range(cls(1, j + 1).Address(0, 0)) = "=IF(TYPE(FIXED(DaTa!RC,1))=16,DaTa!RC,FIXED(DaTa! RC,1))"
.Selection.Find.Execute cls, , , , , , , , , Sheets("DaTa_In").Range(cls(1, j + 1).Address(0, 0)), 2
nếu thiếu đoạn code trên có ảnh hưởng gì không bác? bác giúp cháu hiểu ý nghĩa đoạn code trên có ý nghĩa của nó nhé bác.
Trân trọng chào bác

@huyrua:
1. Data_In là tên của 1 sheet.
2. Không phải tạo thêm sheet data_In vì nó đã có sẵn trong chương trình (sheet data_In là sheet trung gian nên luôn để ở chế độ ẩn).
3. Nếu thiếu đoạn code trên thì đương nhiên là có ảnh hưởng (nếu nó không có tác dụng thì viết ra để làm gì).
4. Ý nghĩa của dòng lệnh trên là để tạo ra dấu chấm phân cách trong dãy số (vd: 123456789 sẽ được đổi thành 123.456.789)
5. Ý nghĩa của dòng lệnh dưới là tìm và sửa dữ liệu bên File Word bằng dữ liệu bên File Excel. Như vậy thực chất dữ liệu bên File Word
được lấy qua sheet trung gian là sheet data_In chứ không phải là từ sheet data.

Chính vì sự phức tạp này nên tôi mới phải nâng cấp thành phiên bản mới nhưng do cùng chủ đề nên tôi không tạo bài mới.

Tôi nghĩ bạn muốn tìm hiểu về VBA nên mới cố gắng giải thích còn để ứng dụng thì tôi nghĩ bạn nên nghiên phiên bản mới.

 

[huyrua]

Chào bác trungchinhs
Dạ cháu rất cám ơn về sự hướng dẫn nhiệt tình giải đáp chu đáo cháu hiểu, chúng cũng nghiên cứu về phiên bản mới 2015 nhưng do công việc của cháu có rất nhiều file Word phải đưa dữ liệu từ exel vào nên cháu mới nhờ bác hướng dẫn cháu hiểu về code của bác. Theo như ý của bác nói vậy thì để có được sheet data_In thì phải làm sao hả bác? và khi tạo ra là sheet data_In tự ẩn hả bác? mong bác giúp đỡ cho cháu. Ai cũng muốn mình càng tiến bộ nhưng vì bắt đắc dĩ lắm mới xem kỹ phiên bản củ. Có điều gì không phải mong bác thông cảm bỏ qua cho cháu.
Á bác hướng dẫn dùm cháu cách tải file từ máy lên kèm với nội dung để diễn tả, nhưng cháu click vào Tải file từ máy mà chẳng thấy tín hiệu gì cả.
Cháu rất cám ơn bác!

 

[giola]

Chào bác trungchinhs
..........
Á bác hướng dẫn dùm cháu cách tải file từ máy lên kèm với nội dung để diễn tả, nhưng cháu click vào Tải file từ máy mà chẳng thấy tín hiệu gì cả.
Cháu rất cám ơn bác!

Cái này bạn nên post hỏi Ban quản trị điễn đàn để admin có trách nhiệm trả lời,

Theo tôi , thì bạn thử chạy sạng phần mềm trình duyệt khác (IE, Firfox, Gchrome...) khác cái bạn đang dùng thử xem, chắc là do cookíes đã bị chặn....

 

[huyrua]

Chào bác trungchinhs!
Chúc bác ngày cuối tuần thật vui vẻ, hạnh phúc
Cháu đang làm công việc có nhiều mẫu word cháu cũng nghiên cứu về phiên bản 2015 của bác nhưng do phiên bản này chỉ tạo đươc 1 mẫu biểu duy nhất nên cháu đành nghiên cứu phiên bản củ của bác, nhưng do hiểu biết về VBA của cháu chưa sâu nên cháu có 2 file excel và word gửi kèm theo mong bác giúp cháu tạo code VBA đưa dữ liệu từ excel vào word theo phiên bản củ của bác lúc trước, bác giúp cháu tạo code khi bấm vào nút lệnh In mẫu thì sẽ mở form, bấm vào nút lệnh Hợp đồng thuê thì chương trình đưa dữ liệu từ excel vào word và show lên màn hình.
Mong bác giúp đỡ
Chân thành cảm ơn bác!

 

[vi_tieu_bao]

Thanks bác TrungChinhs, cá nhân em thấy file cũ là quá tuyệt với nhu cầu của em rồi, nhưng có 1 vài thắc mắc hơi dài dòng nên em giải thích trong file đính kèm cho dễ hình dung. mong bác xem giúp có ý kiến ah.

cảm ơn bác nhiều.

Bác xem giúp em với ah. Em chỉ mong bác gợi ý hướng xử lý thui cũng đc ạ!

 

[huyrua]

Chào bác trungchinhs
Cháu có gửi 2 file nhờ bác viết dùm cháu code theo phiên bản củ của bác, cháu biết bác còn công việc của bác nhưng cháu sẽ đợi mong bác giúp đỡ cháu rất cám ơn
Có điều gì làm bác giận mong bác thông cảm và hiểu cho cháu
Trân trọng cảm ơn bác

 

[TrungChinhs]

Mấy hôm nay gia đình đang có việc, các bạn chịu khó chờ vài hôm nha

 

[huyrua]

Dạ bác Trungchinhs cứ lo việc nhà cho xong, cháu sẽ đợi sữ giúp đỡ của bác

 

[huyrua]

Chào bác Trungchinhs!
Ngày cuối tuần vui vẻ chứ bác. Cháu đợi bác mấy hôm nay do bác có việc, cố gắng đợi bác để nhờ bác giúp cháu viết code chuyển dữ liệu nhập từ excel sang word, cháu đã có gửi 2 file exel và word đính kèm, mong bác giúp đỡ
Cháu cám ơn bác nhiều

 

[phimhbkg]

Chào cả nhà
Đề tài này hay quá nhưng xin cho em hỏi thêm tý
Nếu trong file word cần chèn vào một bảng tính đã tính bên excell thì sửa code như thế nào
(p/s: bảng excell thì không xác định được dòng, có lúc 5 dòng nhưng có lúc nhiều hơn)
Em đã làm nhiều cách hướng dẫn giaiphapexcell nhưng khi số dòng từ nhiều giảm xuống ít thì
trong báo cáo có khoảng trắng

 

[KHONG_GJ_CA]

Phiên bản năm 2015 (SOAN THAO EW) có thể in hàng loạt được như phiên bản trước không Bác TrungChinhs

 

[KHONG_GJ_CA]

Cao nhân nào có thể chuyển thành làm theo hàng dọc giúp em được không ạ

 

[HCTu]

Chào bác trungchinhs!
Chúc bác ngày cuối tuần thật vui vẻ, hạnh phúc
Cháu đang làm công việc có nhiều mẫu word cháu cũng nghiên cứu về phiên bản 2015 của bác nhưng do phiên bản này chỉ tạo đươc 1 mẫu biểu duy nhất nên cháu đành nghiên cứu phiên bản củ của bác, nhưng do hiểu biết về VBA của cháu chưa sâu nên cháu có 2 file excel và word gửi kèm theo mong bác giúp cháu tạo code VBA đưa dữ liệu từ excel vào word theo phiên bản củ của bác lúc trước, bác giúp cháu tạo code khi bấm vào nút lệnh In mẫu thì sẽ mở form, bấm vào nút lệnh Hợp đồng thuê thì chương trình đưa dữ liệu từ excel vào word và show lên màn hình.
Mong bác giúp đỡ
Chân thành cảm ơn bác!

huyrua

Tôi đoán không nhầm anh đang làm bộ sơ tín dụng cho khách hàng phải không ? Hồ sơ có nhiều mẫu biểu word... Tôi là người mới, nói không biết đúng không nhưng cũng góp một ý, anh có thể tạo một file gốc chứa các mẫu trên nhiều trang.

Tôi cũng mới lọ mọ vụ này... Có gì hỏi anh em ở đây thêm.

 

[TrungChinhs]

Soạn thảo văn bản Word từ Excel Phiên bản mới 2015-3

Trước hết xin cảm ơn tất cả các bạn đã quan tâm tới chủ đề này. Phiên bản mới này Tôi đã viết gọn lại (bỏ Sheets trung gian Data In); thêm phần tự động chuyển Key vào Data và đọc số bằng chữ; hiệu chỉnh phần hướng dẫn sử dụng; File ví dụ phức tạp hơn... Xét thấy việc in nhiều file cùng một lúc ít xảy ra nên Tôi đã bỏ chức năng này và bổ sung lựa chọn in ngay hoặc in sau.

Hiện tại cơ quan Tôi đang ứng dụng vào soạn thảo văn bản của nhiều lĩnh vực như Báo cáo định kỳ, Tờ trình, Hợp đồng và hầu hết các văn bản thuộc lĩnh vực đầu tư xây dựng. Việc ứng dụng chương trình này không những nâng cao năng suất, chất lượng soạn thảo văn bản mà còn giúp cho người sử dụng quản lý tốt dữ liệu (Data) một cách hệ thống, khoa học.

Do kiến thức về VBA có hạn, vừa học vừa viết thử nên code còn tùy tiện, chắp vá (cũng chẳng biết thế nào là tối ưu) vì vậy các bạn có thể sửa lại cho phù hợp với công việc của mình. Chúc các bạn thành công !

 

[hehevt]

Cảm ơn bác chủ
cho em hỏi, khi nhấp đúp vào [key] hiện ra "0 đồng" có phải bị lỗi không
em không biết về VBA, bác chủ cho em hỏi nâng cấp File_Mau lên docx có khác gì nhiều không

 

[Miccpro]

Cảm ơn những chia sẻ hữu ích của bác Trungchinhs, em đang cố tìm hiểu để chỉnh sửa phù hợp với công việc mình cần. Hiện tại em đang nghiên cứu thêm bài giảng của ĐT Nguyên về việc soạn thảo văn bản word từ excel tại https://www.youtube.com/watch?v=LEalus-vqlU&list=PLALCv46JuKELXd5Ie81UqaFqAfsoXQSQt&index=15
Nhờ các bác giúp em sửa code trong file ví dụ dưới đây để khi xuất file word từ excel ra thành 01 file word chứ không phải nhiều file word. Vì giả sử số lượng nhiều hơn chứ không phải là 6 như trong file thì sẽ rất bất tiện trong việc quản lý và in ấn. Cảm ơn các bác nhiều

 

[batdiet2t]

Theo dõi từ trang 1 đến trang 7, mày mò cả tối lẫn đêm... giờ đến chiều nay thì thử nghiệm mãi cũng làm được ngòn lành trọn vẹn theo những gì mình muốn trên win 10 + office 13.

Thật hữu ích, và đúng là thứ cháu đang tìm kiếm bấy lâu nay. Sướng rơi nước mắt.

Thầm cảm ơn Bác Trungchinhs nhiều, Không biết lấy gì hậu tạ. Kính chúc bác mạnh Khỏe Hạnh Phúc.

 

[muwa04]

Gửi bác TrungChinhs: Phiên bản mới 2015-3 em thấy nếu để dữ liệu là số (ví dụ 300,000 ở sheet Data Excel) thì khi xuất file word sẽ chỉ là chuỗi 300000 (không có dấu tách hàng).
Bác chỉ giúp em cách xuất file word vẫn có dấu tách hàng với ạ.

(Trong ví dụ của bác, em thấy đang để data là 300,000 đồng . Nhưng em làm nhiều với số liệu, chỉ muốn copy từ bảng tính vào data luôn thôi chứ không muốn ngồi sửa đánh dấu từng số thế nữa ạ)
Cám ơn bác!

 

[thkd09]

Chào các bác.
Em cũng nghiên cứu kỹ lắm nhưng vẫn chưa hiểu để áp dụng sang cái mình mong muốn được. Mong các bác giúp em.

 

[nguyenductinh]

Chào các bác, đề tài này quá hữu ích với một người hay phải nhiều soạn nhiều mẫu hợp đồng khác nhau từ một nguồn dữ liệu như em, mỗi tội em lại không biết gì về excel mấy.
Các bác cho em hỏi làm sao để sửa đc cái file ban đầu mặc định không lấy số thập phân ấy, em soạn hợp đồng chẳng hạn để 600,000 nó lại ra 600,000.0, mà dùng _600,000 thì nớ lại ra 600000

 

[teaklee]

Chào bác, em muốn khi em nhấn CTRL + SHIFT + W thì nó sẽ tự động in hết tất cả các văn bản theo từng tên được set chứ không phải in người nào thì chọn người đó.
Công việc của em làm bên công chứng, mỗi cuối tuần là phải lưu danh mục hồ sơ 1 với số lượng rất khổng lồ, nên em muốn nhập 1 lần sau đó bấm là nó tạo hết các file ra, sau đó em sẽ chọn để in sau

 

[teaklee]

Của em thì bị lỗi như thế này, ở cột số thứ tự, em để từ "02-11" thì dù đã chọn text nhưng khi xuất file nó lại hiểu là định dạng ngày tháng
Các bác có thể xem file xuất là Lê Thị Minh Nguyệt.doc

 

[sondaubac]

Soạn thảo văn bản Word từ Excel Phiên bản mới 2015-3

Trước hết xin cảm ơn tất cả các bạn đã quan tâm tới chủ đề này. Phiên bản mới này Tôi đã viết gọn lại (bỏ Sheets trung gian Data In); thêm phần tự động chuyển Key vào Data và đọc số bằng chữ; hiệu chỉnh phần hướng dẫn sử dụng; File ví dụ phức tạp hơn... Xét thấy việc in nhiều file cùng một lúc ít xảy ra nên Tôi đã bỏ chức năng này và bổ sung lựa chọn in ngay hoặc in sau.

Hiện tại cơ quan Tôi đang ứng dụng vào soạn thảo văn bản của nhiều lĩnh vực như Báo cáo định kỳ, Tờ trình, Hợp đồng và hầu hết các văn bản thuộc lĩnh vực đầu tư xây dựng. Việc ứng dụng chương trình này không những nâng cao năng suất, chất lượng soạn thảo văn bản mà còn giúp cho người sử dụng quản lý tốt dữ liệu (Data) một cách hệ thống, khoa học.

Do kiến thức về VBA có hạn, vừa học vừa viết thử nên code còn tùy tiện, chắp vá (cũng chẳng biết thế nào là tối ưu) vì vậy các bạn có thể sửa lại cho phù hợp với công việc của mình. Chúc các bạn thành công !

Bạn có thể làm 1 clip hướng dẫn cách sử dụng cụ thể trên Youtube được không? Mọi người sẽ ủng hộ hết mình

 

[tuananh210809]

Nhân tiện đây cho mình hỏi chút



.SaveAs Filename:=ThisWorkbook.Path & Application.PathSeparator & i & ".docx"

thay mình muốn thay đổi đoạn code này một chút vì biến i ( file new word sẽ gì tên là số thứ tự 1 2 3 4 )
giờ muốn đổi code này để lưu tên file mới tương ứng với tên trong thiệp mời ( vi dụ như Việt , Năm .....)

vậy phải sửa code như thế nào nhỉ
Các Pro giúp em với

 

[quyenpv]

huyrua

Tôi đoán không nhầm anh đang làm bộ sơ tín dụng cho khách hàng phải không ? Hồ sơ có nhiều mẫu biểu word... Tôi là người mới, nói không biết đúng không nhưng cũng góp một ý, anh có thể tạo một file gốc chứa các mẫu trên nhiều trang.

Tôi cũng mới lọ mọ vụ này... Có gì hỏi anh em ở đây thêm.

Trường hợp dòng thay thế >255 ký tự bị lỗi. Nhờ các bạn sửa giúp

 

[quyenpv]

Các bro giúp đỡ vụ này vứi ạ
Trường hợp dòng thay thế >255 ký tự bị lỗi. Nhờ các bạn sửa giúp

 

[quyenpv]

Các anh giúp em vụ lỗi khi thay thế lớn hơn 255 ký tự với ạ. Đang cần gấp quá

 

[tuananh210809]

Mình muốn viết câu lệnh thực hiện như sau
Ctrl+A sau đó ấn phím F9
( để update dữ liệu của file word ) thì viết thế nào nhỉ
Nếu dùng Onkey
application.Onkey "^{A}{F9}"
cần khai báo gì nữa không nhỉ sao code không thực hiện

 

[teaklee]

hình như hàm Send Key nằm chỗ này á bạn:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$2" Then
Application.SendKeys "%{Down}"
End If
End Sub

 

[huuhau91]

Ủa sao Anh không dùng chức năng Mailings có trong Word Anh?

 

[tuananh210809]

với 1 vài văn bản thì không có vấn đề gì nhưng khoảng 10k file văn bản mà dung malink thì nguyên lưu tên file cũng đã là vấn đề lớn rồi @

 

[kbw1]

với 1 vài văn bản thì không có vấn đề gì nhưng khoảng 10k file văn bản mà dung malink thì nguyên lưu tên file cũng đã là vấn đề lớn rồi @

Sự khác biệt của chương trình này với mailmerger là gì vậy ạ?

 

[kbw1]

À. Khác biệt lớn nhất có phải là vụ lưu file không ạ?

 

[thoai]

Chào cả nhà
Đề tài này hay quá nhưng xin cho em hỏi thêm tý
Nếu trong file word cần chèn vào một bảng tính đã tính bên excell thì sửa code như thế nào
(p/s: bảng excell thì không xác định được dòng, có lúc 5 dòng nhưng có lúc nhiều hơn)
Em đã làm nhiều cách hướng dẫn giaiphapexcell nhưng khi số dòng từ nhiều giảm xuống ít thì
trong báo cáo có khoảng trắng

Bạn có thể load file lên

 

[lenalbo]

Trong khi soạn thảo văn bản trên Word nhiều khi ta mơ ước nó liên kết được với dữ liệu có sẵn từ Excel. Mặc dù trên Word có sẵn chức năng này nhưng không phải ai cũng biết; mà có biết thì cũng ngại sử dụng vì nó tương đối phức tạp và chạy rất ì ạch...

Từ những kiến thức học được trên GPE tôi làm một file Excel để hỗ trợ soạn thảo văn bản soạn thảo trên Word. Qua sử dụng thấy rất hiệu quả nên Post lên chia xẻ với các bạn coi như là một món quà mừng sinh nhật GPE lần thứ 7.

Hướng dẫn sử dụng:
1. Tải về một thư mục nào đó (tùy ý).

2. Trong thư mục này có File Word mẫu ví dụ là "To trinh thu hoi dat" (mọi chỉnh sửa đều phải thực hiện trên file mẫu này).

3. Trong thư mục này có File DaTa Exel - Word File này là dùng để soạn thảo các nội dung cần chèn vào File Word mẫu để tạo nên file văn bản mà bạn mong muốn.

4. File văn bản sẽ được tự động tạo ra trong thư mục chữa file mẫu. File mẫu là tên file nằm ở dòng đầu tiên của cột C (trong ví dụ có 2 File, muốn tạo file theo mẫu nào thì bạn copy dòng đó dán lên trên). Tên file tạo ra là tên ở dòng đầu tiên của cột.

5. Khi muốn tạo 1 file văn bản nào thì bạn đặt con trỏ vào cột chứa nội dung của văn bản đó và nhấn Ctrl + W

6. Khi muốn muốn tạo nhiều văn bản (theo số cột có dữ liệu) thì bạn đặt con trỏ vào cột C và nhấn Ctrl + W

Cái này thích hợp với việc soạn thảo văn bản theo đề cương, theo mẫu và sản xuất hàng loạt như soạn thảo hợp đồng, biên bản nghiệm thu, báo cáo tuần, tháng...

Bạn quan sát kỹ File Word mẫu và dữ liệu các cột bên Exel để vận dụng vào tình huống cụ thể của bạn.

P/s Trường hợp không muốn lấy số lẻ sau dấu phảy (vd muốn 20 thay vì 20,0) hoặc không muốn dấu phân cách (vd 1000 thay vì 1.000) thì các bạn nhập thêm dấu gạch dưới trước dữ liệu để biến thành dạng Text (Vd _20 hoặc _1000)

Lúc đầu thì thấy hơi rắc rối nhưng bạn cứ thử xem. Khi đã biết cách làm thì bạn sẽ thấy nó lợi hại như thế nào ?


Chúc các bạn thành công và đạt hiệu quả cao trong công việc.

Anh ơi chỉ em cách làm với

 

[thesaintzero]

Mình có viết 1 file cho cơ quan mình làm, bữa nào rảnh mình lục lại và up lên cho anh em tham khảo.
Chức năng của nó như thế này:
+ Bạn có sẵn 2 mẫu gồm: Thông báo thu hồi đất và Quyết định thu hồi đất.
+ Bạn nhập hết dữ liệu vào các cell, bấm nút chạy Quyết định/Thông báo.
+ Chương trình sẽ hỏi bạn đã kiểm tra dữ liệu đầu vào kỹ chưa? Yes/No
+ Chọn các cột cần chuyển sang 2 mẫu Thông báo thu hồi đất và Quyết định thu hồi đất.
+ Chương trình sẽ tự chạy khi nào hết dữ liệu, tự lưu file (cái hay ở đây là không mở file word 1 lúc, mà mở từng file rồi đóng lại tự lưu tên theo thứ tự gồm: STT+ Tên chủ sd)
+ Trong này có cả chức năng sửa chữa 2 file Thông báo thu hồi đất và Quyết định thu hồi đất khi bạn nhập sai 1 row bất kỳ.
(Chương trình này bảo đảm bạn nhập như thế nào khi sang word sẽ ra y chang như thế, không như mailmerge khi bạn nhập 4,925 --> thì nó ra 4,9 hoặc 4,93)

Bài đã được tự động gộp: 24/1/19

Các anh giúp em vụ lỗi khi thay thế lớn hơn 255 ký tự với ạ. Đang cần gấp quá

cái này bạn làm thế này đi, nhập 1 cell 255 ký tự, cell tiếp theo nhập nội dung tiếp theo của ký tự 256, khi bạn chạy để 2 ký tự cần chuyển gần nhau, cho 1 khoảng trắng ở giữa. Khi chạy sẽ ra đc 1 dòng lớn hơn 255 ký tự.

 

[batman1]

Mình có viết 1 file cho cơ quan mình làm, bữa nào rảnh mình lục lại và up lên cho anh em tham khảo.
Chức năng của nó như thế này:
...
+ Chương trình sẽ tự chạy khi nào hết dữ liệu, tự lưu file (cái hay ở đây là không mở file word 1 lúc, mà mở từng file rồi đóng lại tự lưu tên theo thứ tự gồm: STT+ Tên chủ sd)

Tức là thế nào? Mở tập tin -> lưu -> đóng tập tin và cả Word? Cứ thế lặp lại cho từng dòng bên Excel? Tại sao lại phải đóng Word? Tại sao lại "mở từng file rồi đóng lại "? Tức bên Excel có 100 dòng thì sẽ có 100 tập tin Word rời? Nếu bạn làm văn phòng mà muốn gửi cho 100 đối tác thì mở lần lượt 100 tập tin rồi in? Nếu làm mail merge thì chỉ có 1 tập tin Word. Khi in thì mở 1 tập tin và in 1 lần sẽ có 100 trang rời (hoặc 200 trang nếu nội dung bản mẫu chiếm 2 trang). Thế thôi. Khoẻ và có nhiều thời gian làm việc khác.

+ Trong này có cả chức năng sửa chữa 2 file Thông báo thu hồi đất và Quyết định thu hồi đất khi bạn nhập sai 1 row bất kỳ.

Nếu dùng mail merge thì khi sửa Excel thì lại "Select Recipients" rồi Finish & Merge thôi.

(Chương trình này bảo đảm bạn nhập như thế nào khi sang word sẽ ra y chang như thế, không như mailmerge khi bạn nhập 4,925 --> thì nó ra 4,9 hoặc 4,93)

Tôi nghĩ bạn không định dạng hoặc định dạng sai mà thôi.

Ví dụ sau khi chèn trường và tôi định dạng (vd. máy tôi dùng dấu phẩy là dấu thập phân) lấy nhiều nhất là 3 chữ số sau dấu phẩy

{ MERGEFIELD "suma" \# "0,0##" }

Nếu bên Excel tôi có

5,31
4,925
19
1234567898,12

Thì bên Word tôi có

5,31
4,925
19,0
1234567898,12

cái này bạn làm thế này đi, nhập 1 cell 255 ký tự, cell tiếp theo nhập nội dung tiếp theo của ký tự 256, khi bạn chạy để 2 ký tự cần chuyển gần nhau, cho 1 khoảng trắng ở giữa. Khi chạy sẽ ra đc 1 dòng lớn hơn 255 ký tự.

Chỗ này tôi không hiểu ý lắm. Đơn giản chỉ là trong dòng đầu tiên nhập nội dung bất kỳ vd. 500 ký tự. Sau khi mail merge mà muốn in ra thì chọn bỏ trang đầu thôi. Tức in từ trang 2. Hoặc in tất nhưng trang đầu cho vào thùng rác.

 

[thesaintzero]

Tức là thế nào? Mở tập tin -> lưu -> đóng tập tin và cả Word? Cứ thế lặp lại cho từng dòng bên Excel? Tại sao lại phải đóng Word? Tại sao lại "mở từng file rồi đóng lại "? Tức bên Excel có 100 dòng thì sẽ có 100 tập tin Word rời? Nếu bạn làm văn phòng mà muốn gửi cho 100 đối tác thì mở lần lượt 100 tập tin rồi in? Nếu làm mail merge thì chỉ có 1 tập tin Word. Khi in thì mở 1 tập tin và in 1 lần sẽ có 100 trang rời (hoặc 200 trang nếu nội dung bản mẫu chiếm 2 trang). Thế thôi. Khoẻ và có nhiều thời gian làm việc khác.

Nếu dùng mail merge thì khi sửa Excel thì lại "Select Recipients" rồi Finish & Merge thôi.
Tôi nghĩ bạn không định dạng hoặc định dạng sai mà thôi.

Ví dụ sau khi chèn trường và tôi định dạng (vd. máy tôi dùng dấu phẩy là dấu thập phân) lấy nhiều nhất là 3 chữ số sau dấu phẩy

{ MERGEFIELD "suma" \# "0,0##" }

Nếu bên Excel tôi có

5,31
4,925
19
1234567898,12

Thì bên Word tôi có

5,31
4,925
19,0
1234567898,12

Chỗ này tôi không hiểu ý lắm. Đơn giản chỉ là trong dòng đầu tiên nhập nội dung bất kỳ vd. 500 ký tự. Sau khi mail merge mà muốn in ra thì chọn bỏ trang đầu thôi. Tức in từ trang 2. Hoặc in tất nhưng trang đầu cho vào thùng rác.

Cái thứ 1 bạn nào làm công tác ban hành Thông báo và Quyết định thu hồi đất thì sẽ hiểu cái công việc này, bạn không thể để 200 cái thông báo trong 200 trang mà là 200 tập tin, bạn phải chuyển hồ sơ nữa. Trong chương trình này có chức năng in word nhiều file, bạn chỉ việc chọn các file word cần in thôi. Bên làm công tác này bạn chỉ chuyển 200 tập tin cho 1 đối tượng thôi (còn việc này gửi 100 đối tác thì không có), tại cái file của bạn lúc đầu là làm cho công tác Thông báo thu hồi đất nên mình mới đề ra, nếu các bạn cảm thấy nó dễ dàng quá thì thôi vậy.

Bài đã được tự động gộp: 25/1/19

Chỗ này tôi không hiểu ý lắm. Đơn giản chỉ là trong dòng đầu tiên nhập nội dung bất kỳ vd. 500 ký tự. Sau khi mail merge mà muốn in ra thì chọn bỏ trang đầu thôi. Tức in từ trang 2. Hoặc in tất nhưng trang đầu cho vào thùng rác.

Tại 1 bạn trong chủ đề này hỏi trong file chuyển từ excel sang word nó chỉ cho chuyển dưới 255 ký tự, nên mình mới chỉ cách này. Mình không biết bạn đã thử file người ta gửi lên đây chưa????

 

[batman1]

Cái thứ 1 bạn nào làm công tác ban hành Thông báo và Quyết định thu hồi đất thì sẽ hiểu cái công việc này, bạn không thể để 200 cái thông báo trong 200 trang mà là 200 tập tin, bạn phải chuyển hồ sơ nữa. Trong chương trình này có chức năng in word nhiều file, bạn chỉ việc chọn các file word cần in thôi. Bên làm công tác này bạn chỉ chuyển 200 tập tin cho 1 đối tượng thôi (còn việc này gửi 100 đối tác thì không có), tại cái file của bạn lúc đầu là làm cho công tác Thông báo thu hồi đất nên mình mới đề ra, nếu các bạn cảm thấy nó dễ dàng quá thì thôi vậy.

Nếu đã có tập tin 100 trang (200 trang) thì chỉ cần 1 code ngắn là tách thành 100 tập tin khi cần.
Mà cái file đầu không phải của tôi. Nhận của mình người ta đánh chết tôi.

Thú thực là tôi cũng không để ý là chủ chủ đề -ính kèm tập tin về đất đai. Vì tôi không đọc bài đầu tiên và các bài khác trong chủ đề. Tôi chỉ đọc bài cuối là của bạn thôi.

Tại 1 bạn trong chủ đề này hỏi trong file chuyển từ excel sang word nó chỉ cho chuyển dưới 255 ký tự, nên mình mới chỉ cách này. Mình không biết bạn đã thử file người ta gửi lên đây chưa????

Tôi không thử tập tin của người ta vì tôi thử với tập tin mình tự tạo. Chắc chắn làm được. Với tập tin của người ta thì cũng thế thôi. Chung qui cũng là cùng lôgíc, chỉ có điều tôi không hiểu sao lại: "cell 255 ký tự, cell tiếp theo nhập nội dung tiếp theo của ký tự 256". Nhập vào 1 cell thôi (cell đầu) và nhập ngay vd. 500 ký tự chứ sao lại 255 rồi 256. Cái đó tôi không hiểu nên tôi viết rõ ra thôi.

 

[Bùi Thúy Thúy]

Soạn thảo văn bản Word từ Excel Phiên bản mới 2015-3

Trước hết xin cảm ơn tất cả các bạn đã quan tâm tới chủ đề này. Phiên bản mới này Tôi đã viết gọn lại (bỏ Sheets trung gian Data In); thêm phần tự động chuyển Key vào Data và đọc số bằng chữ; hiệu chỉnh phần hướng dẫn sử dụng; File ví dụ phức tạp hơn... Xét thấy việc in nhiều file cùng một lúc ít xảy ra nên Tôi đã bỏ chức năng này và bổ sung lựa chọn in ngay hoặc in sau.

Hiện tại cơ quan Tôi đang ứng dụng vào soạn thảo văn bản của nhiều lĩnh vực như Báo cáo định kỳ, Tờ trình, Hợp đồng và hầu hết các văn bản thuộc lĩnh vực đầu tư xây dựng. Việc ứng dụng chương trình này không những nâng cao năng suất, chất lượng soạn thảo văn bản mà còn giúp cho người sử dụng quản lý tốt dữ liệu (Data) một cách hệ thống, khoa học.

Do kiến thức về VBA có hạn, vừa học vừa viết thử nên code còn tùy tiện, chắp vá (cũng chẳng biết thế nào là tối ưu) vì vậy các bạn có thể sửa lại cho phù hợp với công việc của mình. Chúc các bạn thành công !

Em chào anh, anh cho em hỏi trong phần hướng dẫn ở sheet (Trang Chu) có ghi "Lưu ý: Khi cột B Sheets Data chưa có Key thì máy tự động cập nhật [key] (chỉ nên áp dụng khi tạo mới Data."
Vậy em hỏi ấn phím nào để tựu động cập nhập key ạ!
Em có đặt từ khóa [Key] cho "File_Mau" nhưng không biết cách nào để tự động cập nhập [Key] để [Key] xuất hiện trong cột B của sheet (Data)
Em có tự động cập nhập key theo 02 cách:
1/ Nhấn tổ hợp phím (Ctrl + Shift + W) nhưng key tự động cập nhập thiếu (những phần bôi đỏ trong fie mẫu không được tạo key đầy đủ
2/ Chạy macro KeyData nhưng key tự động điền vẫn bị thiếu.
Em có đính kèm file em đã làm và video, mong các Anh giải đáp giúp em mới nhé! em cảm ơn anh.

 

[Bùi Thúy Thúy]

Các vấn đề bạn hỏi tôi đã hướng dẫn rồi mà.
- Ý 1: đương nhiên phải làm như ý bạn, file word của tôi chỉ là ví dụ để mọi người xem cách làm cụ thể. Khi bạn đã hiểu thì xoá bỏ nó đi.
- Ý 2: bạn dùng bao nhiêu cột cũng được nhưng không được nhiều hơn 250 cột.
- Ý 3: cách tạo key tự động chính là phần vừa được nâng cấp. Phiên bản trước hoàn toàn làm thủ công như cách bạn hỏi. Vì vậy hãy chỉnh file goc như thế nào đó để máy tự động tạo key tới mức tối đa. Trường hợp đặc biệt thì mới làm thủ công.

lưu ý: việc tạo key bổ sung bằng thủ công chỉ thực hiện sau khi máy đã tạo xong key. Nếu tạo trước sẽ bị máy xoá.

Anh ơi cho em hỏi tạo key tự động như thế nào ạ? em tạo nhưng toàn bị thiếu key

 

[be_09]

Cái thứ 1 bạn nào làm công tác ban hành Thông báo và Quyết định thu hồi đất thì sẽ hiểu cái công việc này, bạn không thể để 200 cái thông báo trong 200 trang mà là 200 tập tin, bạn phải chuyển hồ sơ nữa.

Tôi làm ngành này nhưng không trực tiếp làm.
Khi rảnh rổi tôi cũng nghiên cứu làm thử để biết, tất cả mọi thứ tôi đều làm trên Excel, chỉ khi người nào cần cái gì đó thì tôi mới xuất File và gửi File cho người cần và cũng chẳng cần phải lưu File làm gì cho nó tốn dung lượng ổ dĩa.

 

[Bùi Thúy Thúy]

Theo dõi từ trang 1 đến trang 7, mày mò cả tối lẫn đêm... giờ đến chiều nay thì thử nghiệm mãi cũng làm được ngòn lành trọn vẹn theo những gì mình muốn trên win 10 + office 13.

Thật hữu ích, và đúng là thứ cháu đang tìm kiếm bấy lâu nay. Sướng rơi nước mắt.

Thầm cảm ơn Bác Trungchinhs nhiều, Không biết lấy gì hậu tạ. Kính chúc bác mạnh Khỏe Hạnh Phúc.

Tạo key tự động như thế nào vậy bạn, mình tạo toàn bị thiếu, bạn tạo được giúp mình với nhé!

 

[Bùi Thúy Thúy]

Nếu đã có tập tin 100 trang (200 trang) thì chỉ cần 1 code ngắn là tách thành 100 tập tin khi cần.
Mà cái file đầu không phải của tôi. Nhận của mình người ta đánh chết tôi.

Thú thực là tôi cũng không để ý là chủ chủ đề -ính kèm tập tin về đất đai. Vì tôi không đọc bài đầu tiên và các bài khác trong chủ đề. Tôi chỉ đọc bài cuối là của bạn thôi.

Tôi không thử tập tin của người ta vì tôi thử với tập tin mình tự tạo. Chắc chắn làm được. Với tập tin của người ta thì cũng thế thôi. Chung qui cũng là cùng lôgíc, chỉ có điều tôi không hiểu sao lại: "cell 255 ký tự, cell tiếp theo nhập nội dung tiếp theo của ký tự 256". Nhập vào 1 cell thôi (cell đầu) và nhập ngay vd. 500 ký tự chứ sao lại 255 rồi 256. Cái đó tôi không hiểu nên tôi viết rõ ra thôi.

Thầy ơi em nhờ thầy xem giúp em #91, em làm đi làm lại mã vẫn không lấy được key tự động, vẫn báo lấy thiếu key
Em có đính kèm file, video và file ảnh đã thực hành, kính mong thầy giúp em xem bị lỗi ở đâu ạ!

 

[binh123456789]

Có cách nào chèn công thức toán hông vậy anh chị

 

[Bùi Thúy Thúy]

Có cách nào chèn công thức toán hông vậy anh chị

Tự động lấy [key] mà ạ! mình không hiểu tại sao? hay tạo excel không tương thích, bạn nếu có thời gian tải file mình có đính kèm và lấy [key] tự động giúp mình xem có bị lỗi không, [key] mình lấy tự động chứ không chèn thủ công.
Cám ơn bạn đã quan tâm!

 

[binh123456789]

Tự động lấy [key] mà ạ! mình không hiểu tại sao? hay tạo excel không tương thích, bạn nếu có thời gian tải file mình có đính kèm và lấy [key] tự động giúp mình xem có bị lỗi không, [key] mình lấy tự động chứ không chèn thủ công.
Cám ơn bạn đã quan tâm!

Vậy là ko có hỗ trợ hả ban

 

[chothadiem]

Em chào anh, anh cho em hỏi trong phần hướng dẫn ở sheet (Trang Chu) có ghi "Lưu ý: Khi cột B Sheets Data chưa có Key thì máy tự động cập nhật [key] (chỉ nên áp dụng khi tạo mới Data."
Vậy em hỏi ấn phím nào để tựu động cập nhập key ạ!
Em có đặt từ khóa [Key] cho "File_Mau" nhưng không biết cách nào để tự động cập nhập [Key] để [Key] xuất hiện trong cột B của sheet (Data)
Em có tự động cập nhập key theo 02 cách:
1/ Nhấn tổ hợp phím (Ctrl + Shift + W) nhưng key tự động cập nhập thiếu (những phần bôi đỏ trong fie mẫu không được tạo key đầy đủ
2/ Chạy macro KeyData nhưng key tự động điền vẫn bị thiếu.
Em có đính kèm file em đã làm và video, mong các Anh giải đáp giúp em mới nhé! em cảm ơn anh.

View attachment 225377View attachment 225378View attachment 225379

Tớ làm có lần được lần không.

 

[binh123456789]

Tớ làm có lần được lần không.

Bạn có làm công thức toán hk bạn