Hướng dẫn về cách chuyển dữ liệu từ Excel sang Word (6 người xem)

[thesaintzero]

Hôm bữa em có tạo 1 chủ đề về vấn đề này nhưng chưa có câu trả lời ..........
http://www.giaiphapexcel.com/forum/...iệu-từ-Excel-sang-Word-(không-phải-Mail-merge
Em cố gắng tìm kiếm và tìm ra được 1 file của Bác ThanhLanh nhưng xem mãi vẫn không biết cách làm, ai có thể hướng dẫn cụ thể cho em từng bước làm theo bác ThanhLanh dùng textbox để chuyển dữ liệu sang Word được không ah!
Em cám ơn mấy bác rất nhiều.......

 

[bongmaihung]

Hôm bữa em có tạo 1 chủ đề về vấn đề này nhưng chưa có câu trả lời ..........
http://www.giaiphapexcel.com/forum/...iệu-từ-Excel-sang-Word-(không-phải-Mail-merge
Em cố gắng tìm kiếm và tìm ra được 1 file của Bác ThanhLanh nhưng xem mãi vẫn không biết cách làm, ai có thể hướng dẫn cụ thể cho em từng bước làm theo bác ThanhLanh dùng textbox để chuyển dữ liệu sang Word được không ah!
Em cám ơn mấy bác rất nhiều.......

http://www.giaiphapexcel.com/forum/...ình-giải-thích-code-chuyển-từ-excel-sang-word
http://www.giaiphapexcel.com/forum/...-vba-để-lấy-dữ-liệu-trong-listbox-excel/page2
Bạn xem đường link này nhé
Bạn kích vào command button/ In HD là file word sẽ ra

 

[thesaintzero]

cám ơn bác bongmaihung cho link, em lấy file từ link trên đó, nhưng cái chỗ em thắc mắc không hiểu là làm sao gán name cho Shape đã vẽ trong word để gán dữ liệu cho nó, (thực chất cái shape này là textbox)

 

[bongmaihung]

cám ơn bác bongmaihung cho link, em lấy file từ link trên đó, nhưng cái chỗ em thắc mắc không hiểu là làm sao gán name cho Shape đã vẽ trong word để gán dữ liệu cho nó, (thực chất cái shape này là textbox)

Name cho shape chính là dữ liệu trong hai sheet đó bạn, nếu bạn biết qua về VBA sẽ dễ xem hơn code hơn

 

[sealand]

Bạn làm như sau cho tiện:

1/Bạn mở File Doc của bạn ra--->Nhấn Alt+F11--->Bạn thêm 1 Module và chép Code sau vào:

Sub AdMultObject()
'Bo xung 1 nhom
Dim mName, Group, Sl, i

 Sl = InputBox("Ban can bao nhieu Textbox", "ADD TEXTBOX")
 Group = InputBox("Nhap ten cho cac Textbox", "ADD TEXTBOX")
 
   For i = 1 To Sl
     On Error Resume Next
      mName = Group & i
        ThisDocument.Shapes(mName).Delete
         With ActiveDocument.Shapes.AddTextbox(1, 200, 30 * i, 200, 25)
            .Name = mName
            .TextFrame.TextRange = "Textbox Name: " & mName
        End With
      Next
End Sub
'-------------------------------
Sub AdObject()
'Bo xung 1 textbox
Dim mName
mName = InputBox("Nhap ten cho cac Textbox", "ADD TEXTBOX")
     On Error Resume Next
        ThisDocument.Shapes(mName).Delete
         With ActiveDocument.Shapes.AddTextbox(1, 200, 30, 200, 25)
            .Name = mName
            .TextFrame.TextRange = "Textbox Name: " & mName
        End With
End Sub

3/Bạn nhấn Alt+F8 chọn Macro để chạy


Vậy là bạn có đủ số lượng Textbox, bạn di chuyển nó về đúng vị trí là OK

 

[bongmaihung]

Bạn làm như sau cho tiện:

1/Bạn mở File Doc của bạn ra--->Nhấn Alt+F11--->Bạn thêm 1 Module và chép Code sau vào:

Sub AdMultObject()
'Bo xung 1 nhom
Dim mName, Group, Sl, i

 Sl = InputBox("Ban can bao nhieu Textbox", "ADD TEXTBOX")
 Group = InputBox("Nhap ten cho cac Textbox", "ADD TEXTBOX")
 
   For i = 1 To Sl
     On Error Resume Next
      mName = Group & i
        ThisDocument.Shapes(mName).Delete
         With ActiveDocument.Shapes.AddTextbox(1, 200, 30 * i, 200, 25)
            .Name = mName
            .TextFrame.TextRange = "Textbox Name: " & mName
        End With
      Next
End Sub
'-------------------------------
Sub AdObject()
'Bo xung 1 textbox
Dim mName
mName = InputBox("Nhap ten cho cac Textbox", "ADD TEXTBOX")
     On Error Resume Next
        ThisDocument.Shapes(mName).Delete
         With ActiveDocument.Shapes.AddTextbox(1, 200, 30, 200, 25)
            .Name = mName
            .TextFrame.TextRange = "Textbox Name: " & mName
        End With
End Sub

3/Bạn nhấn Alt+F8 chọn Macro để chạy


Vậy là bạn có đủ số lượng Textbox, bạn di chuyển nó về đúng vị trí là OK

http://www.giaiphapexcel.com/forum/...-vba-để-lấy-dữ-liệu-trong-listbox-excel/page3
Em cảm ơn anh. Nhưng em thấy bài viết này của anh dễ dùng hơn. Anh có thể check giúp em tại sao lại ko dược ko ah

 

[thesaintzero]

Em cám ơn bác sealand nha! Nhưng cho em hỏi dốt câu này chút, "thế thông thường mình vẽ 1 textbox trong wworld thì gán name thế nào ah! Vì em thấy trong file bác làm hình như không có đoạn tạo textbox này" em thật sự muốn biết vì nếu làm đc chuyển từ excel sang word mà không bị lỗi số hay các thứ khác chỉ có cách này thôi mà cũng giúp đc cho dân văn phòng tụi em nhiều lắm....cám ơn bác đã quan tâm.

 

[sealand]

Em cám ơn bác sealand nha! Nhưng cho em hỏi dốt câu này chút, "thế thông thường mình vẽ 1 textbox trong wworld thì gán name thế nào ah! Vì em thấy trong file bác làm hình như không có đoạn tạo textbox này" em thật sự muốn biết vì nếu làm đc chuyển từ excel sang word mà không bị lỗi số hay các thứ khác chỉ có cách này thôi mà cũng giúp đc cho dân văn phòng tụi em nhiều lắm....cám ơn bác đã quan tâm.

Lâu quá rồi nên mình không nhớ khi đó mình làm thế nào nữa, mà VBA của MS Word mình ít dùng nên không nên không rõ lắm.

 

[thesaintzero]

Thế bác sealand cho em hỏi chút nha! em có 2 file này em làm theo cách của bác, thế sao khi em ghi trong A3 là 1.499999 vào để chỉnh làm tròn thành 1.5 nhưng khi xuất sang word nó vẫn ghi 1.499999, em sử dụng hàm Round để đưa giá trị nhưng xuất sang word thì nó không xuất....