Hỏi về trộn dữ liệu từ excel sang word có chứa bảng tab

[soap1234]

Chào các anh chị em muốn nhờ anh chị diễn đàn sửa em code trong file sau. Hai code này em xin phép lấy từ anh maika ạ.
Em muốn khi trộn sang word những dòng nào trống hoặc không có dữ liệu trong bảng TAB thì tự động xóa dòng đó đi. thường thì khi điền xong em lại phải xóa thủ công trong bảng này anh chị ạ. em xin chân thành cảm ơn

 

[soap1234]

Em cảm ơn các bác ạ. Xin hỏi bác giapphap hàm If AscW(r.Cells(2).Range.Text) = 13 Then số 13 có ý nghĩa gì anh

Bài đã được tự động gộp: 18/7/22

Thiết kế trong excel nhiều table thì em thấy có một vấn đề mà hiện nay đang đầu đó là khi 1 file thiết kế đẹp căn chỉnh rồi nhưng khi copy sang máy tính khác lại bị tràn trang ( do độ phân giải màn hình thì phải) rồi phải căn chỉnh lại. em cũng đã tìm nhiều bài viết mà chưa thấy hướng xử lý thế nào anh maika ạ

 

[Maika8008]

...
Thiết kế trong excel nhiều table thì em thấy có một vấn đề mà hiện nay đang đầu đó là khi 1 file thiết kế đẹp căn chỉnh rồi nhưng khi copy sang máy tính khác lại bị tràn trang ( do độ phân giải màn hình thì phải) rồi phải căn chỉnh lại. em cũng đã tìm nhiều bài viết mà chưa thấy hướng xử lý thế nào anh maika ạ

Qua máy khác thì chỉ cần chỉnh độ rộng cho vừa trang in, 1 vài giây là xong chứ có gì khó đâu.

 

[soap1234]

Không khắc phục được triệt để được vấn đề đó à anh

Bài đã được tự động gộp: 18/7/22

hàm If AscW(r.Cells(2).Range.Text) = 13 Then số 13 có ý nghĩa gì anh

 

[giaiphap]

hàm If AscW(r.Cells(2).Range.Text) = 13 Then số 13 có ý nghĩa gì anh

Nếu dòng nào có cột số 2 không có dữ liệu thì sẽ xóa dòng đó đi. Mỗi một ký tự nó sẽ có một mã nhất định số 13 là kí hiệu của mã chuyển dòng/xuống dòng. Bạn có thể tham khảo bảng mã ASCII để tra cứu mã của các ký tự tại đây.

ASCII – Wikipedia tiếng Việt

vi.wikipedia.org

 

[soap1234]

Bác xem em với em đã thử để cột số 6 (cột Thành tiền ) mà không xóa được hết bác à

 

[giaiphap]

Bác xem em với em đã thử để cột số 6 (cột Thành tiền ) mà không xóa được hết bác à

Bạn tự suy nghĩ đi, đã nói nhiều lần trong chủ đề này rồi. Tùy biến cho file của bạn, thực tế thì bạn chưa hiểu vấn đề nên có nói thì bạn cũng không hiểu, xem lại những hướng dẫn ở các bài viết trên và tự suy ngẫm lại lý do nó chạy không đúng. Gợi ý cho bạn là bây giờ cột 6 dữ liệu nó khác với cột 2 rồi.

 

[soap1234]

Dạ cột 6 là cột số nên loay hoay mãi không biết sửa code anh ạ. Nhờ Anh sửa phần này nữa là xong chủ đề anh ạ

Bài đã được tự động gộp: 18/7/22

Dạ em chỉ xin anh sửa cho code chạy được cột 6 là em đạt được ước nguyện rồi anh ạ. file excel giảm được bao nhiêu là cột anh à

 

[thuy2022]

Thôi thì bác giai phap giúp anh ấy đi cho bác ấy mãn nguyện.

 

[giaiphap]

Bài viết cuối cùng trong chủ đề này nhé, nếu chưa được nửa thì chờ các thành viên khác giúp.

           If wDoc.Tables.Count > 0 Then
                j = 0
                Set tb = wDoc.Tables.Item(1)
                For Each r In tb.Rows
                    If (AscW(r.Cells(6).Range.Text) = 13) Or (Left(r.Cells(6).Range.Text, 1) = "0") Then
                        r.Delete
                    Else
                        If Left(r.Cells(1).Range.Text, 2) <> "TT" Then
                            j = j + 1
                            r.Cells(1).Range.Text = j
                        End If
                    End If
                Next r
            End If

 

[soap1234]

Em xin cảm ơn anh và các anh nhiều lắm ạ

 

[thuy2022]

Bác giaiphap xem lại code trộn nhiều dòng em với em test mà sao không xóa được. Xin cảm ơn bác

 

[thuy2022]

Bác xem em với em thử đi thử lại mà code trộn nhiều dòng không xóa được anh à. tại một số mẫu thuy cũng có bảng tab nên thuy rất cần thiết anh à. xin cảm ơn anh giaiphap nhiều

 

[giaiphap]

Bác xem em với em thử đi thử lại mà code trộn nhiều dòng không xóa được anh à. tại một số mẫu thuy cũng có bảng tab nên thuy rất cần thiết anh à. xin cảm ơn anh giaiphap nhiều

Bạn nên đọc các bài viết phía trên, xem bài #29.

 

[thuy2022]

Thuy làm theo bài # 29 rồi trộn 1 dòng thì được nhưng trộn nhiều dòng thì không xóa được anh à anh xem giúp thuy với.

 

[giaiphap]

Thuy làm theo bài # 29 rồi trộn 1 dòng thì được nhưng trộn nhiều dòng thì không xóa được anh à anh xem giúp thuy với.

Tui bó tay với bạn luôn, có bao giờ bạn dùng cây thước vẽ vòng tròn chưa, phải tùy thuộc ngữ cảnh và dùng cho phù hợp chứ. Code xuất nhiều dòng bây giờ lại khác rồi không giống như xuất 1 dòng nửa, chính vì vậy bạn phải sửa lại cho phù hợp chứ. Học lập trình mà kiều này thì thua thiệt chứ.

 

[thuy2022]

Dạ. Thuy cảm ơn anh nhiều nhiều lắm.